[elpa] externals/shell-command+ ee9e3e6 17/36: added `.' command

[Stefan Monnier]

branch: externals/shell-command+
commit ee9e3e684920004c8258d91ac2c30f3d157c34ff
Author: Philip K <philip@warpmail.net>
Commit: Philip K <philip@warpmail.net>

    added `.' command
---
 README.md |  7 +------
 bang.el   | 13 ++++++++++---
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/README.md b/README.md
index f001a4b..7036bc5 100644
--- a/README.md
+++ b/README.md
@@ -4,12 +4,7 @@
 `bang` is a `shell-command` substitute that makes it easier to run
 commands on regions or whole buffers. This is done by potentially
 interpreting the first character differently, as the `bang` docstring
-explains:
-
-       When COMMAND starts with
-         <  the output of COMMAND replaces the current selection
-         >  COMMAND is run with the current selection as input
-         |  the current selection is filtered through COMMAND
+explains.
 
 Bang has been based on a function of the same name by [Leah
 Neukirchen][leah].
diff --git a/bang.el b/bang.el
index 2be0b25..8907f37 100644
--- a/bang.el
+++ b/bang.el
@@ -39,6 +39,7 @@ When COMMAND starts with
   <  the output of COMMAND replaces the current selection
   >  COMMAND is run with the current selection as input
   |  the current selection is filtered through COMMAND
+  .  COMMAND executes in the relative path following the dot
 
 Without any argument, `bang' will behave like `shell-command'.
 
@@ -52,7 +53,9 @@ between BEG and END. Otherwise the whole buffer is processed."
                      (if (use-region-p) (region-end) (point-max))))
   (save-match-data
     (unless (string-match (rx bos (* space)
-                              (or (group "<") (group ">") (group "|") "")
+                              (or (group "<") (group ">") (group "|")
+                                  (group "." (* (not space))) "")
+                              (* space)
                               (group (* not-newline))
                               eos)
                           command)
@@ -60,13 +63,14 @@ between BEG and END. Otherwise the whole buffer is 
processed."
     (let ((has-< (match-string-no-properties 1 command))
           (has-> (match-string-no-properties 2 command))
           (has-| (match-string-no-properties 3 command))
+          (has-. (match-string-no-properties 4 command))
           (rest (condition-case nil
                     (replace-regexp-in-string
                      (rx (* ?\\ ?\\) (or ?\\ (group "%")))
                      buffer-file-name
-                     (match-string-no-properties 4 command)
+                     (match-string-no-properties 5 command)
                      nil nil 1)
-                  (error (match-string-no-properties 4 command)))))
+                  (error (match-string-no-properties 5 command)))))
       (cond (has-< (delete-region beg end)
                    (shell-command rest t shell-command-default-error-buffer)
                    (exchange-point-and-mark))
@@ -76,6 +80,9 @@ between BEG and END. Otherwise the whole buffer is processed."
             (has-| (shell-command-on-region
                     beg end rest t t
                     shell-command-default-error-buffer t))
+            (has-. (let ((default-directory (expand-file-name has-.)))
+                     (shell-command rest (if current-prefix-arg t nil)
+                                    shell-command-default-error-buffer)))
             (t (shell-command command (if current-prefix-arg t nil)
                               shell-command-default-error-buffer)))
       (when has->