[nongnu] elpa/xah-fly-keys b011c3d9e4: new var xah-temp-dir-path. now xah-save-close-current-buffer saves non-file buffers to that dir.

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit b011c3d9e49dcb97014695352fbf3740bce88bb0
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>

    new var xah-temp-dir-path. now xah-save-close-current-buffer saves non-file 
buffers to that dir.
---
 xah-fly-keys.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index 0bd988f5a5..bdb3fb2ffb 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 23.1.20230318191051
+;; Version: 23.2.20230321155840
 ;; Created: 10 Sep 2013
 ;; Package-Requires: ((emacs "24.1"))
 ;; Keywords: convenience, emulations, vim, ergoemacs
@@ -2213,9 +2213,18 @@ Version: 2023-03-02"
   (when (> (length xah-recently-closed-buffers) 
xah-recently-closed-buffers-max)
     (setq xah-recently-closed-buffers (butlast xah-recently-closed-buffers 
1))))
 
+(defvar xah-temp-dir-path nil "Path to temp dir used by xah commands.
+by default, the value is (concat user-emacs-directory \"temp/\").
+Version 2023-03-21")
+
+(setq xah-temp-dir-path
+      (if xah-temp-dir-path
+          xah-temp-dir-path
+        (concat user-emacs-directory "temp/")))
+
 (defun xah-save-close-current-buffer ()
   "Save and close current buffer.
-If the buffer is not a file, save it to `user-emacs-directory' and named 
untitled_‹datetime›_‹randomhex›.txt
+If the buffer is not a file, save it to `xah-temp-dir-path' and named 
untitled_‹datetime›_‹randomhex›.txt
 
 Version 2022-12-29 2023-01-09"
   (interactive)
@@ -2229,7 +2238,7 @@ Version 2022-12-29 2023-01-09"
         (when (not (equal (point-max) 1))
           (write-file
            (format "%suntitled_%s_%x.txt"
-                   user-emacs-directory
+                   xah-temp-dir-path
                    (format-time-string "%Y%m%d_%H%M%S")
                    (random #xfffff)))))))
   (kill-buffer))