|
|
|
@ -1151,6 +1151,9 @@ |
|
|
|
"Format a DATE string for display in the daily/weekly agenda. |
|
|
|
"Format a DATE string for display in the daily/weekly agenda. |
|
|
|
This function makes sure that dates are aligned for easy reading." |
|
|
|
This function makes sure that dates are aligned for easy reading." |
|
|
|
;(require 'cal-iso) |
|
|
|
;(require 'cal-iso) |
|
|
|
|
|
|
|
(if (not (eq 'day org-agenda-current-span)) |
|
|
|
|
|
|
|
(concat "\n" (org-agenda-format-date-aligned date) |
|
|
|
|
|
|
|
" ────────────────────────────────────────────────────\n") |
|
|
|
(let* ((dayname (calendar-day-name date)) |
|
|
|
(let* ((dayname (calendar-day-name date)) |
|
|
|
(day (cadr date)) |
|
|
|
(day (cadr date)) |
|
|
|
(day-of-week (calendar-day-of-week date)) |
|
|
|
(day-of-week (calendar-day-of-week date)) |
|
|
|
@ -1178,7 +1181,7 @@ |
|
|
|
(figlet-num day 1) |
|
|
|
(figlet-num day 1) |
|
|
|
(figlet-num day 2) dayname |
|
|
|
(figlet-num day 2) dayname |
|
|
|
(figlet-num day 3) |
|
|
|
(figlet-num day 3) |
|
|
|
(figlet-num day 4) (sunrise-sunset)))) |
|
|
|
(figlet-num day 4) (sunrise-sunset))))) |
|
|
|
|
|
|
|
|
|
|
|
(setq org-agenda-format-date #'org-agenda-format-date-figlet) |
|
|
|
(setq org-agenda-format-date #'org-agenda-format-date-figlet) |
|
|
|
(setq org-agenda-prefix-format |
|
|
|
(setq org-agenda-prefix-format |
|
|
|
|