comparison lisp/tempo.el @ 27684:db5b16cdb88d

(tempo-dolist, tempo-mapc): Removed. (tempo-process-and-insert-string): Use dolist instead of tempo-dolist.

27683:9ccf5aad8bcf

(make-variable-buffer-local 'tempo-match-finder)
(make-variable-buffer-local 'tempo-collection)
(make-variable-buffer-local 'tempo-dirty-collection)

;;; Functions

;;; First some useful functions and macros

(defun tempo-mapc (fun lst)
  (if (null lst) nil
    (funcall fun (car lst))
    (tempo-mapc fun (cdr lst))))

(defmacro tempo-dolist (il &rest forms)
  (let ((i (car il))
	(l (car (cdr il))))
    (list 'tempo-mapc
	  (list 'function (append (list 'lambda
					(list i))
				  forms))
	  l)))
(put 'tempo-dolist 'lisp-indent-function 1)

;;
;; tempo-define-template

(defun tempo-define-template (name elements &optional tag documentation taglist)

	 nil)
	((symbolp tempo-insert-string-functions)
	 (setq string
	       (funcall tempo-insert-string-functions string)))
	((listp tempo-insert-string-functions)
	 (tempo-dolist (fn tempo-insert-string-functions)
	   (setq string (funcall fn string))))
	(t
	 (error "Bogus value in tempo-insert-string-functions: %s"
		tempo-insert-string-functions)))
  (insert string))

27684:db5b16cdb88d

(make-variable-buffer-local 'tempo-match-finder)
(make-variable-buffer-local 'tempo-collection)
(make-variable-buffer-local 'tempo-dirty-collection)

;;; Functions

;;
;; tempo-define-template

(defun tempo-define-template (name elements &optional tag documentation taglist)

	 nil)
	((symbolp tempo-insert-string-functions)
	 (setq string
	       (funcall tempo-insert-string-functions string)))
	((listp tempo-insert-string-functions)
	 (dolist (fn tempo-insert-string-functions)
	   (setq string (funcall fn string))))
	(t
	 (error "Bogus value in tempo-insert-string-functions: %s"
		tempo-insert-string-functions)))
  (insert string))