[elpa] externals/eev b57b40de73: Added more support for customize.

[ELPA Syncer]

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

    Added more support for customize.
---
 ChangeLog     | 20 ++++++++++++++++++++
 VERSION       |  4 ++--
 eev-blinks.el | 30 ++++++++++++++++++++++++++++--
 eev-hlinks.el | 40 ++++++++++++++++++++++++++++++++++++----
 4 files changed, 86 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e23eb03d21..bb0c54f4b2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,25 @@
+2022-05-02  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-customizeoption): new function.
+       (find-customizevariable): new function.
+       (find-customizeapropos): new function.
+       (find-customizeface): new function.
+
+       * eev-hlinks.el (ee-find-custom-f-links): new function.
+       (ee-find-custom-v-links): new function.
+       (ee-custom-f-re): new variable.
+       (ee-custom-v-re): new variable.
+       (ee-custom-f-bufferp): new function.
+       (ee-custom-v-bufferp): new function.
+       (ee-custom-bufferp): use `ee-custom-re' instead of the major mode.
+       (ee-fhl-main-program): added `(:if (ee-custom-v-bufferp) ...)'.
+       (ee-fhl-main-program): added `(:if (ee-custom-f-bufferp) ...)'.
+
 2022-05-01  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-hlinks.el (ee-custom-lispify-tag-name): new function.
+       (ee-find-custom-links): use `ee-custom-lispify-tag-name'.
+
        * eev-tlinks.el (find-wgeteevsubtitles-links)
        (ee-wgeteevsubtitles-cmds): new functions.
        (ee-1stclassvideos-dlsubs): new function.
diff --git a/VERSION b/VERSION
index 6142d0d337..0008e3c485 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun May  1 06:56:03 GMT 2022
-Sun May  1 03:56:03 -03 2022
+Mon May  2 04:14:55 GMT 2022
+Mon May  2 01:14:55 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index 256210c992..87635dbe27 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220317
+;; Version:    20220502
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -332,7 +332,11 @@ then go to the position specified by POS-SPEC-LIST.\n
   (apply 'find-wottb-call '(disassemble function) "*Disassemble*"
         pos-spec-list))
 
-;; Test: (find-customizegroup 'processes)
+;; Tests: (find-customizegroup    'processes)
+;;        (find-customizeoption   'fill-column)
+;;        (find-customizevariable 'fill-column)
+;;        (find-customizeapropos  "subed")
+;;        (find-customizeface     'font-lock-comment-face)
 ;;
 (defun find-customizegroup (group &rest pos-spec-list)
   "Hyperlink to the result of running `customize-group' on GROUP."
@@ -345,6 +349,28 @@ then go to the position specified by POS-SPEC-LIST.\n
         (format "*Customize Group: %s*" (custom-unlispify-tag-name group))
         pos-spec-list))
 
+(defun find-customizeoption (symbol &rest rest)
+  "Hyperlink to the result of running `customize-option' on SYMBOL."
+  (interactive (custom-variable-prompt))
+  (apply 'find-dbsw-call `(customize-option ',symbol) rest))
+
+(defun find-customizevariable (symbol &rest rest)
+  "Hyperlink to the result of running `customize-variable' on SYMBOL."
+  (interactive (custom-variable-prompt))
+  (apply 'find-dbsw-call `(customize-variable ',symbol) rest))
+
+(defun find-customizeapropos (pattern &optional type &rest rest)
+  "Hyperlink to the result of running `customize-apropos' on PATTERN."
+  (interactive (list (apropos-read-pattern "symbol") nil))
+  (apply 'find-dbsw-call `(customize-apropos pattern type) rest))
+
+(defun find-customizeface (face &rest rest)
+  "Hyperlink to the result of running `customize-face' on PATTERN."
+  (interactive (list (read-face-name
+                     "Customize face"
+                      (or (face-at-point t t) "all faces") t)))
+  (apply 'find-dbsw-call `(customize-face face) rest))
+
 ;; Tests: (find-epackages nil "\n  0x0 ")
 ;;        (find-epackages t   "\n  0x0 ")
 ;;
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 135d000f38..06a839ab95 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220417
+;; Version:    20220502
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -199,7 +199,6 @@ the \"*(find-here-links)*\" buffer."
    (:if (ee-w3m-bufferp)       (ee-find-w3m-links))
    (:if (ee-dired-bufferp)     (ee-find-file-links))
    (:if (ee-wdired-bufferp)    (ee-find-file-links))
-   (:if (ee-custom-bufferp)    (ee-find-custom-links))
    (:if (ee-epackages-bufferp) (ee-find-epackages-links))
    (:if (ee-osm-bufferp)       (ee-find-osm-links))
    (:if (ee-helpful-bufferp)   (ee-find-helpful-links))
@@ -207,6 +206,9 @@ the \"*(find-here-links)*\" buffer."
    ;;
    ;; By buffer name:
    (:if (ee-intro-bufferp)     (ee-find-intro-links))
+   (:if (ee-custom-bufferp)    (ee-find-custom-links))
+   (:if (ee-custom-f-bufferp)  (ee-find-custom-f-links))
+   (:if (ee-custom-v-bufferp)  (ee-find-custom-v-links))
    (:if (ee-freenode-bufferp)  (ee-find-freenode-links))
    (:if (ee-ecolors-bufferp)   (ee-find-ecolors-links))
    (:if (ee-efaces-bufferp)    (ee-find-efaces-links))
@@ -340,6 +342,13 @@ the \"*(find-here-links)*\" buffer."
 
 (defun ee-buffer-help (re n) (intern (or (ee-buffer-help-re0 re n) "nil")))
 
+;; Tests: (custom-unlispify-tag-name  'foo-bar)
+;;        (ee-custom-lispify-tag-name "Foo Bar")
+(defun ee-custom-lispify-tag-name (str)
+  "Do the inverse of `custom-unlispify-tag-name'."
+  (intern (downcase (replace-regexp-in-string " " "-" str))))
+
+
 
 ;;;  _____         _                         _   _ _       _        
 ;;; |_   _|__  ___| |_ ___    __ _ _ __   __| | | (_)_ __ | | _____ 
@@ -365,7 +374,7 @@ the \"*(find-here-links)*\" buffer."
 (defun ee-wdired-bufferp    () (eq major-mode 'wdired-mode))
 (defun ee-eww-bufferp       () (eq major-mode 'eww-mode))
 (defun ee-w3m-bufferp       () (eq major-mode 'w3m-mode))
-(defun ee-custom-bufferp    () (eq major-mode 'Custom-mode))
+;; (defun ee-custom-bufferp () (eq major-mode 'Custom-mode))
 (defun ee-epackages-bufferp () (eq major-mode 'package-menu-mode))
 (defun ee-osm-bufferp       () (eq major-mode 'osm-mode))
 (defun ee-helpful-bufferp   () (eq major-mode 'helpful-mode))
@@ -377,6 +386,9 @@ the \"*(find-here-links)*\" buffer."
 (defun ee-ecolors-bufferp  () (ee-buffer-eq "*Colors*"))
 (defun ee-efaces-bufferp   () (ee-buffer-eq "*Faces*"))
 (defun ee-pdftext-bufferp  () (ee-buffer-re "^pdftotext"))
+(defun ee-custom-bufferp   () (ee-buffer-re ee-custom-re))
+(defun ee-custom-f-bufferp () (ee-buffer-re ee-custom-f-re))
+(defun ee-custom-v-bufferp () (ee-buffer-re ee-custom-v-re))
 
 ;; By buffer name (when it is "*Help*")
 (defvar ee-efunctiondescr-re
@@ -429,11 +441,31 @@ the \"*(find-here-links)*\" buffer."
 (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)))))
+        (symbol (ee-custom-lispify-tag-name name)))
     `((find-customizegroup ',symbol)
       (customize-group ',symbol)
       )))
 
+(defvar ee-custom-f-re "^\\*Customize Face: \\(.*\\)\\*$")
+(defun  ee-find-custom-f-links () 
+  (let* ((name   (ee-buffer-re ee-custom-f-re))
+        (symbol (ee-custom-lispify-tag-name name)))
+    `((find-eface-links ',symbol)
+      (find-customizeface ',symbol)
+      (customize-face ',symbol)
+      )))
+
+(defvar ee-custom-v-re "^\\*Customize Option: \\(.*\\)\\*$")
+(defun  ee-find-custom-v-links () 
+  (let* ((name   (ee-buffer-re ee-custom-v-re))
+        (symbol (ee-custom-lispify-tag-name name)))
+    `((find-evariable-links ',symbol)
+      (find-customizeoption ',symbol)
+      (find-customizevariable ',symbol)
+      (customize-option ',symbol)
+      (customize-variable ',symbol)
+      )))
+
 ;; Other cases
 (defun ee-file-bufferp     () buffer-file-name)