@@ -577,23 +577,6 @@ The possible values for this variable are
577
577
((parent-is " list_lit" ) parent 1 )
578
578
((parent-is " set_lit" ) parent 2 ))))
579
579
580
- (defvar clojure-ts--sexp-nodes
581
- '(" #_" ; ; transpose-sexp near a discard macro moves it around.
582
- " num_lit" " sym_lit" " kwd_lit" " nil_lit" " bool_lit"
583
- " regex_lit" " str_lit" " char_lit"
584
- " list_lit" " map_lit" " vec_lit" " set_lit" " ns_map_lit"
585
- " anon_fn_lit" " read_cond_lit"
586
- " var_quoting_lit" " sym_val_lit" " evaling_lit"
587
- " tagged_or_ctor_lit" " splicing_read_cond_lit"
588
- " derefing_lit" " quoting_lit" " syn_quoting_lit"
589
- " unquote_splicing_lit" " unquoting_lit" )
590
- " A regular expression that matches nodes that can be treated as s-expressions." )
591
-
592
- (defvar clojure-ts--thing-settings
593
- `((clojure
594
- ((sexp ,(regexp-opt clojure-ts--sexp-nodes))
595
- (text ,(regexp-opt '(" comment" )))))))
596
-
597
580
(defvar clojure-ts--symbols-with-body-expressions-regexp
598
581
(eval-and-compile
599
582
(rx (or
@@ -753,6 +736,23 @@ forms like deftype, defrecord, reify, proxy, etc."
753
736
'(semantic fixed )
754
737
clojure-ts-indent-style)))))
755
738
739
+ (defconst clojure-ts--sexp-nodes
740
+ '(" #_" ; ; transpose-sexp near a discard macro moves it around.
741
+ " num_lit" " sym_lit" " kwd_lit" " nil_lit" " bool_lit"
742
+ " regex_lit" " str_lit" " char_lit"
743
+ " list_lit" " map_lit" " vec_lit" " set_lit" " ns_map_lit"
744
+ " anon_fn_lit" " read_cond_lit"
745
+ " var_quoting_lit" " sym_val_lit" " evaling_lit"
746
+ " tagged_or_ctor_lit" " splicing_read_cond_lit"
747
+ " derefing_lit" " quoting_lit" " syn_quoting_lit"
748
+ " unquote_splicing_lit" " unquoting_lit" )
749
+ " A regular expression that matches nodes that can be treated as s-expressions." )
750
+
751
+ (defconst clojure-ts--thing-settings
752
+ `((clojure
753
+ ((sexp ,(regexp-opt clojure-ts--sexp-nodes))
754
+ (text ,(regexp-opt '(" comment" )))))))
755
+
756
756
(defvar clojure-ts-mode-map
757
757
(let ((map (make-sparse-keymap )))
758
758
; (set-keymap-parent map clojure-mode-map)
0 commit comments