[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 3618844 210/284: Guile: button for texinfo lo
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 3618844 210/284: Guile: button for texinfo lookup in doc browser |
Date: |
Sun, 1 Aug 2021 18:29:46 -0400 (EDT) |
branch: elpa/geiser-guile
commit 3618844e887e3f7388e07f9b77f033f414d76bfd
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: button for texinfo lookup in doc browser
---
elisp/geiser-guile.el | 28 +++++++++++++++++++++++++++-
1 file changed, 27 insertions(+), 1 deletion(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 35548f3..fe32acd 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -20,6 +20,7 @@
(require 'geiser)
(require 'compile)
+(require 'info-look)
;;; Customization:
@@ -92,6 +93,11 @@ effect on new REPLs. For existing ones, use the command
:type '(repeat string)
:group 'geiser-guile)
+(geiser-custom--defcustom geiser-guile-manual-lookup-other-window-p nil
+ "Non-nil means pop up the Info buffer in another window."
+ :type 'boolean
+ :group 'geiser-guile)
+
;;; REPL support:
@@ -279,6 +285,26 @@ it spawn a server thread."
(geiser-guile-update-warning-level))
+;;; Manual lookup
+(info-lookup-add-help :topic 'symbol :mode 'geiser-guile-mode
+ :ignore-case nil
+ :regexp "[^()`',\" \n]+"
+ :doc-spec
+ '(("(r5rs)Index" nil "^[ ]+-+ [^:]+:[ ]*"
"\\b")
+ ("(Guile)R5RS Index" nil "^ - [^:]+: " "\\b")
+ ("(Guile)Procedure Index" nil "^ - [^:]+: " "\\b")
+ ("(Guile)Variable Index" nil "^ - [^:]+: " "\\b")))
+
+(defun guile--manual-look-up (id mod)
+ (let ((info-lookup-other-window-flag
+ geiser-guile-manual-lookup-other-window-p))
+ (info-lookup-symbol id 'geiser-guile-mode))
+ (when geiser-guile-manual-lookup-other-window-p
+ (switch-to-buffer-other-window "*info*"))
+ (search-forward (format "%s" id) nil t))
+
+
+
;;; Implementation definition:
(define-geiser-implementation guile
@@ -295,7 +321,7 @@ it spawn a server thread."
(import-command geiser-guile--import-command)
(find-symbol-begin geiser-guile--symbol-begin)
(display-error geiser-guile--display-error)
- (display-help)
+ (external-help guile--manual-look-up)
(check-buffer geiser-guile--guess)
(keywords geiser-guile--keywords))
- [nongnu] elpa/geiser-guile 7b0d68b 117/284: Guile: better stack traces (using start-stack to delimit them)., (continued)
- [nongnu] elpa/geiser-guile 7b0d68b 117/284: Guile: better stack traces (using start-stack to delimit them)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9b414b4 120/284: Missing entries in scheme/Makefile.am added., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 044c88e 134/284: Guile: small tweak., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile aaa22fb 136/284: Guile: showing again submodules in module documentation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3c5cf80 149/284: Guile: better formatting of autodoc's variable values., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c732ede 141/284: Guile: no need to de-mangling autodoc args anymore., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6048041 173/284: Fix for the fix, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ce57385 188/284: Guile: shorten a bit more multi-line sexps sent to REPL, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3bb3672 200/284: Better EOT token for more robust communication, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9c08f27 203/284: Make do with a single connection, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3618844 210/284: Guile: button for texinfo lookup in doc browser,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 420a8c4 222/284: Guile: setting *current-warning-prefix* during evaluation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4c02219 227/284: Guile: capturing output to standard error, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 09e2247 230/284: Little clean-ups to the indentation rules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile af0122c 238/284: Fix: not using mapcar for effect, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7d17a3c 236/284: Guile: augmenting %load-compiled-path too, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 08d4524 252/284: Use OS-specific quotes when asking for versions, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3ba4ad4 242/284: Guile: font lock for all components of module names, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile cf8498d 219/284: Guile: 'format' added to the warning list, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 55efccc 226/284: Guile: deprecated format usage eliminated, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 51b62a7 248/284: Add 'geiser-guile--builtin-keywords', Philip Kaludercic, 2021/08/01