kiwanami · January 20, 2011 08:23
diff --git a/da b/da
 # name : defvar template
 # group : defvar 
 # contributor : kiwanami
 # --
 (defvar ${1:`(save-excursion
  (let ((re "(def\\\\(un\\\\|var\\\\)[ \t\n]*\\\\([a-z0-9]*[:-]\\\\)"))
    (cond
     ((or 
       (re-search-backward re nil t)
       (re-search-forward  re nil t))
      (match-string 2))
     (t ""))))`}${2:var-name} ${3:value}$0
  "$1$2.")
diff --git a/def b/def
 # name : defun template
 # group : defun 
 # contributor : kiwanami
 # --
 (defun ${1:`(save-excursion
  (let ((re "(def\\\\(un\\\\|var\\\\)[ \t\n]*\\\\([a-z0-9]*[:-]\\\\)"))
    (cond
     ((or 
       (re-search-backward re nil t)
       (re-search-forward  re nil t))
      (match-string 2))
     (t ""))))`}${2:func-name} (${3:args})
  "$2
 ${3:$(mapconcat 'upcase (split-string (replace-regexp-in-string "&[a-z]+" "" yas/text)) " \n")}"
  $0
  )
diff --git a/let b/let
 #name : let template
 # --
 (let (($0
diff --git a/ll b/ll
 #name : lexical-let template
 # --
 (lexical-let (($0
	# name : defun template
	# group : defun
	# contributor : kiwanami
	# --
	(defun ${1:`(save-excursion
	(let ((re "(def\\\\(un\\\\\|var\\\\)[ \t\n]\\\\([a-z0-9][:-]\\\\)"))
	(cond
	((or
	(re-search-backward re nil t)
	(re-search-forward re nil t))
	(match-string 2))
	(t ""))))`}${2:func-name} (${3:args})
	"$2
	${3:$(mapconcat 'upcase (split-string (replace-regexp-in-string "&[a-z]+" "" yas/text)) " \n")}"
	$0
	)