blob: e80401c5a33cbca647124602323a9a5b877787e9 (
plain)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
(require 'org-install)
(load-user-file "org-mode.local.el")
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(add-to-list 'auto-mode-alist `(,(expand-file-name "~/org/") . org-mode))
(define-key mode-specific-map [?a] 'org-agenda)
(eval-after-load "org"
'(progn
(define-prefix-command 'org-todo-state-map)
(define-key org-mode-map "\C-cx" 'org-todo-state-map)
(define-key org-todo-state-map "x" #'(lambda nil (interactive) (org-todo "CANCELLED")))
(define-key org-todo-state-map "d" #'(lambda nil (interactive) (org-todo "DONE")))
(define-key org-todo-state-map "f" #'(lambda nil (interactive) (org-todo "DEFERRED")))
(define-key org-todo-state-map "l" #'(lambda nil (interactive) (org-todo "DELEGATED")))
(define-key org-todo-state-map "s" #'(lambda nil (interactive) (org-todo "STARTED")))
(define-key org-todo-state-map "w" #'(lambda nil (interactive) (org-todo "WAITING")))))
(define-key global-map "\C-cc" 'org-capture)
(custom-set-variables
'(org-agenda-custom-commands
(quote
(("d" todo "DELEGATED" nil)
("c" todo "DONE|DEFERRED|CANCELLED" nil)
("w" todo "WAITING" nil)
("W" agenda "" ((org-agenda-ndays 21)))
("A" agenda ""
((org-agenda-skip-function
(lambda nil
(org-agenda-skip-entry-if
(quote notregexp)
"\\=.*\\[#!\\]")))
(org-agenda-ndays 1)
(org-agenda-overriding-header "Today's Priority #A tasks: ")))
("u" alltodo ""
((org-agenda-skip-function
(lambda nil
(org-agenda-skip-entry-if
(quote scheduled)
(quote deadline)
(quote regexp)
"
]+>")))
(org-agenda-overriding-header "Unscheduled TODO entries: "))))))
'(org-agenda-dim-blocked-tasks t)
'(org-agenda-ndays 7)
'(org-agenda-show-all-dates t)
'(org-agenda-skip-deadline-if-done t)
'(org-agenda-skip-scheduled-if-done t)
'(org-agenda-start-on-weekday nil)
'(org-deadline-warning-days 7)
'(org-enforce-todo-dependencies t)
'(org-fast-tag-selection-single-key (quote expert))
'(org-return-follows-link t)
'(org-reverse-note-order t))
|
