[elpa] externals/tempel a725dfc5bc: tempel--save: Use read-answer

[ELPA Syncer]

branch: externals/tempel
commit a725dfc5bcd21423ebc108cd4d5d92fb33becded
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    tempel--save: Use read-answer
---
 tempel.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/tempel.el b/tempel.el
index c938755205..51b574f8d5 100644
--- a/tempel.el
+++ b/tempel.el
@@ -390,10 +390,19 @@ PROMPT is the optional prompt/default value."
 (defun tempel--save ()
   "Prompt to save modified files in `tempel-path'."
   (cl-loop
+   with all = nil
    for (file . _ts) in tempel--path-timestamps do
    (when-let (buf (get-file-buffer file))
      (with-current-buffer buf
-       (when (and (buffer-modified-p) (y-or-n-p (format "Save file %s? " 
file)))
+       (when (and (buffer-modified-p)
+                  (pcase (or all (read-answer
+                                  (format "Save file %s? " file)
+                                  '(("yes" ?y "save the file")
+                                    ("no"  ?n "skip the file")
+                                    ("all" ?! "save all modified files"))))
+                    ("yes" t)
+                    ("no" nil)
+                    ("all" (setq all "all"))))
          (save-buffer buf))))))
 
 (defun tempel--file-read (file)