Add imalison:named-builder

This commit is contained in:
Ivan Malison 2016-08-10 16:59:33 -07:00
parent 1b5af7c958
commit a67eaab1d1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -486,6 +486,14 @@ the original macro (which is passed as the second argument to
(cons function-name (cons function-name
(cons (quote ,builder-name) args))))) (cons (quote ,builder-name) args)))))
#+END_SRC #+END_SRC
~imalison:named-builder~ runs ~imalison:named-builder-builder~ with the
convention that original macro to modify is the concatenation of the
new macro name and the -fn suffix.
#+BEGIN_SRC emacs-lisp
(defmacro imalison:named-builder (name)
`(imalison:named-builder-builder
,name ,(intern (concat (symbol-name name) "-fn"))))
#+END_SRC
*** Prefix Alternatives *** Prefix Alternatives
Prefix alternatives is a macro that builds an interactive function Prefix alternatives is a macro that builds an interactive function
that selects one of a collection of functions that are provided to the that selects one of a collection of functions that are provided to the