blob: 5bc4b01a5c1f7f6a6dbcdbc9d35f0c8e8e05c8af (
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
46
47
48
|
(defun org-archive-subtree-and-set-startup-visibility ()
(interactive)
(org-archive-subtree)
(org-set-startup-visibility))
(use-package org
:ensure nil ;; package is bundled with emacs
:bind (("C-c a" . org-agenda)
("C-c y" . org-archive-subtree-and-set-startup-visibility)
("C-c l" . org-store-link))
:config
;; name of subtree where archived tasks should be moved
(setq org-archive-location "::* Archived Tasks")
;; display all org files in agenda
(setq org-agenda-files (list org-directory))
;; refile targets 1 level in current buffer and all org agenda files
(setq org-refile-targets '((nil :maxlevel . 1) (org-agenda-files :maxlevel . 1)))
;; record time when moving a task to done state
(setq org-log-done 'time)
;; default file for capture
(setq org-default-notes-file (expand-file-name "personal.org" org-directory))
;; capture template including title, date and time
(setq org-capture-templates '(("p" "Personal" entry (file+headline "" "Tasks")
"* TODO %?\n %T\n\n" :prepend t)
("w" "Work" entry (file+headline "work.org"
"Tasks")
"* TODO %?\n %T\n\n" :prepend t)))
;; automatically mark archived entry as done
(setq org-archive-mark-done t)
;; highlight code blocks
(setq org-src-fontify-natively t)
;; C-c captures tasks
(global-set-key (kbd "C-c c") 'org-capture)
;; enable flyspell-mode
(add-hook 'org-mode-hook
(lambda ()
(when (featurep 'flyspell) (flyspell-mode 1)))))
(provide 'init-org)
|