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

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

[elpa] externals/eev 2e57f21bc1: Small changes in (find-git-intro); adde


From: ELPA Syncer
Subject: [elpa] externals/eev 2e57f21bc1: Small changes in (find-git-intro); added (find-gitdoc-links).
Date: Fri, 5 Jan 2024 03:57:47 -0500 (EST)

branch: externals/eev
commit 2e57f21bc1e866deef17bfa3bb79da941d803682
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Small changes in (find-git-intro); added (find-gitdoc-links).
---
 ChangeLog     |  4 ++++
 VERSION       |  4 ++--
 eev-edit.el   |  2 +-
 eev-intro.el  | 26 ++++++++++++++++++--------
 eev-kla.el    |  2 +-
 eev-tlinks.el | 50 ++++++++++++++++++++++++++++++++++++++++++++++----
 eev.el        |  4 ++--
 7 files changed, 74 insertions(+), 18 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 438a392341..7ff4900d8b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-01-05  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-gitdoc-links): new function.
+
 2024-01-04  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-intro.el (ee-bol-skip-invisible, ee-eol-skip-invisible):
diff --git a/VERSION b/VERSION
index 2b2439c6cc..445840155c 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu Jan  4 15:51:37 GMT 2024
-Thu Jan  4 12:51:37 -03 2024
+Fri Jan  5 06:56:20 GMT 2024
+Fri Jan  5 03:56:20 -03 2024
diff --git a/eev-edit.el b/eev-edit.el
index 743291dde3..3b25b15c3d 100644
--- a/eev-edit.el
+++ b/eev-edit.el
@@ -1,6 +1,6 @@
 ;;; eev-edit.el -- tools for editing (mainly refining) elisp hyperlinks.  -*- 
lexical-binding: nil; -*-
 
-;; Copyright (C) 2012-2021,2023 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
diff --git a/eev-intro.el b/eev-intro.el
index 8ada5ee5f8..f89247d13f 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -1,6 +1,6 @@
 ;;; eev-intro.el --- sandboxed tutorials for eev, like (find-eev-quick-intro)  
-*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2013-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -26,7 +26,7 @@
 ;;       htmlized: <http://anggtwu.net/eev-current/eev-intro.el.html>
 ;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
 ;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
-;;                                                (find-eev-intro)
+;;                                               (find-eev-intro)
 
 ;;; Commentary:
 ;;
@@ -14456,23 +14456,33 @@ that in a single machine:
 TODO: explain how to do some of the operations above with magit
 instead of with low-level git commands!
 
-  # (find-gitk \"/tmp/eevgit-repo1/\")
-  # (find-gitk \"/tmp/eevgit-repo2/\")
-  # (find-gitk \"/tmp/eevgit-repo3/\")
+TODO: explain how to use `find-gitdoc-links' to point to the docs
+that come with git! Example (Debian-centric):
+  (find-gitdoc-links \"push\")
 
+  # (find-gitk \"/tmp/eevgit-repo-s/\")
+  # (find-gitk \"/tmp/eevgit-repo-1/\")
+  # (find-gitk \"/tmp/eevgit-repo-2/\")
 
 
 
 
-6. A historical note
+
+7. A historical note
 ====================
-This was one of my previous attempts:
+The video below shows one of my previous attempts to create
+reproducible tests for git. The interesting part starts at 0:20:
 
   http://anggtwu.net/eev-videos/2020-doubt-about-merging.mp4
           (code-eevvideo \"merg\" \"2020-doubt-about-merging\")
                     (find-mergvideo \"0:00\")
-                    (find-mergvideo \"0:20\")
+                    (find-mergvideo \"0:20\" \"interesting part\")
+
+Note that the code is much harder to read than this,
+
+  (find-eevgit \"eevgitlib1.sh\" \"Time-tests\")
 
+...that is arranged in columns and has timestamps.
 " pos-spec-list)))
 
 ;; (find-git-intro)
diff --git a/eev-kla.el b/eev-kla.el
index bcb856f2ff..a26cc2ec61 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -1,6 +1,6 @@
 ;;; eev-kla.el -- kill link to anchor and friends.  -*- lexical-binding: nil; 
-*-
 
-;; Copyright (C) 2022-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2022-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 479d372721..0b1129d220 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -1,6 +1,6 @@
 ;;; eev-tlinks.el --- hyperlinks to temporary buffers generated by templates  
-*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2013-2023 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2024 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,16 +19,16 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20231223
+;; Version:    20240105
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
 ;;       htmlized: <http://anggtwu.net/eev-current/eev-tlinks.el.html>
 ;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
 ;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
-;;                 <http://anggtwu.net/eev-intros/find-links-intro.html>
+;;                 <http://anggtwu.net/eev-intros/find-links-conv-intro.html>
 ;;                                               (find-eev-intro)
-;;                                               (find-links-intro)
+;;                                               (find-links-conv-intro)
 
 ;;; Commentary:
 
@@ -166,6 +166,7 @@
 ;; «.find-maximamsg-links»             (to "find-maximamsg-links")
 ;; «.find-maximamsg»                   (to "find-maximamsg")
 ;; «.find-linki-links»                 (to "find-linki-links")
+;; «.find-gitdoc-links»                        (to "find-gitdoc-links")
 
 
 (require 'eev-env)
@@ -4797,6 +4798,47 @@ A \"Maxima message\" is a message in the Maxima mailing 
list."
 
 
 
+;; «find-gitdoc-links»  (to ".find-gitdoc-links")
+;; Skel: (find-find-links-links-new "gitdoc" "stem" "")
+;; Test: (find-gitdoc-links)
+;;
+(defun find-gitdoc-links (&optional stem &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for gitdoc."
+  (interactive)
+  (setq stem (or stem "{stem}"))
+  (apply
+   'find-elinks
+   `((find-gitdoc-links ,stem ,@pos-spec-list)
+     (find-gitdoc-links "branch")
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-gitdoc-links)
+     ""
+     (find-git-intro)
+     (code-c-d "gitdoc" "/usr/share/doc/git-doc/")
+     ""
+     ,(ee-template0 "\
+# (find-gitdoc-links               \"{stem}\")
+# (find-es \"git\"               \"git-{stem}\")
+# (find-man                    \"git-{stem}\")
+# (find-man                  \"1 git-{stem}\")
+# (find-gitdocfile             \"git-{stem}.txt\")
+# (find-gitdocfile          \"\" \"git-{stem}.txt\")
+# file:///usr/share/doc/git-doc/git-{stem}.html
+# (find-sh                \"git help {stem}\")
+
+# (find-vldifile \"git-doc.list\")
+# (find-udfile   \"git-doc/\")
+# (find-gitdocfile \"\")
+# (find-gitdocfile \"\" \"gitcore-tutorial.txt\")
+# (find-gitdocfile \"\" \"gittutorial.txt\")
+# (find-gitdocfile \"\" \"revisions.txt\")
+# (find-gitdocfile \"revisions.txt\")
+")
+     )
+   pos-spec-list))
+
+
+
 
 
 (provide 'eev-tlinks)
diff --git a/eev.el b/eev.el
index a30609b6f6..242f65232e 100644
--- a/eev.el
+++ b/eev.el
@@ -1,12 +1,12 @@
 ;;; eev.el --- Support for e-scripts (eepitch blocks, elisp hyperlinks, etc)  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019-2022 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2024 Free Software Foundation, Inc.
 
 ;; Author: Eduardo Ochs <eduardoochs@gmail.com>
 ;; Package-Requires: ((emacs "24.4"))
 ;; Keywords: lisp e-scripts
 ;; URL: http://anggtwu.net/#eev
-;; Version: 20231226
+;; Version: 20240105
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by



reply via email to

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