[elpa] shell-command+ f19569d 1/6: Add shell-command+-prompt option

[Philip Kaludercic]

branch: shell-command+
commit f19569db820d6d005bf8282f509f0e7f7587bf45
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>

    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