summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 22:31:13 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 22:31:13 +0200
commit3114e4208dd63bde3f978cae581503a70217db63 (patch)
tree1c2b9b5b9d6f46198fef44996045a0172240482f /elisp
parent6d36cce3a51d6ebc779d1082b32402001fa9d796 (diff)
downloadgeiser-chez-3114e4208dd63bde3f978cae581503a70217db63.tar.gz
geiser-chez-3114e4208dd63bde3f978cae581503a70217db63.tar.bz2
Better keybindings for documentation browser
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-doc.el21
-rw-r--r--elisp/geiser-popup.el3
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))