From 2bec8ba46383685c28c55bd7969ee696aa31a528 Mon Sep 17 00:00:00 2001
From: noa@gaiwan.org
Date: Tue, 18 Jun 2024 20:42:04 +0000
Subject: Better org agenda settings

---
 emacs/init.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'emacs')

diff --git a/emacs/init.el b/emacs/init.el
index b8cd99e..523c947 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -319,12 +319,22 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
                                  :empty-lines 1)
                                 ))
 
-(setopt org-agenda-block-separator ?─)
+(setopt org-agenda-block-separator nil)
+(setopt org-agenda-include-deadlines t)
+;; Always start the weekly agenda for a week from today
+(setopt org-agenda-start-on-weekday nil)
+;; Show week of agenda by default
+(setopt org-agenda-span 'week)
+(setopt org-agenda-prefix-format '((agenda . " %i %?-12t% s")
+                                   (todo . " %i ")
+                                   (tags . " %i ")
+                                   (search . " %i ")))
 (setopt org-agenda-time-grid '((daily today require-timed)
                                (800 1000 1200 1400 1600 1800 2000)
-                               " ┄┄┄┄┄ " "┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄"))
+                               "       " "               "))
 (setopt org-agenda-current-time-string
-        "◀── now ─────────────────────────────────────────────────")
+        "◀ you are here")
+(setopt org-support-shift-select 'always)
 
 ;; Make org html export more pleasant by default
 (setopt org-export-with-smart-quotes t)
-- 
cgit 1.4.1-2-gfad0