File tree Expand file tree Collapse file tree 2 files changed +7
-8
lines changed Expand file tree Collapse file tree 2 files changed +7
-8
lines changed Original file line number Diff line number Diff line change 15
15
#? (:clj (fn [^String a ^String b] (.contains a b))
16
16
:cljs str/includes?))
17
17
18
- #?(:clj
18
+ #?(:clj
19
19
(defn- find-all [zloc p?]
20
20
(loop [matches []
21
21
zloc zloc]
90
90
(z/skip z/next* space? zloc))
91
91
92
92
(defn- skip-whitespace-and-commas [zloc]
93
- (z/skip z/next* #(or (space? %) (comma? %)) zloc))
93
+ (z/skip z/next* #(or (space? %) (comma? %)) zloc))
94
94
95
95
(defn- skip-clojure-whitespace
96
96
([zloc] (skip-clojure-whitespace zloc z/next*))
101
101
(if (z/linebreak? zloc')
102
102
(recur (-> zloc' z/right* skip-whitespace-and-commas)
103
103
(-> zloc' z/string count (+ newlines)))
104
- (if (comment? (skip-clojure-whitespace zloc z/left*))
104
+ (if (comment? (skip-clojure-whitespace zloc z/left*))
105
105
(inc newlines)
106
106
newlines))))
107
107
344
344
([form indents alias-map]
345
345
(let [ns-name (find-namespace (z/edn form))
346
346
sorted-indents (sort-by indent-order indents)]
347
- (transform form edit-all should-indent?
347
+ (transform form edit-all should-indent?
348
348
#(indent-line % sorted-indents {:alias-map alias-map
349
349
:ns-name ns-name})))))
350
350
Original file line number Diff line number Diff line change 846
846
" "
847
847
" "
848
848
" "
849
- " (baz)"
850
- ]
849
+ " (baz)" ]
851
850
[" (foo)"
852
851
" "
853
852
" ;bar"
1148
1147
(is (= " #\" a\n b\" "
1149
1148
(reformat-string " #\" a\n b\" " ))
1150
1149
" regular expression with embedded newline" )
1151
- (is (reformats-to?
1152
- [" ##Inf ##-Inf ##NaN" ]
1150
+ (is (reformats-to?
1151
+ [" ##Inf ##-Inf ##NaN" ]
1153
1152
[" ##Inf ##-Inf ##NaN" ]))
1154
1153
(is (reformats-to?
1155
1154
[" :&::before" ]
You can’t perform that action at this time.
0 commit comments