From 71bda7a26e271e65b133fb24b2f3235884accee2 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Thu, 1 Jan 2026 17:23:45 -0500 Subject: [PATCH] Change again the agenda date figlet format --- global.org | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/global.org b/global.org index 3317955..4df0b2f 100644 --- a/global.org +++ b/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)