diff options
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/lisp/init-clojure.el | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el index e957e14..6162709 100644 --- a/.emacs.d/lisp/init-clojure.el +++ b/.emacs.d/lisp/init-clojure.el @@ -12,39 +12,7 @@ (use-package clojure-mode :config (require 'flycheck-clj-kondo) - (subword-mode +1) - (defun clojure-current-defun-name () - "Return the name of the defun at point, or nil." - (save-excursion - (let ((location (point))) - ;; If we are now precisely at the beginning of a defun, make sure - ;; beginning-of-defun finds that one rather than the previous one. - (or (eobp) (forward-char 1)) - (beginning-of-defun) - ;; Make sure we are really inside the defun found, not after it. - (when (and (looking-at "\\s(") - (progn (end-of-defun) - (< location (point))) - (progn (forward-sexp -1) - (>= location (point)))) - (if (looking-at "\\s(") - (forward-char 1)) - ;; Skip the defining construct name, e.g. "defn" or "def". - (forward-sexp 1) - ;; The second element is usually a symbol being defined. If it - ;; is not, use the first symbol in it. - (skip-chars-forward " \t\n'(") - ;; Skip metadata - (while (looking-at "\\^") - (forward-sexp 1) - (skip-chars-forward " \t\n'(")) - (buffer-substring-no-properties (point) - (progn (forward-sexp 1) - (point))))))) - (defun clojure-mode-hook-fn () - (setq-local add-log-current-defun-function #'clojure-current-defun-name)) - :hook - (clojure-mode . clojure-mode-hook-fn)) + (subword-mode +1)) (use-package hydra) (use-package clj-refactor |