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) (imalison:named-builder imalison:prefix-alternatives)
#+END_SRC #+END_SRC
*** Make interactive *** Make Interactive
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defmacro imalison:make-interactive-fn (function) (defmacro imalison:make-interactive-fn (function)
`(lambda (&rest args) `(lambda (&rest args)
@ -624,6 +624,14 @@ the ~:around~ keyword of advice-add.
(imalison:named-builder imalison:let-advise-around) (imalison:named-builder imalison:let-advise-around)
#+END_SRC #+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 ** Join Paths
Works in the same way as os.path.join in python Works in the same way as os.path.join in python
#+BEGIN_SRC emacs-lisp #+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 (imalison:compose-copy-builder imalison:copy-current-git-branch
magit-get-current-branch) magit-get-current-branch)
#+END_SRC #+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 ** Named Compile
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun imalison:named-compile (command) (defun imalison:named-compile (command)