Skip to content

Commit d4e0f1a

Browse files
committed
Move thing-settings out of the middle of indent-related functions
1 parent 177ac05 commit d4e0f1a

File tree

1 file changed

+17
-17
lines changed

1 file changed

+17
-17
lines changed

clojure-ts-mode.el

Lines changed: 17 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -577,23 +577,6 @@ The possible values for this variable are
577577
((parent-is "list_lit") parent 1)
578578
((parent-is "set_lit") parent 2))))
579579

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-
597580
(defvar clojure-ts--symbols-with-body-expressions-regexp
598581
(eval-and-compile
599582
(rx (or
@@ -753,6 +736,23 @@ forms like deftype, defrecord, reify, proxy, etc."
753736
'(semantic fixed)
754737
clojure-ts-indent-style)))))
755738

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+
756756
(defvar clojure-ts-mode-map
757757
(let ((map (make-sparse-keymap)))
758758
;(set-keymap-parent map clojure-mode-map)

0 commit comments

Comments
 (0)