diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 00:43:04 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 00:43:04 +0100 |
| commit | c38183a12b1f6c00b4cf197e5ff2ded470a8e326 (patch) | |
| tree | 47f4428b79c784140d9d62cbb7505b24c9877353 | |
| parent | 68070ae3add250a2da11a5f488d0cb3419054962 (diff) | |
Use pcase.
| -rw-r--r-- | guile-studio-configure.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 2c32f0b..b66674a 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -393,15 +393,14 @@ with the " (define-key mode-line-buffer-identification-keymap (vector 'mode-line 'mouse-3) nil) ;; Context menu on right click. - (require 'cl-macs) (defun context-menu () (let ((menu (make-sparse-keymap))) - (cl-case major-mode - (geiser-repl-mode + (pcase major-mode + ('geiser-repl-mode (define-key menu (vector 'insert-image) '("Insert image" . geiser--guile-picture-language--pict-from-file)) menu) - (scheme-mode + ('scheme-mode (define-key menu (vector 'switch-to-repl) '("Switch to REPL" . switch-to-geiser)) (define-key menu (vector 'eval-buffer) |