From 989835fc62cc79d04d08eea04f52d4653ffc76e6 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sat, 19 Sep 2015 16:48:05 -0500 Subject: [PATCH] update remove empty drawer --- .../configuration/org-mode-configuration.el | 26 +++++++++++-------- 1 file changed, 15 insertions(+), 11 deletions(-) diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el index b3f9c9d..6ec0bef 100644 --- a/emacs_el/configuration/org-mode-configuration.el +++ b/emacs_el/configuration/org-mode-configuration.el @@ -153,7 +153,7 @@ (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)) -- 2.39.5