From 89a0f2629f7238938ce10b60fb0c009ecd915a35 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Fri, 26 Aug 2022 16:10:13 +0100 Subject: Remove code added upstream --- .emacs.d/lisp/init-clojure.el | 34 +--------------------------------- 1 file changed, 1 insertion(+), 33 deletions(-) (limited to '.emacs.d/lisp') 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 -- cgit 1.4.1-2-gfad0