diff options
| author | jao <jao@gnu.org> | 2026-06-26 19:51:55 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-06-26 19:52:44 +0100 |
| commit | d99b4bfda89467a130b74c6d40256c95f32ae73a (patch) | |
| tree | 3465e59dee9e6975719ad63d4ffed73300a675de /custom | |
| parent | 2e44da4d5bd9c21dcf25c196364ab1627fe8795e (diff) | |
| download | elibs-d99b4bfda89467a130b74c6d40256c95f32ae73a.tar.gz elibs-d99b4bfda89467a130b74c6d40256c95f32ae73a.tar.bz2 | |
org: centered agenda title
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-org.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el index d971346..98d49f0 100644 --- a/custom/jao-custom-org.el +++ b/custom/jao-custom-org.el @@ -56,8 +56,16 @@ (defun jao-org-agenda-fmt-date (date) (org-agenda-format-date-aligned date)) +(defun jao-org-agenda-title () + (let ((fill-column (window-width))) + (with-temp-buffer + (insert " agenda ") + (center-line) + (insert "\n\n") + (buffer-substring-no-properties (point-min) (point-max))))) + (setq org-agenda-custom-commands - '(("j" agenda "" ((org-agenda-overriding-header "Agenda \n") + '(("j" agenda "" ((org-agenda-overriding-header #'jao-org-agenda-title) (org-agenda-ndays-to-span 14))) ("w" todo "WAITING" nil) ("W" agenda "" ((org-agenda-ndays 21)))) |