emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/eev 4dad071 07/12: New function: `find-apt-get-source-l


From: Stefan Monnier
Subject: [elpa] externals/eev 4dad071 07/12: New function: `find-apt-get-source-links'.
Date: Mon, 2 Sep 2019 16:57:44 -0400 (EDT)

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  <address@hidden>
+
+       * eev-tlinks.el (find-apt-get-source-links): new function.
+
 2019-08-10  Eduardo Ochs  <address@hidden>
 
+       * 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 <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; 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)
+
+
+
+
+
 
 ;;;             _            _        _            _   
 ;;;  _ __   ___| |_ ___ __ _| |_     | |_ ___  ___| |_ 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]