TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

layers/*: remove quote inside the cl-case clauses

This commit is contained in:
Lin Sun 2022-09-28 00:00:57 +00:00 committed by Maxi Wolff
parent b8882d0741
commit 7ec7d843e0
6 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
layers/+completion/auto-completion/packages.el
View File

@ -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

2
layers/+os/osx/keybindings.el
View File

@ -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)))

10
layers/+spacemacs/spacemacs-defaults/funcs.el
View File

@ -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)

30
layers/+spacemacs/spacemacs-purpose/local/spacemacs-purpose-popwin/spacemacs-purpose-popwin.el
View File

@ -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.

36
layers/+tools/lsp/funcs.el
View File

@ -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

6
layers/+tools/shell/funcs.el
View File

@ -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)))))