branch: externals/eev
commit 4dad0719b22f8a6e4ace5e2be3a55522492fea45
Author: Eduardo Ochs <edrx@circe.birdland>
Commit: Eduardo Ochs <edrx@circe.birdland>
New function: `find-apt-get-source-links'.
---
ChangeLog | 6 ++++++
VERSION | 4 ++--
eev-tlinks.el | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
3 files changed, 61 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 74f2c7b..9a0fc01 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
+2019-08-11 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-apt-get-source-links): new function.
+
2019-08-10 Eduardo Ochs <eduardoo...@gmail.com>
+ * eev-explain.el: new file.
+
* eev-intro.el (find-three-main-keys-intro): new function.
(find-creating-links-intro): new function.
diff --git a/VERSION b/VERSION
index 7e54d15..2536c89 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Aug 10 03:21:49 GMT 2019
-Sat Aug 10 04:21:49 BST 2019
+Sun Aug 11 04:03:31 GMT 2019
+Sun Aug 11 05:03:31 BST 2019
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 1fbff23..9b2c65c 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 2019aug08
+;; Version: 2019aug11
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -64,6 +64,7 @@
;; «.find-youtubedl-links» (to "find-youtubedl-links")
;; «.find-psne-links» (to "find-psne-links")
;; «.find-git-links» (to "find-git-links")
+;; «.find-apt-get-source-links» (to "find-apt-get-source-links")
;; «.find-eev-video-links» (to "find-eev-video-links")
;;
;; «.find-latex-links» (to "find-latex-links")
@@ -1089,6 +1090,57 @@ cd {dir}
+;;; _ _
+;;; __ _ _ __ | |_ __ _ ___| |_ ___ ___ _ _ _ __ ___ ___
+;;; / _` | '_ \| __|____ / _` |/ _ \ __|____/ __|/ _ \| | | | '__/ __/ _ \
+;;; | (_| | |_) | ||_____| (_| | __/ ||_____\__ \ (_) | |_| | | | (_| __/
+;;; \__,_| .__/ \__| \__, |\___|\__| |___/\___/ \__,_|_| \___\___|
+;;; |_| |___/
+;;
+;; «find-apt-get-source-links» (to ".find-apt-get-source-links")
+;; (find-find-links-links "{k}" "apt-get-source" "pkg")
+;; A test: (find-apt-get-source-links)
+
+(defun find-apt-get-source-links (&optional pkg &rest pos-spec-list)
+"Visit a temporary buffer containing a script for apt-get source."
+ (interactive)
+ (setq pkg (or pkg "{pkg}"))
+ (let ((letter (replace-regexp-in-string "^\\(\\(lib\\)?.\\).*" "\\1" pkg)))
+ (apply 'find-elinks
+ `((find-apt-get-source-links ,pkg ,@pos-spec-list)
+ (find-apt-get-source-links "lua5.1")
+ ;; Convention: the first sexp always regenerates the buffer.
+ (find-efunction 'find-apt-get-source-links)
+ ""
+ ,(ee-template0 "\
+# https://packages.debian.org/search?searchon=sourcenames&keywords={pkg}
+# https://packages.debian.org/source/sid/{pkg}
+# http://deb.debian.org/debian/pool/main/{letter}/{pkg}/
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+# (find-sh \"apt-cache show {pkg}\")
+# (find-sh \"apt-cache showsrc {pkg}\")
+rm -Rv /tmp/d/
+mkdir /tmp/d/
+cd /tmp/d/
+sudo apt-get build-dep -y {pkg}
+ apt-get source {pkg} 2>&1 | tee osource
+ apt-get source --build {pkg} 2>&1 | tee osourceb
+
+# (find-fline \"/tmp/d/\")
+
+")
+ )
+ pos-spec-list)))
+
+;; Test: (find-apt-get-source-links)
+
+
+
+
+
;;; _ _ _ _
;;; _ __ ___| |_ ___ __ _| |_ | |_ ___ ___| |_
