From ecfc0e326c82394432588ff42eae672a7d953379 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 3 Apr 2024 23:51:58 +0100
Subject: proper agenda view customization (custom command)

---
 custom/jao-custom-org.el | 15 ++++++++-------
 init.el                  |  1 +
 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
diff --git a/init.el b/init.el
index 83c36a2..1813e8c 100644
--- a/init.el
+++ b/init.el
@@ -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)
-- 
cgit v1.2.3