blob: 7123f0467d7d6eb380263f2170321896b4c70cd6 (
plain) (
blame)
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
|
#!/bin/emacs --script
(add-to-list 'load-path (locate-user-emacs-file "lisp/my"))
(require 'org-agenda)
(require 'my-package)
(my-read-local-config)
(my-setq-from-local my-org-agenda-and-next-export-files)
(my-setq-from-local org-agenda-files)
(progn
(setq org-todo-keywords
'((sequence "TODO(t)" "DOIN(i)" "WAIT(w)" "|"
"DONE(d)" "OBSO(o)" "DUPL(u)")))
(setq org-closed-keep-when-no-todo t)
(setq org-enforce-todo-dependencies t
org-enforce-todo-checkbox-dependencies nil)
(setq org-use-fast-todo-selection 'expert)
(setq org-agenda-custom-commands
`(("A" "Agenda and next"
((agenda ""
((org-agenda-span 32)
;; only works when `org-agenda-start-on-weekday'
;; is nil
(org-agenda-start-day "-2d")))
(tags-todo "PRIORITY=\"A\"" nil))
nil
,my-org-agenda-and-next-export-files
)))
(setq large-file-warning-threshold nil)
(setq org-agenda-todo-ignore-time-comparison-use-seconds t)
(setq org-agenda-todo-ignore-deadlines 'all)
(setq org-agenda-todo-ignore-scheduled 'all)
(setq org-agenda-todo-ignore-with-date 'all)
(setq org-agenda-todo-ignore-timestamp 'all)
(setq org-agenda-tags-todo-honor-ignore-options t)
(setq org-agenda-sticky t)
(setq org-agenda-inhibit-startup t)
(setq org-agenda-skip-deadline-if-done nil)
(setq org-agenda-skip-scheduled-if-done nil)
(setq org-agenda-skip-timestamp-if-done t)
(setq org-agenda-start-on-weekday nil)
)
(let ((make-backup-files nil))
(call-interactively 'org-store-agenda-views))
|
