Как установить крайний срок TODO в конце месяца в orgmode?

Question

Как я могу установить крайний срок в TODO для последнего дня недели месяца?

Answer 1

Я уверен, что эта функция сделает это.

(defun last-working-day-deadline ()
  (interactive)
  (let* ((date (calendar-current-date)) 
  (day (calendar-extract-day date))
  (month (calendar-extract-month date))
  (year (calendar-extract-year date))
  (lastday (calendar-last-day-of-month month year)))
  ;; workdays have "names" of 1 2 3 4 or 5
  (while (not (memq (calendar-day-of-week (list month lastday year)) '(1 2 3 4 5)))
  (decf lastday))
 (org-deadline nil (format "%s-%s-%s" year month lastday))))