summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-autodoc.el2
-rw-r--r--elisp/geiser-mode.el10
-rw-r--r--elisp/geiser.el8
-rw-r--r--scheme/guile/geiser/doc.scm4
4 files changed, 20 insertions, 4 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index da635cb..6565d88 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -54,7 +54,7 @@
'font-lock-keyword-face
geiser-autodoc "highlighting #:key marker in autodoc messages")
-(defcustom geiser-autodoc-delay 0.2
+(defcustom geiser-autodoc-delay 0.3
"Delay before autodoc messages are fetched and displayed, in seconds."
:type 'number
:group 'geiser-autodoc)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 855f071..f85b530 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -158,6 +158,16 @@ interacting with the Geiser REPL is at your disposal.
(when geiser-mode-autodoc-p (geiser-autodoc-mode geiser-mode))
(when geiser-mode-smart-tab-p (geiser-smart-tab-mode geiser-mode)))
+(defun turn-on-geiser-mode ()
+ "Enable `geiser-mode' (in a Scheme buffer)."
+ (interactive)
+ (geiser-mode 1))
+
+(defun turn-off-geiser-mode ()
+ "Disable `geiser-mode' (in a Scheme buffer)."
+ (interactive)
+ (geiser-mode -1))
+
;;; Keys:
diff --git a/elisp/geiser.el b/elisp/geiser.el
index ea41779..8a62ea5 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -57,6 +57,12 @@
(autoload 'geiser-mode "geiser-mode.el"
"Minor mode adding Geiser REPL interaction to Scheme buffers." t)
+(autoload 'turn-on-geiser-mode "geiser-mode.el"
+ "Enable Geiser's mode (useful in Scheme buffers)." t)
+
+(autoload 'turn-off-geiser-mode "geiser-mode.el"
+ "Disable Geiser's mode (useful in Scheme buffers)." t)
+
(mapc (lambda (group)
(custom-add-load group (symbol-name group))
(custom-add-load 'geiser (symbol-name group)))
@@ -67,7 +73,7 @@
(defun geiser-setup-scheme-mode ()
(eval-after-load "scheme"
- '(add-hook 'scheme-mode-hook (lambda () (interactive) (geiser-mode 1)))))
+ '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode)))
(defun geiser-setup ()
(geiser-setup-scheme-mode))
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index f655fd6..578e6a3 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/geiser/doc.scm
@@ -138,8 +138,8 @@
(let* ((letts (list->vector '(#\x #\y #\z #\u #\v #\w #\t)))
(len (vector-length letts))
(lett (lambda (n) (vector-ref letts (modulo n len)))))
- (map (lambda (n) (string->symbol (format "~A" (lett (+ fst n -1)))))
- (iota (max count 1)))))
+ (map (lambda (n) (string->symbol (format "~A" (lett (- n 1)))))
+ (iota (max count 1) fst))))
(define (arglist->args arglist)
`((required . ,(car arglist))