From 28db0c70d86c4c31e35d92ced5b73ebb1b9b4122 Mon Sep 17 00:00:00 2001
From: Jacopo De Simoi <wilderkde@gmail.com>
Date: Sat, 1 Jul 2023 17:10:43 -0400
Subject: [PATCH] Do not use figlet fancy stuff on week agenda

---
 global.org | 59 ++++++++++++++++++++++++++++--------------------------
 1 file changed, 31 insertions(+), 28 deletions(-)

diff --git a/global.org b/global.org
index ddab61e..5c77919 100644
--- a/global.org
+++ b/global.org
@@ -1151,34 +1151,37 @@
         "Format a DATE string for display in the daily/weekly agenda.
                   This function makes sure that dates are aligned for easy reading."
                                               ;(require 'cal-iso)
-        (let* ((dayname (calendar-day-name date))
-               (day (cadr date))
-               (day-of-week (calendar-day-of-week date))
-               (month (car date))
-               (monthname (calendar-month-name month))
-               (year (nth 2 date))nf
-               (iso-week (org-days-to-iso-week
-                          (calendar-absolute-from-gregorian date)))
-               (weekyear (cond ((and (= month 1) (>= iso-week 52))
-                                (1- year))
-                               ((and (= month 12) (<= iso-week 1))
-                                (1+ year))
-                               (t year)))
-               (weekstring (if (= day-of-week 1)
-                               (format " W%02d" iso-week)
-                             "")))
-
-          (format (concat "\n"
-                          "%9s  %s %4d%s\n"
-                          "%9s \n"
-                          "%9s  %-10s\n"
-                          "%9s \n"
-                          "%9s  %s\n")
-                  (figlet-num day 0) monthname year weekstring
-                  (figlet-num day 1)
-                  (figlet-num day 2) dayname
-                  (figlet-num day 3)
-                  (figlet-num day 4) (sunrise-sunset))))
+        (if (not (eq 'day org-agenda-current-span))
+            (concat "\n" (org-agenda-format-date-aligned date)
+                    " ────────────────────────────────────────────────────\n")
+          (let* ((dayname (calendar-day-name date))
+                 (day (cadr date))
+                 (day-of-week (calendar-day-of-week date))
+                 (month (car date))
+                 (monthname (calendar-month-name month))
+                 (year (nth 2 date))nf
+                 (iso-week (org-days-to-iso-week
+                            (calendar-absolute-from-gregorian date)))
+                 (weekyear (cond ((and (= month 1) (>= iso-week 52))
+                                  (1- year))
+                                 ((and (= month 12) (<= iso-week 1))
+                                  (1+ year))
+                                 (t year)))
+                 (weekstring (if (= day-of-week 1)
+                                 (format " W%02d" iso-week)
+                               "")))
+
+            (format (concat "\n"
+                            "%9s  %s %4d%s\n"
+                            "%9s \n"
+                            "%9s  %-10s\n"
+                            "%9s \n"
+                            "%9s  %s\n")
+                    (figlet-num day 0) monthname year weekstring
+                    (figlet-num day 1)
+                    (figlet-num day 2) dayname
+                    (figlet-num day 3)
+                    (figlet-num day 4) (sunrise-sunset)))))
 
       (setq org-agenda-format-date #'org-agenda-format-date-figlet)
       (setq org-agenda-prefix-format