diff options
| -rw-r--r-- | elisp/geiser-doc.el | 4 | ||||
| -rw-r--r-- | elisp/geiser-menu.el | 14 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 8 |
3 files changed, 13 insertions, 13 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 6bb4ba5..5684e54 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -358,10 +358,10 @@ With prefix, the current page is deleted from history." ("Previous" "\C-c\C-b" geiser-doc-previous "Previous item" :enable (geiser-doc--history-previous-p)) ("Refresh" "\C-c\C-r" geiser-doc-refresh "Refresh current page") - line + -- ("Kill item" "\C-c\C-k" geiser-doc-kill-page "Kill this page") ("Clean history" "\C-c\C-c" geiser-doc-clean-history) - line + -- (custom "Browser options" geiser-doc)) (defun geiser-doc-mode () diff --git a/elisp/geiser-menu.el b/elisp/geiser-menu.el index b332005..bba6b10 100644 --- a/elisp/geiser-menu.el +++ b/elisp/geiser-menu.el @@ -39,7 +39,7 @@ (list binding)))) `(progn (define-key ,map [,item] '(menu-item ,title ,cmd ,@hlp ,@rest)) - ,@(and binding + ,@(and (car binding) `((put ',cmd :advertised-binding ,(car binding)))) @@ -81,12 +81,12 @@ :button (:toggle . (and (boundp ',mode) ,mode)))))) (defmacro geiser-menu--defmenu (e keymap &rest keys) - (let* ((fs) - (name (format "Geiser %s" e)) - (mmap (make-symbol "mmap"))) + (let ((fs) + (mmap (make-symbol "mmap"))) (dolist (kd keys) (setq fs - (cons (cond ((eq 'line kd) `(geiser-menu--add-line ,mmap)) + (cons (cond ((or (eq '-- kd) (eq 'line kd)) + `(geiser-menu--add-line ,mmap)) ((stringp (car kd)) `(geiser-menu--add-items ,keymap ,mmap ,(list kd))) ((eq 'menu (car kd)) @@ -106,8 +106,8 @@ (t (error "Bad form: %s" kd))) fs))) `(progn - (let ((,mmap (make-sparse-keymap ,name))) - (define-key ,keymap [menu-bar ,e] (cons ,name ,mmap)) + (let ((,mmap (make-sparse-keymap "Geiser"))) + (define-key ,keymap [menu-bar ,e] (cons "Geiser" ,mmap)) (define-key ,mmap [customize] (cons "Customize" geiser-menu--custom-customize)) (define-key ,mmap [switch] diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 6fc820a..e27d80f 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -389,27 +389,27 @@ module command as a string") geiser-completion--complete-module :enable (symbol-at-point)) ("Edit symbol" "\M-." geiser-edit--symbol-at-point :enable (symbol-at-point)) - line + -- ("Previous matching input" "\M-p" comint-previous-matching-input-from-input "Previous input matching current") ("Next matching input" "\M-n" comint-next-matching-input-from-input "Next input matching current") ("Previous input" "\C-c\M-p" comint-previous-input) ("Next input" "\C-c\M-n" comint-next-input) - line + -- (mode "Autodoc mode" "\C-ca" geiser-autodoc-mode) ("Symbol documentation" "\C-cd" geiser-doc-symbol-at-point "Documentation for symbol at point" :enable (symbol-at-point)) ("Module documentation" "\C-cm" geiser-repl--doc-module "Documentation for module at point" :enable (symbol-at-point)) ("Load module" "\C-cl" geiser-load-file) - line + -- ("Restart" ("\C-cz" "\C-c\C-z") switch-to-geiser :enable (not (geiser-repl--this-buffer-repl))) ("Revive REPL" ("\C-ck" "\C-c\C-k") geiser-repl-nuke "Use this command if the REPL becomes irresponsive" :enable (not (geiser-repl--this-buffer-repl))) - line + -- (custom "REPL options" geiser-repl)) |