branch: externals/eev
commit a0bc909a2dde5858f289449d9a755a08b8284ebf
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added a new video: (find-2022pict2eluavideo).
---
ChangeLog | 12 ++++++++++++
VERSION | 4 ++--
eev-hlinks.el | 22 ++++++++++++++++------
eev-intro.el | 7 +++----
eev-videolinks.el | 27 ++++++++++++++++++++++++++-
5 files changed, 59 insertions(+), 13 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 526ef6b598..6da1738cf2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2022-04-19 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-videolinks.el (ee-1stclassvideos-info): added
+ "2022pict2elua".
+ (find-2022pict2eluavideo): new function.
+
+2022-04-17 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-hlinks.el (ee-find-efunctiondescr-links)
+ (ee-find-evardescr-links, ee-find-efacedescr-links)
+ (ee-find-man-links, ee-find-custom-links): added non-eev links.
+
2022-04-16 Eduardo Ochs <eduardoo...@gmail.com>
* eev-wconfig.el: new file.
diff --git a/VERSION b/VERSION
index 15bdb63af5..d58e87356b 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Apr 16 08:39:20 GMT 2022
-Sat Apr 16 05:39:20 -03 2022
+Tue Apr 19 21:12:46 GMT 2022
+Tue Apr 19 18:12:46 -03 2022
diff --git a/eev-hlinks.el b/eev-hlinks.el
index b2d6c8e3e6..135d000f38 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220412
+;; Version: 20220417
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -386,7 +386,9 @@ the \"*(find-here-links)*\" buffer."
(let ((f (ee-efunctiondescr-bufferp)))
`((find-efunction-links ',f)
(find-efunctiondescr ',f)
- (find-efunction ',f))))
+ (find-efunction ',f)
+ (describe-function ',f)
+ )))
(defvar ee-evardescr-re "^\\([^ \t\n]+\\) is a variable")
(defun ee-evardescr-bufferp () (ee-buffer-help ee-evardescr-re 1))
@@ -394,14 +396,18 @@ the \"*(find-here-links)*\" buffer."
(let ((v (ee-evardescr-bufferp)))
`((find-evariable-links ',v)
(find-evardescr ',v)
- (find-evariable ',v))))
+ (find-evariable ',v)
+ (describe-variable ',v)
+ )))
(defvar ee-efacedescr-re "^Face: \\([^ \t\n]+\\)")
(defun ee-efacedescr-bufferp () (ee-buffer-help ee-efacedescr-re 1))
(defun ee-find-efacedescr-links ()
(let ((f (ee-efacedescr-bufferp)))
`((find-eface-links ',f)
- (find-efacedescr ',f))))
+ (find-efacedescr ',f)
+ (describe-face ',f)
+ )))
(defvar ee-epackage-re "^\\([^ \t\n]+\\) is a[ -~]+ package")
(defvar ee-epackage-re-27 "^Package \\([^ \t\n]+\\) is") ; for Emacs 27
@@ -416,13 +422,17 @@ the \"*(find-here-links)*\" buffer."
(defvar ee-man-re "^\\*Man \\(.*\\)\\*$")
(defun ee-find-man-links ()
(let ((mp (ee-buffer-re ee-man-re)))
- `((find-man ,mp))))
+ `((find-man ,mp)
+ (man ,mp)
+ )))
(defvar ee-custom-re "^\\*Customize Group: \\(.*\\)\\*$")
(defun ee-find-custom-links ()
(let* ((name (ee-buffer-re ee-custom-re))
(symbol (intern (downcase (replace-regexp-in-string " " "-" name)))))
- `((find-customizegroup ',symbol))))
+ `((find-customizegroup ',symbol)
+ (customize-group ',symbol)
+ )))
;; Other cases
(defun ee-file-bufferp () buffer-file-name)
diff --git a/eev-intro.el b/eev-intro.el
index 5cc004fda9..07d7d43c25 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -13606,10 +13606,9 @@ Version of these instructions: 2021nov13.
Read the README below and then install Emacs using either the
link to the .exe or the link to the .zip:
-http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/
-http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/README-windows-binaries
-http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15-installer.exe
-http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15.zip
+https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/
+https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/README-windows-binaries
+https://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.92-installer.exe
You may need to create a desktop icon or shortcut to
<emacsdir>/bin/runemacs.exe.
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 5345445fdc..f19735f004 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220218
+;; Version: 20220419
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -63,6 +63,7 @@
;; «.find-2022eevmake0video» (to "find-2022eevmake0video")
;; «.find-2022findeevanggvideo» (to "find-2022findeevanggvideo")
;; «.find-2022findelispintrovideo» (to "find-2022findelispintrovideo")
+;; «.find-2022pict2eluavideo» (to "find-2022pict2eluavideo")
;; «.more-info» (to "more-info")
;; «.ee-1stclassvideos-info» (to "ee-1stclassvideos-info")
;; «.eev2019» (to "eev2019")
@@ -88,6 +89,7 @@
;; «.2022eevmake0» (to "2022eevmake0")
;; «.2022findeevangg» (to "2022findeevangg")
;; «.2022findelispintro» (to "2022findelispintro")
+;; «.2022pict2elua» (to "2022pict2elua")
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -549,6 +551,16 @@ For more info on this particular video, run:
(interactive)
(find-eev-video "2022-find-elisp-intro" "WowDSciGs1A" time))
+;; «find-2022pict2eluavideo» (to ".find-2022pict2eluavideo")
+;; Info: (find-1stclassvideo-links "2022pict2elua")
+;; Play: (find-2022pict2eluavideo "0:00")
+(defun find-2022pict2eluavideo (&optional time &rest rest)
+ "Play one of the first-class videos of eev starting at TIME.
+For more info on this particular video, run:
+ (find-1stclassvideo-links \"2022pict2elua\")"
+ (interactive)
+ (find-eev-video "2022-pict2e-lua" "hiHsUhGVLGM" time))
+
@@ -862,6 +874,19 @@ For more info on this particular video, run:
:date "2022jan23"
:length "21:12"
:comment "A very good video on the design decisions behind
`(find-elisp-intro)'.")
+ ;;
+ ;; «2022pict2elua» (to ".2022pict2elua")
+ ;; Play: (find-2022pict2eluavideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2022pict2elua")
+ ("2022pict2elua"
+ :title "Pict2e-lua: a library for diagrams that is being developed with
eev and test blocks"
+ :mp4 "http://angg.twu.net/eev-videos/2022-pict2e-lua.mp4";
+ :yt "http://www.youtube.com/watch?v=hiHsUhGVLGM";
+ :page "http://angg.twu.net/pict2e-lua.html";
+ :date "2022apr18"
+ :length "8:13"
+ :comment "A very good demo of test blocks.")
+ ;;
))
