jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP: Larger high-level headings

Browse source
This commit is contained in:
Adam Porter 2022-03-18 12:41:19 -05:00
parent 0f8ae0e850
commit fc7447185a
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
taxy-org-ql-view.el
View file

@ -335,12 +335,20 @@ Searches in ELEMENT's buffer."
(propertize string (propertize string
'org-hd-marker marker 'org-hd-marker marker
'org-marker marker))) 'org-marker marker)))
(heading-face (depth)
;; TODO: Make customizeable.
(let ((height (pcase depth
((pred (> 0)) 1.3)
(0 1.2)
(1 1.1)
(_ 1.0))))
(list :inherit 'magit-section-heading :height height)))
(make-fn (&rest args) (make-fn (&rest args)
(apply #'make-taxy-magit-section (apply #'make-taxy-magit-section
:make #'make-fn :make #'make-fn
:take (taxy-make-take-function taxy-keys taxy-org-ql-view-keys) :take (taxy-make-take-function taxy-keys taxy-org-ql-view-keys)
:format-fn #'format-item :format-fn #'format-item
;; :heading-face-fn #'heading-face :heading-face-fn #'heading-face
:level-indent org-ql-view-level-indent :level-indent org-ql-view-level-indent
:item-indent org-ql-view-item-indent :item-indent org-ql-view-item-indent
args))) args)))