home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume11 / templates / part06 / generic.tpl < prev    next >
Lisp/Scheme  |  1987-10-04  |  3KB  |  160 lines
  1. Template buffer-name Function
  2. :begin
  3. (buffer-name)
  4. :end
  5.  
  6. Template buffer-file-name Function
  7. :begin
  8. (buffer-file-name)
  9. :end
  10.  
  11. Template current-time-string Function
  12. :begin
  13. (current-time-string)
  14. :end
  15.  
  16. Template date Function
  17. :begin
  18. (concat "<monthnumber>" "/" "<day>" "/" "<year>")
  19. :end
  20.  
  21. Template day Function
  22. :begin
  23. (let ((str (current-time-string)))
  24.   (string-match "[0-9]+" str)
  25.   (substring str (match-beginning 0) (match-end 0))
  26. )
  27. :end
  28.  
  29. Template file-name-directory Function
  30. :begin
  31. (file-name-directory (buffer-file-name))
  32. :end
  33.  
  34. Template file-name-nondirectory Function
  35. :begin
  36. (file-name-nondirectory (buffer-file-name))
  37. :end
  38.  
  39. Template month Function
  40. :begin
  41. (let ((str (current-time-string))
  42.       prefix)
  43.   (setq prefix (substring str 4 7))
  44.   (cond
  45.     ((equal prefix "Jan")
  46.       "January")
  47.     ((equal prefix "Feb")
  48.       "February")
  49.     ((equal prefix "Mar")
  50.       "March")
  51.     ((equal prefix "Apr")
  52.       "April")
  53.     ((equal prefix "May")
  54.       "May")
  55.     ((equal prefix "Jun")
  56.       "June")
  57.     ((equal prefix "Jul")
  58.       "July")
  59.     ((equal prefix "Aug")
  60.       "August")
  61.     ((equal prefix "Sep")
  62.       "September")
  63.     ((equal prefix "Oct")
  64.       "October")
  65.     ((equal prefix "Nov")
  66.       "November")
  67.     ((equal prefix "Dec")
  68.       "December")
  69.   )
  70. )
  71. :end
  72.  
  73. Template monthnumber Function
  74. :begin
  75. (let ((str (current-time-string))
  76.       prefix)
  77.   (setq prefix (substring str 4 7))
  78.   (cond
  79.     ((equal prefix "Jan")
  80.       "1")
  81.     ((equal prefix "Feb")
  82.       "2")
  83.     ((equal prefix "Mar")
  84.       "3")
  85.     ((equal prefix "Apr")
  86.       "4")
  87.     ((equal prefix "May")
  88.       "5")
  89.     ((equal prefix "Jun")
  90.       "6")
  91.     ((equal prefix "Jul")
  92.       "7")
  93.     ((equal prefix "Aug")
  94.       "8")
  95.     ((equal prefix "Sep")
  96.       "9")
  97.     ((equal prefix "Oct")
  98.       "10")
  99.     ((equal prefix "Nov")
  100.       "11")
  101.     ((equal prefix "Dec")
  102.       "12")
  103.   )
  104. )
  105. :end
  106.  
  107. Template today Function
  108. :begin
  109. (concat "<month>" " " "<day>" ", 19" "<year>")
  110. :end
  111.  
  112. Template time Function
  113. :begin
  114. (let ((str (current-time-string)))
  115.   (string-match "[0-9][0-9]:[0-9][0-9]" str)
  116.   (substring str (match-beginning 0) (match-end 0))
  117. )
  118. :end
  119.  
  120. Template user-full-name Function
  121. :begin
  122. (user-full-name)
  123. :end
  124.  
  125. Template weekday Function
  126. :begin
  127. (let ((str (current-time-string))
  128.       prefix)
  129.   (setq prefix (substring str 0 3))
  130.   (cond
  131.     ((equal prefix "Sun")
  132.       "Sunday")
  133.     ((equal prefix "Mon")
  134.       "Monday")
  135.     ((equal prefix "Tue")
  136.       "Tuesday")
  137.     ((equal prefix "Wed")
  138.       "Wednesday")
  139.     ((equal prefix "Thu")
  140.       "Thursday")
  141.     ((equal prefix "Fri")
  142.       "Friday")
  143.     ((equal prefix "Sat")
  144.       "Saturday")
  145.   )
  146. )
  147. :end
  148.  
  149. Template year Function
  150. :begin
  151. (substring (current-time-string) -2)
  152. :end
  153.  
  154.  
  155. Local Variables:
  156. tpl-begin-template-definition:"^Template"
  157. tpl-begin-template-body:"^:begin"
  158. tpl-end-template-body:"^:end"
  159. end:
  160.