Just added this to my init file to do that work:
(mapc (lambda (asc)
(let ((org-sce-dc (downcase (nth 1 asc))))
(setf (nth 1 asc) org-sce-dc)))
org-structure-template-alist)
Grant Rettke | AAAS, ACM, ASA, FSF, IEEE, SIAM, Sigma Xi
g...@wisdomandwonder.com | http://www.wisdomandwonder.com/
“Wisdom begins in wonder.” --Socrates
((λ (x) (x x)) (λ (x) (x x)))
“Life has become immeasurably better since I have been forced to stop
taking it seriously.” --Thompson
On Sat, Jun 7, 2014 at 4:44 PM, Grant Rettke <g...@wisdomandwonder.com> wrote:
> Thank you Thorsten.
> Grant Rettke | AAAS, ACM, ASA, FSF, IEEE, SIAM, Sigma Xi
> g...@wisdomandwonder.com | http://www.wisdomandwonder.com/
> “Wisdom begins in wonder.” --Socrates
> ((λ (x) (x x)) (λ (x) (x x)))
> “Life has become immeasurably better since I have been forced to stop
> taking it seriously.” --Thompson
>
>
> On Sat, Jun 7, 2014 at 3:39 PM, Thorsten Jolitz <tjol...@gmail.com> wrote:
>> Grant Rettke <g...@wisdomandwonder.com> writes:
>>
>>
>>> #+BEGIN_SRC
>>>
>>> #+END_SRC
>>>
>>> Is supposed to expand into upper case letters?
>>
>> or put this in your init.el:
>>
>> #+BEGIN_SRC emacs-lisp
>> (setq org-structure-template-alist
>> (quote (("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_verse\n?\n#+end_verse"
>> "<verse>\n?\n/verse>")
>> ("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=\"?\">"))))
>> #+END_SRC
>>
>>
>> --
>> cheers,
>> Thorsten
>>
>>
