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

WIP

Browse source
This commit is contained in:
Adam Porter 2023-03-08 23:39:44 -06:00
parent 194491f57e
commit 2cd65ea6e0
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -83,19 +83,20 @@ second levels."
"View top-level section names.") "View top-level section names.")
(defface org-ql-view-heading (defface org-ql-view-heading
`((t (:inherit magit-section-heading :weight bold))) `((t (:inherit org-agenda-structure ;; magit-section-heading
:weight bold)))
"Group headings. "Group headings.
Inherited by level-specific faces.") Inherited by level-specific faces.")
(defface org-ql-view-heading-1 (defface org-ql-view-heading-1
`((t (:inherit org-ql-view-heading `((t (:inherit org-ql-view-heading
:height 1.1 :overline t :height 1.2 :overline t
:background ,(face-background 'header-line)))) :background ,(face-background 'header-line))))
"Level-1 group headings.") "Level-1 group headings.")
(defface org-ql-view-heading-2 (defface org-ql-view-heading-2
`((t (:inherit org-ql-view-heading `((t (:inherit org-ql-view-heading ;; :inverse-video t
:height 1.0 :overline nil :height 1.1 :overline nil
:background ,(face-background 'header-line)))) :background ,(face-background 'header-line))))
"Level-2 group headings.") "Level-2 group headings.")
@ -556,6 +557,8 @@ contents."
;; work). ;; work).
make-fn-group (or query-group group) make-fn-group (or query-group group)
query-sort (or query-sort sort)) query-sort (or query-sort sort))
;; HACK: Probably not where we really want to add this face.
(add-face-text-property 0 (length query-name) 'org-ql-view-heading-2 nil query-name)
(let* ((title (or query-name (let* ((title (or query-name
(org-ql-view--header-line-format (org-ql-view--header-line-format
:buffers-files from :buffers-files from
@ -593,8 +596,11 @@ contents."
(:sort section-sort) (:group section-group) (:sort section-sort) (:group section-group)
(:queries section-queries)) (:queries section-queries))
sections) sections)
(setf section-name (or section-name name))
;; HACK: Probably not where we really want to add this face.
(add-face-text-property 0 (length section-name) 'org-ql-view-heading-1 nil section-name)
(taxy-org-ql-view :buffer buffer :columns columns (taxy-org-ql-view :buffer buffer :columns columns
:name (or section-name name) :from (or section-from from) :name section-name :from (or section-from from)
:where (or section-where where) :where (or section-where where)
:sort (or section-sort sort) :group (or section-group group) :sort (or section-sort sort) :group (or section-group group)
:queries (or section-queries queries) :append append) :queries (or section-queries queries) :append append)