Respect 80 chars max per line and progn in use-package
when multiple sexps
This commit is contained in:
parent
5685af2abb
commit
d447e96bb2
|
@ -45,22 +45,28 @@
|
|||
(helm-autoresize-mode 1))
|
||||
|
||||
;; from https://www.reddit.com/r/emacs/comments/2z7nbv/lean_helm_window/
|
||||
(defvar helm-source-header-default-background (face-attribute 'helm-source-header :background))
|
||||
(defvar helm-source-header-default-foreground (face-attribute 'helm-source-header :foreground))
|
||||
(defvar helm-source-header-default-box (face-attribute 'helm-source-header :box))
|
||||
(defvar helm-source-header-default-height (face-attribute 'helm-source-header :height) )
|
||||
(defvar helm-source-header-default-background
|
||||
(face-attribute 'helm-source-header :background))
|
||||
(defvar helm-source-header-default-foreground
|
||||
(face-attribute 'helm-source-header :foreground))
|
||||
(defvar helm-source-header-default-box
|
||||
(face-attribute 'helm-source-header :box))
|
||||
(defvar helm-source-header-default-height
|
||||
(face-attribute 'helm-source-header :height) )
|
||||
|
||||
(defun helm-toggle-header-line ()
|
||||
"Hide the `helm' header is there is only one source."
|
||||
(when dotspacemacs-helm-no-header
|
||||
(if (> (length helm-sources) 1)
|
||||
(set-face-attribute 'helm-source-header
|
||||
(set-face-attribute
|
||||
'helm-source-header
|
||||
nil
|
||||
:foreground helm-source-header-default-foreground
|
||||
:background helm-source-header-default-background
|
||||
:box helm-source-header-default-box
|
||||
:height helm-source-header-default-height)
|
||||
(set-face-attribute 'helm-source-header
|
||||
(set-face-attribute
|
||||
'helm-source-header
|
||||
nil
|
||||
:foreground (face-attribute 'helm-selection :background)
|
||||
:background (face-attribute 'helm-selection :background)
|
||||
|
@ -98,7 +104,8 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
(when (with-helm-buffer helm-echo-input-in-header-line)
|
||||
(let ((ov (make-overlay (point-min) (point-max) nil nil t)))
|
||||
(overlay-put ov 'window (selected-window))
|
||||
(overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
|
||||
(overlay-put ov 'face
|
||||
(let ((bg-color (face-background 'default nil)))
|
||||
`(:background ,bg-color :foreground ,bg-color)))
|
||||
(setq-local cursor-type nil))))
|
||||
(add-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
|
||||
|
@ -117,21 +124,25 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
(unless (configuration-layer/package-usedp 'ibuffer)
|
||||
(evil-ex-define-cmd "buffers" 'helm-buffers-list))
|
||||
|
||||
(defun spacemacs//helm-do-grep-region-or-symbol (&optional targs use-region-or-symbol-p)
|
||||
(defun spacemacs//helm-do-grep-region-or-symbol
|
||||
(&optional targs use-region-or-symbol-p)
|
||||
"Version of `helm-do-grep' with a default input."
|
||||
(interactive)
|
||||
(require 'helm)
|
||||
(cl-letf*
|
||||
(((symbol-function 'this-fn) (symbol-function 'helm-do-grep-1))
|
||||
((symbol-function 'helm-do-grep-1)
|
||||
(lambda (targets &optional recurse zgrep exts default-input region-or-symbol-p)
|
||||
(lambda (targets &optional recurse zgrep exts
|
||||
default-input region-or-symbol-p)
|
||||
(let* ((new-input (when region-or-symbol-p
|
||||
(if (region-active-p)
|
||||
(buffer-substring-no-properties
|
||||
(region-beginning) (region-end))
|
||||
(thing-at-point 'symbol t))))
|
||||
(quoted-input (when new-input (rxt-quote-pcre new-input))))
|
||||
(this-fn targets recurse zgrep exts default-input quoted-input))))
|
||||
(quoted-input (when new-input
|
||||
(rxt-quote-pcre new-input))))
|
||||
(this-fn targets recurse zgrep exts
|
||||
default-input quoted-input))))
|
||||
(preselection (or (dired-get-filename nil t)
|
||||
(buffer-file-name (current-buffer))))
|
||||
(targets (if targs
|
||||
|
@ -249,10 +260,12 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
"Hide the cursor in helm buffers."
|
||||
(with-helm-buffer
|
||||
(setq cursor-in-non-selected-windows nil)))
|
||||
(add-hook 'helm-after-initialize-hook 'spacemacs//hide-cursor-in-helm-buffer)
|
||||
(add-hook 'helm-after-initialize-hook
|
||||
'spacemacs//hide-cursor-in-helm-buffer)
|
||||
|
||||
(defvar spacemacs-helm-display-help-buffer-regexp '("*.*Helm.*Help.**"))
|
||||
(defvar spacemacs-helm-display-buffer-regexp `("*.*helm.**"
|
||||
(defvar spacemacs-helm-display-buffer-regexp
|
||||
`("*.*helm.**"
|
||||
(display-buffer-in-side-window)
|
||||
(inhibit-same-window . t)
|
||||
(side . ,dotspacemacs-helm-position)
|
||||
|
@ -277,13 +290,16 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
(define-key evil-motion-state-map [down-mouse-1] nil))))
|
||||
|
||||
(defun spacemacs//display-helm-window (buffer)
|
||||
(let ((display-buffer-alist (list spacemacs-helm-display-help-buffer-regexp
|
||||
;; this or any specialized case of Helm buffer must be added AFTER
|
||||
;; `spacemacs-helm-display-buffer-regexp'. Otherwise,
|
||||
;; `spacemacs-helm-display-buffer-regexp' will be used before
|
||||
(let ((display-buffer-alist
|
||||
(list spacemacs-helm-display-help-buffer-regexp
|
||||
;; this or any specialized case of Helm buffer must be
|
||||
;; added AFTER `spacemacs-helm-display-buffer-regexp'.
|
||||
;; Otherwise, `spacemacs-helm-display-buffer-regexp' will
|
||||
;; be used before
|
||||
;; `spacemacs-helm-display-help-buffer-regexp' and display
|
||||
;; configuration for normal Helm buffer is applied for helm help
|
||||
;; buffer, making the help buffer unable to be displayed.
|
||||
;; configuration for normal Helm buffer is applied for helm
|
||||
;; help buffer, making the help buffer unable to be
|
||||
;; displayed.
|
||||
spacemacs-helm-display-buffer-regexp)))
|
||||
(helm-default-display-buffer buffer)))
|
||||
(setq helm-display-function 'spacemacs//display-helm-window)
|
||||
|
@ -292,11 +308,12 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
;; workaround for a helm-evil incompatibility
|
||||
;; see https://github.com/syl20bnr/spacemacs/issues/3700
|
||||
(when helm-prevent-escaping-from-minibuffer
|
||||
(define-key evil-motion-state-map [down-mouse-1] 'evil-mouse-drag-region))
|
||||
(define-key evil-motion-state-map
|
||||
[down-mouse-1] 'evil-mouse-drag-region))
|
||||
(popwin-mode 1)
|
||||
;; we must enable popwin-mode first then restore `display-buffer-alist'
|
||||
;; Otherwise, popwin keeps adding up its own buffers to `display-buffer-alist'
|
||||
;; and could slow down Emacs as the list grows
|
||||
;; Otherwise, popwin keeps adding up its own buffers to
|
||||
;; `display-buffer-alist' and could slow down Emacs as the list grows
|
||||
(setq display-buffer-alist spacemacs-display-buffer-alist))
|
||||
|
||||
(add-hook 'helm-after-initialize-hook 'spacemacs//helm-prepare-display)
|
||||
|
@ -313,7 +330,8 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
(add-hook 'helm-cleanup-hook 'spacemacs//helm-cleanup)
|
||||
|
||||
(defface spacemacs-helm-navigation-ms-face
|
||||
`((t :background ,(face-attribute 'error :foreground) :foreground "black"))
|
||||
`((t :background ,(face-attribute 'error :foreground)
|
||||
:foreground "black"))
|
||||
"Face for helm heder when helm micro-state is activated."
|
||||
:group 'spacemacs))
|
||||
|
||||
|
@ -321,7 +339,8 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
(progn
|
||||
(helm-mode +1)
|
||||
|
||||
;; helm-locate uses es (from everything on windows, which doesnt like fuzzy)
|
||||
;; helm-locate uses es (from everything on windows,
|
||||
;; which doesnt like fuzzy)
|
||||
(helm-locate-set-command)
|
||||
(setq helm-locate-fuzzy-match (string-match "locate" helm-locate-command))
|
||||
|
||||
|
@ -332,14 +351,17 @@ Removes the automatic guessing of the initial value based on thing at point. "
|
|||
:foreground nil
|
||||
:background nil
|
||||
:inherit 'helm-ff-directory))
|
||||
(add-hook 'helm-find-files-before-init-hook 'spacemacs//set-dotted-directory)
|
||||
(add-hook 'helm-find-files-before-init-hook
|
||||
'spacemacs//set-dotted-directory)
|
||||
|
||||
;; alter helm-bookmark key bindings to be simpler
|
||||
(defun simpler-helm-bookmark-keybindings ()
|
||||
(define-key helm-bookmark-map (kbd "C-d") 'helm-bookmark-run-delete)
|
||||
(define-key helm-bookmark-map (kbd "C-e") 'helm-bookmark-run-edit)
|
||||
(define-key helm-bookmark-map (kbd "C-f") 'helm-bookmark-toggle-filename)
|
||||
(define-key helm-bookmark-map (kbd "C-o") 'helm-bookmark-run-jump-other-window)
|
||||
(define-key helm-bookmark-map
|
||||
(kbd "C-f") 'helm-bookmark-toggle-filename)
|
||||
(define-key helm-bookmark-map
|
||||
(kbd "C-o") 'helm-bookmark-run-jump-other-window)
|
||||
(define-key helm-bookmark-map (kbd "C-/") 'helm-bookmark-help))
|
||||
(add-hook 'helm-mode-hook 'simpler-helm-bookmark-keybindings)
|
||||
|
||||
|
@ -364,7 +386,8 @@ ARG non nil means Vim like movements."
|
|||
(define-key helm-map (kbd "C-j") 'helm-execute-persistent-action)
|
||||
(define-key helm-map (kbd "C-k") 'helm-delete-minibuffer-contents)
|
||||
(define-key helm-map (kbd "C-h") nil)
|
||||
(define-key helm-map (kbd "C-l") 'helm-recenter-top-bottom-other-window))))
|
||||
(define-key helm-map
|
||||
(kbd "C-l") 'helm-recenter-top-bottom-other-window))))
|
||||
(spacemacs//hjkl-completion-navigation
|
||||
(member dotspacemacs-editing-style '(vim hybrid)))
|
||||
|
||||
|
@ -459,11 +482,14 @@ ARG non nil means Vim like movements."
|
|||
;; Swap default TAB and C-z commands.
|
||||
;; For GUI.
|
||||
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
|
||||
(define-key helm-find-files-map (kbd "S-<tab>") 'helm-find-files-up-one-level)
|
||||
(define-key helm-find-files-map (kbd "<backtab>") 'helm-find-files-up-one-level)
|
||||
(define-key helm-find-files-map
|
||||
(kbd "S-<tab>") 'helm-find-files-up-one-level)
|
||||
(define-key helm-find-files-map
|
||||
(kbd "<backtab>") 'helm-find-files-up-one-level)
|
||||
;; For terminal.
|
||||
(define-key helm-map (kbd "TAB") 'helm-execute-persistent-action)
|
||||
(define-key helm-find-files-map (kbd "S-TAB") 'helm-find-files-up-one-level)
|
||||
(define-key helm-find-files-map
|
||||
(kbd "S-TAB") 'helm-find-files-up-one-level)
|
||||
(define-key helm-map (kbd "C-z") 'helm-select-action)
|
||||
|
||||
(with-eval-after-load 'helm-mode ; required
|
||||
|
@ -673,7 +699,8 @@ Search for a search tool in the order provided by `dotspacemacs-search-tools'."
|
|||
(interactive)
|
||||
(let ((dir (projectile-project-root)))
|
||||
(if dir
|
||||
(spacemacs//helm-do-ag-region-or-symbol 'spacemacs/helm-files-do-ack dir)
|
||||
(spacemacs//helm-do-ag-region-or-symbol
|
||||
'spacemacs/helm-files-do-ack dir)
|
||||
(message "error: Not in a project."))))
|
||||
|
||||
(defun spacemacs/helm-project-do-pt ()
|
||||
|
@ -689,7 +716,8 @@ Search for a search tool in the order provided by `dotspacemacs-search-tools'."
|
|||
(interactive)
|
||||
(let ((dir (projectile-project-root)))
|
||||
(if dir
|
||||
(spacemacs//helm-do-ag-region-or-symbol 'spacemacs/helm-files-do-pt dir)
|
||||
(spacemacs//helm-do-ag-region-or-symbol
|
||||
'spacemacs/helm-files-do-pt dir)
|
||||
(message "error: Not in a project."))))
|
||||
|
||||
(defun spacemacs/helm-project-smart-do-search (&optional default-inputp)
|
||||
|
@ -722,7 +750,8 @@ Search for a search tool in the order provided by `dotspacemacs-search-tools'."
|
|||
(kbd "C-s")
|
||||
(lambda ()
|
||||
(interactive)
|
||||
(helm-exit-and-execute-action 'spacemacs/helm-project-smart-do-search-in-dir))))
|
||||
(helm-exit-and-execute-action
|
||||
'spacemacs/helm-project-smart-do-search-in-dir))))
|
||||
|
||||
;; evilify the helm-grep buffer
|
||||
(evilified-state-evilify helm-grep-mode helm-grep-mode-map
|
||||
|
@ -850,7 +879,9 @@ Search for a search tool in the order provided by `dotspacemacs-search-tools'."
|
|||
(defun spacemacs-base/helm-spacemacs-deprecated (arg)
|
||||
"Provide helm-spacemacs with a binding's depreciation message."
|
||||
(interactive "P")
|
||||
(warn "The 'SPC f e h' (or 'M-m f e h') binding is now deprecated and will be remove in the next release. Please use 'SPC h SPC' (or 'M-m h SPC') instead.")
|
||||
(warn (concat "The 'SPC f e h' (or 'M-m f e h') binding is now "
|
||||
"deprecated and will be remove in the next release. "
|
||||
"Please use 'SPC h SPC' (or 'M-m h SPC') instead."))
|
||||
(helm-spacemacs arg))
|
||||
(spacemacs/set-leader-keys "feh" 'spacemacs-base/helm-spacemacs-deprecated)
|
||||
(spacemacs/set-leader-keys "fef" 'helm-spacemacs-faq)
|
||||
|
|
|
@ -76,8 +76,8 @@ that directory."
|
|||
(if (< (length counsel--git-grep-dir)
|
||||
spacemacs--counsel-search-max-path-length)
|
||||
counsel--git-grep-dir
|
||||
(concat "..."
|
||||
(substring counsel--git-grep-dir
|
||||
(concat
|
||||
"..." (substring counsel--git-grep-dir
|
||||
(- (length counsel--git-grep-dir)
|
||||
spacemacs--counsel-search-max-path-length)
|
||||
(length counsel--git-grep-dir)))))
|
||||
|
@ -90,7 +90,8 @@ that directory."
|
|||
(counsel-delete-process)
|
||||
(swiper--cleanup)))))
|
||||
|
||||
(cl-loop for (tools tool-name) in '((dotspacemacs-search-tools "auto")
|
||||
(cl-loop
|
||||
for (tools tool-name) in '((dotspacemacs-search-tools "auto")
|
||||
((list "ag") "ag")
|
||||
((list "pt") "pt")
|
||||
((list "ack") "ack")
|
||||
|
@ -101,7 +102,7 @@ that directory."
|
|||
(defun ,(intern (format "spacemacs/search-%s" tool-name)) ()
|
||||
,(format
|
||||
"Use `spacemacs/counsel-search' to search in the current
|
||||
directory with %s." (if (string= tool-name "auto")
|
||||
directory with %s." (if (string= tool-name "auto")
|
||||
"a tool selected from `dotspacemacs-search-tools'."
|
||||
tool-name))
|
||||
(interactive)
|
||||
|
@ -110,8 +111,8 @@ directory with %s." (if (string= tool-name "auto")
|
|||
tool-name)) ()
|
||||
,(format
|
||||
"Use `spacemacs/counsel-search' to search for
|
||||
the selected region or the symbol under the point in the current
|
||||
directory with %s." (if (string= tool-name "auto")
|
||||
the selected region or the symbol under the point in the current
|
||||
directory with %s." (if (string= tool-name "auto")
|
||||
"a tool selected from `dotspacemacs-search-tools'."
|
||||
tool-name))
|
||||
(interactive)
|
||||
|
@ -119,7 +120,7 @@ directory with %s." (if (string= tool-name "auto")
|
|||
(defun ,(intern (format "spacemacs/search-project-%s" tool-name)) ()
|
||||
,(format
|
||||
"Use `spacemacs/counsel-search' to search in the current
|
||||
project with %s." (if (string= tool-name "auto")
|
||||
project with %s." (if (string= tool-name "auto")
|
||||
"a tool selected from `dotspacemacs-search-tools'."
|
||||
tool-name))
|
||||
(interactive)
|
||||
|
@ -128,8 +129,8 @@ project with %s." (if (string= tool-name "auto")
|
|||
tool-name)) ()
|
||||
,(format
|
||||
"Use `spacemacs/counsel-search' to search for
|
||||
the selected region or the symbol under the point in the current
|
||||
project with %s." (if (string= tool-name "auto")
|
||||
the selected region or the symbol under the point in the current
|
||||
project with %s." (if (string= tool-name "auto")
|
||||
"a tool selected from `dotspacemacs-search-tools'."
|
||||
tool-name))
|
||||
(interactive)
|
||||
|
@ -137,7 +138,7 @@ project with %s." (if (string= tool-name "auto")
|
|||
|
||||
(defun spacemacs/counsel-git-grep-region-or-symbol ()
|
||||
"Use `counsel-git-grep' to search for the selected region or
|
||||
the symbol under the point in the current project with git grep."
|
||||
the symbol under the point in the current project with git grep."
|
||||
(let ((input (if (region-active-p)
|
||||
(buffer-substring-no-properties
|
||||
(region-beginning) (region-end))
|
||||
|
@ -150,11 +151,12 @@ the symbol under the point in the current project with git grep."
|
|||
-key (lambda ()
|
||||
(interactive)
|
||||
(message "The command usually bound to %s %s has \
|
||||
not been implemented for the spacemacs-ivy layer yet."
|
||||
not been implemented for the spacemacs-ivy layer yet."
|
||||
dotspacemacs-leader-key -key)))))
|
||||
|
||||
(use-package counsel
|
||||
:config
|
||||
(progn
|
||||
(spacemacs/set-leader-keys
|
||||
dotspacemacs-command-key 'counsel-M-x
|
||||
;; files
|
||||
|
@ -198,34 +200,12 @@ not been implemented for the spacemacs-ivy layer yet."
|
|||
"skP" 'spacemacs/search-project-ack-region-or-symbol)
|
||||
;; TODO: Commands to port
|
||||
(spacemacs//ivy-command-not-implemented-yet "?")
|
||||
(spacemacs//ivy-command-not-implemented-yet "jI")))
|
||||
(spacemacs//ivy-command-not-implemented-yet "jI"))))
|
||||
|
||||
(defun spacemacs-ivy/init-flx ())
|
||||
|
||||
(defun spacemacs-ivy/init-hydra ())
|
||||
|
||||
(defun spacemacs-ivy/init-ivy-spacemacs-help ()
|
||||
(use-package ivy-spacemacs-help
|
||||
:init
|
||||
(progn
|
||||
(spacemacs/set-leader-keys
|
||||
"h SPC d" 'ivy-spacemacs-help-docs
|
||||
"h SPC ." 'ivy-spacemacs-help-dotspacemacs
|
||||
;; "h SPC f" 'ivy-spacemacs-help-faq
|
||||
"h SPC l" 'ivy-spacemacs-help-layers
|
||||
"h SPC SPC" 'ivy-spacemacs-help
|
||||
"h SPC p" 'ivy-spacemacs-help-packages
|
||||
"h SPC t" 'ivy-spacemacs-help-toggles))))
|
||||
|
||||
(defun spacemacs-ivy/init-smex ()
|
||||
(use-package smex
|
||||
:defer t
|
||||
:init
|
||||
(progn
|
||||
(setq-default smex-history-length 32
|
||||
smex-save-file (concat spacemacs-cache-directory
|
||||
".smex-items")))))
|
||||
|
||||
(defun spacemacs-ivy/init-ivy ()
|
||||
(use-package ivy
|
||||
:config
|
||||
|
@ -237,8 +217,8 @@ not been implemented for the spacemacs-ivy layer yet."
|
|||
(setq ivy-height 15)
|
||||
(with-eval-after-load 'recentf
|
||||
;; merge recentf and bookmarks into buffer switching. If we set this
|
||||
;; before recentf loads, then ivy-mode loads recentf for us, which messes
|
||||
;; up the spacemacs version of recentf.
|
||||
;; before recentf loads, then ivy-mode loads recentf for us,
|
||||
;; which messes up the spacemacs version of recentf.
|
||||
(setq ivy-use-virtual-buffers t))
|
||||
(when (configuration-layer/package-usedp 'projectile)
|
||||
(setq projectile-completion-system 'ivy))
|
||||
|
@ -256,7 +236,8 @@ not been implemented for the spacemacs-ivy layer yet."
|
|||
(define-key ivy-minibuffer-map (kbd "C-k") 'ivy-previous-line)
|
||||
(define-key ivy-minibuffer-map (kbd "C-h") (kbd "DEL"))
|
||||
(define-key ivy-minibuffer-map (kbd "C-l") 'ivy-alt-done)
|
||||
(define-key ivy-minibuffer-map (kbd "<escape>") 'minibuffer-keyboard-quit))
|
||||
(define-key ivy-minibuffer-map (kbd "<escape>")
|
||||
'minibuffer-keyboard-quit))
|
||||
(t
|
||||
(define-key ivy-minibuffer-map (kbd "C-j") 'ivy-alt-done)
|
||||
(define-key ivy-minibuffer-map (kbd "C-k") 'ivy-kill-line)
|
||||
|
@ -265,9 +246,28 @@ not been implemented for the spacemacs-ivy layer yet."
|
|||
(spacemacs//hjkl-completion-navigation
|
||||
(member dotspacemacs-editing-style '(vim hybrid))))))
|
||||
|
||||
(defun spacemacs-ivy/init-smex ()
|
||||
(use-package smex
|
||||
:defer t
|
||||
:init (setq-default smex-history-length 32
|
||||
smex-save-file (concat spacemacs-cache-directory
|
||||
".smex-items"))))
|
||||
|
||||
(defun spacemacs-ivy/init-ivy-spacemacs-help ()
|
||||
(use-package ivy-spacemacs-help
|
||||
:init (spacemacs/set-leader-keys
|
||||
"h SPC d" 'ivy-spacemacs-help-docs
|
||||
"h SPC ." 'ivy-spacemacs-help-dotspacemacs
|
||||
;; "h SPC f" 'ivy-spacemacs-help-faq
|
||||
"h SPC l" 'ivy-spacemacs-help-layers
|
||||
"h SPC SPC" 'ivy-spacemacs-help
|
||||
"h SPC p" 'ivy-spacemacs-help-packages
|
||||
"h SPC t" 'ivy-spacemacs-help-toggles)))
|
||||
|
||||
(defun spacemacs-ivy/init-swiper ()
|
||||
(use-package swiper
|
||||
:config
|
||||
(progn
|
||||
(defun spacemacs/swiper-region-or-symbol ()
|
||||
"Run `swiper' with the selected region or the symbol under
|
||||
the point as the initial input."
|
||||
|
@ -299,4 +299,4 @@ under the point as the initial input."
|
|||
"sS" 'spacemacs/swiper-region-or-symbol
|
||||
"sb" 'swiper-all
|
||||
"sB" 'spacemacs/swiper-all-region-or-symbol)
|
||||
(global-set-key "\C-s" 'swiper)))
|
||||
(global-set-key "\C-s" 'swiper))))
|
||||
|
|
Loading…
Reference in a new issue