From 7ec7d843e0fef7f41ccbcd2b1a04989abd9b74e3 Mon Sep 17 00:00:00 2001 From: Lin Sun Date: Wed, 28 Sep 2022 00:00:57 +0000 Subject: [PATCH] layers/*: remove quote inside the cl-case clauses --- .../+completion/auto-completion/packages.el | 4 +-- layers/+os/osx/keybindings.el | 2 +- layers/+spacemacs/spacemacs-defaults/funcs.el | 10 +++--- .../spacemacs-purpose-popwin.el | 30 ++++++++-------- layers/+tools/lsp/funcs.el | 36 +++++++++---------- layers/+tools/shell/funcs.el | 6 ++-- 6 files changed, 44 insertions(+), 44 deletions(-) diff --git a/layers/+completion/auto-completion/packages.el b/layers/+completion/auto-completion/packages.el index cabb6f1aa..50155dc1a 100644 --- a/layers/+completion/auto-completion/packages.el +++ b/layers/+completion/auto-completion/packages.el @@ -204,9 +204,9 @@ (add-hook 'company-box-selection-hook (lambda (selection frame) (company-box-doc--hide frame))) (cl-case auto-completion-enable-help-tooltip - ('manual (define-key company-active-map + (manual (define-key company-active-map (kbd "M-h") #'company-box-doc-manually)) - ('t (setq company-box-doc-enable t)))))) + (t (setq company-box-doc-enable t)))))) (defun auto-completion/init-company-posframe () (use-package company-posframe diff --git a/layers/+os/osx/keybindings.el b/layers/+os/osx/keybindings.el index 64a54c009..0faddf136 100644 --- a/layers/+os/osx/keybindings.el +++ b/layers/+os/osx/keybindings.el @@ -47,7 +47,7 @@ ;; Backwards compatibility (cl-case osx-use-option-as-meta - ('nil (setf osx-option-as 'none)) + (nil (setf osx-option-as 'none)) (deprecated nil) (t (setf osx-option-as 'meta))) diff --git a/layers/+spacemacs/spacemacs-defaults/funcs.el b/layers/+spacemacs/spacemacs-defaults/funcs.el index dd7ffde18..813d22462 100644 --- a/layers/+spacemacs/spacemacs-defaults/funcs.el +++ b/layers/+spacemacs/spacemacs-defaults/funcs.el @@ -861,11 +861,11 @@ then apply that major mode to the new buffer." (interactive) (let ((newbuf (generate-new-buffer "untitled"))) (cl-case split - ('left (split-window-horizontally)) - ('below (spacemacs/split-window-vertically-and-switch)) - ('above (split-window-vertically)) - ('right (spacemacs/split-window-horizontally-and-switch)) - ('frame (select-frame (make-frame)))) + (left (split-window-horizontally)) + (below (spacemacs/split-window-vertically-and-switch)) + (above (split-window-vertically)) + (right (spacemacs/split-window-horizontally-and-switch)) + (frame (select-frame (make-frame)))) ;; Prompt to save on `save-some-buffers' with positive PRED (with-current-buffer newbuf (setq-local buffer-offer-save t) diff --git a/layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el b/layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el index 5a7761cf6..0f66859df 100644 --- a/layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el +++ b/layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el @@ -37,20 +37,20 @@ POSITION should be one of bottom, top, left and right. SIZE should be either a positive number of nil. Size is interpreted as width or height depending on POSITION." (let* ((size (cl-case position - ('left (purpose--normalize-width (or size + (left (purpose--normalize-width (or size + popwin:popup-window-width))) + (right (purpose--normalize-width (or size popwin:popup-window-width))) - ('right (purpose--normalize-width (or size - popwin:popup-window-width))) - ('top (purpose--normalize-height (or size - popwin:popup-window-height))) - ('bottom (purpose--normalize-height (or size - popwin:popup-window-height))))) + (top (purpose--normalize-height (or size + popwin:popup-window-height))) + (bottom (purpose--normalize-height (or size + popwin:popup-window-height))))) (size (when size (- size))) (side (cl-case position - ('left 'left) - ('right 'right) - ('top 'above) - ('bottom 'below)))) + (left 'left) + (right 'right) + (top 'above) + (bottom 'below)))) (lambda (buffer alist) (let* ((main-window (if pupo-split-active-window (selected-window) @@ -77,10 +77,10 @@ bottom -> popb POSITION defaults to bottom." (cl-case (or position 'bottom) ;; names are short so they don't take much room in the mode-line - ('left 'popl) - ('right 'popr) - ('top 'popt) - ('bottom 'popb))) + (left 'popl) + (right 'popr) + (top 'popt) + (bottom 'popb))) (defun pupo//actions (settings) "Generate list of display functions for displaying a popup window. diff --git a/layers/+tools/lsp/funcs.el b/layers/+tools/lsp/funcs.el index 32c59eb7d..02b33921d 100644 --- a/layers/+tools/lsp/funcs.el +++ b/layers/+tools/lsp/funcs.el @@ -75,9 +75,9 @@ (defun spacemacs/lsp-bind-keys () "Define key bindings for the lsp minor mode." (cl-ecase lsp-navigation - ('simple (spacemacs//lsp-bind-simple-navigation-functions "g")) - ('peek (spacemacs//lsp-bind-peek-navigation-functions "g")) - ('both + (simple (spacemacs//lsp-bind-simple-navigation-functions "g")) + (peek (spacemacs//lsp-bind-peek-navigation-functions "g")) + (both (spacemacs//lsp-bind-simple-navigation-functions "g") (spacemacs//lsp-bind-peek-navigation-functions "G"))) @@ -183,21 +183,21 @@ KEY is a string corresponding to a key sequence KIND is a quoted symbol corresponding to an extension defined using `lsp-define-extensions'." (cl-ecase lsp-navigation - ('simple (spacemacs/set-leader-keys-for-major-mode mode - (concat "g" key) - (spacemacs//lsp-extension-name - layer-name backend-name "find" kind))) - ('peek (spacemacs/set-leader-keys-for-major-mode mode - (concat "g" key) - (spacemacs//lsp-extension-name - layer-name backend-name "peek" kind))) - ('both (spacemacs/set-leader-keys-for-major-mode mode - (concat "g" key) - (spacemacs//lsp-extension-name - layer-name backend-name "find" kind) - (concat "G" key) - (spacemacs//lsp-extension-name - layer-name backend-name "peek" kind))))) + (simple (spacemacs/set-leader-keys-for-major-mode mode + (concat "g" key) + (spacemacs//lsp-extension-name + layer-name backend-name "find" kind))) + (peek (spacemacs/set-leader-keys-for-major-mode mode + (concat "g" key) + (spacemacs//lsp-extension-name + layer-name backend-name "peek" kind))) + (both (spacemacs/set-leader-keys-for-major-mode mode + (concat "g" key) + (spacemacs//lsp-extension-name + layer-name backend-name "find" kind) + (concat "G" key) + (spacemacs//lsp-extension-name + layer-name backend-name "peek" kind))))) (defun spacemacs/lsp-bind-extensions-for-mode (mode layer-name diff --git a/layers/+tools/shell/funcs.el b/layers/+tools/shell/funcs.el index bce207c98..fd918d8e7 100644 --- a/layers/+tools/shell/funcs.el +++ b/layers/+tools/shell/funcs.el @@ -75,9 +75,9 @@ Additionally changes to working directory when the value of `shell-pop-autocd-to-working-dir' is non-nil (default)." (interactive) (let ((shell (cl-case shell-default-shell - ('multi-vterm 'multivterm) - ('multi-term 'multiterm) - ('shell 'inferior-shell) + (multi-vterm 'multivterm) + (multi-term 'multiterm) + (shell 'inferior-shell) (t shell-default-shell)))) (call-interactively (intern (format "spacemacs/shell-pop-%S" shell)))))