Function: org-agenda-format-date-aligned

org-agenda-format-date-aligned is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org-agenda-format-date-aligned DATE)

Documentation

Format a DATE string for display in the daily/weekly agenda.

This function makes sure that dates are aligned for easy reading.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defun org-agenda-format-date-aligned (date)
  "Format a DATE string for display in the daily/weekly agenda.
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)))