GTD 实践方法

;; 定义 org-capture 快捷键为 C-c c
(define-key global-map "\C-cc" 'org-capture)

;; 定义 agenda 文件的位置
(setq org-agenda-files '("~/gtd/inbox.org"))

(defun org-summary-todo (n-done n-not-done)
    "Switch entry to DONE when all subentries are done, to TODO otherwise."
    (let (org-log-done org-log-states)   ; turn off logging
    (org-todo (if (= n-not-done 0) "DONE" "TODO"))))

(add-hook 'org-after-todo-statistics-hook 'org-summary-todo)

;; 设置关键字的字体颜色
(setq org-todo-keyword-faces
   (quote (("TODO" :foreground "red" :weight bold)
           ("DONE" :foreground "forest green" :weight bold)
           ("DOING" :foreground "yellow" :weight bold)
           ("BLOCKED" :foreground "red" :weight bold)
           ("REVIEW" :foreground "orange" :weight bold)
           )))
;; Then each time you turn an entry from a TODO (not-done) state into any of the DONE
;; states, a line ‘CLOSED: [timestamp]’ will be inserted just after the headline.
(setq org-log-done 'time)

;; Change task state to STARTED when clocking in
(setq org-clock-in-switch-to-state "DOING")

(setq org-clock-out-switch-to-state "DONE")

;; tags
(setq org-tag-alist '(("@work" . ?w) ("@home" . ?h)
                   ("@buy" . ?b)
                   ("@bossurgent" . ?u)
                   ("@study" . ?s)))

(setq org-capture-templates '(("t" "Todo [inbox]" entry
                            (file+headline "~/gtd/inbox.org" "Tasks")
                            "* TODO %i%?")
                           ))
;; 设置生日
;; In order to include entries from the Emacs diary into Org mode's agenda

(setq org-agenda-include-diary t
   diary-file (locate-user-emacs-file "~/gtd/diary.org")
   org-agenda-diary-file 'diary-file)

;; diary for chinese birthday
;; https://emacs-china.org/t/topic/2119/14
(defun my--diary-chinese-anniversary (lunar-month lunar-day &optional year mark)
  (if year
      (let* ((d-date (diary-make-date lunar-month lunar-day year))
             (a-date (calendar-absolute-from-gregorian d-date))
             (c-date (calendar-chinese-from-absolute a-date))
             (cycle (car c-date))
             (yy (cadr c-date))
             (y (+ (* 100 cycle) yy)))
        (diary-chinese-anniversary lunar-month lunar-day y mark))
    (diary-chinese-anniversary lunar-month lunar-day year mark)))

;; 中国节假日
(require 'cal-china-x)
(setq mark-holidays-in-calendar t)
(setq cal-china-x-important-holidays cal-china-x-chinese-holidays)
(setq cal-china-x-general-holidays '((holiday-lunar 1 15 "元宵节")))
(setq calendar-holidays
   (append cal-china-x-important-holidays
           cal-china-x-general-holidays
           ))

;; pomodoro 通知功能
(defun notify-osx (title message)
(call-process "terminal-notifier"
             nil 0 nil
             "-group" "Emacs"
             "-title" title
             "-message" message
             ;;"-sender" "org.gnu.Emacs"
             "-activate" "oeg.gnu.Emacs"))

;; 任务提醒功能
;; https://emacs-china.org/t/org-agenda/232
(require 'appt)
(setq appt-time-msg-list nil)    ;; clear existing appt list
(setq appt-display-interval '10)  ;; warn every 5 minutes from t - appt-message-warning-time
(setq
 appt-message-warning-time '20  ;; send first warning 15 minutes before appointment
 appt-display-mode-line nil     ;; don't show in the modeline
 appt-display-format 'window)   ;; pass warnings to the designated window function
(appt-activate 1)                ;; activate appointment notification
(display-time)                   ;; activate time display

(org-agenda-to-appt)             ;; generate the appt list from org agenda files on emacs launch
(run-at-time "24:01" 3600 'org-agenda-to-appt)           ;; update appt list hourly
(add-hook 'org-finalize-agenda-hook 'org-agenda-to-appt) ;; update appt list on agenda view

(defun my-appt-display (min-to-app new-time msg)
  (notify-osx
   (format "Appointment in %s minutes" min-to-app)    ;; passed to -title in terminal-notifier call
   (format "%s" msg)))                                ;; passed to -message in terminal-notifier call
(setq appt-disp-window-function (function my-appt-display))