diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 07474774..59efeeca 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -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)