dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Move counsel changes to counsel section

Browse Source
This commit is contained in:
Adam Goldsmith 2017-06-23 12:22:47 -04:00
parent 5c06431d23
commit 285bc6cbe4
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
.emacs.d/init.el
View File

@ -236,8 +236,7 @@
("C-r" . swiper) ("C-r" . swiper)
("C-c C-r" . ivy-resume) ("C-c C-r" . ivy-resume)
:map swiper-map ("C-r" . ivy-previous-line-or-history) :map swiper-map ("C-r" . ivy-previous-line-or-history)
:map ivy-minibuffer-map ("C-'" . ivy-avy) :map ivy-minibuffer-map ("C-'" . ivy-avy))
:map counsel-find-file-map ("C-M-i" . counsel-find-file-edit-path))
:init :init
(bind-key "C-S-s" 'isearch-forward) (bind-key "C-S-s" 'isearch-forward)
(bind-key "C-S-r" 'isearch-backward) (bind-key "C-S-r" 'isearch-backward)
@ -264,7 +263,22 @@
(backward-delete-char 1) (backward-delete-char 1)
(error (error
(when ivy-on-del-error-function (when ivy-on-del-error-function
(funcall ivy-on-del-error-function)))))) (funcall ivy-on-del-error-function)))))))
(use-package ivy-hydra :ensure)
(use-package counsel :ensure
:bind (("M-x" . counsel-M-x)
("C-M-y" . counsel-yank-pop)
("C-x C-f" . counsel-find-file)
:map counsel-find-file-map ("C-M-i" . counsel-find-file-edit-path))
:init
(bind-key "C-c C-c M-x" 'execute-extended-command) ;;normal M-x.
:config
(setq ivy-re-builders-alist
'((counsel-M-x . ivy--regex-fuzzy)
(t . ivy--regex-plus)))
(assq-delete-all 'counsel-M-x ivy-initial-inputs-alist)
(defun counsel-find-file-edit-path () (defun counsel-find-file-edit-path ()
"Edit the current path in ivy find-file" "Edit the current path in ivy find-file"
@ -274,20 +288,6 @@
(ivy--cd "/") (ivy--cd "/")
(insert old-path)))) (insert old-path))))
(use-package ivy-hydra :ensure)
(use-package counsel :ensure
:bind (("M-x" . counsel-M-x)
("C-M-y" . counsel-yank-pop)
("C-x C-f" . counsel-find-file))
:init
(bind-key "C-c C-c M-x" 'execute-extended-command) ;;normal M-x.
:config
(setq ivy-re-builders-alist
'((counsel-M-x . ivy--regex-fuzzy)
(t . ivy--regex-plus)))
(assq-delete-all 'counsel-M-x ivy-initial-inputs-alist))
(use-package ace-window :ensure (use-package ace-window :ensure
:bind ("M-p" . ace-window)) :bind ("M-p" . ace-window))