emacs - 如何在 orgmode 的月底设置 TODO 截止日期？

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