Going back to <... for Yasnippet expansions

And I need to make these uppercase if I'm going to officially publish
a book on the subject.

snippets/org-mode/code-block

@@ -1,7 +1,7 @@
 # -*- mode: snippet -*-
 # name: code-block
-# key: #s
+# key: <s
 # --
-#+begin_src $1
+#+BEGIN_SRC $1
 $0
-#+end_src
+#+END_SRC

snippets/org-mode/emacs-lisp-code

@@ -1,7 +1,7 @@
 # -*- mode: snippet -*-
 # name: emacs-lisp-code
-# key: #sl
+# key: <sl
 # --
-#+begin_src emacs-lisp
+#+BEGIN_SRC emacs-lisp
 $0
-#+end_src
+#+END_SRC

snippets/org-mode/emacs-lisp-defun

@@ -1,8 +1,10 @@
 # -*- mode: snippet -*-
-# name: emacs-lisp-test
-# key: #elt
+# name: emacs-lisp-defun
+# key: <slf
 # --
 #+BEGIN_SRC emacs-lisp
-(ert-deftest $1-test ()
-  (should (= $0)))
+(defun ${1:fun} (${2:args})
+  "${3:docstring}"
+  ${4:(interactive${5: "${6:P}"})}
+  $0)  
 #+END_SRC

snippets/org-mode/emacs-lisp-defvar

@@ -1,6 +1,6 @@
-# key: slv
 # name: emacs-lisp-defvar
+# key: <slv
 # --
-+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp
 (defvar ${1:symbol} ${2:initvalue} "${3:docstring}")
 #+END_SRC

snippets/org-mode/emacs-lisp-test

@@ -1,7 +1,7 @@
-# key: #elt
 # name: emacs-lisp-test
+# key: <slt
 # --
-#+begin_src emacs-lisp :tangle no
-(ert-deftest $1-test ()
+#+BEGIN_SRC emacs-lisp :tangle no
+  (ert-deftest $1-test ()
     (should (= $0)))
-#+end_src
+#+END_SRC

snippets/org-mode/example-block

@@ -1,6 +1,6 @@
 # -*- mode: snippet -*-
 # name: example-block
-# key: #e
+# key: <e
 # --
 #+begin_example
 $0

snippets/org-mode/header

@@ -1,6 +1,6 @@
 # -*- mode: snippet -*-
 # name: python-src-block
-# key: #sp
+# key: <sp
 # --
 #+BEGIN_SRC python
   $0

snippets/org-mode/http

@@ -1,5 +1,5 @@
-# key: <h
 # name: org-mode http client
+# key: <h
 # --
 #+begin_src http
   ${1:GET} https://grafana.dev.wdpharos.io/api/${2:dashboards/uid/klbJ6Rrnk}

snippets/org-mode/name

@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
 # name: name
-# key: #n
+# key: <n
 # --
 #+NAME: $0

snippets/org-mode/quote-block

@@ -1,7 +1,7 @@
 # -*- mode: snippet -*-
 # name: quote-block
-# key: #q
+# key: <q
 # --
-#+begin_quote
+#+BEGIN_QUOTE
 $0
-#+end_quote
+#+END_QUOTE

snippets/org-mode/section-property

@@ -2,6 +2,6 @@
 # name: section-property
 # key: prop
 # --
-:properties:
-:header-args:${1:emacs-lisp} :${2:results} ${3:silent}
-:end:
+:PROPERTIES:
+:HEADER-ARGS:${1:emacs-lisp} :${2:results} ${3:silent}
+:END:

snippets/org-mode/shell-script-code

@@ -1,7 +1,7 @@
 # -*- mode: snippet -*-
 # name: shell-script-code
-# key: #ss
+# key: <ss
 # --
-#+begin_src sh
+#+BEGIN_SRC sh
 $0
-#+end_src
+#+END_SRC