From 8987ba818ac6fe53cc214c4359943e717f7113c4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Mon, 4 Feb 2013 20:29:08 +0100 Subject: [PATCH] emacs: Add general note capture template This note tries to collect as much context data as possible, even though it isn't much at the moment. --- .emacs.d/site-lisp/org-init.el | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el index 437b477..6ddb1a4 100644 --- a/.emacs.d/site-lisp/org-init.el +++ b/.emacs.d/site-lisp/org-init.el @@ -30,9 +30,19 @@ (require 'org-habit) (require 'org-protocol) +(autoload 'org-clocking-p "org-clock") + (eval-after-load "org-crypt" '(org-crypt-use-before-save-magic)) +(defun oni:note-template () + (concat + "* %<%c>\n" + " :DIRECTORY: =" default-directory "=\n" + (when (buffer-file-name) " :FILE: [[file:%F][%F]]\n") + (when (org-clocking-p) " :TASK: %K\n") + "\n %?")) + (defun oni:org-maybe-outline-path () (let ((outline-path (org-format-outline-path (org-get-outline-path)))) (unless (string= outline-path "") @@ -58,7 +68,7 @@ to work.") (defvar oni:work-agenda-files - (list (expand-file-name "~/documents/org/aethon.org")) + (list (expand-file-name "~/documents/org/aethon")) "My work agenda, should only show up at times I work.") (defvar oni:common-agenda-files @@ -94,17 +104,19 @@ (tags priority-down category-keep) (search category-keep))) (setq org-agenda-tags-column -101) +(setq org-directory (expand-file-name "~/documents/org")) +(setq org-default-notes-file (concat org-directory "/org")) (setq org-capture-templates - '(("t" "Task" entry (file "~/documents/org/tasks") + `(("t" "Task" entry (file "~/documents/org/tasks") "* TODO %?") ("T" "Linked task" entry (file "~/documents/org/tasks") - "* TODO %?\n\n %a"))) + "* TODO %?\n\n %a") + ("n" "General note" entry (file ,org-default-notes-file) + (function oni:note-template)))) (setq org-contacts-files '("~/documents/org/misc/contacts.org")) -(setq org-directory (expand-file-name "~/documents/org")) (setq org-agenda-show-outline-path nil) (setq org-agenda-todo-ignore-deadlines 'far) (setq org-agenda-todo-ignore-scheduled t) -(setq org-default-notes-file (concat org-directory "/org")) (setq org-export-htmlize-output-type 'css) (setq org-feed-alist '(("MyEpisodes" @@ -145,7 +157,7 @@ (ad-activate 'org-agenda-redo) (oni:set-org-agenda-files) -(run-at-time "09:00" (* 60 60 24) 'oni:set-org-agenda-files) +(run-at-time "09:01" (* 60 60 24) 'oni:set-org-agenda-files) (run-at-time "17:01" (* 60 60 24) 'oni:set-org-agenda-files) (provide 'org-init)