From 0fb4c30eb89af18914b49feee9c34bb1413d5829 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <meyerkya@gmail.com>
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" "<note>\n?\n</note>")
+        ("w" "#+begin_note\n  ?\n#+end_note" "<note>\n?\n</note>")
+        ;; lower case versions of defaults
+        ("s" "#+begin_src ?\n  \n#+end_src" "<src lang=\"?\">\n\n</src>")
+        ("e" "#+begin_example\n  ?\n#+end_example" "<example>\n?\n</example>")
+        ("q" "#+begin_quote\n  ?\n#+end_quote" "<quote>\n?\n</quote>")
+        ("v" "#+begin_versen  ?\n#+end_verse" "<verse>\n?\n</verse>")
+        ("V" "#+begin_verbatim\n  ?\n#+end_verbatim" "<verbatim>\n?\n</verbatim>")
+        ("c" "#+begin_center\n  ?\n#+end_center" "<center>\n?\n</center>")
+        ("l" "#+begin_latex\n  ?\n#+end_latex" "<literal style=\"latex\">\n?\n</literal>")
+        ("L" "#+latex: " "<literal style=\"latex\">?</literal>")
+        ("h" "#+begin_html\n  ?\n#+end_html" "<literal style=\"html\">\n?\n</literal>")
+        ("H" "#+html: " "<literal style=\"html\">?</literal>")
+        ("a" "#+begin_ascii\n  ?\n#+end_ascii" "")
+        ("A" "#+ascii: " "")
+        ("i" "#+index: ?" "#+index: ?")
+        ("I" "#+include: %file ?" "<include file=%file markup=\"?\">")))
+
 
 ;; 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