diff options
| author | gemmaro <gemmaro.dev@gmail.com> | 2024-07-12 21:01:37 +0900 |
|---|---|---|
| committer | gemmaro <gemmaro.dev@gmail.com> | 2024-07-12 21:02:35 +0900 |
| commit | ebdd1923b0780778706ea6b16aa2b0ce3e7dc33d (patch) | |
| tree | e02ef1d8efb7414920f64c827039af6f4f07014f | |
| parent | d5175439c01b177d4f27686e5d6dfdae0505ee1f (diff) | |
| download | geiser-guile-ebdd1923b0780778706ea6b16aa2b0ce3e7dc33d.tar.gz geiser-guile-ebdd1923b0780778706ea6b16aa2b0ce3e7dc33d.tar.bz2 | |
Add info index nodes customization.
* geiser-guile.el (geiser-guile-manual-lookup-indices): Add a custom
variable to add user defined index nodes.
(geiser-guile--info-spec): Use the newly added custom variable.
| -rw-r--r-- | geiser-guile.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/geiser-guile.el b/geiser-guile.el index a282fa3..8827b42 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -169,6 +169,11 @@ effect on new REPLs. For existing ones, use the command "List of info nodes that, when present, are used for manual lookups." :type '(repeat string)) +(geiser-custom--defcustom geiser-guile-manual-lookup-indices + '("R5RS Index" "Concept Index" "Procedure Index" "Variable Index") + "List of info index nodes that, when present, are used for manual lookups." + :type '(repeat string)) + (geiser-custom--defcustom geiser-guile-doc-process-texinfo nil "Non-nil means try to convert docstrings from texinfo into plain-text. @@ -658,7 +663,7 @@ See `geiser-guile-use-declarative-modules'." (mapc (lambda (idx) (add-to-list 'res (list (format "(%s)%s" node idx) nil nrx drx))) - '("R5RS Index" "Concept Index" "Procedure Index" "Variable Index")))))) + geiser-guile-manual-lookup-indices))))) (info-lookup-add-help :topic 'symbol :mode 'geiser-guile-mode |