定制 org-super-agenda 视图作为任务调度台

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

(let ((org-super-agenda-groups
         '(;;每个组的选择器之间都有一个隐式布尔或运算符。
           (:name "Today"               ; name 可选，指定section名
            :time-grid t                ; 以时间表格样式显示项目
            :todo "TODAY")              ; 具有此todo关键字的项
           (:name "Important"
            ;; Single arguments given alone
            :tag "bills"
            :priority "A")
           ;;一次设置多个分组的顺序
           (:order-multi (2 (:name "Shopping in town"
                             ;; 同时符合两个 tag 条件的分组。
                             :and (:tag "shopping" :tag "@town"))
                            (:name "Food-related"
                             ;; 在列表中给出多个参数，隐式为0
                             :tag ("food" "dinner"))
                            (:name "Personal"
                             :habit t
                             :tag "personal")
                            (:name "Space-related (non-moon-or-planet-related)"
                             ;; regexp 在整个条目上不区分大小写地匹配
                             :and (:regexp ("space" "NASA")
                                   ;; Boolean NOT also has implicit OR between selectors
                                   :not (:regexp "moon" :tag "planet")))))
           ;;当没有给出节名时，组提供自己的节名 Groups supply their own section names when none are given
           (:todo "WAITING" :order 8)   ; Set order of this section
           (:todo ("SOMEDAY" "TO-READ" "CHECK" "TO-WATCH" "WATCHING")
            ;; Show this group at the end of the agenda (since it has the
            ;; highest number). If you specified this group last, items
            ;; with these todo keywords that e.g. have priority A would be
            ;; displayed in that group instead, because items are grouped
            ;; out in the order the groups are listed.
            :order 9)
           (:priority<= "B"
            ;; Show this section after "Today" and "Important", because
            ;; their order is unspecified, defaulting to 0. Sections
            ;; are displayed lowest-number-first.
            :order 1)
           ;; After the last group, the agenda will display items that didn't
           ;; match any of these groups, with the default order position of 99
           )))
    (org-agenda nil "a"))

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

(setq org-super-agenda-daily
        '((:name "日程安排\n"
           :time-grid t)
          (:name "今日要事\n"
           :scheduled today)
          (:name "今日期限\n"
           :deadline today)
          (:name "超期事务\n"
           :deadline past)
          (:name "即将截止\n"
           :deadline future)
          (:name "待处理\n"
           :todo "WAIT"
           :order 98)
          (:name "Scheduled earlier\n"
           :scheduled past)))
(let ((org-super-agenda-group org-super-agenda-daily))
  (org-agenda-list))

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

(setq org-super-agenda-habit '(
                               (:name "我的" :tag "@我的"
                                :scheduled (get-last-day-of-week-string))
                               (:name "阅读" :tag "阅读者")
                               (:name "理财" :tag "投资者")
                               (:name "开发" :tag "开发者")
                               (:name "管理者" :tag "管理者")
                               (:name "兄弟" :tag "兄弟")
                               ))
(let ((org-super-agenda-group org-super-agenda-habit))
  (org-agenda-list))

1
2
3
4
5
6

(setq org-super-agenda-snippet '(
                                 (:name "我的" :tag "@我的"
                                  :scheduled (get-last-day-of-week-string))
                                 ))
(let ((org-super-agenda-group org-super-agenda-snippet))
  (org-agenda-list))

1
2
3
4
5
6

(setq org-super-agenda-tj3 '(
                             (:name "我的" :tag "@我的"
                              :scheduled (get-last-day-of-week-string))
                             ))
(let ((org-super-agenda-group org-super-agenda-tj3))
  (org-agenda-list))

1
2
3
4
5
6
7

(let ((org-super-agenda-groups
       '((:order-multi (1 (:name "Done today"
                                 :and (:regexp "State \"DONE\""
                                               :log t))
                          (:name "Clocked today"
                                 :log t))))))
  (org-agenda-list))

1
2
3
4
5
6
7

(defun get-last-day-of-week-string ()
  (let* ((curr-time (current-time))
         (day-of-week (string-to-number (format-time-string "%w" curr-time)))
         (days-to-sunday (- 7 day-of-week))
         (last-day-of-week (time-add curr-time (days-to-time days-to-sunday))))
    (format-time-string "%Y-%m-%d" last-day-of-week)))
(message "This week's last day is: %s" (get-last-day-of-week-string))