emacs-自定义org-agenda界面

[2024-05-27 周一 14:24]

参考链接：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 ＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸＸ