[elpa] externals/eev bb41e52 07/14: New function: `find-fossil-links'.

[Stefan Monnier]

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

    New function: `find-fossil-links'.
---
 VERSION       |  4 ++--
 eev-tlinks.el | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/VERSION b/VERSION
index 99bfb79..90fff04 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Jan  8 21:36:29 GMT 2020
-Wed Jan  8 18:36:29 -03 2020
+Wed Jan  8 22:25:42 GMT 2020
+Wed Jan  8 19:25:42 -03 2020
diff --git a/eev-tlinks.el b/eev-tlinks.el
index b84f9c5..b280b53 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -71,6 +71,7 @@
 ;; «.find-youtubedl-links»     (to "find-youtubedl-links")
 ;; «.find-psne-links»          (to "find-psne-links")
 ;; «.find-git-links»           (to "find-git-links")
+;; «.find-fossil-links»                (to "find-fossil-links")
 ;; «.find-apt-get-source-links»        (to "find-apt-get-source-links")
 ;; «.find-eev-video-links»     (to "find-eev-video-links")
 ;;
@@ -1255,6 +1256,61 @@ git log --oneline --graph --all -20
 
 
 
+
+;; «find-fossil-links»  (to ".find-fossil-links")
+;; Skel: (find-find-links-links-new "fossil" "url subdir c" "")
+;; Test: (find-fossil-links "http://fossil.0branch.com/oorexx-mode";)
+;; See:  https://fossil-scm.org/
+;;
+(defun ee-fossil-url-stem (url) (ee-git-url-stem url))
+
+(defun find-fossil-links (&optional url subdir c &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for fossil."
+  (interactive (list (ee-url-at-point)))
+  (setq url (or url "{url}"))
+  (setq subdir (or subdir (ee-fossil-url-stem url) "{subdir}"))
+  (setq c (or c (replace-regexp-in-string "[-.]" "" subdir) "{c}"))
+  (apply
+   'find-elinks
+   `((find-fossil-links ,url ,subdir ,c ,@pos-spec-list)
+     (find-fossil-links "{url}" "{subdir}" "{c}")
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-fossil-links)
+     ""
+     ,(ee-template0 "\
+# (find-sh \"fossil help\")
+# (find-sh \"fossil help clone\")
+# (find-sh \"fossil help pull\")
+# (find-sh \"fossil help all\")
+# (find-sh \"fossil help open\")
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+# rm -fv ~/usrc/fossil-repos/{subdir}.fsl
+mkdir -p ~/usrc/fossil-repos/
+cd       ~/usrc/fossil-repos/
+
+fossil clone {url}    {subdir}.fsl
+fossil pull  {url} -R {subdir}.fsl
+fossil all ls
+
+# cd        ~/usrc/{subdir}/ && fossil close
+# rm -Rfv   ~/usrc/{subdir}/
+mkdir -p    ~/usrc/{subdir}/
+cd          ~/usrc/{subdir}/
+fossil open ~/usrc/fossil-repos/{subdir}.fsl
+
+# (code-c-d \"{c}\" \"~/usrc/{subdir}/\")
+# (find-{c}file \"\")
+")
+     )
+   pos-spec-list))
+
+
+
+
+
 ;;;              _                   _                                     
 ;;;   __ _ _ __ | |_       __ _  ___| |_      ___  ___  _   _ _ __ ___ ___ 
 ;;;  / _` | '_ \| __|____ / _` |/ _ \ __|____/ __|/ _ \| | | | '__/ __/ _ \