diff options
| author | jao <jao@gnu.org> | 2024-04-03 23:51:58 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-04-03 23:51:58 +0100 |
| commit | ecfc0e326c82394432588ff42eae672a7d953379 (patch) | |
| tree | 1f4784632f6617a8b58f0bcff939e4acffdd2365 | |
| parent | 91366f947b6ede7cec14f4959694e61cca08289d (diff) | |
| download | elibs-ecfc0e326c82394432588ff42eae672a7d953379.tar.gz elibs-ecfc0e326c82394432588ff42eae672a7d953379.tar.bz2 | |
proper agenda view customization (custom command)
| -rw-r--r-- | custom/jao-custom-org.el | 15 | ||||
| -rw-r--r-- | init.el | 1 | ||||
| -rw-r--r-- | lib/eos/jao-afio.el | 2 |
3 files changed, 10 insertions, 8 deletions
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 @@ -600,6 +600,7 @@ (appt-activate 1) (setq calendar-latitude 55.9533 calendar-longitude -3.1883 + calendar-left-margin 4 calendar-location-name "Edinburgh, Scotland" calendar-mark-diary-entries-flag t calendar-week-start-day 1 ;; 0 sunday diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 73cd2e5..b588989 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -138,7 +138,7 @@ (other-window 1) (jao-org-agenda) (set-window-dedicated-p nil t) - (split-window-below -9) + (split-window-below -8) (other-window 1) (switch-to-buffer "*Calendar*") (set-window-dedicated-p nil t) |