]> git.donarmstrong.com Git - lib.git/commitdiff
update remove empty drawer
authorDon Armstrong <don@donarmstrong.com>
Sat, 19 Sep 2015 21:48:05 +0000 (16:48 -0500)
committerDon Armstrong <don@donarmstrong.com>
Sat, 19 Sep 2015 21:48:05 +0000 (16:48 -0500)
emacs_el/configuration/org-mode-configuration.el

index b3f9c9d6bdb7bc2d44c3f6b016c69bc22103a615..6ec0bef3e19d4350e0999b62167ac405ee16d4e9 100644 (file)
   (interactive)
   (save-excursion
     (beginning-of-line 0)
-    (org-remove-empty-drawer-at "LOGBOOK" (point))))
+    (org-remove-empty-drawer-at (point))))
 
 (defun my/org-add-id ()
   (interactive)
@@ -413,8 +413,12 @@ Maildir, or by Message-ID."
 
 ; I pretty much always want hiearchical checkboxes
 (setq org-hierachical-checkbox-statistics nil)
-;; stolen from
+
+;; Add \begin{equation}\end{equation} templates to the org mode easy templates
+(add-to-list 'org-structure-template-alist
+             '("E" "\\begin{equation}\n?\n\\end{equation}"))
+
+ ;; 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)
   (message "my-rtcite-export-handler is called : path = %s, desc = %s, format = %s" path desc format)
@@ -533,7 +537,7 @@ Maildir, or by Message-ID."
 
 ;; Default packages included in /every/ tex file, latex, pdflatex or xelatex
 (setq org-latex-default-packages-alist
-      '())
+      '(("" "amsmath" t)))
 (setq org-latex-packages-alist
       '(("" "graphicx" t)
         ("" "fontspec" t)
@@ -963,17 +967,17 @@ A prefix arg forces clock in of the default task."
 
 
 ; allow for zero-width-space to be a break in regexp too
-(setcar org-emphasis-regexp-components "​ [:space:] \t('\"{")
-(setcar (nthcdr 1 org-emphasis-regexp-components) "​ [:space:]- \t.,:!?;'\")}\\")
-(org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
+(setcar org-emphasis-regexp-components "​ [:space:] \t('\"{")
+(setcar (nthcdr 1 org-emphasis-regexp-components) "​ [:space:]- \t.,:!?;'\")}\\")
+(org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)
 
 ;; support inserting screen shots
 (defun my/org-insert-screenshot ()
   "Take a screenshot into a time stamped unique-named file in the
 same directory as the org-buffer and insert a link to this file."
   (interactive)
-  (defvar filename)
-  (setq filename
+  (defvar my/org-insert-screenshot/filename)
+  (setq my/org-insert-screenshot/filename
         (read-file-name
          "Screenshot to insert: "
          nil
@@ -982,6 +986,6 @@ same directory as the org-buffer and insert a link to this file."
          nil
          )
         )
-  (call-process "import" nil nil nil filename)
-  (insert (concat "[[" filename "]]"))
+  (call-process "import" nil nil nil my/org-insert-screenshot/filename)
+  (insert (concat "[[" my/org-insert-screenshot/filename "]]"))
   (org-display-inline-images))