[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
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev 2e57f21bc1: Small changes in (find-git-intro); added (find-gitdoc-links).,
ELPA Syncer <=