colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add let-around, move let-advise-around

Browse Source
This commit is contained in:
Ivan Malison 2016-08-10 17:01:25 -07:00
parent ebbf363baa
commit 8dcf6ea962
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 38 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
dotfiles/emacs.d/README.org
View File

@ -541,17 +541,52 @@ macro based on the value of the prefix argument.
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:advice-add-around-builder (&rest functions)
(defmacro imalison:advice-add-around-builder-fn (&rest functions)
`(imalison:compose-argspec
(function &rest args) (function args) ,@functions apply))
(imalison:named-builder-builder imalison:named-advice-add-around-builder
imalison:advice-add-around-builder)
(imalison:named-builder imalison:advice-add-around-builder)
#+END_SRC
**** Kill New
#+BEGIN_SRC emacs-lisp
(imalison:named-advice-add-around-builder imalison:kill-new-around kill-new)
#+END_SRC
*** Let Around
#+BEGIN_SRC emacs-lisp
(defmacro imalison:let-around-fn (orig-func &rest forms)
`(lambda (&rest args)
(let ,forms
(apply ,orig-func args))))
(imalison:named-builder imalison:let-around)
#+END_SRC
**** Dynamically, using functions
#+BEGIN_SRC emacs-lisp
(defmacro imalison:dynamic-let-around-fn (orig-func &rest getters)
`(lambda (&rest args)
(let ,(cl-loop for pair in getters
collect `(,(car pair) (funcall (quote ,(cadr pair)))))
(apply ,orig-func args))))
(imalison:named-builder imalison:dynamic-let-around)
#+END_SRC
*** Let Around Advice
#+BEGIN_SRC emacs-lisp
(defmacro imalison:let-advise-around-fn (&rest forms)
`(lambda (orig-func &rest args)
(let ,forms
(apply orig-func args))))
(imalison:named-builder imalison:let-advise-around)
#+END_SRC
**** Dynamically, using functions
#+BEGIN_SRC emacs-lisp
(defmacro imalison:dynamic-let-advise-around (name &rest getters)
`(defun ,name (orig-func &rest args)
(let ,(cl-loop for pair in getters
collect `(,(car pair) (funcall (quote ,(cadr pair)))))
(apply orig-func args))))
#+END_SRC
** Join Paths
Works in the same way as os.path.join in python
#+BEGIN_SRC emacs-lisp
@ -892,21 +927,6 @@ For composing functions with an apply so that they can be used with the ~:around
(save-excursion
(perform-replace "\\n" "\n" nil nil delimited nil nil beg end nil)))))
#+END_SRC
** Build advice around funtions that set variables
#+BEGIN_SRC emacs-lisp
(defmacro imalison:let-advise-around (name &rest forms)
`(defun ,name (orig-func &rest args)
(let ,forms
(apply orig-func args))))
#+END_SRC
*** Dynamically, using functions
#+BEGIN_SRC emacs-lisp
(defmacro imalison:dynamic-let-advise-around (name &rest getters)
`(defun ,name (orig-func &rest args)
(let ,(cl-loop for pair in getters
collect `(,(car pair) (funcall (quote ,(cadr pair)))))
(apply orig-func args))))
#+END_SRC
** Other
#+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (&rest paths)