diff options
| -rw-r--r-- | .emacs.d/lisp/init-clojure.el | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el index fe9987d..78147e8 100644 --- a/.emacs.d/lisp/init-clojure.el +++ b/.emacs.d/lisp/init-clojure.el @@ -126,6 +126,7 @@ (use-package cider :diminish :config + (cider-enable-flex-completion) (defvar cider-main-function "-main") (defun cider-repl-mode-hook-fn () (display-line-numbers-mode -1) @@ -201,20 +202,6 @@ (unbind-key "C-c C-b" cider-mode-map) (unbind-key "C-c C-b" cider-repl-mode-map) - ;; https://github.com/clojure-emacs/cider/issues/3019#issuecomment-1330342147 - (defun my/cider-complete-at-point () - "Complete the symbol at point." - (when (and (cider-connected-p) - (not (cider-in-string-p))) - (when-let* ((bounds (bounds-of-thing-at-point 'symbol)) - (beg (car bounds)) - (end (cdr bounds)) - (completion (append (cider-complete (buffer-substring beg end)) - (get-text-property (point) 'cider-locals)))) - (list beg end (completion-table-dynamic (lambda (_) completion)) - :annotation-function #'cider-annotate-symbol)))) - (advice-add 'cider-complete-at-point :override 'my/cider-complete-at-point) - (defun fix-duplicate-windows () "When all windows are the same, delete all of them except the current one." (when (apply #'eq (mapcar 'window-buffer (window-list))) |