diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-doc.el | 21 | ||||
| -rw-r--r-- | elisp/geiser-popup.el | 3 |
2 files changed, 15 insertions, 9 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 5684e54..cf7b7a7 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -255,7 +255,6 @@ With prefix argument, ask for symbol (with completion)." (symbol-at-point))))) (when symbol (geiser-doc-symbol symbol)))) - (defun geiser-doc-module (&optional module impl) "Display information about a given module." (interactive) @@ -353,16 +352,24 @@ With prefix, the current page is deleted from history." (defun geiser-doc--visible-p () ) (geiser-menu--defmenu doc geiser-doc-mode-map - ("Next" "\C-c\C-f" geiser-doc-next "Next item" + ("Next page" ("n" "f") geiser-doc-next "Next item" :enable (geiser-doc--history-next-p)) - ("Previous" "\C-c\C-b" geiser-doc-previous "Previous item" + ("Previous page" ("p" "b") geiser-doc-previous "Previous item" :enable (geiser-doc--history-previous-p)) - ("Refresh" "\C-c\C-r" geiser-doc-refresh "Refresh current page") + ("Next link" nil forward-button) + ("Previous link" nil backward-button) + ("Go to REPL" ("z" "\C-cz" "\C-\C-z") switch-to-geiser) + ("Refresh" ("g" "r") geiser-doc-refresh "Refresh current page") + -- + ("Edit symbol" ("." "\M-.") geiser-doc-edit-symbol-at-point + :enable (symbol-at-point)) + -- + ("Kill item" "k" geiser-doc-kill-page "Kill this page") + ("Clear history" "c" geiser-doc-clean-history) -- - ("Kill item" "\C-c\C-k" geiser-doc-kill-page "Kill this page") - ("Clean history" "\C-c\C-c" geiser-doc-clean-history) + (custom "Browser options" geiser-doc) -- - (custom "Browser options" geiser-doc)) + ("Quit" nil View-quit)) (defun geiser-doc-mode () "Major mode for browsing scheme documentation. diff --git a/elisp/geiser-popup.el b/elisp/geiser-popup.el index 35be4f6..a9a7b5f 100644 --- a/elisp/geiser-popup.el +++ b/elisp/geiser-popup.el @@ -16,9 +16,8 @@ (defvar geiser-popup--registry nil) -(defvar geiser-popup--overriding-map +(setq geiser-popup--overriding-map (let ((map (make-sparse-keymap))) - (define-key map "\r" nil) (define-key map "q" 'View-quit) map)) |