[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 10a6a09a5e 4/4: Merge branch 'UTF-8'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eev 10a6a09a5e 4/4: Merge branch 'UTF-8' |
Date: |
Mon, 7 Nov 2022 23:57:40 -0500 (EST) |
branch: externals/eev
commit 10a6a09a5e10efc3cf1d17bfebf2728f6b5c2c65
Merge: cfdb7eaa12 7d12683d6e
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Merge branch 'UTF-8'
---
ChangeLog | 23 +++++++++++++++++++++++
VERSION | 5 +++++
eev-pdflike.el | 7 ++++++-
eev-plinks.el | 8 ++++++++
eev-rstdoc.el | 15 +++++++++------
eev-tlinks.el | 12 +++++++-----
eev-videolinks.el | 29 ++++++++++++++++++++++++++++-
eev.el | 2 +-
8 files changed, 87 insertions(+), 14 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 6cd1764b6d..ea8b8c7c25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,26 @@
+<<<<<<< HEAD
+=======
+2022-11-08 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-videolinks.el (ee-1stclassvideos-info): added an indication
+ that the video "2022tikz" has subtitles.
+
+2022-11-07 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-videolinks.el (find-2022tikzvideo): new function.
+ (ee-1stclassvideos-info): added an entry for "2022tikz".
+
+2022-11-05 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-videolinks.el (ee-1stclassvideos-info): added an indication
+ that the video "oficina2021a" has subtitles.
+
+2022-11-02 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-rstdoc.el (ee-code-rstdoc): made some functions interactive.
+ (ee-rstdoc-rst): fixed the behavior when str is nil.
+
+>>>>>>> UTF-8
2022-11-01 Eduardo Ochs <eduardoochs@gmail.com>
* eepitch.el (eepitch-php): new function.
diff --git a/VERSION b/VERSION
index 7eaec550db..391d20a743 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,7 @@
+<<<<<<< HEAD
Tue Nov 1 07:32:45 GMT 2022
Tue Nov 1 04:32:45 -03 2022
+=======
+Tue Nov 8 04:36:40 GMT 2022
+Tue Nov 8 01:36:40 -03 2022
+>>>>>>> UTF-8
diff --git a/eev-pdflike.el b/eev-pdflike.el
index cf1952d3dc..1cb363073d 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -202,7 +202,10 @@
;; Autoloads for external functions.
;; See: (find-elnode "Autoload")
-(autoload 'pdf-loader-install "pdf-tools")
+;; See also my temporary hack in:
+;; (find-eev "eev-pdflike.el" "find-pdftools-page")
+;; (find-eev "eev-pdflike.el" "find-pdftools-page" "require")
+;;(autoload 'pdf-loader-install "pdf-tools")
@@ -802,6 +805,8 @@ current page."
;; (find-efunction 'pdf-tools-install)
;;
;; Old way: (pdf-tools-install)
+ (require 'pdf-tools)
+ (require 'pdf-loader)
(pdf-loader-install)
;;
;; Open PDFFILE. You will get weird results if it is not a PDF.
diff --git a/eev-plinks.el b/eev-plinks.el
index 9ced6eb216..2bd4932158 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -113,6 +113,8 @@
;; «.find-urlretrieve» (to "find-urlretrieve")
;; «.find-wget» (to "find-wget")
+;; «.find-anggwget» (to "find-anggwget")
+;; «.find-anggwgeta» (to "find-anggwgeta")
;; «.find-gitk» (to "find-gitk")
;; «.find-tkdiff» (to "find-tkdiff")
;; «.find-osm» (to "find-osm")
@@ -415,6 +417,12 @@ If wget can't download URL then this function runs
`error'."
;; (find-wget "http://angg.twu.net/eev-current/DOESNOTEXIST")
;; (find-wget-elisp "http://angg.twu.net/eev-current/eev-plinks.el"
"find-wget")
;; (find-wgeta-elisp "http://angg.twu.net/eev-current/eev-plinks.el"
"find-wget")
+;;
+;; «find-anggwget» (to ".find-anggwget")
+;; «find-anggwgeta» (to ".find-anggwgeta")
+;; See: (find-2022findeevanggvideo "10:54" "Let me now show something else.")
+;; (find-2022findeevanggvideo "11:30" "(find-angg-es-links)")
+;; (find-angg-es-links)
(defun find-anggwget (fname &rest pos-spec-list)
"See `find-wget' and this: (find-angg-es-links)"
diff --git a/eev-rstdoc.el b/eev-rstdoc.el
index 031b71b234..a859eb4e94 100644
--- a/eev-rstdoc.el
+++ b/eev-rstdoc.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20221009
+;; Version: 20221102
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-rstdoc.el>
@@ -371,11 +371,11 @@
(defun ee-rstdoc-rst (kw &optional str)
(if (not str)
- (setq str (ee-rstdoc-getfield kw :base)))
- (format "%s%s%s"
- (ee-rstdoc-getfield kw :base-rst)
- (ee-rstdoc-stem kw str)
- (ee-rstdoc-getfield kw :rst)))
+ (ee-rstdoc-getfield kw :base-rst)
+ (format "%s%s%s"
+ (ee-rstdoc-getfield kw :base-rst)
+ (ee-rstdoc-stem kw str)
+ (ee-rstdoc-getfield kw :rst))))
;; «around-point» (to ".around-point")
@@ -446,16 +446,19 @@
(defun find-{c}doc (&optional str &rest rest)
\"Open the local html page associated to the rstdoc STR.
This function uses the data in `{var}' to transform STR.\"
+ (interactive)
(ee-rstdoc-browse-url (ee-rstdoc-html {kw} str)))
(defun find-{c}docw (&optional str &rest rest)
\"Open the remote html page associated to the rstdoc STR.
This function uses the data in `{var}' to transform STR.\"
+ (interactive)
(ee-rstdoc-browse-url (ee-rstdoc-web {kw} str)))
(defun find-{c}docr (&optional str &rest rest)
\"Open the local .rst.txt file associated to the rstdoc STR
This function uses the data in `{var}' to transform STR.\"
+ (interactive)
(apply 'find-fline (ee-rstdoc-rst {kw} str) rest))
(code-c-d \"{c}docr\" \"{base-rst}\")
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 12dc554f17..d540693d6e 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -3007,12 +3007,13 @@ This function is used by `ee-0x0-upload-region'."
-;; To make eepitch blocks use the red bullets by default,
-;; add this block to your ~/.emacs. Note that this will make
-;; bullets appear in red in other places too, like in info manuals -
-;; for example here: (find-enode \"Using Region\")
-;; See: (find-red-star-links)
+;; To make eepitch blocks use red bullets by default, add the
+;; block below to your ~/.emacs (including the line with the
+;; \"See:\"). Note that this will make bullets appear in red in
+;; other places too, like in info manuals - for example here:
+;; (find-enode \"Using Region\")
;;
+;; See: (find-red-star-links)
\(eepitch-set-glyph0 ?• ?• 'eepitch-star-face)
\(defun ee-adjust-red-stars (str) (replace-regexp-in-string \"\" \"•\" str))
@@ -3056,6 +3057,7 @@ This function is used by `ee-0x0-upload-region'."
;; «find-angg-es-links» (to ".find-angg-es-links")
;; Skel: (find-find-links-links-new "angg-es" "" "")
;; Test: (find-angg-es-links)
+;; See: http://angg.twu.net/eev-find-angg.html
;;
(defun find-angg-es-links (&rest pos-spec-list)
"Show an e-script for configuring `find-angg' and `find-es'."
diff --git a/eev-videolinks.el b/eev-videolinks.el
index d07e0abb9a..5d1b7ad021 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 2022oct21
+;; Version: 20221107
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -68,6 +68,7 @@
;; «.find-2022eevwconfigpt2video» (to "find-2022eevwconfigpt2video")
;; «.find-2022eevwconfigvideo» (to "find-2022eevwconfigvideo")
;; «.find-2022yttranscriptvideo» (to "find-2022yttranscriptvideo")
+;; «.find-2022tikzvideo» (to "find-2022tikzvideo")
;; «.more-info» (to "more-info")
;; «.ee-1stclassvideos-info» (to "ee-1stclassvideos-info")
;; «.eev2019» (to "eev2019")
@@ -98,6 +99,7 @@
;; «.2022eevwconfigpt2» (to "2022eevwconfigpt2")
;; «.2022eevwconfig» (to "2022eevwconfig")
;; «.2022yttranscript» (to "2022yttranscript")
+;; «.2022tikz» (to "2022tikz")
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -618,6 +620,16 @@ For more info on this particular video, run:
(interactive)
(find-1stclassvideo-video "2022yttranscript" time))
+;; «find-2022tikzvideo» (to ".find-2022tikzvideo")
+;; Info: (find-1stclassvideo-links "2022tikz")
+;; Play: (find-2022tikzvideo "0:00")
+(defun find-2022tikzvideo (&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 \"2022tikz\")"
+ (interactive)
+ (find-1stclassvideo-video "2022tikz" time))
+
@@ -780,6 +792,7 @@ For more info on this particular video, run:
:yt "http://www.youtube.com/watch?v=acFPMuZ5Jf4"
:page "http://angg.twu.net/2021-oficina.html"
:lang "portuguese"
+ :subs ".vtt"
:date "2021nov05"
:length "14:58"
:comment "A very good introduction in Portuguese for beginners.")
@@ -1006,6 +1019,20 @@ For more info on this particular video, run:
:length "28:28"
:comment "A video about `find-yttranscript-links'.")
;;
+ ;; «2022tikz» (to ".2022tikz")
+ ;; Play: (find-2022tikzvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2022tikz")
+ ("2022tikz"
+ :title "Eev and TikZ, or: how to learn TikZ using a REPL"
+ :mp4 "http://angg.twu.net/eev-videos/2022-eev-tikz.mp4"
+ :yt "http://www.youtube.com/watch?v=d7nIzpXcV6c"
+ :page "http://angg.twu.net/eev-tikz.html"
+ :lang "portuguese"
+ :date "2022nov02"
+ :subs ".vtt"
+ :length "1:36:27"
+ :comment "A way to learn TikZ using examples from the manual.")
+ ;;
))
diff --git a/eev.el b/eev.el
index ed95725dfe..c073e6e354 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
;; Package-Requires: ((emacs "24.4"))
;; Keywords: lisp e-scripts
;; URL: http://angg.twu.net/#eev
-;; Version: 20221015
+;; Version: 20221108
;; 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