diff options
author | David Morgan <djm_uk@protonmail.com> | 2022-08-26 16:10:13 +0100 |
---|---|---|
committer | David Morgan <djm_uk@protonmail.com> | 2022-08-26 16:10:13 +0100 |
commit | 89a0f2629f7238938ce10b60fb0c009ecd915a35 (patch) | |
tree | ce1772f961ee1f90c6360b93fef60c606da489f7 /.emacs.d | |
parent | 45ed8ade5112b398bb8479284ad02a4a7f11ef1c (diff) | |
download | dotfiles-89a0f2629f7238938ce10b60fb0c009ecd915a35.tar.gz |
Remove code added upstream
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 |