@@ -269,7 +269,9 @@ values like this:
269
269
(defvar clojure-ts-mode-remappings
270
270
'((clojure-mode . clojure-ts-mode)
271
271
(clojurescript-mode . clojure-ts-clojurescript-mode)
272
- (clojurec-mode . clojure-ts-clojurec-mode))
272
+ (clojurec-mode . clojure-ts-clojurec-mode)
273
+ (clojuredart-mode . clojure-ts-clojuredart-mode)
274
+ (jank-mode . clojure-ts-jank-mode))
273
275
" Alist of entries to `major-mode-remap-defaults' .
274
276
275
277
See also `clojure-ts-activate-mode-remappings' and
@@ -2970,11 +2972,6 @@ REGEX-AVAILABLE."
2970
2972
(clojure-ts--add-config-for-mode 'c++-ts-mode )
2971
2973
(treesit-major-mode-setup)))
2972
2974
2973
- (defun clojure-ts--register-novel-modes ()
2974
- " Set up Clojure modes not present in progenitor clojure-mode.el."
2975
- (add-to-list 'auto-mode-alist '(" \\ .cljd\\ '" . clojure-ts-clojuredart-mode))
2976
- (add-to-list 'auto-mode-alist '(" \\ .jank\\ '" . clojure-ts-jank-mode)))
2977
-
2978
2975
(defun clojure-ts-activate-mode-remappings ()
2979
2976
" Remap all `clojure-mode' file-specified modes to use `clojure-ts-mode' .
2980
2977
@@ -2995,10 +2992,8 @@ Useful if you want to switch to the `clojure-mode's mode mappings."
2995
2992
(if (treesit-available-p)
2996
2993
; ; Redirect clojure-mode to clojure-ts-mode if clojure-mode is present
2997
2994
(if (require 'clojure-mode nil 'noerror )
2998
- (progn
2999
- (when clojure-ts-auto-remap
3000
- (clojure-ts-activate-mode-remappings))
3001
- (clojure-ts--register-novel-modes))
2995
+ (when clojure-ts-auto-remap
2996
+ (clojure-ts-activate-mode-remappings))
3002
2997
; ; When Clojure-mode is not present, setup auto-modes ourselves
3003
2998
(progn
3004
2999
; ; Regular clojure/edn files
@@ -3007,13 +3002,14 @@ Useful if you want to switch to the `clojure-mode's mode mappings."
3007
3002
'(" \\ .\\ (clj\\ |dtm\\ |edn\\ )\\ '" . clojure-ts-mode))
3008
3003
(add-to-list 'auto-mode-alist '(" \\ .cljs\\ '" . clojure-ts-clojurescript-mode))
3009
3004
(add-to-list 'auto-mode-alist '(" \\ .cljc\\ '" . clojure-ts-clojurec-mode))
3005
+ (add-to-list 'auto-mode-alist '(" \\ .cljd\\ '" . clojure-ts-clojuredart-mode))
3006
+ (add-to-list 'auto-mode-alist '(" \\ .jank\\ '" . clojure-ts-jank-mode))
3010
3007
; ; boot build scripts are Clojure source files
3011
3008
(add-to-list 'auto-mode-alist '(" \\ (?:build\\ |profile\\ )\\ .boot\\ '" . clojure-ts-mode))
3012
3009
; ; babashka scripts are Clojure source files
3013
3010
(add-to-list 'interpreter-mode-alist '(" bb" . clojure-ts-mode))
3014
3011
; ; nbb scripts are ClojureScript source files
3015
- (add-to-list 'interpreter-mode-alist '(" nbb" . clojure-ts-clojurescript-mode))
3016
- (clojure-ts--register-novel-modes)))
3012
+ (add-to-list 'interpreter-mode-alist '(" nbb" . clojure-ts-clojurescript-mode))))
3017
3013
(message " Clojure TS Mode will not be activated as Tree-sitter support is missing. " ))
3018
3014
3019
3015
(defvar clojure-ts--find-ns-query
0 commit comments