@@ -200,7 +200,7 @@ Out-of-the box `clojure-mode' understands lein, boot, gradle,
200
200
(cl-every 'stringp value))))
201
201
202
202
(defcustom clojure-directory-prefixes
203
- '(" \\ `clj[scx ]?\\ ." )
203
+ '(" \\ `clj[scxd ]?\\ ." )
204
204
" A list of directory prefixes used by `clojure-expected-ns' .
205
205
The prefixes are used to generate the correct namespace."
206
206
:type '(repeat string)
@@ -605,7 +605,10 @@ non-nil."
605
605
'clojurescript-mode )
606
606
((and (string-match " \\ .cljc\\ '" (buffer-file-name ))
607
607
(not (eq major-mode 'clojurec-mode )))
608
- 'clojurec-mode ))))
608
+ 'clojurec-mode )
609
+ ((and (string-match " \\ .cljd\\ '" (buffer-file-name ))
610
+ (not (eq major-mode 'clojuredart-mode )))
611
+ 'clojuredart-mode ))))
609
612
(when problem
610
613
(message " [WARNING] %s activated `%s' instead of `%s' in this buffer.
611
614
This could cause problems.
@@ -3067,12 +3070,19 @@ With universal argument \\[universal-argument], act on the \"top-level\" form."
3067
3070
3068
3071
\\ {clojurec-mode-map}" )
3069
3072
3073
+ ;;;### autoload
3074
+ (define-derived-mode clojuredart-mode clojure-mode " ClojureDart"
3075
+ " Major mode for editing ClojureDart code.
3076
+
3077
+ \\ {clojuredart-mode-map}" )
3078
+
3070
3079
;;;### autoload
3071
3080
(progn
3072
3081
(add-to-list 'auto-mode-alist
3073
3082
'(" \\ .\\ (clj\\ |dtm\\ |edn\\ )\\ '" . clojure-mode))
3074
3083
(add-to-list 'auto-mode-alist '(" \\ .cljc\\ '" . clojurec-mode))
3075
3084
(add-to-list 'auto-mode-alist '(" \\ .cljs\\ '" . clojurescript-mode))
3085
+ (add-to-list 'auto-mode-alist '(" \\ .cljd\\ '" . clojuredart-mode))
3076
3086
; ; boot build scripts are Clojure source files
3077
3087
(add-to-list 'auto-mode-alist '(" \\ (?:build\\ |profile\\ )\\ .boot\\ '" . clojure-mode))
3078
3088
; ; babashka scripts are Clojure source files
0 commit comments