Closes #1: Add option that save some buffers before pathaction-run

Author: jamescherti

README.md

@@ -59,9 +59,9 @@ To edit the `pathaction.yaml` file, use the following function, which will promp
 (pathaction-edit)
 ```
 
-## Frequently Asked Questions
+## Customization
 
-## How to make pathaction open a window under the current one?
+## Making pathaction open a window under the current one?
 
 To configure `pathaction` to open its window under the current one, you can use the `display-buffer-alist` variable to customize how the `pathaction` buffer is displayed. Specifically, you can use the `display-buffer-at-bottom` action, which will display the buffer in a new window at the bottom of the current frame.
 
@@ -72,6 +72,11 @@ Here's the code to do this:
                                      (window-height . 0.33)))
 ```
 
+## Hooks
+
+- `pathaction-before-run-hook`: This hook is executed before the `pathaction-run` function is invoked. By default, it calls the `save-some-buffers` function to prompt saving any modified buffers.
+- `pathaction-after-create-buffer-hook`: This hook is executed after the `pathaction` buffer is created. It runs from within the `pathaction` buffer, enabling further customization or actions once the buffer is available.
+
 ## Author and License
 
 The *pathaction* Emacs package has been written by [James Cherti](https://www.jamescherti.com/) and is distributed under terms of the GNU General Public License version 3, or, at your choice, any later version.

pathaction.el

@@ -53,10 +53,18 @@ Defaults to `ansi-term'.
   of the buffer as the second argument.
   Example: (function-name command buffername)")
 
-(defvar pathaction-after-create-buffer-hook nil
+(defcustom pathaction-before-run-hook '(save-some-buffers)
+  "Hook run before `pathaction-run'.
+By default, it calls `save-some-buffers'."
+  :group 'pathaction
+  :type 'hook)
+
+(defcustom pathaction-after-create-buffer-hook nil
   "Hooks to run after the pathaction buffer is created.
 This hook is executed from the pathaction buffer, allowing further
-customization or actions once the buffer is ready.")
+customization or actions once the buffer is ready."
+  :group 'pathaction
+  :type 'hook)
 
 ;; Internal variables
 (defvar-local pathaction--enabled nil)
@@ -168,6 +176,8 @@ directory being processed."
     (unless (executable-find "pathaction")
       (user-error "'pathaction' command not found in $PATH"))
 
+    (run-hooks 'pathaction-before-run-hook)
+
     (let* ((switch-to-buffer-obey-display-actions t)
            (directory (file-name-directory file-name))
            (base-name (file-name-nondirectory file-name))