X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Forg-mode-configuration.el;h=bd1d036a8910929c5e44e9f3cba7301f991df209;hp=356c99f3bb7adf927fad574ba22513dc16898427;hb=2047a66806d42b552a96b8495289e55537aed200;hpb=9b0f0049bd11961b5de8210b50a6ee3d81943c77

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index 356c99f..bd1d036 100644
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -106,6 +106,7 @@
 	      "~/projects/org-notes/uddin.org"
           "~/projects/org-notes/reviews.org"
           "~/projects/org-notes/hpcbio.org"
+          "~/org-mode/from-mobile.org"
 	      "~/projects/org-notes/fh.org")))
 
 (set-register ?n (cons 'file "~/projects/org-notes/notes.org"))
@@ -121,6 +122,13 @@
 (setq org-global-properties '(("Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
 (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 
+;; add automatic reminders for appointments
+(defadvice  org-agenda-redo (after org-agenda-redo-add-appts)
+  "Pressing `r' on the agenda will also add appointments."
+  (progn 
+    (setq appt-time-msg-list nil)
+    (org-agenda-to-appt)))
+
 (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"
@@ -408,7 +416,7 @@ Maildir, or by Message-ID."
   "Open a paper pdf by bibtex key"
   (interactive "bibtex key: ")
   (shell-command
-   (format "%s -p evince %s"
+   (format "%s -p evince_annot %s"
        (substitute-in-file-name "$HOME/bin/bibtex_to_paper") bibtexkey)))
 (org-add-link-type "papers-pdf" 'open-research-paper-pdf)
 
@@ -441,8 +449,8 @@ Maildir, or by Message-ID."
                    'my-rtcite-export-handler)
 
 
-(setq-default org-mobile-directory "/rzlab.ucr.edu:/sites/dav.donarmstrong.com/root/org/")
-(when (string= system-name "rzlab.ucr.edu")
+(setq-default org-mobile-directory "/linnode.donarmstrong.com:/sites/dav.donarmstrong.com/root/org/")
+(when (string= system-name "linnode.donarmstrong.com")
   (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")
@@ -470,7 +478,12 @@ Maildir, or by Message-ID."
               (org-export-backend-name backend)
             nil) ,@body))
 
+(defun my/fix-inline-images ()
+  (when org-inline-image-overlays
+    (org-redisplay-inline-images)))
 
+(add-hook 'org-babel-after-execute-hook
+           'my/fix-inline-images)
 
 ;; ;; org latex
 ;; ;; stolen from http://kieranhealy.org/esk/kjhealy.html
@@ -556,6 +569,9 @@ Maildir, or by Message-ID."
         ("" "longtable" nil)
         ("" "float" )))
 
+;; make equations larger
+(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
+
 (defun org-create-formula--latex-header ()
   "Return LaTeX header appropriate for previewing a LaTeX snippet."
   (let ((info (org-combine-plists (org-export--get-global-options
@@ -835,8 +851,8 @@ Skip project and sub-project tasks, habits, and loose non-project tasks."
 ;; Resume clocking task on clock-in if the clock is open
 (setq org-clock-in-resume t)
 ;; Change tasks to NEXT when clocking in
-;; (setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
-(setq org-clock-in-switch-to-state "NEXT")
+(setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
+;; (setq org-clock-in-switch-to-state "NEXT")
 ;; Separate drawers for clocking and logs
 (setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
 ;; Save clock data and state changes and notes in the LOGBOOK drawer
@@ -855,6 +871,8 @@ Skip project and sub-project tasks, habits, and loose non-project tasks."
 ;; Include current clocking task in clock reports
 (setq org-clock-report-include-clocking-task t)
 
+;; the cache seems to be broken
+(setq org-element-use-cache nil)
 
 (defvar bh/keep-clock-running nil)