Include the file path in the minibuffer confirmation message

Instead of printing a generic success message, include the filename and
path of the newly saved backup file.

Extract the code that generates the file path from
`w3m-session-backup--save-backup` to a new function so it can be reused.

1 files changed, 11 insertions, 4 deletions

diff --git a/w3m-session-backup.el b/w3m-session-backup.el
index 1eecc49..b688151 100644
--- a/w3m-session-backup.el
+++ b/w3m-session-backup.el
@@ -79,9 +79,7 @@
 (defun w3m-session-backup--save-backup ()
   "Save the current w3m crash recovery session to a new YAML file."
   (with-temp-file
-      (concat
-       (file-name-as-directory w3m-session-backup-save-directory)
-       (funcall w3m-session-backup-filename-function))
+      (w3m-session-backup--save-to)
     (insert
      (string-join
       (mapcar
@@ -98,13 +96,22 @@
   (format "w3m-tabs-%s.yml"
           (format-time-string "%Y%m%d-%Hh%Mm%S")))
 
+(defun w3m-session-backup--save-to ()
+  "Path to the file that the session YAML will be saved to."
+  (concat
+   (file-name-as-directory w3m-session-backup-save-directory)
+   (funcall w3m-session-backup-filename-function)))
+
 
 ;;;###autoload
 (defun w3m-session-backup ()
   "Save the current w3m crash recovery session to a new YAML file."
   (interactive)
   (w3m-session-backup--save-backup)
-  (minibuffer-message "Session saved"))
+  (minibuffer-message
+   (concat
+    "Session saved to "
+    (w3m-session-backup--save-to))))
 
 (provide 'w3m-session-backup)