From ecfc0e326c82394432588ff42eae672a7d953379 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 3 Apr 2024 23:51:58 +0100 Subject: proper agenda view customization (custom command) --- custom/jao-custom-org.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'custom') diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el index e4a242e..02e7a03 100644 --- a/custom/jao-custom-org.el +++ b/custom/jao-custom-org.el @@ -51,9 +51,11 @@ org-gnus-prefer-web-links nil)) ;;; Agenda -(setq ;; org-agenda-custom-commands - ;; '(("w" todo "WAITING" nil) - ;; ("W" agenda "" ((org-agenda-ndays 21)))) +(setq org-agenda-custom-commands + '(("j" agenda "" ((org-agenda-ndays 14) + (org-agenda-overriding-header " "))) + ("w" todo "WAITING" nil) + ("W" agenda "" ((org-agenda-ndays 21)))) org-agenda-files (mapcar (lambda (f) (expand-file-name f jao-org-dir)) '("inbox.org" "bigml.org")) @@ -77,8 +79,7 @@ (defun jao-org-agenda () (interactive) - (let ((org-agenda-overriding-header " ")) - (org-agenda-list))) + (org-agenda nil "j")) (defun jao-org-agenda-hook () (setq-local cursor-in-non-selected-windows nil)) @@ -86,9 +87,9 @@ (add-hook 'org-agenda-mode-hook #'jao-org-agenda-hook) (add-to-list 'display-buffer-alist - '((major-mode . org-agenda-mode) + '("\\*Org Agenda\\*" (display-buffer-reuse-window) - (body-function . (lambda (w) (set-window-margins w 2))))) + (body-function . (lambda (w) (set-window-margins w 2 1))))) ;;; Capture templates -- cgit v1.2.3