ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix gtd file locations for Windows

Browse source
This commit is contained in:
Tom Willemse 2018-08-14 11:35:41 -07:00
parent 51b7d8e47f
commit 539e0766d6
1 changed files with 24 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
emacs/.emacs.d/init/oni-org-init.el
View file

@ -29,6 +29,13 @@
(require 'org-capture) (require 'org-capture)
(require 'org-habit) (require 'org-habit)
(defun oni-org-init-expand-to-home (file-name)
"Expand FILE-NAME to the base directory for that system.
The base for all org files on Windows is u:/, but on my linux
installs it will always be ~."
(let ((base-dir (if (eq system-type 'windows-nt) "u:/" "~")))
(expand-file-name file-name base-dir)))
(defun oni-org-init-setup-prettify-symbols-mode () (defun oni-org-init-setup-prettify-symbols-mode ()
"Set up prettify symbols mode for org mode." "Set up prettify symbols mode for org mode."
(when (member "Ionicons" (font-family-list)) (when (member "Ionicons" (font-family-list))
@ -73,7 +80,8 @@ ones that have a predecessor."
(oni-org-init-heading-has-predecessor-p)) (oni-org-init-heading-has-predecessor-p))
(oni-org-init-next-heading-position)))) (oni-org-init-next-heading-position))))
(setq org-default-notes-file "~/documents/gtd/inbox.org") (setq org-default-notes-file
(oni-org-init-expand-to-home "documents/gtd/inbox.org"))
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)
(setq org-return-follows-link t) (setq org-return-follows-link t)
(setq org-fontify-whole-heading-line t) (setq org-fontify-whole-heading-line t)
@ -85,20 +93,26 @@ ones that have a predecessor."
(setq org-agenda-skip-function-global #'oni-org-init-skip-tasks) (setq org-agenda-skip-function-global #'oni-org-init-skip-tasks)
(setq org-agenda-files (setq org-agenda-files
'("~/documents/gtd/todo.org" (mapcar #'oni-org-init-expand-to-home
"~/documents/gtd/projects.org" '("documents/gtd/todo.org"
"~/documents/gtd/appointments.org")) "documents/gtd/projects.org"
"documents/gtd/appointments.org")))
(setq org-refile-targets (setq org-refile-targets
'(("~/documents/gtd/todo.org" :maxlevel . 1) (mapcar (lambda (pair)
("~/documents/gtd/projects.org" :level . 2) (cons (oni-org-init-expand-to-home (car pair))
("~/documents/gtd/someday.org" :maxlevel . 2) (cdr pair)))
("~/documents/gtd/appointments.org" :maxlevel . 1))) '(("documents/gtd/todo.org" :maxlevel . 1)
("documents/gtd/projects.org" :level . 2)
("documents/gtd/someday.org" :maxlevel . 2)
("documents/gtd/appointments.org" :maxlevel . 1))))
(setq org-capture-templates (setq org-capture-templates
'(("t" "Note" entry (file "~/documents/gtd/inbox.org") `(("t" "Note" entry
(file ,(oni-org-init-expand-to-home "documents/gtd/inbox.org"))
"* TODO %i%?") "* TODO %i%?")
("a" "Appointment" entry (file "~/documents/gtd/appointments.org") ("a" "Appointment" entry
(file ,(oni-org-init-expand-to-home "documents/gtd/appointments.org"))
"* %i%?\n %U"))) "* %i%?\n %U")))
(setq org-todo-keywords (setq org-todo-keywords