Просмотр повестки дня - Пользовательский формат отметки времени - «<% A,% B% d,% Y -% I:% M% p>»

Question

Есть ли способ изменить формат отметки времени в Agenda View, аналогично тому, что мы делаем в обычном режиме org? Я был бы заинтересован в представлении столбца и обычном представлении без столбцов для представления повестки дня.

(setq org-display-custom-times t)
(setq org-time-stamp-custom-formats (quote ("<%A, %B %d, %Y>" . "<%A, %B %d, %Y -- %I:%M %p>")))

Answer 1

При следующих значениях defalias последняя строка функции lawlist-org-agenda-format-date-aligned может быть изменена в соответствии с пожеланиями пользователя с точки зрения установки пользовательского формата для даты, отображаемой в представлении повестки дня:

(require 'org-agenda)

(defalias 'org-agenda-format-date-aligned 'lawlist-org-agenda-format-date-aligned)

(defun lawlist-org-agenda-format-date-aligned (date)
  "Format a date string for display in the daily/weekly agenda, or timeline.
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))
     (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 "%-10s %2d %s %4d%s" dayname day monthname year weekstring)))