From 2732a6794748cf57e5db485c38c84f14e2f64e79 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 28 Mar 2024 22:15:22 +0000
Subject: org agenda tweaks

---
 custom/jao-custom-exwm.el    |  2 +-
 custom/jao-custom-gnus.el    |  2 +-
 custom/jao-custom-notmuch.el |  4 ++--
 custom/jao-custom-org.el     | 11 ++++++++---
 lib/eos/jao-afio.el          |  4 ++--
 5 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index ce6189d..6e5dc96 100644
--- a/custom/jao-custom-exwm.el
+++ b/custom/jao-custom-exwm.el
@@ -495,7 +495,7 @@
    ([?\s-3] . jao-afio-goto-www)
    ([?\s-4] . jao-afio-goto-docs)
    ([?\s-5] . jao-afio-goto-chats)
-   ([?\s-A] . org-agenda-list)
+   ([?\s-A] . jao-org-agenda)
    ([?\s-a] . jao-first-window)
    ([?\s-b] . jao-transient-org-blog)
    ([?\s-d] . jao-exwm-tidal*)
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index e18ccf8..c6bb301 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -658,7 +658,7 @@
 (gnus-demon-add-handler 'jao-gnus--scan 5 1)
 
 ;;;;; agenda updates
-(add-hook 'gnus-summary-exit-hook #'org-agenda-list)
+(add-hook 'gnus-summary-exit-hook #'jao-org-agenda)
 
 
 ;;;; open mail file in gnus
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el
index 0ad2abc..47fe63a 100644
--- a/custom/jao-custom-notmuch.el
+++ b/custom/jao-custom-notmuch.el
@@ -266,7 +266,7 @@
 
 (defun jao-notmuch-refresh-agenda ()
   (interactive)
-  (save-window-excursion (org-agenda-list)))
+  (save-window-excursion (jao-org-agenda)))
 
 (defun jao-notmuch-hello-first ()
   (interactive)
@@ -284,7 +284,7 @@
       (let ((jao-minibuffer-inhibit t))
         (save-window-excursion
           (calendar)
-          (when agenda (org-agenda-list))))
+          (when agenda (jao-org-agenda))))
       (unless (widget-at) (jao-notmuch-hello-first))
       (jao-minibuffer-refresh))))
 
diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el
index 3f7ca4b..7549737 100644
--- a/custom/jao-custom-org.el
+++ b/custom/jao-custom-org.el
@@ -60,9 +60,9 @@
       org-agenda-block-separator " "
       org-agenda-breadcrumbs-separator "•"
       org-agenda-current-time-string "•" ;; "*"
-      org-agenda-time-grid
-      '((daily today require-timed)
-        (800 1000 1200 1400 1600 1800 2000) "" "·")
+      ;; '((daily today require-timed)
+      ;;   (800 1000 1200 1400 1600 1800 2000) "" "·")
+      org-agenda-hide-tags-regexp ".*"
       org-agenda-include-diary t
       org-agenda-include-inactive-timestamps t
       org-agenda-inhibit-startup nil
@@ -72,8 +72,13 @@
       org-agenda-skip-scheduled-if-done nil
       org-agenda-span 14
       org-agenda-start-on-weekday nil
+      org-agenda-time-grid '((daily require-timed) () "" "·")
       org-agenda-window-setup 'current-window)
 
+(defun jao-org-agenda ()
+  (interactive)
+  (let ((org-agenda-overriding-header " ")) (org-agenda-list)))
+
 ;;; Capture templates
 (setq  org-capture-templates
        '(("t" "TODO" entry
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index c3b4a29..73cd2e5 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -123,7 +123,7 @@
 (defun jao-afio-open-gnus ()
   (interactive)
   (delete-other-windows)
-  (org-agenda-list)
+  (jao-org-agenda)
   (calendar)
   (find-file (expand-file-name "inbox.org" org-directory))
   (gnus)
@@ -136,7 +136,7 @@
   (set-window-dedicated-p nil t)
   (split-window-below (/ (window-height) 3))
   (other-window 1)
-  (org-agenda-list)
+  (jao-org-agenda)
   (set-window-dedicated-p nil t)
   (split-window-below -9)
   (other-window 1)
-- 
cgit v1.2.3