1 files changed, 10 insertions, 0 deletions

@@ -58,6 +58,16 @@ Ready for use with `after-focus-change-function'."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
+;;;; Define a function and add it to hooks
+(defun defun-with-hooks (hooks function-def)
+  "Add FUNCTION-DEF to HOOKS.
+
+FUNCTION-DEF should be a `defun' form.  This function is just to
+  put functions that only exist for hooks closer to the hooks
+  they bind to."
+  (let ((func function-def))
+    (dolist (hook hooks)
+      (add-hook hook func))))
 ;;; Garbage collection hacks
 
 (defconst acdw/gc-cons-threshold-basis (* 800 1024)