|
16 | 16 | input $ {} (:type "\"checkbox") (:checked checked?) |
17 | 17 | :style $ {} (:cursor :pointer) |
18 | 18 | <> text css/font-fancy |
| 19 | + :examples $ [] |
19 | 20 | |comp-container $ %{} :CodeEntry (:doc |) |
20 | 21 | :code $ quote |
21 | 22 | defcomp comp-container (reel) |
|
61 | 62 | when dev? $ comp-reel (>> states :reel) reel ({}) |
62 | 63 | when dev? $ comp-inspect "\"Store" store |
63 | 64 | {} $ :bottom 0 |
| 65 | + :examples $ [] |
64 | 66 | |comp-diff-view $ %{} :CodeEntry (:doc |) |
65 | 67 | :code $ quote |
66 | 68 | defcomp comp-diff-view (changes by-word?) |
|
85 | 87 | {} (:inner-text tok) |
86 | 88 | :class-name $ str-spaced style-line style-no-change (if by-word? style-word-mode) |
87 | 89 | ; :title $ str (:count chunk) "\" chunks reversed" |
| 90 | + :examples $ [] |
88 | 91 | |comp-divider $ %{} :CodeEntry (:doc |) |
89 | 92 | :code $ quote |
90 | 93 | defcomp comp-divider () $ div |
91 | 94 | {} $ :style |
92 | 95 | {} (:width 1) |
93 | 96 | :background-color $ hsl 0 0 94 |
| 97 | + :examples $ [] |
94 | 98 | |comp-toolbar $ %{} :CodeEntry (:doc |) |
95 | 99 | :code $ quote |
96 | 100 | defcomp comp-toolbar (show-result? sorted? by-word?) |
|
117 | 121 | a $ {} (:class-name css/link) (:inner-text "\"Clear") (:title "\"⌘ k") |
118 | 122 | :on-click $ fn (e d!) |
119 | 123 | d! $ :: :clear-text |
| 124 | + :examples $ [] |
120 | 125 | |sort-by-line $ %{} :CodeEntry (:doc |) |
121 | 126 | :code $ quote |
122 | 127 | defn sort-by-line (text) |
123 | 128 | -> text (.split-lines) (.sort-by identity) (.join-str &newline) |
| 129 | + :examples $ [] |
124 | 130 | |style-added $ %{} :CodeEntry (:doc |) |
125 | 131 | :code $ quote |
126 | 132 | defstyle style-added $ {} |
127 | 133 | "\"&" $ {} |
128 | 134 | :background-color $ hsl 200 100 92 |
| 135 | + :examples $ [] |
129 | 136 | |style-line $ %{} :CodeEntry (:doc |) |
130 | 137 | :code $ quote |
131 | 138 | defstyle style-line $ {} |
132 | 139 | "\"&" $ {} (:line-height "\"24px") (:font-size 12) (:font-family ui/font-code) (:margin 0) (:padding "\"0 8px") (:white-space :pre) (:overflow-x :auto) |
| 140 | + :examples $ [] |
133 | 141 | |style-no-change $ %{} :CodeEntry (:doc |) |
134 | 142 | :code $ quote |
135 | 143 | defstyle style-no-change $ {} |
136 | 144 | "\"&" $ {} |
137 | 145 | :color $ hsl 0 0 80 |
138 | 146 | :line-height "\"15px" |
| 147 | + :examples $ [] |
139 | 148 | |style-removed $ %{} :CodeEntry (:doc |) |
140 | 149 | :code $ quote |
141 | 150 | defstyle style-removed $ {} |
142 | 151 | "\"&" $ {} |
143 | 152 | :background-color $ hsl 0 100 78 |
144 | 153 | :color :white |
| 154 | + :examples $ [] |
145 | 155 | |style-text $ %{} :CodeEntry (:doc |) |
146 | 156 | :code $ quote |
147 | 157 | defstyle style-text $ {} |
148 | 158 | "\"&" $ {} (:font-family ui/font-code) (:line-height "\"20px") (:font-size 12) (:white-space :pre) (:overflow :auto) (:border :none) (:padding "\"8px 8px 80px 8px") (:resize :none) |
| 159 | + :examples $ [] |
149 | 160 | |style-toolbar $ %{} :CodeEntry (:doc |) |
150 | 161 | :code $ quote |
151 | 162 | defstyle style-toolbar $ {} |
152 | 163 | "\"&" $ {} |
153 | 164 | :border-bottom $ str "\"1px solid " (hsl 0 0 90) |
154 | 165 | :line-height "\"32px" |
155 | 166 | :padding "\"0 8px" |
| 167 | + :examples $ [] |
156 | 168 | |style-word-mode $ %{} :CodeEntry (:doc |) |
157 | 169 | :code $ quote |
158 | 170 | defstyle style-word-mode $ {} |
159 | 171 | "\"&" $ {} (:display :inline) (:white-space :pre-wrap) |
| 172 | + :examples $ [] |
160 | 173 | |tagging-data $ %{} :CodeEntry (:doc |) |
161 | 174 | :code $ quote |
162 | 175 | defn tagging-data (xs) |
163 | 176 | if (map? xs) |
164 | 177 | map-kv xs $ fn (k v) |
165 | 178 | [] (turn-tag k) v |
166 | 179 | if (list? xs) (map xs tagging-data) xs |
| 180 | + :examples $ [] |
167 | 181 | :ns $ %{} :CodeEntry (:doc |) |
168 | 182 | :code $ quote |
169 | 183 | ns app.comp.container $ :require |
|
183 | 197 | |dev? $ %{} :CodeEntry (:doc |) |
184 | 198 | :code $ quote |
185 | 199 | def dev? $ = "\"dev" (get-env "\"mode") |
| 200 | + :examples $ [] |
186 | 201 | |site $ %{} :CodeEntry (:doc |) |
187 | 202 | :code $ quote |
188 | 203 | def site $ {} (:title "\"Diffview") (:storage-key "\"diffview") |
| 204 | + :examples $ [] |
189 | 205 | :ns $ %{} :CodeEntry (:doc |) |
190 | 206 | :code $ quote (ns app.config) |
191 | 207 | |app.main $ %{} :FileEntry |
192 | 208 | :defs $ {} |
193 | 209 | |*reel $ %{} :CodeEntry (:doc |) |
194 | 210 | :code $ quote |
195 | 211 | defatom *reel $ -> reel-schema/reel (assoc :base schema/store) (assoc :store schema/store) |
| 212 | + :examples $ [] |
196 | 213 | |dispatch! $ %{} :CodeEntry (:doc |) |
197 | 214 | :code $ quote |
198 | 215 | defn dispatch! (op) |
199 | 216 | when config/dev? $ js/console.log "\"Dispatch:" op |
200 | 217 | reset! *reel $ reel-updater updater @*reel op |
| 218 | + :examples $ [] |
201 | 219 | |main! $ %{} :CodeEntry (:doc |) |
202 | 220 | :code $ quote |
203 | 221 | defn main! () |
|
222 | 240 | (and (.-metaKey event) (= "\"i" (.-key event))) |
223 | 241 | dispatch! $ :: :swap-text |
224 | 242 | println "|App started." |
| 243 | + :examples $ [] |
225 | 244 | |mount-target $ %{} :CodeEntry (:doc |) |
226 | 245 | :code $ quote |
227 | 246 | def mount-target $ js/document.querySelector |.app |
| 247 | + :examples $ [] |
228 | 248 | |persist-storage! $ %{} :CodeEntry (:doc |) |
229 | 249 | :code $ quote |
230 | 250 | defn persist-storage! (? e) |
231 | 251 | js/localStorage.setItem (:storage-key config/site) |
232 | 252 | format-cirru-edn $ :store @*reel |
| 253 | + :examples $ [] |
233 | 254 | |reload! $ %{} :CodeEntry (:doc |) |
234 | 255 | :code $ quote |
235 | 256 | defn reload! () $ if (nil? build-errors) |
|
238 | 259 | reset! *reel $ refresh-reel @*reel schema/store updater |
239 | 260 | hud! "\"ok~" "\"Ok" |
240 | 261 | hud! "\"error" build-errors |
| 262 | + :examples $ [] |
241 | 263 | |render-app! $ %{} :CodeEntry (:doc |) |
242 | 264 | :code $ quote |
243 | 265 | defn render-app! () $ render! mount-target (comp-container @*reel) dispatch! |
| 266 | + :examples $ [] |
244 | 267 | |repeat! $ %{} :CodeEntry (:doc |) |
245 | 268 | :code $ quote |
246 | 269 | defn repeat! (duration cb) |
247 | 270 | js/setTimeout |
248 | 271 | fn () (cb) |
249 | 272 | repeat! (* 1000 duration) cb |
250 | 273 | * 1000 duration |
| 274 | + :examples $ [] |
251 | 275 | :ns $ %{} :CodeEntry (:doc |) |
252 | 276 | :code $ quote |
253 | 277 | ns app.main $ :require |
|
274 | 298 | :by-word? false |
275 | 299 | :old-text "\"" |
276 | 300 | :new-text "\"" |
| 301 | + :examples $ [] |
277 | 302 | :ns $ %{} :CodeEntry (:doc |) |
278 | 303 | :code $ quote (ns app.schema) |
279 | 304 | |app.updater $ %{} :FileEntry |
|
301 | 326 | assoc :old-text $ :new-text store |
302 | 327 | assoc :new-text $ :old-text store |
303 | 328 | _ $ do (eprintln "\"Unkown op:" op) store |
| 329 | + :examples $ [] |
304 | 330 | :ns $ %{} :CodeEntry (:doc |) |
305 | 331 | :code $ quote |
306 | 332 | ns app.updater $ :require |
|
0 commit comments