নিম্নলিখিতগুলির সাথে, কার্যদিবসের 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)))