Skip to content

Commit a9e2ca7

Browse files
committed
Add clojure-ts-joker-mode
1 parent 05a4e1e commit a9e2ca7

File tree

2 files changed

+16
-1
lines changed

2 files changed

+16
-1
lines changed

CHANGELOG.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,8 @@
22

33
## main (unreleased)
44

5+
- Add a dedicated mode for editing Joker code. (`clojure-ts-joker-mode`)
6+
57
## 0.5.1 (2025-06-17)
68

79
- [#109](https://github.com/clojure-emacs/clojure-ts-mode/issues/109): Improve performance by pre-compiling Tree-sitter queries.

clojure-ts-mode.el

Lines changed: 14 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -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
277278
See 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

Comments
 (0)