Add dis_expr to the list of sexp things

This fixes a bug in clojure-ts-align.  Before this change #_ and the following
ignored expression were treated as 2 separate s-expressions, so we were stuck in
an endless loop.

Author: rrudakov

CHANGELOG.md

@@ -17,6 +17,8 @@
 - [#91](https://github.com/clojure-emacs/clojure-ts-mode/pull/91): Introduce `clojure-ts-cycle-keyword-string`.
 - [#92](https://github.com/clojure-emacs/clojure-ts-mode/pull/92): Add commands to convert between collections types.
 - [#93](https://github.com/clojure-emacs/clojure-ts-mode/pull/93): Introduce `clojure-ts-add-arity`.
+- Fix an issue where `clojure-ts-align` would hang when called within an
+  expression containing ignored forms.
 
 ## 0.3.0 (2025-04-15)
 

clojure-ts-mode.el

@@ -1505,7 +1505,8 @@ function literal."
     "var_quoting_lit" "sym_val_lit" "evaling_lit"
     "tagged_or_ctor_lit" "splicing_read_cond_lit"
     "derefing_lit" "quoting_lit" "syn_quoting_lit"
-    "unquote_splicing_lit" "unquoting_lit")
+    "unquote_splicing_lit" "unquoting_lit"
+    "dis_expr")
   "A regular expression that matches nodes that can be treated as s-expressions.")
 
 (defconst clojure-ts--list-nodes

test/clojure-ts-mode-indentation-test.el

@@ -596,4 +596,12 @@ b |20])"
   :a  (let [a  1
             aa (+ a 1)]
         aa); comment
-  :aa 2)"))
+  :aa 2)")
+
+  (when-aligning-it "should work correctly when there are ignored forms"
+    "{:map  \"with\"
+ :some #_\"ignored\" \"form\"}"
+
+    "{:map      \"with\"
+ :multiple \"ignored\"
+ #_#_:forms \"foo\"}"))

test/samples/align.clj

@@ -55,3 +55,10 @@
             aa (+ a 1)]
         aa); comment
   :aa 2)
+
+{:map  "with"
+ :some #_"ignored" "form"}
+
+{:map      "with"
+ :multiple "ignored"
+ #_#_:forms "foo"}