emacs-自定义org-agenda界面
参考链接：https://macowners.club/posts/personal-touch-org-agenda/
我的设置：
(setq org-agenda-span 7
org-agenda-start-on-weekday nil
org-agenda-start-day "1d"
org-agenda-current-time-string "🌠┈┈┈┈┈┈┈ now"
org-agenda-todo-list-sublevels nil ;;仅显示最高层todo
org-agenda-skip-scheduled-if-done t
org-agenda-skip-deadline-if-done t
org-agenda-remove-tags t ;;隐藏tags
org-agenda-scheduled-leaders '("▷S: " "▷x%2d")
org-agenda-deadline-leaders '("▶D: " "▶+%2d" "▶-%2d")
org-agenda-time-grid '((today require-timed remove-match)
(000 900 1200 1800 2400)
" " "┈┈┈┈┈┈┈┈┈┈┈┈┈")
)
1. 自定义agenda-view
通过以下设置，自定义一个agenda-view，使其可以像日历一样展示临近（我设置的10天）日程及其他部件。
(setq org-agenda-custom-commands
'(
("d" "Daily Agenda"
((agenda "" ((org-agenda-span 1)))
(agenda "" ((org-agenda-overriding-header "临近日程")
(org-agenda-span 10)
(org-agenda-entry-types '(:timestamp :sexp))))
(org-ql-block '(and (todo "TODO")
(tags "他人"))
((org-ql-block-header "他人事项")))
))
))
效果：
Day-agenda (W47):
周一 18 十一月 2024 W47
0:00 ┈┈┈┈┈┈┈┈┈┈┈┈┈
9:00 ┈┈┈┈┈┈┈┈┈┈┈┈┈
12:00 ┈┈┈┈┈┈┈┈┈┈┈┈┈
16:12 🌠┈┈┈┈┈┈┈ now
16:30 ▷S: TODO ＸＸＸＸ[0/2]
18:00 ┈┈┈┈┈┈┈┈┈┈┈┈┈
18:30 ▷S: TODO ＸＸＸ
20:00 * ! ＸＸＸＸＸＸ
20:00 ▷S: TODO ＸMAA
20:00 ▷S: TODO ＸＸＸＸ[0/3]
22:31 ▷S: TODO ＸＸＸＸＸＸＸＸ
23:00 ! ＸＸ
24:00 ┈┈┈┈┈┈┈┈┈┈┈┈┈
▷S: TODO 6ＸＸＸＸ
▷S: TODO ＸＸＸＸＸＸＸ
▷S: TODO ＸＸＸＸ
▷S: TODO ＸＸＸＸ
▷S: TODO ＸＸＸＸ、ＸＸ
▶+12 TODO ＸＸＸＸＸ 43/50
▶+12 TODO ＸＸＸＸ
▶+41 TODO ＸＸＸＸＸＸＸ
──────────────────────────────────────────────────────────────────────
临近日程
周一 18 十一月 2024 W47
周二 19 十一月 2024
周三 20 十一月 2024
周四 21 十一月 2024
周五 22 十一月 2024
周六 23 十一月 2024
周日 24 十一月 2024
周一 25 十一月 2024 W48
⏰ＸＸ10Ｘ 🎂 ＸＸ 52 ＸＸＸ
周二 26 十一月 2024
周三 27 十一月 2024
──────────────────────────────────────────────────────────────────────
他人事项
TODO ＸＸＸＸＸＸＸ
TODO ＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸ
TODO ＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸ