|
1 | 1 | ;; use org
|
2 | 2 | (require 'org)
|
3 | 3 |
|
4 |
| -;; set agenda config |
5 |
| -(setq org-agenda-files '("~/icloud/Documents/belog/")) |
6 |
| -(global-set-key (kbd "C-c a") 'org-agenda) |
7 |
| - |
8 | 4 | ;; org capture
|
9 | 5 | (setq org-capture-templates
|
10 | 6 | '(("i" "Private Agenda" entry (file+headline "~/icloud/Documents/belog/private.org" "Private")
|
11 | 7 | "* TODO %?\n %i\n"
|
12 | 8 | :empty-lines 1)
|
13 |
| - ("w" "Work Agenda" entry (file+headline "~/icloud/Documents/belog/Shushan.org" "Work") |
| 9 | + ("w" "Work Agenda" entry (file+headline "~/icloud/Documents/belog/Brothers.org" "Work") |
14 | 10 | "* TODO %?\n %i\n"
|
15 | 11 | :empty-lines 1)))
|
16 | 12 |
|
17 | 13 | (global-set-key (kbd "C-c c") 'org-capture)
|
| 14 | +(add-hook 'org-mode-hook (lambda () (setq truncate-lines nil))) |
18 | 15 |
|
19 | 16 | (defun org-insert-src-block (src-code-type)
|
20 | 17 | "Insert a `SRC-CODE-TYPE' type source code block in org-mode."
|
|
40 | 37 |
|
41 | 38 | (add-hook 'org-mode-hook 'my-org-mode-setup t)
|
42 | 39 |
|
| 40 | +;; set agenda config |
| 41 | +(setq org-agenda-files '("~/icloud/Documents/belog/")) |
| 42 | +(global-set-key (kbd "C-c a") 'org-agenda) |
| 43 | + |
43 | 44 | (global-set-key (kbd "C-c C-a r") 'org-agenda-to-appt)
|
44 | 45 |
|
| 46 | +(setq org-agenda-custom-commands |
| 47 | + '(("g" . "GTD contexts") |
| 48 | + ("go" "Office" tags-todo "office") |
| 49 | + ("gc" "Computer" tags-todo "computer") |
| 50 | + ("gp" "Phone" tags-todo "phone") |
| 51 | + ("gh" "Home" tags-todo "home") |
| 52 | + ("ge" "Errands" tags-todo "errands") |
| 53 | + ("G" "GTD Block Agenda" |
| 54 | + ((tags-todo "office") |
| 55 | + (tags-todo "computer") |
| 56 | + (tags-todo "phone") |
| 57 | + (tags-todo "home") |
| 58 | + (tags-todo "errands")) |
| 59 | + nil ;; i.e., no local settings |
| 60 | + ("~/next-actions.html")) ;; exports block to this file with C-c a e |
| 61 | + ;; ..other commands here |
| 62 | + ("d" "Weekly Review" |
| 63 | + ((agenda "" (;; (org-agenda-overriding-header "Tasks Completed:") |
| 64 | + (org-agenda-skip-function '(org-agenda-skip-subtree-if 'nottodo 'done)) |
| 65 | + (org-agenda-skip-scheduled-if-done nil) |
| 66 | + (org-agenda-skip-timestamp-if-done nil) |
| 67 | + (org-agenda-span 7) |
| 68 | + (org-agenda-use-time-grid nil) |
| 69 | + (setq org-agenda-show-all-dates nil))))))) |
| 70 | + |
45 | 71 | ;;agenda-appt
|
46 | 72 | (require 'appt)
|
47 | 73 | (appt-activate t);启用约会提醒
|
|
0 commit comments