From ebdd1923b0780778706ea6b16aa2b0ce3e7dc33d Mon Sep 17 00:00:00 2001 From: gemmaro Date: Fri, 12 Jul 2024 21:01:37 +0900 Subject: 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. --- geiser-guile.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3