Change again the agenda date figlet format

global.org

@@ -1607,13 +1607,16 @@
               ;;         (figlet-num day 3)
               ;;         (figlet-num day 4) (sunrise-sunset))
 
-              (let ((solar-info (solar-sunrise-sunset-string-list (calendar-current-date))))
-                (concat
-                 (left-right-align "" (format "%18s %9s %7s" (figlet-num year 0) (figlet-num month 0 2) (figlet-num day 0 2)))
-                 (left-right-align  (format "%s%s" dayname weekstring) (format "%18s %9s %8s" (figlet-num year 1) (figlet-num month 1 2) (figlet-num day 1 2)))
-                 (left-right-align (car solar-info)  (format "%18s·%9s·%8s" (figlet-num year 2) (figlet-num month 2 2) (figlet-num day 2 2)))
-                 (left-right-align (cadr solar-info) (format "%18s %9s %8s" (figlet-num year 3) (figlet-num month 3 2) (figlet-num day 3 2)))
-                 (left-right-align (caddr solar-info) (format "%18s %9s %8s" (figlet-num year 4) (figlet-num month 4 2) (figlet-num day 4 2)))
+              (let ((solar-info (solar-sunrise-sunset-string-list (calendar-current-date)))
+                    (spacer "  ")
+                    )
+                (concat "\n"
+                 (format " %4d·%02d " year month) "\n"
+                 (format "%9s" (figlet-num day 0 2)) spacer (format "%s%s" dayname weekstring) "\n"
+                 (format "%9s" (figlet-num day 1 2)) spacer (car solar-info) "\n"
+                 (format "%9s" (figlet-num day 2 2)) spacer (cadr solar-info) "\n"
+                 (format "%9s" (figlet-num day 3 2)) spacer (caddr solar-info) "\n"
+                 (format "%9s" (figlet-num day 4 2)) "\n"
                  )))))
         (require 'solar)
         (defun solar-sunrise-sunset-string-list (date &optional nolocation)