(setq template-list (quote ("generic" (((type "Function") (name "buffer-name") (value "(buffer-name)")) ((type "Function") (name "buffer-file-name") (value "(buffer-file-name)")) ((type "Function") (name "current-time-string") (value "(current-time-string)")) ((type "Function") (name "date") (value "(concat \"<monthnumber>\" \"/\" \"<day>\" \"/\" \"<year>\")")) ((type "Function") (name "day") (value "(let ((str (current-time-string)))
  (string-match \"[0-9]+\" str)
  (substring str (match-beginning 0) (match-end 0))
)")) ((type "Function") (name "file-name-directory") (value "(file-name-directory (buffer-file-name))")) ((type "Function") (name "file-name-nondirectory") (value "(file-name-nondirectory (buffer-file-name))")) ((type "Function") (name "month") (value "(let ((str (current-time-string))
      prefix)
  (setq prefix (substring str 4 7))
  (cond
    ((equal prefix \"Jan\")
      \"January\")
    ((equal prefix \"Feb\")
      \"February\")
    ((equal prefix \"Mar\")
      \"March\")
    ((equal prefix \"Apr\")
      \"April\")
    ((equal prefix \"May\")
      \"May\")
    ((equal prefix \"Jun\")
      \"June\")
    ((equal prefix \"Jul\")
      \"July\")
    ((equal prefix \"Aug\")
      \"August\")
    ((equal prefix \"Sep\")
      \"September\")
    ((equal prefix \"Oct\")
      \"October\")
    ((equal prefix \"Nov\")
      \"November\")
    ((equal prefix \"Dec\")
      \"December\")
  )
)")) ((type "Function") (name "monthnumber") (value "(let ((str (current-time-string))
      prefix)
  (setq prefix (substring str 4 7))
  (cond
    ((equal prefix \"Jan\")
      \"1\")
    ((equal prefix \"Feb\")
      \"2\")
    ((equal prefix \"Mar\")
      \"3\")
    ((equal prefix \"Apr\")
      \"4\")
    ((equal prefix \"May\")
      \"5\")
    ((equal prefix \"Jun\")
      \"6\")
    ((equal prefix \"Jul\")
      \"7\")
    ((equal prefix \"Aug\")
      \"8\")
    ((equal prefix \"Sep\")
      \"9\")
    ((equal prefix \"Oct\")
      \"10\")
    ((equal prefix \"Nov\")
      \"11\")
    ((equal prefix \"Dec\")
      \"12\")
  )
)")) ((type "Function") (name "today") (value "(concat \"<month>\" \" \" \"<day>\" \", 19\" \"<year>\")")) ((type "Function") (name "time") (value "(let ((str (current-time-string)))
  (string-match \"[0-9][0-9]:[0-9][0-9]\" str)
  (substring str (match-beginning 0) (match-end 0))
)")) ((type "Function") (name "user-full-name") (value "(user-full-name)")) ((type "Function") (name "weekday") (value "(let ((str (current-time-string))
      prefix)
  (setq prefix (substring str 0 3))
  (cond
    ((equal prefix \"Sun\")
      \"Sunday\")
    ((equal prefix \"Mon\")
      \"Monday\")
    ((equal prefix \"Tue\")
      \"Tuesday\")
    ((equal prefix \"Wed\")
      \"Wednesday\")
    ((equal prefix \"Thu\")
      \"Thursday\")
    ((equal prefix \"Fri\")
      \"Friday\")
    ((equal prefix \"Sat\")
      \"Saturday\")
  )
)")) ((type "Function") (name "year") (value "(substring
(current-time-string) -2)"))) (("buffer-name") ("buffer-file-name") ("current-time-string") ("date") ("day") ("file-name-directory") ("file-name-nondirectory") ("month") ("monthnumber") ("today") ("time") ("user-full-name") ("weekday") ("year")))))