如何在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))))