From 9d3c619aa9e9d3bfd39cbfe46edb98a07e191416 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 20 Sep 2025 02:56:15 +0100 Subject: clojure nits --- custom/jao-custom-programming.el | 34 ++++++++++++++++++---------------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/custom/jao-custom-programming.el b/custom/jao-custom-programming.el index 4028f3d..6f31711 100644 --- a/custom/jao-custom-programming.el +++ b/custom/jao-custom-programming.el @@ -239,27 +239,29 @@ ;;;; Clojure (use-package clojure-mode :ensure t + :hook (clojure-mode . jao-clojure--fix-things) :config (defun jao-clojure--fix-things () (setq-local completion-styles '(basic partial-completion emacs22)) (eldoc-mode 1) (setq mode-name "λ")) - :hook (clojure-mode . jao-clojure--fix-things)) - -(defun jao-cider-test-ns (ns) - (let ((parts (string-split ns "\\."))) - (if (string= "test" (cadr parts)) - ns - (mapconcat #'identity (cons (car parts) (cons "test" (cdr parts))) ".")))) - -(defun jao-kaocha-file-name () - (let* ((filename (match-string 2)) - (path (replace-regexp-in-string "\\." "/" (match-string 1)))) - (substring-no-properties (concat "test/" path filename)))) - -(defconst jao-kaocha-compilation-error - '(kaocha-error "^FAIL in \\(.+\\.\\)[^ ]+ (\\([^:]+\\.clj[cs]?\\):\\([0-9]+\\))" - jao-kaocha-file-name 3)) + + (defun jao-cider-test-ns (ns) + (let ((parts (string-split ns "\\."))) + (if (string= "test" (cadr parts)) + ns + (mapconcat #'identity + (cons (car parts) (cons "test" (cdr parts))) ".")))) + + (defun jao-kaocha-file-name () + (let* ((filename (match-string 2)) + (path (replace-regexp-in-string "\\." "/" (match-string 1)))) + (substring-no-properties (concat "test/" path filename)))) + + (defconst jao-kaocha-compilation-error + '(kaocha-error + "^FAIL in \\(.+\\.\\)[^ ]+ (\\([^:]+\\.clj[cs]?\\):\\([0-9]+\\))" + jao-kaocha-file-name 3))) (use-package compile :config -- cgit v1.2.3