[elpa] externals/eev ae6e35b: Added support for test blocks in js-mode.

[ELPA Syncer]

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

    Added support for test blocks in js-mode.
---
 ChangeLog           |  6 ++++++
 README.org          | 25 +++++++++++++++----------
 VERSION             |  4 ++--
 eev-compose-hash.el | 17 +++++++++++++++--
 eev-intro.el        | 12 ++++++++++++
 eev-testblocks.el   | 14 +++++++++++++-
 eev-tlinks.el       |  9 ++++++++-
 7 files changed, 71 insertions(+), 16 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 31973f1..aa53522 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-09-07  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-testblocks.el (ee-insert-test-js-mode): new function.
+
+       * eev-tlinks.el (find-debpkg-links): added a few more links.
+
 2021-08-22  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (ee-youtubedl-subtitle-p): new function.
diff --git a/README.org b/README.org
index 76c8ae4..dfb37fe 100644
--- a/README.org
+++ b/README.org
@@ -1,15 +1,20 @@
-# (find-eev "README.org")
-# (defun c () (interactive) (eek "C-c C-e h h"))
-# (defun v () (interactive) (brg "~/eev-current/README.html"))
-# (defun e () (interactive) (find-eev "README.org"))
-# (defun m () (interactive) (find-eev "README.md"))
+# This file:
+#   https://github.com/edrx/eev/
+#       http://angg.twu.net/eev-current/README.org.html
+#       http://angg.twu.net/eev-current/README.org
+#               (find-angg "eev-current/README.org")
+#               (find-angg "eev-current/")
+# Author: Eduardo Ochs <eduardoochs@gmail.com>
+# 
+# Some eev-isms:
+# (defun c  () (interactive) (eek "C-c C-e h h"))
+# (defun o  () (interactive) (find-angg "eev-current/README.org"))
+# (defun v  () (interactive) (brg     "~/eev-current/README.html"))
 # (defun cv () (interactive) (c) (v))
-# (find-angg "edrxrepl/README.org")
-# (find-orgsrcfile "README")
-# (find-es "org" "git")
-
+# (find-eev "README.org")
+# 
 # (find-orgnode "Table of Contents")
-#+OPTIONS: toc:nil
+#+OPTIONS: toc:nil num:ni
 
 * Introduction
 
diff --git a/VERSION b/VERSION
index e01abfc..d555104 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Aug 23 02:03:12 GMT 2021
-Sun Aug 22 23:03:12 -03 2021
+Tue Sep  7 23:10:08 GMT 2021
+Tue Sep  7 20:10:08 -03 2021
diff --git a/eev-compose-hash.el b/eev-compose-hash.el
index a0b7f3f..640bb05 100644
--- a/eev-compose-hash.el
+++ b/eev-compose-hash.el
@@ -179,6 +179,14 @@ The default ACTION is (ee-composes-do-default)."
   (if face  (setq ee-composes-current-face (read face)))
   )
 
+(defun ee-composes-do-remove-face ()
+  "Experimental."
+  (if pos   (puthash keys pos  ee-composes-keys-to-pos))
+  (if pos   (eepitch-set-glyph0 (aref pos 0) (aref pos 0) 'default))
+  (if latex (puthash pos latex ee-composes-pos-to-latex))
+  (if face  (setq ee-composes-current-face (read face)))
+  )
+
 (defun ee-composes-do-test ()
   "An alternative action for `ee-composes-do', for tests."
   (insert (format "\n;; %S %S %S / %S" pos keys latex face)))
@@ -422,14 +430,15 @@ instead of inserting."
   ↗ NE \\nearrow
   ↘ SE \\searrow
   ↙ SW \\swarrow
-  ↣ ep \\epito
   ↣ >t \\twoheadrightarrow
+  ↣ ep \\epito
   ↤ mo \\mapsfrom
   ↦ mt \\mapsto
   ⇀ hu \\rightharpoonup
   ⇐ <= \\Leftarrow
   ⇒ => \\funto
   ⇔ LR \\Leftrightarrow
+  ⇝ s> \\squigglyarrow
   ∀ fa \\forall
   ∂ Pa \\partial
   ∃ ex \\exists
@@ -445,8 +454,8 @@ instead of inserting."
   ∩ ca \\cap
   ∪ cu \\cup
   ∫ In \\int
-  ∼ ~1 \\sim
   ∼ 1~ \\sim
+  ∼ ~1 \\sim
   ≃ -~ \\simeq
   ≅ =~ \\cong
   ≈ ~~ \\approx
@@ -569,6 +578,10 @@ instead of inserting."
 ;; (find-estring (ee-composes-to-catcodes))
 ;; (find-estring (ee-composes-to-declareunicodes))
 ;; (define-key eev-mode-map (kbd "M-,") 'ee-compose-pair)
+;;
+;; 2021aug31:
+;;   (ee-composes-do ee-composes-bigstr-math '(ee-composes-do-remove-face))
+;;   (ee-composes-do ee-composes-bigstr-math)
 
 
 
diff --git a/eev-intro.el b/eev-intro.el
index d3533d3..c59dc16 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -12882,6 +12882,11 @@ This intro is a very quick introduction to Emacs Lisp. 
Its intent
 is not to teach people how to _write_ Elisp code, only to teach
 them how to _read_ Elisp code.
 
+Different people prefer different kinds of tutorials.
+Many people love the eintr, but I don't: (find-node \"(eintr)Top\")
+This tutorial here is what I would have liked to have had access to
+when I started learning Emacs Lisp.
+
 TODO: integrate this with these older intros:
   (find-eval-intro)
   (find-defun-intro)
@@ -13460,6 +13465,13 @@ will give you information about the current definition.
 
 
 
+
+12. Some advanced topics
+========================
+See: (find-lexical-intro)
+
+
+
 " pos-spec-list)))
 
 ;; (find-elisp-intro)
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 52a10c5..e123645 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20210419
+;; Version:    20210907
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-testblocks.el>
@@ -89,6 +89,18 @@
 -}
 " (buffer-name))))
 
+(defun ee-insert-test-js-mode ()
+  (interactive)
+  (insert (format "
+/*
+ (eepitch-nodejs)
+ (eepitch-kill)
+ (eepitch-nodejs)
+require(\"./%s\")
+
+*/
+" (buffer-name))))
+
 (defun ee-insert-test-julia-mode ()
   (interactive)
   (insert (format "
diff --git a/eev-tlinks.el b/eev-tlinks.el
index c4e2577..3538be1 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -592,6 +592,9 @@ This is an internal function used by `find-debpkg-links'."
   (if (string-match "^\\(lib\\)?." pkgname)
       (match-string 0 pkgname)))
 
+;; Tests: (find-debpkg-links "bash")
+;;        (find-debpkg-links "libicu")
+;;
 (defun find-debpkg-links (&optional pkgname &rest rest)
   "Visit a temporary buffer containing hyperlinks related to a Debian package.
 Try this: (find-debpkg-links \"bash\")"
@@ -610,9 +613,13 @@ Try this: (find-debpkg-links \"bash\")"
       ,(ee-template0 "\
 {ee-H}(find-sh \"apt-file search {pkgname}\")
 {ee-H}(find-sh \"apt-cache dump | grep-dctrl -P {pkgname}\")
-{ee-H}(find-sh \"apt-cache search {pkgname} | sort\")
 {ee-H}(find-sh \"apt-cache showpkg {pkgname}\")
+{ee-H}(find-sh \"apt-cache search {pkgname} | sort\")
+{ee-H}(find-sh \"apt-cache search '{pkgname}*' | sort\")
+{ee-H}(find-sh \"apt search '{pkgname}*'\")
+{ee-H}(find-sh \"apt search '{pkgname}*' 2> /dev/null\")
 {ee-H}(find-sh \"grep-aptavail -P {pkgname}\")
+{ee-H}(find-sh \"dpkg-query -W '{pkgname}*'\")
 
 http://packages.debian.org/{pkgname}
 http://packages.debian.org/sid/{pkgname}