add spw/add-once-advice

1 files changed, 10 insertions, 0 deletions

diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el
index d8357826..8ccb025a 100644
--- a/.emacs.d/init-spw.el
+++ b/.emacs.d/init-spw.el
@@ -153,6 +153,16 @@ which should happen just once."
 		     (apply ,function args)))
        (add-hook ,hook ',sym ,depth ,local))))
 
+(defmacro spw/add-once-advice (where place function &optional props)
+  "Add a piece of advice which removes itself when called.  For
+something which should happen just once."
+  (let ((sym (cl-gensym)))
+    `(progn
+       (fset ',sym (lambda (&rest args)
+		     (advice-remove ,place #',sym)
+		     (apply ,function args)))
+       (advice-add ,place ,where #',sym ,props))))
+
 
 ;;;; Startup & basic preferences