home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume11 / templates / part06 / elisp.tpl < prev    next >
Lisp/Scheme  |  1987-10-04  |  3KB  |  190 lines
  1. Template all Selection
  2. :begin
  3. package:
  4. constant:
  5. variable:
  6. function:
  7. stmt:
  8. :end
  9.  
  10. Template package Sequence
  11. :begin
  12. ;;; <buffer-name> -- <text:documentation>
  13. ;;; <user-full-name>, <today>
  14.  
  15. <#variables>
  16. <functions>
  17. :end
  18.  
  19. Template variables Repetition
  20. :begin
  21.  
  22. <variable>
  23. :end
  24.  
  25. Template variable Sequence
  26. :begin
  27. (defvar <textenter:variable-name> <text:value>
  28.   "<textlong:documentation>"
  29. ) ; <textenter:variable-name>
  30. :end
  31.  
  32. Template functions Repetition
  33. :begin
  34.  
  35. <function>
  36. :end
  37.  
  38. Template function Sequence
  39. :begin
  40.  
  41. (defun <textenter:function-name> (<text:arguments>)
  42.   "<textlong:documentation>"
  43.   (interactive "<arg-type><textenter:function-name>: <text:arguments>? ")
  44.                     ; Local Variables
  45.   (let (<text:local-variables>)
  46.                     ; Body
  47.     <stmt:body>
  48.   ) ; let
  49. ) ; defun <textenter:function-name>
  50.  
  51. :end
  52.  
  53. Template arg-type Selection
  54. :begin
  55. a    ; Function name
  56. b    ; Buffer name (must exist)
  57. B    ; Buffer name (possibly nonexistent)
  58. c    ; Single character
  59. C    ; Command name
  60. d    ; Point as a number (no prompt)
  61. D    ; Directory name
  62. f    ; File name (must exist)
  63. F    ; File name (possibly nonexistent)
  64. k    ; Keystroke sequence (string)
  65. m    ; Mark as a number (no prompt)
  66. n    ; Number (reads a string and converts)
  67. p    ; Prefix arg converted to number
  68. P    ; Prefix arg in raw form
  69. r    ; Region (no prompt)
  70. s    ; String
  71. S    ; Symbol
  72. v    ; Variable name (must be user-variable-p)
  73. x    ; Lisp expression unevaluated
  74. X    ; Lisp expression evaluated
  75. :end
  76.  
  77. Template stmt Selection
  78. :begin
  79. progn:
  80. cond:
  81. debug:
  82. ife:
  83. if:
  84. while:
  85. whilelist:
  86. simple:
  87. :end
  88.  
  89. Template progn Sequence
  90. :begin
  91. (progn
  92.   <POINT>
  93. ) ; progn
  94. :end
  95.  
  96. Template simple Sequence
  97. :begin
  98. (<text:fn> <arglist>)
  99. :end
  100.  
  101. Template arglist Repetition
  102. :begin
  103.  <arg>
  104. :end
  105.  
  106. Template arg Selection
  107. :begin
  108. expression:
  109. stmt:
  110. :end
  111.  
  112. Template expression Sequence
  113. :begin
  114. <text:expression>
  115. :end
  116.  
  117. Template if Sequence
  118. :begin
  119. (if <text:condition>
  120.   <POINT>
  121. ) ; if <text:condition>
  122. :end
  123.  
  124. Template ife Sequence
  125. :begin
  126. (if <text:condition>
  127.   <POINT>
  128. ; else
  129.   <POINT>
  130. ) ; if <text:condition>
  131. :end
  132.  
  133. Template cond Sequence
  134. :begin
  135. (cond
  136.   <clauselist>
  137. ) ; cond
  138. :end
  139.  
  140. Template clauselist Repetition
  141. :begin
  142.  
  143. <clause>
  144. :end
  145.  
  146. Template clause Sequence
  147. :begin
  148. (<text:condition>
  149.   <POINT>
  150. ) ; <text:condition>
  151. :end
  152.  
  153. Template while Sequence
  154. :begin
  155. (while <text:condition>
  156.   <POINT>
  157. ) ; while <text:condition>
  158. :end
  159.  
  160. Template whilelist Sequence
  161. :begin
  162. (while <text:list>
  163.   (setq <text:item> (car <text:list>))
  164.   (setq <text:list> (cdr <text:list>))
  165.   <POINT>
  166. ) ; while <text:list>
  167. :end
  168.  
  169. Template unrolledwhile Sequence
  170. :begin
  171. (if <text:condition>
  172.   <stmt:body>
  173. ) ; if <text:condition>
  174. (while <text:condition>
  175.   <stmt:body>
  176. ) ; while <text:condition>
  177. :end
  178.  
  179. Template debug Sequence
  180. :begin
  181. (debug nil "<POINT>")
  182. :end
  183.  
  184.  
  185. Local Variables:
  186. tpl-begin-template-definition:"^Template"
  187. tpl-begin-template-body:"^:begin"
  188. tpl-end-template-body:"^:end"
  189. end:
  190.