From 8987ba818ac6fe53cc214c4359943e717f7113c4 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 4 Feb 2013 20:29:08 +0100
Subject: 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(-)

(limited to '.emacs.d')

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)
-- 
cgit v1.2.3-54-g00ecf