emacs-为每日重复事项添加工作日判定

;; 2025中国法定节假日
%%(diary-date 1 1 2025) 🏮元旦🏮
%%(diary-block 1 28 2025 2 4 2025) 🏮春节🏮
%%(diary-date 1 26 2025) 💼春节-上班💼
%%(diary-date 2 8 2025) 💼春节-上班💼
%%(diary-block 4 4 2025 4 6 2025) 🏮清明🏮
%%(diary-block 5 1 2025 5 5 2025) 🏮劳动节🏮
%%(diary-date 4 27 2025) 💼劳动节-上班💼
%%(diary-block 5 31 2025 6 2 2025) 🏮端午🏮
%%(diary-block 10 1 2025 10 8 2025) 🏮国庆、中秋🏮
%%(diary-date 9 28 2025) 💼国庆中秋-上班💼
%%(diary-date 10 11 2025) 💼国庆中秋-上班💼

(defun my/date-is-workday (date &optional offset)
  "判断日期是否为工作日（包含调休）。DATE格式为 'YYYY-MM-DD'。"
  (let* ((d (date-to-time date))
         ;; 处理偏移量
         (target-time (time-add d (days-to-time (or offset 0))))
         (greg (calendar-gregorian-from-absolute (time-to-days target-time)))
         ;; 获取当天的 Agenda 字符串
         (entries (mapconcat (lambda (f) 
                               (mapconcat #'identity (org-agenda-get-day-entries f greg :sexp) ""))
                             (org-agenda-files) ""))
         (is-holiday (string-match-p "🏮" entries))
         (is-workday (string-match-p "💼" entries))
         (day-of-week (calendar-day-of-week greg)))
    
    (cond
     ;; 优先级1：如果标记为调休日(💼)，强制为工作日
     (is-workday t)
     ;; 优先级2：如果标记为节假日(🏮)，强制为非工作日
     (is-holiday nil)
     ;; 优先级3：周末为非工作日，周一至周五为工作日
     ((memq day-of-week '(0 6)) nil)
     (t t))))

(defun my/org-hook-for-repeat-on-workday ()
  "如果任务有WORKDAY属性且是重复任务，自动跳过节假日调度到下一个工作日。"
  (let ((workday-attr (org-entry-get nil "WORKDAY")))
    (when (and workday-attr (org-get-repeat))
      (let* ((offset (string-to-number workday-attr))
             ;; 获取原始时间戳
             (time (org-time-string-to-time (org-entry-get nil "SCHEDULED")))
             (day-sec (* 24 60 60)))
        
        ;; 循环直到找到一个既不是假期，也不是“带偏移的假期”的日期
        ;; 注意：这里保留了你原有的逻辑：必须同时满足两个条件才停止循环
        (while (and (not (my/date-is-workday (format-time-string "%Y-%m-%d" time)))
                    (not (my/date-is-workday (format-time-string "%Y-%m-%d" time) (- offset))))
          (setq time (time-add time (seconds-to-time day-sec))))
        
        ;; 重新调度
        (org-schedule nil (format-time-string 
                           (if (string-match-p ":" (org-entry-get nil "SCHEDULED"))
                               "%Y-%m-%d %a %H:%M"
                             "%Y-%m-%d %a")
                           time))))))

(add-hook 'org-todo-repeat-hook 'my/org-hook-for-repeat-on-workday)