branch: shell-command+
commit f19569db820d6d005bf8282f509f0e7f7587bf45
Author: Philip K <[email protected]>
Commit: Philip K <[email protected]>
Add shell-command+-prompt option
---
shell-command+.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/shell-command+.el b/shell-command+.el
index ff93cc7..6a4dcbc 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -75,6 +75,11 @@ handlers if the symbol (eg. `man') is contained in the list."
:type '(choice (boolean :tag "Always active?")
(repeat :tag "Selected commands" symbol)))
+(defcustom shell-command+-prompt "Shell command:"
+ "Prompt to use when invoking `shell-command+'.
+This option doesn't require a trailing whitespace."
+ :type 'string)
+
(defconst shell-command+--command-regexp
(rx bos
;; ignore all preceding whitespace
@@ -130,7 +135,7 @@ These extentions can all be combined with one-another.
In case a region is active, `shell-command+' will only work with the region
between BEG and END. Otherwise the whole buffer is processed."
- (interactive (list (read-shell-command "Shell command: ")
+ (interactive (list (read-shell-command (concat shell-command+-prompt " "))
(if (use-region-p) (region-beginning) (point-min))
(if (use-region-p) (region-end) (point-max))))
(save-match-data
