Skip to content

Commit 662bc0d

Browse files
committed
Add a command to display the mode's version
Useful for bug reports.
1 parent f469a8c commit 662bc0d

File tree

1 file changed

+13
-3
lines changed

1 file changed

+13
-3
lines changed

clojure-ts-mode.el

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,6 +52,11 @@
5252
;;; Code:
5353
(require 'treesit)
5454

55+
(defconst clojure-ts-mode-version
56+
(eval-when-compile
57+
(lm-version (or load-file-name buffer-file-name)))
58+
"The current version of `clojure-ts-mode'.")
59+
5560
(defconst clojure-ts-mode--builtin-dynamic-var-regexp
5661
(eval-and-compile
5762
(concat "^"
@@ -349,6 +354,11 @@
349354
'treesit-language-source-alist
350355
'(clojure "https://github.com/sogaiu/tree-sitter-clojure.git"))
351356

357+
(defun clojure-ts-mode-display-version ()
358+
"Display the current `clojure-mode-version' in the minibuffer."
359+
(interactive)
360+
(message "clojure-ts-mode (version %s)" clojure-ts-mode-version))
361+
352362
;;;###autoload
353363
(define-derived-mode clojure-ts-mode prog-mode "Clojure[TS]"
354364
"Major mode for editing Clojure code.
@@ -373,9 +383,9 @@ Requires Emacs 29 and libtree-sitter-clojure.so available somewhere in
373383
(setq treesit--indent-verbose t)
374384
(treesit-major-mode-setup)
375385
(treesit-inspect-mode)
376-
;(clojure-mode-variables)
377-
;(add-hook 'paredit-mode-hook #'clojure-paredit-setup)
378-
;(add-hook 'electric-indent-function #'clojure-mode--electric-indent-function)
386+
;; (clojure-mode-variables)
387+
;; (add-hook 'paredit-mode-hook #'clojure-paredit-setup)
388+
;; (add-hook 'electric-indent-function #'clojure-mode--electric-indent-function)
379389
))
380390

381391
;; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present

0 commit comments

Comments
 (0)