just file org mode configuration directly

[lib.git] / emacs_el / configuration / org-mode-configuration.el

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index b58a00d23ebe8a81f6993bf8ad9d80b899241378..d39e8c984a519c50375d50da8bee81b69a2a9b44 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -97,6 +97,7 @@
 (setq org-agenda-files
       (quote ("~/projects/org-notes/debbugs.org"
              "~/projects/org-notes/notes.org"
+             "~/projects/org-notes/holidays.org"
              "~/projects/org-notes/refile.org"
              "~/projects/org-notes/diary.org"
              "~/projects/org-notes/ool.org"
@@ -132,8 +133,8 @@
 (setq org-default-notes-file "~/projects/org-notes/notes.org")
 (setq org-id-link-to-org-use-id t)
 (setq org-capture-templates  ;; mail-specific note template, identified by "m"
-      '(("m" "Mail" entry (file+headline "~/projects/org-notes/refile.org" "Mail")
-         "* %?\n\n  Source: %u, %c\n  %i")
+      '(("m" "Mail" entry (file "~/projects/org-notes/refile.org")
+         "* %?\n\n  Source: %u, [[%:link][%:description]]\n  %:initial")
         ("t" "todo" entry (file "~/projects/org-notes/refile.org")
          "* TODO %?\n  :PROPERTIES:\n  :END:\n  :LOGBOOK:\n  :END:\n%U\n%a\n" :clock-in t :clock-resume t)
         ("r" "respond" entry (file "~/projects/org-notes/refile.org")
@@ -450,7 +451,7 @@ Maildir, or by Message-ID."
 
 
 (setq-default org-mobile-directory "/linnode.donarmstrong.com:/sites/dav.donarmstrong.com/root/org/")
-(when (string= system-name "linnode.donarmstrong.com")
+(when (string= system-name "linnode")
   (setq-default org-mobile-directory "/sites/dav.donarmstrong.com/root/org/"))
 (setq-default org-directory "/home/don/org-mode/")
 (setq-default org-mobile-inbox-for-pull "/home/don/org-mode/from-mobile.org")
@@ -1102,4 +1103,16 @@ same directory as the org-buffer and insert a link to this file."
                            (min (1+ (match-end 0)) end)))
                   (unless (bolp) (insert "\n"))))))))))))
 
+; from https://emacs.stackexchange.com/questions/909/how-can-i-have-an-agenda-timeline-view-of-multiple-files
+(defun org-agenda-timeline-all (&optional arg)
+  (interactive "P")
+  (with-temp-buffer
+    (dolist (org-agenda-file org-agenda-files)
+      (insert-file-contents org-agenda-file nil)
+      (end-of-buffer)
+      (newline))
+    (write-file "/tmp/timeline.org")
+    (org-agenda arg "L")))
+(define-key org-mode-map (kbd "C-c t") 'org-agenda-timeline-all)
+
 (provide 'org-mode-configuration)