Maciej Szlosarczyk
ff2dbc1796
All checks were successful
/ Test config on 20 (push) Successful in 25s
50 lines
2 KiB
EmacsLisp
50 lines
2 KiB
EmacsLisp
;;; icejam-ivy -- Counsel, Swiper and Ivy. -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;;
|
|
;;; Code:
|
|
|
|
(require 'icejam-keys-mode)
|
|
|
|
(use-package helpful :straight t :defer t)
|
|
|
|
(use-package ivy :straight t :defer t
|
|
:config (setq ivy-use-virtual-buffers t ;; Display recent files in ivy-switch-buffer
|
|
ivy-count-format "(%d of %d) " ;; Current candidate count style
|
|
ivy-wrap t ;; Wrap around completions
|
|
ivy-display-style 'fancy) ;; Formatting style
|
|
(ivy-mode 1))
|
|
|
|
(use-package swiper :straight t)
|
|
|
|
|
|
(use-package counsel :straight t :requires (helpful ivy swiper))
|
|
|
|
(with-eval-after-load 'counsel
|
|
(define-key icejam-keys-mode-map (kbd "C-c a") 'counsel-rg)
|
|
(define-key icejam-keys-mode-map (kbd "C-c t") 'counsel-find-file)
|
|
(define-key icejam-keys-mode-map (kbd "C-c C-s") 'swiper) ;; Find things by regexp
|
|
(define-key icejam-keys-mode-map (kbd "M-x") 'counsel-M-x) ;; M-x on steroids
|
|
|
|
;; Help bindings
|
|
(define-key icejam-keys-mode-map (kbd "<f1> f") 'counsel-describe-function)
|
|
(define-key icejam-keys-mode-map (kbd "<f1> v") 'counsel-describe-variable)
|
|
(define-key icejam-keys-mode-map (kbd "<f1> b") 'counsel-descbinds)
|
|
(define-key icejam-keys-mode-map (kbd "<f1> x") 'helpful-command)
|
|
(define-key icejam-keys-mode-map (kbd "<f1> l") 'counsel-find-library)
|
|
(define-key icejam-keys-mode-map (kbd "C-h f") 'counsel-describe-function)
|
|
(define-key icejam-keys-mode-map (kbd "C-h v") 'counsel-describe-variable)
|
|
(define-key icejam-keys-mode-map (kbd "C-h b") 'counsel-descbinds)
|
|
(define-key icejam-keys-mode-map (kbd "C-h x") 'helpful-command)
|
|
(define-key icejam-keys-mode-map (kbd "C-h l") 'counsel-find-library)
|
|
|
|
(setq counsel-describe-function-function 'helpful-callable)
|
|
(setq counsel-describe-variable-function 'helpful-variable)
|
|
|
|
;; Other stuff
|
|
(define-key icejam-keys-mode-map (kbd "<f2> i") 'counsel-info-lookup-symbol)
|
|
(define-key icejam-keys-mode-map (kbd "<f2> u") 'counsel-unicode-char))
|
|
|
|
|
|
|
|
(provide 'icejam-ivy)
|
|
;;; icejam-ivy.el ends here
|