bleh

1 files changed, 15 insertions, 7 deletions

@@ -20,7 +20,7 @@
 
 (defgroup user-save nil
   "Group for `user-save-mode' customizations."
-  :group 'emacs
+  :group 'files
   :prefix "user-save-")
 
 (defcustom user-save-hook-into-kill-emacs nil
@@ -39,8 +39,13 @@ Each predicate will be called with no arguments, and if it
 returns t, will inhibit `user-save-mode' from activating."
   :type '(repeat function))
 
-(defvar user-save-hook nil
-  "Hook to run when the user, not Emacs, saves the buffer.")
+(defcustom user-save-before-save-hook nil
+  "Hook to run before the user, not Emacs, saves the buffer."
+  :type 'hook)
+
+(defcustom user-save-after-save-hook nil
+  "Hook to run after the user, not Emacs, saves the buffer."
+  :type 'hook)
 
 (defvar user-save-mode-map (let ((map (make-sparse-keymap)))
                              (define-key map (kbd "C-x C-s") #'user-save-buffer)
@@ -49,11 +54,13 @@ returns t, will inhibit `user-save-mode' from activating."
   "Keymap for `user-save-mode'.
 This map shadows the default map for `save-buffer'.")
 
-(defun user-save-run-hooks (&rest _)
-  "Run the hooks in `user-save-hook'.
+(defun user-save-run-hooks (which &rest _)
+  "Run the hooks in one of the user-save-hooks.
+If WHICH is `'before', run `user-save-before-save-hook';
+if it's `after', run `user-save-after-save-hook'.
 This does /not/ also save the buffer."
   (with-demoted-errors "User-save-hook error: %S"
-    (run-hooks 'user-save-hook)))
+    (run-hooks (intern (format "user-save-%s-save-hook" which)))))
 
 (defun user-save-non-file-buffer-p (&optional buffer-or-name)
   "Return whether BUFFER-OR-NAME is a non-file buffer.
@@ -74,8 +81,9 @@ run all the time, put them in `user-save-hook'.
 ARG is passed directly to `save-buffer'."
   (interactive '(called-interactively))
   (message "User-Saving the buffer...")
-  (user-save-run-hooks)
+  (user-save-run-hooks 'before)
   (save-buffer arg)
+  (user-save-run-hooks 'after)
   (message "User-Saving the buffer...Done."))
 
 (defun user-save-some-buffers (&optional pred)