Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Added org-super-agenda-header-suffix #270

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions README.org
Original file line number Diff line number Diff line change
Expand Up @@ -243,6 +243,7 @@ As explained in the usage instructions and shown in the example, items are colle
*Additions*
+ Selector ~:ancestor-with-todo~, which groups items by their ancestor having a certain to-do keyword (up to a ~:limit~ number of hops, or with ~:nearestp~, the nearest one). (Useful, for example, to group items by their parent or ancestor project.)
+ Option ~org-super-agenda-show-message~ allows disabling of the message shown when the mode is enabled. (Thanks to [[https://github.com/hpfr][Liam Hupfer]].)
+ Option =org-super-agenda-header-suffix=, a string appended to group headers. ([[https://github.com/alphapapa/org-super-agenda/issues/270][#270]]. Thanks to [[https://github.com/KamWithK][Kamron Bhavnagri]].)

*Changes*
+ Selector ~:auto-outline-path~ puts top-level headings in a group named "Top-level headings". ([[https://github.com/alphapapa/org-super-agenda/issues/258][#258]]. Thanks to [[https://github.com/gsingh93][Gulshan Singh]] for suggesting.)
Expand Down
6 changes: 5 additions & 1 deletion org-super-agenda.el
Original file line number Diff line number Diff line change
Expand Up @@ -205,6 +205,10 @@ to fill window width, and a newline is added."
"String prepended to group headers."
:type 'string)

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

(defcustom org-super-agenda-final-group-separator ""
"Separator inserted after final agenda group.
If a character, it is repeated to fill window width, and a
Expand Down Expand Up @@ -307,7 +311,7 @@ of `org-super-agenda-header-map', which see."
(pcase name
((or `nil 'none) "")
(_ (let* ((properties (text-properties-at 0 name))
(header (concat org-super-agenda-header-prefix name))
(header (concat org-super-agenda-header-prefix name org-super-agenda-header-suffix))
(separator
(cl-etypecase org-super-agenda-header-separator
(character (concat (make-string (window-width) org-super-agenda-header-separator)
Expand Down
4 changes: 4 additions & 0 deletions org-super-agenda.info
Original file line number Diff line number Diff line change
Expand Up @@ -576,6 +576,10 @@ File: README.info, Node: 14-pre, Next: 13, Up: Changelog
• Option ‘org-super-agenda-show-message’ allows disabling of the
message shown when the mode is enabled. (Thanks to Liam Hupfer
(https://github.com/hpfr).)
• Option ‘org-super-agenda-header-suffix’, a string appended to
group headers. (#270
(https://github.com/alphapapa/org-super-agenda/issues/270). Thanks
to Kamron Bhavnagri (https://github.com/KamWithK).)

*Changes*
• Selector ‘:auto-outline-path’ puts top-level headings in a group
Expand Down