maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I broke some stuff, this fixes it
All checks were successful
/ Test config on 20 (push) Successful in 25s
Details

Browse source
This commit is contained in:
Maciej 2024-08-03 22:10:57 +03:00
parent f0340183f6
commit ff2dbc1796
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
9 changed files with 142 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lisp/icejam-ivy.el
View file

@ -6,35 +6,45 @@
(require 'icejam-keys-mode)
(use-package helpful :straight t :defer t)
(use-package counsel :straight t :defer t :requires (helpful)
:config
;; Use helpful for showing Elisp documentation
(setq counsel-describe-function-function #'helpful-callable)
(setq counsel-describe-variable-function #'helpful-variable))
(use-package swiper :straight t :defer t)
(use-package ivy
:requires (counsel swiper 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-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))
(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
;; List all key bindings there are.
(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> l") 'counsel-find-library)
(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