Add commands to add ids to org mode buffers

[emacs.git] / .emacs

diff --git a/.emacs b/.emacs
index cf2269e0c4e87d546debc6295d3c45b9c6b41937..30f236cdb5f5e404fb5d5cc1ba6e7f5d1f0cd943 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -135,6 +135,19 @@
     (org-remove-empty-drawer-at "LOGBOOK" (point))))
 
 (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
+; add ids on creation of nodes
+(add-hook 'org-capture-prepare-finalize-hook 'org-id-get-create)
+; create function to create headlines in file. This comes from
+; http://stackoverflow.com/questions/13340616/assign-ids-to-every-entry-in-org-mode
+(defun my/org-add-ids-to-headlines-in-file ()
+  "Add ID properties to all headlines in the current file which
+do not already have one."
+  (interactive)
+  (org-map-entries 'org-id-get-create))
+; if we wanted to do this to every buffer, do the following:
+; (add-hook 'org-mode-hook
+;           (lambda ()
+;             (add-hook 'before-save-hook 'my/org-add-ids-to-headlines-in-file nil 'local)))
 
 
 ; resolve clocks after 10 minutes of idle; use xprintidle
@@ -210,7 +223,7 @@ Message can be specified either by a path pointing inside a
 Maildir, or by Message-ID."
   (interactive "MPath or Message-ID: ")
   (shell-command
-   (format "xterm -e \"%s %s\""
+   (format "faf xterm -e \"%s %s\""
        (substitute-in-file-name "$HOME/bin/mutt_open") message)))
 
 ;; add support for "mutt:ID" links
@@ -583,7 +596,9 @@ Argument DESCRIPTION MIME description."
        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 (org-add-link-type "papers" 'open-research-paper)
 
-
+; I pretty much always want hiearchical checkboxes
+(setq org-hierachical-checkbox-statistics nil)
+ 
 ;; stolen from
 ;; http://www-public.it-sudparis.eu/~berger_o/weblog/2012/03/23/how-to-manage-and-export-bibliographic-notesrefs-in-org-mode/
 (defun my-rtcite-export-handler (path desc format)