[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 5320469 04/64: `eepitch-do' and `find-wget'
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 5320469 04/64: `eepitch-do' and `find-wget' |
Date: |
Sun, 7 Apr 2019 16:59:01 -0400 (EDT) |
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)
- [elpa] branch externals/eev created (now fb9f4c6), Stefan Monnier, 2019/04/07
- [elpa] externals/eev 99d0c67 03/64: Changes in `find-videos-intro'; `ee-copy-after-and' -> `ee-copy-rest', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 5320469 04/64: `eepitch-do' and `find-wget',
Stefan Monnier <=
- [elpa] externals/eev 834e074 10/64: `find-customizegroup', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 301db1e 13/64: Make some arguments optional, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 95397ce 02/64: Added `ee-copy-after-and' and `find-eejumps', Stefan Monnier, 2019/04/07
- [elpa] externals/eev b30a527 15/64: Corrected typos in `find-eev-quick-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 19623c4 05/64: Rewrote eev-rcirc.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 70964f1 20/64: Add `find-eev-install-intro' and `find-eev-install-links', Stefan Monnier, 2019/04/07
- [elpa] externals/eev 23f0366 22/64: Added instructions for using the git repository., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 4b2e5aa 18/64: Added eev-codings.el, started to convert files to UTF-8, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 2009036 21/64: Added text to `find-escripts-intro', Stefan Monnier, 2019/04/07
- [elpa] externals/eev e4964a3 06/64: Rewrote `find-brxxx-intro'., Stefan Monnier, 2019/04/07