diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 14:48:04 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
| commit | a11b96fe58a2579e15bfcb642f01e0059da59a87 (patch) | |
| tree | 1aa54d25325a9023b1af7cd09d8ed182f1c5b43a /elisp/geiser-menu.el | |
| parent | 2a7b84b3cd9e58bba064077af78b53abd30766f6 (diff) | |
| download | geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.gz geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.bz2 | |
Fix indentation
Diffstat (limited to 'elisp/geiser-menu.el')
| -rw-r--r-- | elisp/geiser-menu.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/elisp/geiser-menu.el b/elisp/geiser-menu.el index 11a389c..101c4dd 100644 --- a/elisp/geiser-menu.el +++ b/elisp/geiser-menu.el @@ -19,9 +19,9 @@ ;;; Customization: (geiser-custom--defcustom geiser-global-menu-always-on-p nil - "Whether the Geiser menu is always visible." - :type 'boolean - :group 'geiser) + "Whether the Geiser menu is always visible." + :type 'boolean + :group 'geiser) ;;; Top-level menu @@ -30,7 +30,7 @@ (cond ((or (eq '-- kd) (eq 'line kd)) `(geiser-menu--add-line ,map)) ((stringp (car kd)) `(geiser-menu--add-basic-item ,keymap ,map ,kd)) ((eq 'menu (car kd)) `(geiser-menu--add-submenu ,(cadr kd) - ,keymap ,map ,(cddr kd))) + ,keymap ,map ,(cddr kd))) ((eq 'custom (car kd)) `(geiser-menu--add-custom ,(nth 1 kd) ,(nth 2 kd) ,keymap @@ -87,12 +87,12 @@ (defmacro geiser-menu--add-custom (title group keymap map) `(geiser-menu--add-item ,keymap ,map - (,title nil (lambda () (interactive) (customize-group ',group))))) + (,title nil (lambda () (interactive) (customize-group ',group))))) (defmacro geiser-menu--mode-toggle (title bindings mode keymap map) `(geiser-menu--add-item ,keymap ,map - (,title ,bindings ,mode - :button (:toggle . (and (boundp ',mode) ,mode))))) + (,title ,bindings ,mode + :button (:toggle . (and (boundp ',mode) ,mode))))) (defmacro geiser-menu--defmenu (name keymap &rest keys) (let ((mmap (make-symbol "mmap"))) |