diff options
| -rw-r--r-- | elisp/geiser-autodoc.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-mode.el | 10 | ||||
| -rw-r--r-- | elisp/geiser.el | 8 | ||||
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 4 |
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)) |