Put compose-around-builder before first invocation

This commit is contained in:
Ivan Malison 2016-08-13 08:33:23 -07:00
parent 37486ab51f
commit 3d16305b3f
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -555,7 +555,7 @@ macro based on the value of the prefix argument.
(imalison:named-builder imalison:prefix-alternatives)
#+END_SRC
*** Make interactive
*** Make Interactive
#+BEGIN_SRC emacs-lisp
(defmacro imalison:make-interactive-fn (function)
`(lambda (&rest args)
@ -624,6 +624,14 @@ the ~:around~ keyword of advice-add.
(imalison:named-builder imalison:let-advise-around)
#+END_SRC
*** Compose Around Builder
For composing functions with an apply so that they can be used with the ~:around~ keyword of advice-add
#+BEGIN_SRC emacs-lisp
(defmacro imalison:compose-around-builder-fn (&rest functions)
`(imalison:compose-fn ,@functions apply))
(imalison:named-builder imalison:compose-around-builder)
#+END_SRC
** Join Paths
Works in the same way as os.path.join in python
#+BEGIN_SRC emacs-lisp
@ -929,14 +937,6 @@ A macro for composing functions together to build an interactive command to copy
(imalison:compose-copy-builder imalison:copy-current-git-branch
magit-get-current-branch)
#+END_SRC
** Compose Around Builder
For composing functions with an apply so that they can be used with the ~:around~ keyword of advice-add
#+BEGIN_SRC emacs-lisp
(defmacro imalison:compose-around-builder-fn (&rest functions)
`(imalison:compose-fn ,@functions apply))
(imalison:named-builder imalison:compose-around-builder)
#+END_SRC
** Named Compile
#+BEGIN_SRC emacs-lisp
(defun imalison:named-compile (command)