[elpa] externals/eev 5320469 04/64: `eepitch-do' and `find-wget'

[Stefan Monnier]

branch: externals/eev
commit 5320469021ac20042a6f520f3c23d0b525514450
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    `eepitch-do' and `find-wget'
---
 VERSION       |  4 ++--
 eepitch.el    | 21 ++++++++++++++++++++-
 eev-blinks.el |  4 +++-
 eev-plinks.el | 16 +++++++++++++++-
 eev-tlinks.el | 16 ++++++++++++++--
 5 files changed, 54 insertions(+), 7 deletions(-)

diff --git a/VERSION b/VERSION
index a3d4f34..d8db3d2 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Aug 26 05:42:58 GMT 2013
-Mon Aug 26 02:42:58 BRT 2013
+Fri Aug 30 15:07:59 GMT 2013
+Fri Aug 30 12:07:59 BRT 2013
diff --git a/eepitch.el b/eepitch.el
index 7f3935e..96820a4 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013aug16
+;; Version:    2013aug29
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -475,6 +475,25 @@ See: (find-eepitch-intro)"
 
 
 
+;;;                  _ _       _               _       
+;;;   ___  ___ _ __ (_) |_ ___| |__         __| | ___  
+;;;  / _ \/ _ \ '_ \| | __/ __| '_ \ _____ / _` |/ _ \ 
+;;; |  __/  __/ |_) | | || (__| | | |_____| (_| | (_) |
+;;;  \___|\___| .__/|_|\__\___|_| |_|      \__,_|\___/ 
+;;;           |_|                                      
+;;
+(defun eepitch-make-suffix (arg)
+  (cond ((null arg) "")
+       ((stringp arg) (format " %s" arg))
+       ((numberp arg) (format " (%s)" arg))))
+
+(defun eepitch-do (program-and-args &optional suffix)
+  (eepitch-comint (format "%s%s" (ee-unsplit program-and-args)
+                         (eepitch-make-suffix suffix))
+                 program-and-args))
+
+
+
 ;;;        _             _         
 ;;;   __ _| |_   _ _ __ | |__  ___ 
 ;;;  / _` | | | | | '_ \| '_ \/ __|
diff --git a/eev-blinks.el b/eev-blinks.el
index d5a7d40..3c0a967 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -462,6 +462,8 @@ The \"Local variables:\" section in the buffer is 
processed."
 ;;   (find-sh0  "seq 2095 2100")
 ;;   (find-sh00 "seq 2095 2100")
 
+;; Note: we could have written this using `find-eoutput-reuse'...
+;;
 (defun find-sh (command &rest pos-spec-list)
   "Hyperlink to the result of running the shell command COMMAND.
 If a buffer named COMMAND does not exist then create it and put
@@ -756,7 +758,7 @@ Examples: (find-echarsetchars 'mule-unicode-0100-24ff 
\"733x\")
 
 (defun find-eejumps (&rest pos-spec-list) (interactive)
   (apply 'find-estring-elisp
-        (mapconcat 'eejump-defun-str-for (eejump-symbols) "\n")
+        (mapconcat 'ee-defun-str-for (eejump-symbols) "\n")
         pos-spec-list))
 
 
diff --git a/eev-plinks.el b/eev-plinks.el
index 6b03888..05548a1 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2012nov02
+;; Version:    2013aug28
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -131,6 +131,20 @@
    (ee-expand dir) name (ee-split-and-expand program-and-args)))
 
 
+
+;; find-wget
+;;
+(defun find-wget00 (url)
+  (find-callprocess00 `("wget" "-q" "-O" "-" ,url)))
+
+(defun find-wget (url &rest rest)
+  (setq url (ee-expand url))
+  (apply 'find-eoutput-reuse (format "*wget: %s*" url)
+        `(insert (find-wget00 ,url))
+        rest))
+
+
+
 (provide 'eev-plinks)
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 57f8a11..a7fa3ac 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2013aug26
+;; Version:    2013aug29
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -73,7 +73,7 @@
   (length (replace-regexp-in-string "[^\n]" "" str)))
 
 (defun ee-copy-rest  (skip code)
-  (ee-copy-rest0 skip `(find-2b nil ',code)))
+  (ee-copy-rest0 skip `(find-2a nil ',code)))
 
 (defun ee-copy-rest0 (skip code)
   "Copy the rest of this buffer to the kill ring and execute CODE.
@@ -606,6 +606,18 @@ emacs    -fg bisque -bg black                  
eev-readme.el
 ;; (find-find-links-links "newhost" "thatmname thatip thismname thisip 
thisiface")
 ;; (find-angg "bin/etc.lua" "inet_addr")
 
+;; New, not used yet:
+(defun ee-inet-addr (&optional iface str)
+"Return the IP after \"inet addr:\" in the output of \"/sbin/ifconfig IFACE\".
+The defaulr for IFACE is \"wlan0\". If STR is non-nil, pretend that the
+output of /sbin/ifconfig was STR (for debugging)."
+  (setq iface (or iface "wlan0"))
+  (setq str (or str (find-sh0 (format "/sbin/ifconfig %s" iface))))
+  (if (string-match "inet addr:\\([0-9.]+\\)" str)
+      (match-string 1 str)))
+;;
+;; See also: system-name
+
 (defvar ee-this-mname nil)
 (defvar ee-this-iface "wlan0")
 (defvar ee-this-ip nil)