wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Move let-advise-around into its own heading

Browse Source
This commit is contained in:
Ivan Malison 2016-08-10 16:26:31 -07:00
parent b8290114a0
commit 949aafb513
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -531,16 +531,19 @@ macro based on the value of the prefix argument.
`(imalison:use-package* ,package ,target-directory ,@forms))) `(imalison:use-package* ,package ,target-directory ,@forms)))
#+END_SRC #+END_SRC
*** Advice Add Around Builder *** Advice Add Around Builder
For composing functions with an apply so that they can be used with the ~:around~ keyword of advice-add For composing functions with an apply so that they can be used with
the ~:around~ keyword of advice-add.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defmacro imalison:advice-add-around-builder (&rest functions) (defmacro imalison:advice-add-around-builder (&rest functions)
`(imalison:compose-argspec `(imalison:compose-argspec
(function &rest args) (function args) ,@functions apply)) (function &rest args) (function args) ,@functions apply))
(imalison:named-builder-builder imalison:named-advice-add-around-builder
imalison:advice-add-around-builder)
#+END_SRC #+END_SRC
**** Kill New **** Kill New
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(imalison:named-build imalison:kill-new-around (imalison:named-advice-add-around-builder imalison:kill-new-around kill-new)
imalison:advice-add-around-builder kill-new)
#+END_SRC #+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
@ -882,6 +885,21 @@ For composing functions with an apply so that they can be used with the ~:around
(save-excursion (save-excursion
(perform-replace "\\n" "\n" nil nil delimited nil nil beg end nil))))) (perform-replace "\\n" "\n" nil nil delimited nil nil beg end nil)))))
#+END_SRC #+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 ** Other
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun imalison:join-paths (&rest paths) (defun imalison:join-paths (&rest paths)
@ -895,17 +913,6 @@ For composing functions with an apply so that they can be used with the ~:around
(interactive "p") (interactive "p")
(message "%s" arg)) (message "%s" arg))
(defmacro imalison:let-advise-around (name &rest forms)
`(defun ,name (orig-func &rest args)
(let ,forms
(apply orig-func args))))
(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))))
(defun imalison:uuid () (defun imalison:uuid ()
(interactive) (interactive)
(s-replace "\n" "" (shell-command-to-string "uuid"))) (s-replace "\n" "" (shell-command-to-string "uuid")))