branch: externals/eev
commit b57b40de730814469df45c04e0836a6d42f83e5f
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@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 <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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)
