From b31eaaf624334d771811bc907a5aa6af04be82bd Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 29 Aug 2015 11:28:27 -0400 Subject: Rework org-structure-template-alist * Don't manually make lower case variants. * Add name template. * Remove Muse-like tags. --- lisp/init-org.el | 42 +++++++++++++++--------------------------- 1 file changed, 15 insertions(+), 27 deletions(-) diff --git a/lisp/init-org.el b/lisp/init-org.el index be119e4..339bfd3 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -27,33 +27,21 @@ (put 'org-goto-max-level 'safe-local-variable #'integerp) -(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") - ("C" "#+caption: " "") - ("b" "#+label: " "") - ("r" "#+attr_latex: " "") - ("R" "#+attr_html: " "") - ;; 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 ?" ""))) +(after 'org + (setq org-structure-template-alist + (append '(("p" "#+property: ") + ("o" "#+options: ") + ("d" "#+date: ") + ("t" "#+title: ") + ("S" "#+setupfile: ?") + ("n" "#+name: ") + ("w" "#+begin_note\n ?\n#+end_note") + ("C" "#+caption: ") + ("b" "#+label: ") + ("r" "#+attr_latex: ") + ("R" "#+attr_html: ")) + (mapcar (lambda (i) (list (car i) (downcase (cadr i)))) + org-structure-template-alist)))) (add-to-list 'auto-mode-alist '("\\.org.txt\\'" . org-mode)) -- cgit v1.2.3