Add: (defface org-ql-view-query)

This commit is contained in:
Adam Porter 2024-09-11 01:50:16 -05:00
parent 82f762e31c
commit d574b60551
3 changed files with 57 additions and 47 deletions

View file

@ -557,6 +557,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
** 0.9-pre ** 0.9-pre
*Additions* *Additions*
+ Face ~org-ql-view-query~, applied to view queries in header line.
+ Face ~org-ql-view-title~, applied to view titles in header line. + Face ~org-ql-view-title~, applied to view titles in header line.
+ Option ~org-ql-view-relative-deadline-prefix~. + Option ~org-ql-view-relative-deadline-prefix~.

View file

@ -59,6 +59,13 @@
"Face for due dates in `org-ql-view' views." "Face for due dates in `org-ql-view' views."
:group 'org-ql-view) :group 'org-ql-view)
(defface org-ql-view-query nil
"View query in header line.
This face is added to the formatted query after font-lock faces
are applied to it. It may be used, e.g. to reduce the height so
more of it is visible."
:group 'org-ql-view)
(defface org-ql-view-title '((t :weight bold)) (defface org-ql-view-title '((t :weight bold))
"View title in header line." "View title in header line."
:group 'org-ql-view) :group 'org-ql-view)
@ -489,6 +496,7 @@ If TITLE, prepend it to the header."
(org-ql-view--font-lock-string 'emacs-lisp-mode) (org-ql-view--font-lock-string 'emacs-lisp-mode)
(s-truncate available-width)) (s-truncate available-width))
'help-echo buffers-files-formatted)))) 'help-echo buffers-files-formatted))))
(add-face-text-property 0 (length query-propertized) 'org-ql-view-query 'append query-propertized)
(concat title (concat title
(when query (propertize "Query:" 'face 'transient-argument)) (when query (propertize "Query:" 'face 'transient-argument))
(when query query-propertized) (when query query-propertized)

View file

@ -1096,6 +1096,7 @@ File: README.info, Node: 09-pre, Next: 089, Up: Changelog
=========== ===========
*Additions* *Additions*
• Face org-ql-view-query, applied to view queries in header line.
• Face org-ql-view-title, applied to view titles in header line. • Face org-ql-view-title, applied to view titles in header line.
• Option org-ql-view-relative-deadline-prefix. • Option org-ql-view-relative-deadline-prefix.
@ -2154,53 +2155,53 @@ Node: Links39051
Node: Tips39738 Node: Tips39738
Node: Changelog40062 Node: Changelog40062
Node: 09-pre41029 Node: 09-pre41029
Node: helm-org-ql (1)41801 Node: helm-org-ql (1)41878
Node: 08941942 Node: 08942019
Node: 08843084 Node: 08843161
Node: 08744160 Node: 08744237
Node: 08645388 Node: 08645465
Node: 08545622 Node: 08545699
Node: 08446278 Node: 08446355
Node: 08346730 Node: 08346807
Node: 08247071 Node: 08247148
Node: 08147464 Node: 08147541
Node: 0847887 Node: 0847964
Node: 07450613 Node: 07450690
Node: 07350838 Node: 07350915
Node: 07251572 Node: 07251649
Node: 07152493 Node: 07152570
Node: 0753304 Node: 0753381
Node: 06356170 Node: 06356247
Node: 06256703 Node: 06256780
Node: 06157010 Node: 06157087
Node: 0657580 Node: 0657657
Node: 05260636 Node: 05260713
Node: 05160938 Node: 05161015
Node: 0561363 Node: 0561440
Node: 04962894 Node: 04962971
Node: 04863176 Node: 04863253
Node: 04763525 Node: 04763602
Node: 04663934 Node: 04664011
Node: 04564342 Node: 04564419
Node: 04464703 Node: 04464780
Node: 04365062 Node: 04365139
Node: 04265265 Node: 04265342
Node: 04165426 Node: 04165503
Node: 0465673 Node: 0465750
Node: 03269774 Node: 03269851
Node: 03170177 Node: 03170254
Node: 0370374 Node: 0370451
Node: 02373674 Node: 02373751
Node: 02273908 Node: 02273985
Node: 02174188 Node: 02174265
Node: 0274393 Node: 0274470
Node: 0178471 Node: 0178548
Node: Development78572 Node: Development78649
Node: Copyright assignment78805 Node: Copyright assignment78882
Node: Notes79395 Node: Notes79472
Node: Comparison with Org Agenda searches79559 Node: Comparison with Org Agenda searches79636
Node: org-sidebar80448 Node: org-sidebar80525
Node: License80727 Node: License80804
 
End Tag Table End Tag Table