org-super-agenda如何设置“三日内到期”任务分组

Org-mode
1

:deadline future 这个如何改成类似于 :deadline before today+3d的方式？

org-super-agenda介绍的一个日期处理的方式貌似比较复杂，不太会改：

(-let* (((sec minute hour day month year dow dst utcoff) (decode-time)) (last-day-of-month (calendar-last-day-of-month month year)) (target-date ;; A hack that seems to work fine. Yay, Postel! (format “%d-%02d-%02d” year month (1+ last-day-of-month))) (org-super-agenda-groups `((:deadline (before ,target-date)) (:discard (:anything t))))) (org-todo-list))

2

我在用这个 fork

3

谢谢！我去研究研究，感觉功能性挺不错。另外Stackflow那里问到了这个办法，感觉也不错：

(-let* (((sec minute hour day month year dow dst utcoff)
     (decode-time (+ (* 3 86400) (float-time)))) ;; 3 days
        (target-date
         (format "%d-%02d-%02d" year month day))
        (org-super-agenda-groups
         `((:deadline (before ,target-date))
           (:discard (:anything t)))))
  (org-todo-list))
1 个赞
4

话说14天之外的某些重要事情该怎么留下呢

5

重要事情用priority A B标记吧，然后建立“重要事项”分组：

                      (:name "重要待办"
                       :and (:priority>= "B" :todo "TODO")
                       :order 1)
6

嗯，我设置了A的优先级，但是15天后的就是显示不出来。

doom里面是这样的

(use-package! org-super-agenda
  :after org-agenda
  :init
  (setq org-agenda-skip-scheduled-if-done t
        org-agenda-skip-deadline-if-done t
        org-agenda-compact-blocks t
        org-agenda-start-day "+0d"
        org-agenda-span 1)

  (setq org-super-agenda-groups
        '((:name "Today"
           :time-grid t
           :deadline today)
          (:name "Over Due"
           :deadline past)
          (:name "Working On"
           :todo ("STRT" "LOOP"))
          (:name "Delayed"
           :todo ("WAIT" "HOLD"))
          (:name "Important"
           :priority "A"
           :order 1)
          (:name "Less Important"
           :priority "B")
          (:name "Trival"
           :priority<"B"))))

super agenda
super agenda2880×1800 294 KB

不过发现明天就只剩14天了。扎心

1 个赞