Skip to content

Commit

Permalink
Add: (org-super-agenda-header-prefix)
Browse files Browse the repository at this point in the history
Closes #108.  Thanks to Christian Schwarzgruber (@cslux).
  • Loading branch information
alphapapa committed Nov 13, 2020
2 parents 8f7c819 + 96c0951 commit 7fa6e21
Show file tree
Hide file tree
Showing 3 changed files with 20 additions and 11 deletions.
1 change: 1 addition & 0 deletions README.org
Original file line number Diff line number Diff line change
Expand Up @@ -247,6 +247,7 @@ As explained in the usage instructions and shown in the example, items are colle
+ To-do keyword faces are applied to keywords in group headers.
+ Option =org-super-agenda-header-separator= may also be a character, which is automatically repeated to the window width. (Thanks to [[https://github.com/sheepduke][YUE Daian]].)
+ Option =org-super-agenda-header-properties=. It sets =org-agenda-structural-header= by default, which enables navigating to headers with the default =M-{= / =M-}= bindings in agenda buffers. (Thanks to [[https://github.com/haji-ali][Abdul-Lateef Haji-Ali]].)
+ Option =org-super-agenda-header-prefix=, a string prepended to group headers. ([[https://github.com/alphapapa/org-super-agenda/issues/108][#108]]. Thanks to [[https://github.com/cslux][Christian Schwarzgruber]].)

*Changed*
+ Group headers face is now appended to face list instead of overriding it.
Expand Down
6 changes: 5 additions & 1 deletion org-super-agenda.el
Original file line number Diff line number Diff line change
Expand Up @@ -200,6 +200,10 @@ If a string, a newline is added. If a character, it is repeated
to fill window width, and a newline is added."
:type '(choice character string))

(defcustom org-super-agenda-header-prefix " "
"String prepended to group headers."
:type 'string)

(defcustom org-super-agenda-date-format "%e %B %Y"
"Format string for date headers.
See `format-time-string'."
Expand Down Expand Up @@ -288,7 +292,7 @@ face `org-super-agenda-header' appended, and the text properties
(character (concat (s-repeat (window-width) org-super-agenda-header-separator)
"\n"))
(string org-super-agenda-header-separator))))
(setq s (concat " " s))
(setq s (concat org-super-agenda-header-prefix s))
(add-face-text-property 0 (length s) 'org-super-agenda-header t s)
(org-add-props s org-super-agenda-header-properties
'keymap org-super-agenda-header-map
Expand Down
24 changes: 14 additions & 10 deletions org-super-agenda.info
Original file line number Diff line number Diff line change
Expand Up @@ -574,6 +574,10 @@ File: README.info, Node: 12-pre, Next: 111, Up: Changelog
org-agenda-structural-header by default, which enables navigating
to headers with the default M-{ / M-} bindings in agenda buffers.
(Thanks to Abdul-Lateef Haji-Ali (https://github.com/haji-ali).)
• Option org-super-agenda-header-prefix, a string prepended to group
headers. (#108
(https://github.com/alphapapa/org-super-agenda/issues/108). Thanks
to Christian Schwarzgruber (https://github.com/cslux).)

*Changed*
• Group headers face is now appended to face list instead of
Expand Down Expand Up @@ -766,16 +770,16 @@ Node: Why are some items not displayed even though I used group selectors for th
Node: Why did a group disappear when I moved it to the end of the list?19848
Node: Changelog20423
Node: 12-pre20646
Node: 11122998
Node: 1123171
Node: 10324743
Node: 10224954
Node: 10125088
Node: 10025426
Node: Development25531
Node: Bugs25933
Node: Tests26586
Node: Credits26905
Node: 11123227
Node: 1123400
Node: 10324972
Node: 10225183
Node: 10125317
Node: 10025655
Node: Development25760
Node: Bugs26162
Node: Tests26815
Node: Credits27134

End Tag Table

Expand Down

0 comments on commit 7fa6e21

Please sign in to comment.