@@ -271,7 +271,8 @@ values like this:
271271 (clojurescript-mode . clojure-ts-clojurescript-mode)
272272 (clojurec-mode . clojure-ts-clojurec-mode)
273273 (clojuredart-mode . clojure-ts-clojuredart-mode)
274- (jank-mode . clojure-ts-jank-mode))
274+ (jank-mode . clojure-ts-jank-mode)
275+ (joker-mode . clojure-ts-joker-mode))
275276 " Alist of entries to `major-mode-remap-defaults' .
276277
277278See also `clojure-ts-activate-mode-remappings' and
@@ -2719,6 +2720,11 @@ all let bindings found along the way."
27192720 (set-keymap-parent map clojure-ts-mode-map)
27202721 map))
27212722
2723+ (defvar clojure-ts-joker-mode-map
2724+ (let ((map (make-sparse-keymap )))
2725+ (set-keymap-parent map clojure-ts-mode-map)
2726+ map))
2727+
27222728(defun clojure-ts-mode-display-version ()
27232729 " Display the current `clojure-mode-version' in the minibuffer."
27242730 (interactive )
@@ -2972,6 +2978,12 @@ REGEX-AVAILABLE."
29722978 (clojure-ts--add-config-for-mode 'c++-ts-mode )
29732979 (treesit-major-mode-setup)))
29742980
2981+ ;;;### autoload
2982+ (define-derived-mode clojure-ts-joker-mode clojure-ts-mode " Joker[TS]"
2983+ " Major mode for editing Joker code.
2984+
2985+ \\ {clojure-ts-joker-mode-map}" )
2986+
29752987(defun clojure-ts-activate-mode-remappings ()
29762988 " Remap all `clojure-mode' file-specified modes to use `clojure-ts-mode' .
29772989
@@ -3004,6 +3016,7 @@ Useful if you want to switch to the `clojure-mode's mode mappings."
30043016 (add-to-list 'auto-mode-alist '(" \\ .cljc\\ '" . clojure-ts-clojurec-mode))
30053017 (add-to-list 'auto-mode-alist '(" \\ .cljd\\ '" . clojure-ts-clojuredart-mode))
30063018 (add-to-list 'auto-mode-alist '(" \\ .jank\\ '" . clojure-ts-jank-mode))
3019+ (add-to-list 'auto-mode-alist '(" \\ .joke\\ '" . clojure-ts-joker-mode))
30073020 ; ; boot build scripts are Clojure source files
30083021 (add-to-list 'auto-mode-alist '(" \\ (?:build\\ |profile\\ )\\ .boot\\ '" . clojure-ts-mode))
30093022 ; ; babashka scripts are Clojure source files
0 commit comments