From 7a5a232c27394a8afd87abc2f27b31f62cd91b59 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 15 Jan 2013 12:11:41 +0100
Subject: Emacs: Update some things

---
 .emacs.d/site-lisp/org-init.el | 63 ++++++++++++++++++++++++++++++++++++------
 1 file changed, 54 insertions(+), 9 deletions(-)

(limited to '.emacs.d/site-lisp/org-init.el')

diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el
index 23ae6a5..b02f0cc 100644
--- a/.emacs.d/site-lisp/org-init.el
+++ b/.emacs.d/site-lisp/org-init.el
@@ -33,13 +33,60 @@
 (eval-after-load "org-crypt"
   '(org-crypt-use-before-save-magic))
 
+(defun oni:org-maybe-outline-path ()
+  (let ((outline-path (org-format-outline-path (org-get-outline-path))))
+    (unless (string= outline-path "")
+      (setq outline-path (concat "[ " outline-path " ] ")))
+    outline-path))
+
+(defun oni:set-org-agenda-files ()
+  "Set `org-agenda-files` according to the current time."
+  (interactive)
+  (let* ((current-time (decode-time))
+         (current-hour (nth 2 current-time))
+         (current-dow (nth 6 current-time)))
+    (if (or (= current-dow 6) (= current-dow 0) ; Saturday or Sunday
+            (< current-hour 9) (>= current-hour 17))
+        (setq org-agenda-files
+              (append oni:personal-agenda-files oni:common-agenda-files))
+      (setq org-agenda-files
+            (append oni:work-agenda-files oni:common-agenda-files)))))
+
+(defvar oni:personal-agenda-files
+  (list (expand-file-name "~/documents/org/tasks"))
+  "My personal agenda, should only show up at times I don't have
+  to work.")
+
+(defvar oni:work-agenda-files
+  (list (expand-file-name "~/documents/org/aethon.org"))
+  "My work agenda, should only show up at times I work.")
+
+(defvar oni:common-agenda-files
+  (list (expand-file-name "~/documents/org/dailies")
+        (expand-file-name "~/documents/org/misc/contacts.org")
+        (expand-file-name "~/documents/org/misc/bookmarks.org"))
+  "Agenda files that are work-agnostic, should always show up.")
+
 (setq org-agenda-custom-commands
-      '(("w" "Work todo." tags-todo "work")))
+      '(("P" . "Personal only")
+        ("Pa" "Personal agenda" agenda ""
+         ((org-agenda-files (append oni:personal-agenda-files
+                                    oni:common-agenda-files))))
+        ("Pt" "Personal todo" agenda ""
+         ((org-agenda-files (append oni:personal-agenda-files
+                                    oni:common-agenda-files))))
+        ("W" . "Work only")
+        ("Wa" "Work agenda" agenda ""
+         ((org-agenda-files (append oni:work-agenda-files
+                                    oni:common-agenda-files))))
+        ("Wt" "Work todo" todo ""
+         ((org-agenda-files (append oni:work-agenda-files
+                                    oni:common-agenda-files))))))
 (setq org-agenda-prefix-format
       '((agenda . " %i %-12:c%?-12t% s")
         (timeline . "  % s")
-        (todo . " %i %-12:c %(concat \"[ \"(org-format-outline-path (org-get-outline-path)) \" ]\") ")
-        (tags . " %i %-12:c %(concat \"[ \"(org-format-outline-path (org-get-outline-path)) \" ]\") ")
+        (todo . " %i %-12:c %(oni:org-maybe-outline-path)")
+        (tags . " %i %-12:c %(oni:org-maybe-outline-path)")
         (search . " %i %-12:c")))
 (setq org-agenda-sorting-strategy
       '((agenda habit-down time-up priority-down category-keep)
@@ -54,12 +101,6 @@
          "* TODO %?\n\n  %a")))
 (setq org-contacts-files '("~/documents/org/misc/contacts.org"))
 (setq org-directory (expand-file-name "~/documents/org"))
-(setq org-agenda-files
-      (append
-       `(,(concat org-directory "/tasks")
-         ,(concat org-directory "/misc/contacts.org")
-         ,(concat org-directory "/misc/bookmarks.org"))
-       org-agenda-files))
 (setq org-agenda-show-outline-path nil)
 (setq org-agenda-todo-ignore-deadlines 'far)
 (setq org-agenda-todo-ignore-scheduled t)
@@ -103,5 +144,9 @@
 (org-agenda-to-appt)
 (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 "17:00" (* 60 60 24) 'oni:set-org-agenda-files)
+
 (provide 'org-init)
 ;;; org-init.el ends here
-- 
cgit v1.2.3-54-g00ecf