emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/xah-fly-keys e81f8143e9: xah-run-current-file now allow un


From: ELPA Syncer
Subject: [nongnu] elpa/xah-fly-keys e81f8143e9: xah-run-current-file now allow universal-argument to prompt user. (need more fix when it's golang, java, WolframLang file.) also removed temp NO_COLOR shell env var for deno.
Date: Mon, 4 Dec 2023 13:00:47 -0500 (EST)

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

    xah-run-current-file now allow universal-argument to prompt user. (need 
more fix when it's golang, java, WolframLang file.) also removed temp NO_COLOR 
shell env var for deno.
    xah-unicode-list minor change. now use colored heart that's always emoji, 
instead of the heart suit.
---
 xah-fly-keys.el | 31 ++++++++++++++++++++-----------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index b2373a6112..59e20f5845 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: 24.18.20231124130215
+;; Version: 24.19.20231204080156
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "27"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -1979,7 +1979,7 @@ xString can be any string, needs not be a char or emoji.
    ("sparkles โœจ" . "โœจ")
    ("rocket ๐Ÿš€" . "๐Ÿš€")
    ("sun ๐ŸŒž" . "๐ŸŒž")
-   ("red heart ๐Ÿ’“" . "๐Ÿ’“")
+   ("heart ๐Ÿงก" . "๐Ÿงก")
    ("clown ๐Ÿคก" . "๐Ÿคก")
    ("large circle" . "โญ•")
    ("cross โŒ" . "โŒ")
@@ -2547,16 +2547,18 @@ You can customize this alist.")
 
 (defun xah-run-current-file ()
   "Execute the current file.
-For example, if the current buffer is x.py, then it'll call [python x.py] in a 
shell.
+For example, if the current buffer is x.py, then it'll call python x.py in a 
shell.
 Output is printed to buffer โ€œ*xah-run output*โ€.
 File suffix is used to determine which program to run, set in the variable 
`xah-run-current-file-map'.
 
+When `universal-argument' is called first, prompt user to enter command line 
options.
+
 If the file is modified or not saved, save it automatically before run.
 
 URL `http://xahlee.info/emacs/emacs/elisp_run_current_file.html'
-Version: 2020-09-24 2022-09-18 2023-09-29"
+Version: 2020-09-24 2022-09-18 2023-09-29 2023-12-04"
   (interactive)
-  (setenv "NO_COLOR" "1") ; 2022-09-10 for deno. default color has yellow 
parts, hard to see
+  ;; (setenv "NO_COLOR" "1") ; 2022-09-10 for deno. default color has yellow 
parts, hard to see
   (when (not buffer-file-name) (user-error "Buffer is not file. Save it 
first."))
   (when (buffer-modified-p) (save-buffer))
   (let (xoutBuffer xextAppMap xfname xfExt xappCmdStr xcmdStr)
@@ -2598,13 +2600,20 @@ Version: 2020-09-24 2022-09-18 2023-09-29"
         (shell-command (format "java %s" (file-name-sans-extension
                                           (file-name-nondirectory xfname)))
                        xoutBuffer)))
-     (t (if xappCmdStr
-            (progn
-              (message "Running ใ€Œ%sใ€" xcmdStr)
-              (shell-command xcmdStr xoutBuffer))
-          (error "%s: Unknown file extension: %s" real-this-command xfExt))))
+     (t
+      (if xappCmdStr
+          (progn
+            (if current-prefix-arg
+                (let ((xuserCmd (read-string "run with command:" xcmdStr)))
+                  (message "Running ใ€Œ%sใ€" xuserCmd)
+                  (shell-command xuserCmd xoutBuffer))
+              (progn
+                (message "Running ใ€Œ%sใ€" xcmdStr)
+                (shell-command xcmdStr xoutBuffer))))
+        (error "%s: Unknown file extension: %s" real-this-command xfExt))))
     (run-hooks 'xah-run-current-file-after-hook))
-  (setenv "NO_COLOR"))
+  ;; (setenv "NO_COLOR")
+  )
 
 (defun xah-clean-empty-lines ()
   "Replace repeated blank lines to just 1, in whole buffer or selection.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]