Compare commits

...

3 Commits

2 changed files with 10 additions and 2 deletions

View File

@ -65,6 +65,7 @@
:custom
(cljr-suppress-no-project-warning t)
(cljr-add-ns-to-blank-clj-files nil) ; disable clj-refactor adding ns to blank files
(cljr-slash-uses-suggest-libspec t)
:config
(cljr-add-keybindings-with-prefix "C-c C-m")
(defun clj-refactor-hook-fn ()

View File

@ -321,7 +321,9 @@ DEFS is a plist associating completion categories to commands."
consult-bookmark consult-recent-file consult-xref consult-buffer-no-preview
consult--source-recent-file consult--source-project-recent-file consult--source-bookmark
:preview-key '("M-." :debounce 0.2 "C-S-n" :debounce 0.2 "C-S-p")
consult-line-thing-at-point consult-ripgrep-thing-at-point
consult-ripgrep-thing-at-point
:initial (concat "#" (thing-at-point 'symbol))
consult-line-thing-at-point
:initial (thing-at-point 'symbol))
(defvar-local consult-toggle-preview-orig nil)
@ -335,7 +337,12 @@ DEFS is a plist associating completion categories to commands."
consult--preview-function #'ignore)))
(setq consult-narrow-key "<")
(add-to-list 'consult-buffer-filter "^\\*")
(append-to-list* 'consult-buffer-filter
"^\\*helpful"
"^\\*Warnings\\*"
"^\\*cider-test-report\\*"
"^\\*cider-error\\*"
"^\\*cider-inspect\\*")
(setq consult-project-function (lambda (_) (persp-current-project-root)))