82 lines
2.6 KiB
EmacsLisp
82 lines
2.6 KiB
EmacsLisp
;;; init-navigation.el --- Navigation Configuration File -*- lexical-binding: t -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
(use-package ctrlf
|
|
:init
|
|
(ctrlf-mode +1)
|
|
:config
|
|
(add-to-list 'ctrlf-minibuffer-bindings '("C-M-g" . ctrlf-cancel))
|
|
(add-to-list 'ctrlf-minibuffer-bindings '("C-o o" . ctrlf-occur))
|
|
(add-to-list 'ctrlf-minibuffer-bindings '("C-o C-o" . ctrlf-occur))
|
|
:custom
|
|
(ctrlf-default-search-style 'fuzzy-regexp)
|
|
(ctrlf-alternate-search-style 'literal)
|
|
:bind
|
|
("C-*" . ctrlf-forward-symbol-at-point))
|
|
|
|
(use-package smartscan
|
|
:config
|
|
(global-smartscan-mode t)
|
|
:hook
|
|
(cider-repl-mode . (lambda () (smartscan-mode -1)))
|
|
(ielm-mode . (lambda () (smartscan-mode -1)))
|
|
(vterm-mode . (lambda () (smartscan-mode -1)))
|
|
(eshell-mode . (lambda () (smartscan-mode -1))))
|
|
|
|
(use-package affe
|
|
:after (consult orderless)
|
|
:config
|
|
(setq affe-grep-command (replace-regexp-in-string "\\." "-Suu ." affe-grep-command))
|
|
(when (and (eq system-type 'darwin) (string-match-p "^find" affe-find-command))
|
|
(setq affe-find-command (concat "g" affe-find-command)))
|
|
;; Configure Orderless
|
|
(setq affe-regexp-function #'orderless-pattern-compiler
|
|
affe-highlight-function #'orderless--highlight)
|
|
;; Manual preview key for `affe-grep'
|
|
(consult-customize affe-grep :preview-key (kbd "M-."))
|
|
(defun my/affe-grep-symbol-at-point (&optional dir initial)
|
|
(interactive
|
|
(list prefix-arg (when-let ((s (symbol-at-point)))
|
|
(symbol-name s))))
|
|
(affe-grep dir initial))
|
|
(defun my/affe-find-symbol-at-point (&optional dir initial)
|
|
(interactive
|
|
(list prefix-arg (when-let ((s (symbol-at-point)))
|
|
(symbol-name s))))
|
|
(affe-find dir initial))
|
|
;; TODO is this faster and/or more portable?
|
|
;; :custom
|
|
;; (affe-find-command "fd --color never -t f")
|
|
:bind
|
|
("C-#" . affe-grep)
|
|
("C-c z" . affe-find)
|
|
("C-c Z" . my/affe-find-symbol-at-point)
|
|
("C-~" . my/affe-grep-symbol-at-point))
|
|
|
|
;; TODO - which of these are useful?
|
|
(use-package avy
|
|
:custom
|
|
(avy-background t)
|
|
(avy-style 'pre)
|
|
:config
|
|
(key-chord-define-global "LL" 'avy-goto-line)
|
|
(key-chord-define-global ",," 'avy-goto-char-in-line)
|
|
(key-chord-define-global "jj" 'avy-goto-word-1)
|
|
(key-chord-define-global "jk" 'avy-goto-char)
|
|
:bind
|
|
("C-:" . avy-goto-char)
|
|
("C-'" . avy-goto-char-2)
|
|
("C-c C-v" . avy-goto-char-in-line)
|
|
("C-c v" . avy-goto-word-or-subword-1)
|
|
("M-g w" . avy-goto-word-1)
|
|
("M-g M-w" . avy-goto-word-0)
|
|
("M-g M-f" . avy-goto-line))
|
|
|
|
(use-package rg
|
|
:config
|
|
(rg-enable-default-bindings))
|
|
|
|
(provide 'init-navigation)
|
|
;;; init-navigation.el ends here
|