From 0fb4c30eb89af18914b49feee9c34bb1413d5829 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 15 Jul 2013 20:18:19 -0400 Subject: back to lower case org structure templates tried to use upper case because that is the default but couldn't get used to it --- init/km-org.el | 34 ++++++++++++++++++++++++---------- 1 file changed, 24 insertions(+), 10 deletions(-) diff --git a/init/km-org.el b/init/km-org.el index 0c2ec98..686189f 100644 --- a/init/km-org.el +++ b/init/km-org.el @@ -113,16 +113,30 @@ (global-set-key (kbd "C-c o b") 'org-iswitchb) (global-set-key (kbd "C-c o m") 'km/open-main-orgfile) -(defvar km/additional-org-templates - '(("t" "#+TITLE: " "") - ("d" "#+DATE: " "") - ("o" "#+OPTIONS: " "") - ("p" "#+PROPERTY: " ""))) - -(mapcar - (lambda (template) - (add-to-list 'org-structure-template-alist template)) - km/additional-org-templates) +(setq org-structure-template-alist + '(("p" "#+property: " "") + ("o" "#+options: " "") + ("d" "#+date: " "") + ("t" "#+title: " "") + ("S" "#+setupfile: ?" "") + ("n" "#+begin_note\n ?\n#+end_note" "\n?\n") + ("w" "#+begin_note\n ?\n#+end_note" "\n?\n") + ;; lower case versions of defaults + ("s" "#+begin_src ?\n \n#+end_src" "\n\n") + ("e" "#+begin_example\n ?\n#+end_example" "\n?\n") + ("q" "#+begin_quote\n ?\n#+end_quote" "\n?\n") + ("v" "#+begin_versen ?\n#+end_verse" "\n?\n") + ("V" "#+begin_verbatim\n ?\n#+end_verbatim" "\n?\n") + ("c" "#+begin_center\n ?\n#+end_center" "
\n?\n
") + ("l" "#+begin_latex\n ?\n#+end_latex" "\n?\n") + ("L" "#+latex: " "?") + ("h" "#+begin_html\n ?\n#+end_html" "\n?\n") + ("H" "#+html: " "?") + ("a" "#+begin_ascii\n ?\n#+end_ascii" "") + ("A" "#+ascii: " "") + ("i" "#+index: ?" "#+index: ?") + ("I" "#+include: %file ?" ""))) + ;; don't let `org-cycle-agenda-files' binding override custom ;; `backward-kill-word' binding (`org-cycle-agenda-files' is still bound -- cgit v1.2.3