|
| 1 | + |
| 2 | +{} (:package |text-diff) |
| 3 | + :configs $ {} (:init-fn |text-diff.main/main!) (:reload-fn |text-diff.main/reload!) |
| 4 | + :modules $ [] |respo.calcit/ |lilac/ |memof/ |respo-ui.calcit/ |respo-markdown.calcit/ |reel.calcit/ |
| 5 | + :version nil |
| 6 | + :files $ {} |
| 7 | + |text-diff.config $ {} |
| 8 | + :ns $ quote (ns text-diff.config) |
| 9 | + :defs $ {} |
| 10 | + |cdn? $ quote |
| 11 | + def cdn? $ cond |
| 12 | + exists? js/window |
| 13 | + , false |
| 14 | + (exists? js/process) (= "\"true" js/process.env.cdn) |
| 15 | + :else false |
| 16 | + |dev? $ quote |
| 17 | + def dev? $ = "\"dev" (get-env "\"mode") |
| 18 | + |site $ quote |
| 19 | + def site $ {} (:dev-ui "\"http://localhost:8100/main-fonts.css") (:release-ui "\"http://cdn.tiye.me/favored-fonts/main-fonts.css") (:cdn-url "\"http://cdn.tiye.me/calcit-workflow/") (:title "\"Calcit") (:icon "\"http://cdn.tiye.me/logo/mvc-works.png") (:storage-key "\"workflow") |
| 20 | + |text-diff.schema $ {} |
| 21 | + :ns $ quote (ns text-diff.schema) |
| 22 | + :defs $ {} |
| 23 | + |store $ quote |
| 24 | + def store $ {} |
| 25 | + :states $ {} |
| 26 | + :content | |
| 27 | + |text-diff.updater $ {} |
| 28 | + :ns $ quote |
| 29 | + ns text-diff.updater $ :require |
| 30 | + [] respo.cursor :refer $ [] update-states |
| 31 | + :defs $ {} |
| 32 | + |updater $ quote |
| 33 | + defn updater (store op op-data op-id op-time) |
| 34 | + case-default op |
| 35 | + do (println "\"Unknown op:" op) store |
| 36 | + :states $ update-states store op-data |
| 37 | + :content $ assoc store :content op-data |
| 38 | + :hydrate-storage op-data |
| 39 | + |text-diff.comp.container $ {} |
| 40 | + :ns $ quote |
| 41 | + ns text-diff.comp.container $ :require |
| 42 | + [] hsl.core :refer $ [] hsl |
| 43 | + [] respo-ui.core :as ui |
| 44 | + [] respo.core :refer $ [] defcomp >> <> div button textarea span input |
| 45 | + [] respo.comp.space :refer $ [] =< |
| 46 | + [] reel.comp.reel :refer $ [] comp-reel |
| 47 | + [] respo-md.comp.md :refer $ [] comp-md |
| 48 | + [] text-diff.config :refer $ [] dev? |
| 49 | + :defs $ {} |
| 50 | + |comp-container $ quote |
| 51 | + defcomp comp-container (reel) |
| 52 | + let |
| 53 | + store $ :store reel |
| 54 | + states $ :states store |
| 55 | + div |
| 56 | + {} $ :style (merge ui/global ui/row) |
| 57 | + textarea $ {} |
| 58 | + :value $ :content store |
| 59 | + :placeholder "\"Content" |
| 60 | + :style $ merge ui/expand ui/textarea |
| 61 | + {} $ :height 320 |
| 62 | + :on-input $ fn (e d!) |
| 63 | + d! :content $ :value e |
| 64 | + =< |8px nil |
| 65 | + div |
| 66 | + {} $ :style ui/expand |
| 67 | + comp-md "|This is some content with `code`" |
| 68 | + =< |8px nil |
| 69 | + button $ {} (:style ui/button) |
| 70 | + :inner-text $ str |run |
| 71 | + :on-click $ fn (e d! m!) |
| 72 | + println $ :content store |
| 73 | + when dev? $ comp-reel (>> states :reel) reel ({}) |
| 74 | + |text-diff.main $ {} |
| 75 | + :ns $ quote |
| 76 | + ns text-diff.main $ :require |
| 77 | + [] respo.core :refer $ [] render! clear-cache! realize-ssr! |
| 78 | + [] text-diff.comp.container :refer $ [] comp-container |
| 79 | + [] text-diff.updater :refer $ [] updater |
| 80 | + [] text-diff.schema :as schema |
| 81 | + [] reel.util :refer $ [] listen-devtools! |
| 82 | + [] reel.core :refer $ [] reel-updater refresh-reel |
| 83 | + reel.schema :as reel-schema |
| 84 | + [] text-diff.config :as config |
| 85 | + "\"./calcit.build-errors" :default build-errors |
| 86 | + "\"bottom-tip" :default hud! |
| 87 | + :defs $ {} |
| 88 | + |render-app! $ quote |
| 89 | + defn render-app! () $ render! mount-target (comp-container @*reel) dispatch! |
| 90 | + |persist-storage! $ quote |
| 91 | + defn persist-storage! (? e) |
| 92 | + .setItem js/localStorage (:storage-key config/site) |
| 93 | + format-cirru-edn $ :store @*reel |
| 94 | + |mount-target $ quote |
| 95 | + def mount-target $ .querySelector js/document |.app |
| 96 | + |*reel $ quote |
| 97 | + defatom *reel $ -> reel-schema/reel (assoc :base schema/store) (assoc :store schema/store) |
| 98 | + |main! $ quote |
| 99 | + defn main! () |
| 100 | + println "\"Running mode:" $ if config/dev? "\"dev" "\"release" |
| 101 | + render-app! |
| 102 | + add-watch *reel :changes $ fn (r p) (render-app!) |
| 103 | + listen-devtools! |a dispatch! |
| 104 | + .addEventListener js/window |beforeunload persist-storage! |
| 105 | + ; repeat! 60 persist-storage! |
| 106 | + let |
| 107 | + raw $ .getItem js/localStorage (:storage-key config/site) |
| 108 | + when (some? raw) |
| 109 | + dispatch! :hydrate-storage $ parse-cirru-edn raw |
| 110 | + println "|App started." |
| 111 | + |snippets $ quote |
| 112 | + defn snippets () $ println config/cdn? |
| 113 | + |dispatch! $ quote |
| 114 | + defn dispatch! (op op-data) |
| 115 | + when config/dev? $ println "\"Dispatch:" op |
| 116 | + reset! *reel $ reel-updater updater @*reel op op-data |
| 117 | + |reload! $ quote |
| 118 | + defn reload! () $ if (nil? build-errors) |
| 119 | + do (remove-watch *reel :changes) (clear-cache!) |
| 120 | + add-watch *reel :changes $ fn (reel prev) (render-app!) |
| 121 | + reset! *reel $ refresh-reel @*reel schema/store updater |
| 122 | + hud! "\"ok~" "\"Ok" |
| 123 | + hud! "\"error" build-errors |
0 commit comments