Make the `filename` function user-customisable

Allow users to customise the name of the file that gets generated and
saved with a custom function.

1 files changed, 7 insertions, 1 deletions

diff --git a/w3m-session-backup.el b/w3m-session-backup.el
index f6e7a38..68a250e 100644
--- a/w3m-session-backup.el
+++ b/w3m-session-backup.el
@@ -8,6 +8,12 @@
   :group 'w3m-session-backup
   :package-version '(w3m-session-backup . "0.0.1"))
 
+(defcustom filename 'filename
+  "Function that generates a filename for the session backup."
+  :type 'function
+  :group 'w3m-session-backup
+  :package-version '(w3m-session-backup . "0.0.1"))
+
 
 (defun buffers ()
   "TODO"
@@ -52,7 +58,7 @@
   (with-temp-file
       (concat
        (file-name-as-directory save-directory)
-       (filename))
+       (funcall filename))
     (insert
      (string-join
       (mapcar