Exibição da Agenda - Formato de marca de data e hora personalizado - "% A,% B% d,% Y -% I:% M% p"

Question

Existe alguma maneira de modificar o formato do registro de data e hora no Agenda View, semelhante ao que fazemos no modo de organização normal? Eu estaria interessado na visualização em colunas e na visualização regular sem colunas para a visualização da agenda.

(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

Com o seguinte defalias , a última linha da função lawlist-org-agenda-format-date-aligned pode ser modificada para o que o usuário desejar em termos de configuração de um formato personalizado para a data exibida na exibição de agenda:

(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)))