From fe455a22f79e6b4c76eb37c2577610a787ec1f4e Mon Sep 17 00:00:00 2001 From: tiye Date: Fri, 3 Jul 2026 19:45:34 +0800 Subject: [PATCH 1/3] doing workflow update --- .gitattributes | 1 - .github/workflows/upload.yaml | 19 +- .gitignore | 2 + .yarnrc.yml | 1 + calcit.cirru | 6602 ++++----------------------------- compact.cirru | 926 ----- deps.cirru | 15 + package.cirru | 15 - package.json | 7 +- yarn.lock | 1651 ++++++--- 10 files changed, 1916 insertions(+), 7323 deletions(-) create mode 100644 .yarnrc.yml delete mode 100644 compact.cirru create mode 100644 deps.cirru delete mode 100644 package.cirru diff --git a/.gitattributes b/.gitattributes index f865be5..5f75ec4 100644 --- a/.gitattributes +++ b/.gitattributes @@ -1,3 +1,2 @@ -calcit.cirru -diff linguist-generated yarn.lock -diff linguist-generated diff --git a/.github/workflows/upload.yaml b/.github/workflows/upload.yaml index 9672092..6631730 100644 --- a/.github/workflows/upload.yaml +++ b/.github/workflows/upload.yaml @@ -12,18 +12,23 @@ jobs: steps: - uses: actions/checkout@v4 - - uses: actions/setup-node@v4 + - uses: actions/setup-node@v6 with: - node-version: 20 - cache: 'yarn' + node-version: 24 - - uses: calcit-lang/setup-cr@0.0.3 + - name: Enable Corepack + run: | + corepack enable + corepack prepare yarn@4.12.0 --activate + yarn --version + + - uses: calcit-lang/setup-cr@0.0.9 with: - version: "0.8.46" + version: "0.12.47" - - run: caps --ci && cr --entry server --emit-ir -1 + - run: caps --ci && cr --entry server ir - - run: yarn && yarn compile-page && yarn release-page + - run: yarn install --immutable && yarn compile-page && yarn release-page - run: mkdir -p dist-server && cp compact.cirru dist-server && cp package.json dist-server/ name: Copy server scripts diff --git a/.gitignore b/.gitignore index baa5b2a..eabf33a 100644 --- a/.gitignore +++ b/.gitignore @@ -7,6 +7,8 @@ node_modules/ dist/ out-page/ +.yarn/*.gz + yarn-error.log copycat.cirru diff --git a/.yarnrc.yml b/.yarnrc.yml new file mode 100644 index 0000000..3186f3f --- /dev/null +++ b/.yarnrc.yml @@ -0,0 +1 @@ +nodeLinker: node-modules diff --git a/calcit.cirru b/calcit.cirru index 4b4714f..64bf9c3 100644 --- a/calcit.cirru +++ b/calcit.cirru @@ -1,6 +1,6 @@ {} (:package |app) - :configs $ {} (:init-fn |app.client/main!) (:port 6001) (:reload-fn |app.client/reload!) (:storage-key |calcit.cirru) + :configs $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!) (:storage-key |calcit.cirru) :modules $ [] |respo.calcit/ |lilac/ |recollect/ |memof/ |respo-ui.calcit/ |ws-edn.calcit/ |cumulo-util.calcit/ |respo-message.calcit/ |cumulo-reel.calcit/ |respo-feather.calcit/ |alerts.calcit/ :entries $ {} :server $ {} (:init-fn |app.server/main!) (:port 6001) (:reload-fn |app.server/reload!) (:storage-key |calcit.cirru) @@ -9,5940 +9,918 @@ |app.client $ %{} :FileEntry :defs $ {} |*states $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defatom) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*states) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:states) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:cursor) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |[]) + :code $ quote + defatom *states $ {} + :states $ {} + :cursor $ [] |*store $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defatom) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |nil) + :code $ quote (defatom *store nil) |connect! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |connect!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |let) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |url-obj) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |url-parse) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |js/location.href) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |true) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |host) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |either) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |url-obj) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |.-query) - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |.-host) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |js/location.hostname) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |port) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |either) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |url-obj) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |.-query) - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |.-port) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:port) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config/site) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |ws-connect!) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"ws://") - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |host) - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\":") - |x $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |port) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:on-open) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |event) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |simulate-login!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:on-close) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |event) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |reset!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |nil) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |js/console.error) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Lost connection!") - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:on-data) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |on-server-data) + :code $ quote + defn connect! () $ let + url-obj $ url-parse js/location.href true + host $ either (-> url-obj .-query .-host) js/location.hostname + port $ either (-> url-obj .-query .-port) (:port config/site) + ws-connect! (str "\"ws://" host "\":" port) + {} + :on-open $ fn (event) (simulate-login!) + :on-close $ fn (event) (reset! *store nil) (js/console.error "\"Lost connection!") + :on-data on-server-data |dispatch! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |dispatch!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |op) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |when) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |and) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config/dev?) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |not=) - |j $ %{} :Expr (:at 1696789982755) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1696789984343) (:by |B1y7Rc-Zz) (:text |nth) - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |op) - |b $ %{} :Leaf (:at 1696789985074) (:by |B1y7Rc-Zz) (:text |0) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:states) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696789980613) (:by |B1y7Rc-Zz) (:text |js/console.log) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Dispatch") - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |op) - |x $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696789987828) (:by |B1y7Rc-Zz) (:text |tag-match) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |op) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696789995079) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:states) - |b $ %{} :Leaf (:at 1696789996311) (:by |B1y7Rc-Zz) (:text |cursor) - |h $ %{} :Leaf (:at 1696789996588) (:by |B1y7Rc-Zz) (:text |s) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |reset!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*states) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |update-states) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |@*states) - |r $ %{} :Leaf (:at 1696789999386) (:by |B1y7Rc-Zz) (:text |cursor) - |t $ %{} :Leaf (:at 1696789999616) (:by |B1y7Rc-Zz) (:text |s) - |x $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790000817) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:effect/connect) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |connect!) - |y $ %{} :Expr (:at 1696789989735) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696789990841) (:by |B1y7Rc-Zz) (:text |_) - |b $ %{} :Expr (:at 1696789991314) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696789993556) (:by |B1y7Rc-Zz) (:text |ws-send!) - |b $ %{} :Leaf (:at 1696789993865) (:by |B1y7Rc-Zz) (:text |op) + :code $ quote + defn dispatch! (op) + when + and config/dev? $ not= (nth op 0) :states + js/console.log "\"Dispatch" op + tag-match op + :states cursor s + reset! *states $ update-states @*states cursor s + (:effect/connect) (connect!) + _ $ ws-send! op |main! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |main!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Running mode:") - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config/dev?) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"dev") - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"release") - |w $ %{} :Expr (:at 1712208985096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1712208985464) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Leaf (:at 1712208986718) (:by |B1y7Rc-Zz) (:text |config/dev?) - |h $ %{} :Expr (:at 1712208987436) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1712208990661) (:by |B1y7Rc-Zz) (:text |load-console-formatter!) - |x $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |y $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |connect!) - |yT $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |add-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |store) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |prev) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |yj $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |add-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*states) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |states) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |prev) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |yr $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |on-page-touch) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |nil?) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |@*store) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |connect!) - |yv $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"App started!") + :code $ quote + defn main! () + println "\"Running mode:" $ if config/dev? "\"dev" "\"release" + if config/dev? $ load-console-formatter! + render-app! + connect! + add-watch *store :changes $ fn (store prev) (render-app!) + add-watch *states :changes $ fn (states prev) (render-app!) + on-page-touch $ fn () + if (nil? @*store) (connect!) + println "\"App started!" |mount-target $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |def) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |mount-target) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |j $ %{} :Leaf (:at 1696790174376) (:by |B1y7Rc-Zz) (:text |js/document.querySelector) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\".app") + :code $ quote + def mount-target $ js/document.querySelector "\".app" |on-server-data $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |on-server-data) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |data) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790194081) (:by |B1y7Rc-Zz) (:text |tag-match) - |f $ %{} :Leaf (:at 1696790196099) (:by |B1y7Rc-Zz) (:text |data) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790199883) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:patch) - |b $ %{} :Leaf (:at 1696790201263) (:by |B1y7Rc-Zz) (:text |changes) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790204043) (:by |B1y7Rc-Zz) (:text |do) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |when) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config/dev?) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |js/console.log) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Changes") - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |reset!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |patch-twig) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |@*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |changes) + :code $ quote + defn on-server-data (data) + tag-match data $ + :patch changes + do + when config/dev? $ js/console.log "\"Changes" changes + reset! *store $ patch-twig @*store changes |reload! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |reload!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |or) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |some?) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |client-errors) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |some?) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |server-errors) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |hud!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"error") - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |client-errors) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |&newline) - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |server-errors) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |do) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |hud!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"inactive") - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |nil) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |remove-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |remove-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*states) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |x $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |clear-cache!) - |y $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |yT $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |add-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*store) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |store) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |prev) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |yj $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |add-watch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |*states) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:changes) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |states) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |prev) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |yr $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Code updated.") + :code $ quote + defn reload! () $ if + or (some? client-errors) (some? server-errors) + hud! "\"error" $ str client-errors &newline server-errors + do (hud! "\"inactive" nil) (remove-watch *store :changes) (remove-watch *states :changes) (clear-cache!) (render-app!) + add-watch *store :changes $ fn (store prev) (render-app!) + add-watch *states :changes $ fn (states prev) (render-app!) + println "\"Code updated." |render-app! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render-app!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |mount-target) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |comp-container) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:states) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |@*states) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |@*store) - |v $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |dispatch!) + :code $ quote + defn render-app! () $ render! mount-target + comp-container (:states @*states) @*store + , dispatch! |simulate-login! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |simulate-login!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |let) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |raw) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |.!getItem) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |js/localStorage) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:storage-key) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config/site) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |some?) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |raw) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |do) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Found storage.") - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |dispatch!) - |r $ %{} :Expr (:at 1696790219900) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1696790220447) (:by |B1y7Rc-Zz) (:text |::) - |L $ %{} :Leaf (:at 1696790220841) (:by |B1y7Rc-Zz) (:text |:user/log-in) - |T $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |parse-cirru-edn) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |raw) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |do) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"Found no storage.") + :code $ quote + defn simulate-login! () $ let + raw $ .!getItem js/localStorage (:storage-key config/site) + if (some? raw) + do (println "\"Found storage.") + dispatch! $ :: :user/log-in (parse-cirru-edn raw) + do $ println "\"Found no storage." :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |ns) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |app.client) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:require) - |j $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |respo.core) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |render!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |clear-cache!) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |realize-ssr!) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |respo.cursor) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |update-states) - |v $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |app.comp.container) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |comp-container) - |x $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |app.schema) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:as) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |schema) - |y $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |app.config) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:as) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |config) - |yT $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |ws-edn.client) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |ws-connect!) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |ws-send!) - |yj $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |recollect.patch) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |patch-twig) - |yr $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |cumulo-util.core) - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |on-page-touch) - |yv $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"url-parse") - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:default) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |url-parse) - |yx $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"bottom-tip") - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:default) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |hud!) - |yy $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"./calcit.build-errors") - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:default) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |client-errors) - |yyT $ %{} :Expr (:at 1629811799096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text "|\"../js-out/calcit.build-errors") - |j $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |:default) - |r $ %{} :Leaf (:at 1629811799096) (:by |B1y7Rc-Zz) (:text |server-errors) + :code $ quote + ns app.client $ :require + respo.core :refer $ render! clear-cache! realize-ssr! + respo.cursor :refer $ update-states + app.comp.container :refer $ comp-container + app.schema :as schema + app.config :as config + ws-edn.client :refer $ ws-connect! ws-send! + recollect.patch :refer $ patch-twig + cumulo-util.core :refer $ on-page-touch + "\"url-parse" :default url-parse + "\"bottom-tip" :default hud! + "\"./calcit.build-errors" :default client-errors + "\"../js-out/calcit.build-errors" :default server-errors |app.comp.container $ %{} :FileEntry :defs $ {} |comp-container $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-container) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |D $ %{} :Expr (:at 1629812904123) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812905108) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629812905351) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812905718) (:by |B1y7Rc-Zz) (:text |[]) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |j $ %{} :Expr (:at 1539196319466) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1539196320108) (:by |root) (:text |or) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |states) - |j $ %{} :Expr (:at 1539196321292) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196322454) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539196322899) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196324740) (:by |root) (:text |:query) - |j $ %{} :Leaf (:at 1539196325242) (:by |root) (:text "|\"") - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |session) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:session) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1525106928554) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525106929232) (:by |root) (:text |router) - |j $ %{} :Expr (:at 1525106929915) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525106930860) (:by |root) (:text |:router) - |j $ %{} :Leaf (:at 1525106931558) (:by |root) (:text |store) - |v $ %{} :Expr (:at 1525106933346) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525106935393) (:by |root) (:text |router-data) - |j $ %{} :Expr (:at 1525106935675) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525106936827) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1525106937665) (:by |root) (:text |router) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |if) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil?) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1521951403873) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1521951417580) (:by |root) (:text |comp-offline) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/global) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/fullscreen) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/column) - |x $ %{} :Expr (:at 1539233842048) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1539233842502) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1539233842762) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1539233846589) (:by |B1y7Rc-Zz) (:text |:background-color) - |j $ %{} :Leaf (:at 1539233847851) (:by |B1y7Rc-Zz) (:text "|\"hsl(0,0%,96%)") - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1523120265747) (:by |root) (:text |comp-navigation) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:logged-in?) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1523120353961) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120357277) (:by |root) (:text |:count) - |j $ %{} :Leaf (:at 1523120358953) (:by |root) (:text |store) - |v $ %{} :Expr (:at 1539196341382) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196343192) (:by |root) (:text |:query) - |j $ %{} :Leaf (:at 1539196343997) (:by |root) (:text |state) - |x $ %{} :Leaf (:at 1629812908631) (:by |B1y7Rc-Zz) (:text |cursor) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |if) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:logged-in?) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |case) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |router) - |n $ %{} :Expr (:at 1539103907485) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |:home) - |j $ %{} :Expr (:at 1539103907485) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |comp-list) - |j $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |states) - |r $ %{} :Expr (:at 1539103907485) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |:snippets) - |j $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |store) - |v $ %{} :Expr (:at 1539103907485) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103907485) (:by |root) (:text |:query) - |j $ %{} :Leaf (:at 1539196329468) (:by |root) (:text |state) - |p $ %{} :Expr (:at 1539103921153) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103921153) (:by |root) (:text |:create) - |j $ %{} :Expr (:at 1539103921153) (:by |root) - :data $ {} - |r $ %{} :Leaf (:at 1539103921153) (:by |root) (:text |comp-editor) - |v $ %{} :Expr (:at 1629812923745) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629812924424) (:by |B1y7Rc-Zz) (:text |>>) - |T $ %{} :Leaf (:at 1539103921153) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1629812925083) (:by |B1y7Rc-Zz) (:text |:create) - |x $ %{} :Leaf (:at 1539103921153) (:by |root) (:text |nil) - |q $ %{} :Expr (:at 1539103926779) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |:edit) - |j $ %{} :Expr (:at 1539103926779) (:by |root) - :data $ {} - |r $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |comp-editor) - |v $ %{} :Expr (:at 1629812928395) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629812929072) (:by |B1y7Rc-Zz) (:text |>>) - |T $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1629812929750) (:by |B1y7Rc-Zz) (:text |:edit) - |x $ %{} :Expr (:at 1539103926779) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |get-in) - |j $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1539103926779) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |:snippets) - |r $ %{} :Expr (:at 1539103926779) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1539103926779) (:by |root) (:text |router) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:profile) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-profile) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:user) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1524070838527) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070840507) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1524070841286) (:by |root) (:text |router) - |x $ %{} :Expr (:at 1525106913773) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525106915016) (:by |root) (:text |<>) - |j $ %{} :Leaf (:at 1525106916644) (:by |root) (:text |router) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-login) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |states) - |w $ %{} :Expr (:at 1524279203814) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279211924) (:by |root) (:text |comp-status-color) - |j $ %{} :Expr (:at 1524279213788) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279214588) (:by |root) (:text |:color) - |j $ %{} :Leaf (:at 1524279215366) (:by |root) (:text |store) - |x $ %{} :Expr (:at 1521911488967) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1521911509225) (:by |root) (:text |when) - |L $ %{} :Leaf (:at 1521911495407) (:by |root) (:text |dev?) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-inspect) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||Store) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:bottom) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |0) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:left) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |0) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:max-width) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||100%) - |y $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1529230769433) (:by |root) (:text |comp-messages) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |get-in) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:session) - |r $ %{} :Leaf (:at 1529230765972) (:by |root) (:text |:messages) - |n $ %{} :Expr (:at 1529230771518) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230771976) (:by |root) (:text |{}) - |p $ %{} :Expr (:at 1529230772453) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230773090) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1529230773925) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230775135) (:by |root) (:text |info) - |j $ %{} :Leaf (:at 1529230778336) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1529230780551) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230781631) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1529231458145) (:by |root) (:text |:session/remove-message) - |r $ %{} :Leaf (:at 1529230813335) (:by |root) (:text |info) - |yT $ %{} :Expr (:at 1521911502552) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1521911507241) (:by |root) (:text |when) - |L $ %{} :Leaf (:at 1521911504664) (:by |root) (:text |dev?) - |T $ %{} :Expr (:at 1507828710405) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507828712159) (:by |root) (:text |comp-reel) - |j $ %{} :Expr (:at 1507829101137) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830262253) (:by |root) (:text |:reel-length) - |j $ %{} :Leaf (:at 1507829104010) (:by |root) (:text |store) - |r $ %{} :Expr (:at 1507828721052) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507828722268) (:by |root) (:text |{}) + :code $ quote + defcomp comp-container (states store) + let + cursor $ [] + state $ or (:data states) + {} $ :query "\"" + session $ :session store + router $ :router store + router-data $ :data router + if (nil? store) (comp-offline) + div + {} $ :style + merge ui/global ui/fullscreen ui/column $ {} (:background-color "\"hsl(0,0%,96%)") + comp-navigation (:logged-in? store) (:count store) (:query state) cursor + if (:logged-in? store) + case (:name router) + :home $ comp-list states (:snippets store) (:query state) + :create $ comp-editor (>> states :create) nil + :edit $ comp-editor (>> states :edit) + get-in store $ [] :snippets (:data router) + :profile $ comp-profile (:user store) (:data router) + <> router + comp-login states + comp-status-color $ :color store + when dev? $ comp-inspect |Store store + {} (:bottom 0) (:left 0) (:max-width |100%) + comp-messages + get-in store $ [] :session :messages + {} + fn (info d!) (d! :session/remove-message info) + when dev? $ comp-reel (:reel-length store) ({}) |comp-offline $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |defcomp) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |comp-offline) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |div) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |merge) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |ui/global) - |r $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |ui/fullscreen) - |v $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |ui/column-dispersive) - |x $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:background-color) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:theme) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |config/site) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |div) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:height) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |0) - |v $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |div) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:background-image) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text "|\"url(") - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:icon) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |config/site) - |v $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text "|\")") - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:width) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |128) - |v $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:height) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |128) - |x $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:background-size) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:contain) - |x $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |div) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:cursor) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:pointer) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:line-height) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text "|\"32px") - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:on-click) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |d!) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |d!) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:effect/connect) - |r $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |nil) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |<>) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text "|\"No connection...") - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:font-family) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |ui/font-fancy) - |r $ %{} :Expr (:at 1629811931550) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |:font-size) - |j $ %{} :Leaf (:at 1629811931550) (:by |B1y7Rc-Zz) (:text |24) + :code $ quote + defcomp comp-offline () $ div + {} $ :style + merge ui/global ui/fullscreen ui/column-dispersive $ {} + :background-color $ :theme config/site + div $ {} + :style $ {} (:height 0) + div $ {} + :style $ {} + :background-image $ str "\"url(" (:icon config/site) "\")" + :width 128 + :height 128 + :background-size :contain + div + {} + :style $ {} (:cursor :pointer) (:line-height "\"32px") + :on-click $ fn (e d!) (d! :effect/connect nil) + <> "\"No connection..." $ {} (:font-family ui/font-fancy) (:font-size 24) |comp-status-color $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1524279216692) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279218316) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1524279216692) (:by |root) (:text |comp-status-color) - |r $ %{} :Expr (:at 1524279216692) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279220380) (:by |root) (:text |color) - |v $ %{} :Expr (:at 1524279221052) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279221503) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1524279221753) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279222145) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524279222434) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279223333) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1533835122554) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1533835132715) (:by |B1y7Rc-Zz) (:text |let) - |L $ %{} :Expr (:at 1533835132973) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1533835133406) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1533835134066) (:by |B1y7Rc-Zz) (:text |size) - |j $ %{} :Leaf (:at 1533835156000) (:by |B1y7Rc-Zz) (:text |24) - |T $ %{} :Expr (:at 1524279223555) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279223903) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524279224175) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279228958) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1533835137743) (:by |B1y7Rc-Zz) (:text |size) - |r $ %{} :Expr (:at 1524279231457) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279232432) (:by |root) (:text |:height) - |j $ %{} :Leaf (:at 1533835138984) (:by |B1y7Rc-Zz) (:text |size) - |v $ %{} :Expr (:at 1524279233724) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1524279242067) (:by |root) (:text |:position) - |T $ %{} :Leaf (:at 1524279236076) (:by |root) (:text |:absolute) - |x $ %{} :Expr (:at 1524279242693) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1533835259111) (:by |B1y7Rc-Zz) (:text |:bottom) - |j $ %{} :Leaf (:at 1524279295251) (:by |root) (:text |60) - |y $ %{} :Expr (:at 1524279244626) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1533835114388) (:by |B1y7Rc-Zz) (:text |:left) - |j $ %{} :Leaf (:at 1524279252706) (:by |root) (:text |8) - |yT $ %{} :Expr (:at 1524279259074) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279265891) (:by |root) (:text |:background-color) - |j $ %{} :Leaf (:at 1524279319762) (:by |root) (:text |color) - |yj $ %{} :Expr (:at 1524279300007) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279306393) (:by |root) (:text |:border-radius) - |j $ %{} :Leaf (:at 1533835148624) (:by |B1y7Rc-Zz) (:text "|\"50%") - |yr $ %{} :Expr (:at 1524279322054) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524279323711) (:by |root) (:text |:opacity) - |j $ %{} :Leaf (:at 1533835161153) (:by |B1y7Rc-Zz) (:text |0.6) - |yv $ %{} :Expr (:at 1533835167955) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1533835177358) (:by |B1y7Rc-Zz) (:text |:pointer-events) - |j $ %{} :Leaf (:at 1533835178211) (:by |B1y7Rc-Zz) (:text |:none) + :code $ quote + defcomp comp-status-color (color) + div $ {} + :style $ let + size 24 + {} (:width size) (:height size) (:position :absolute) (:bottom 60) (:left 8) (:background-color color) (:border-radius "\"50%") (:opacity 0.6) (:pointer-events :none) |style-body $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |style-body) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text "||8px 16px") + :code $ quote + def style-body $ {} (:padding "|8px 16px") :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.comp.container) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |hsl.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1516547378489) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |x $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |span) - |xj $ %{} :Leaf (:at 1629812915085) (:by |B1y7Rc-Zz) (:text |>>) - |y $ %{} :Leaf (:at 1507815955483) (:by |root) (:text |button) - |y $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.comp.inspect) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-inspect) - |yD $ %{} :Expr (:at 1507816109319) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507816109737) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1507816117447) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1507816112686) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1507816113982) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507816114106) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1507816114704) (:by |root) (:text |=<) - |yT $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1523120275079) (:by |root) (:text |app.comp.navigation) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1523120276563) (:by |root) (:text |comp-navigation) - |yj $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.comp.profile) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-profile) - |yr $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.comp.login) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-login) - |yv $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529230826824) (:by |root) (:text |respo-message.comp.messages) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529230829559) (:by |root) (:text |comp-messages) - |yx $ %{} :Expr (:at 1507828725931) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507828726338) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1543943551518) (:by |B1y7Rc-Zz) (:text |cumulo-reel.comp.reel) - |r $ %{} :Leaf (:at 1507828731528) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1507828731735) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507828731987) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1507828733743) (:by |root) (:text |comp-reel) - |yy $ %{} :Expr (:at 1521911479054) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1521911480104) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1527789167264) (:by |root) (:text |app.config) - |r $ %{} :Leaf (:at 1521911483589) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1521911483778) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1521911483935) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1521911485489) (:by |root) (:text |dev?) - |yyj $ %{} :Expr (:at 1529230793085) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230793389) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529230796079) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1529230796499) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1529230797248) (:by |root) (:text |schema) - |yyr $ %{} :Expr (:at 1535564714854) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1535564716963) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1535564718729) (:by |B1y7Rc-Zz) (:text |app.config) - |r $ %{} :Leaf (:at 1535564719687) (:by |B1y7Rc-Zz) (:text |:as) - |v $ %{} :Leaf (:at 1535564721387) (:by |B1y7Rc-Zz) (:text |config) - |yyv $ %{} :Expr (:at 1539103952276) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103952276) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103952276) (:by |root) (:text |app.comp.editor) - |r $ %{} :Leaf (:at 1539103952276) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103952276) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103952276) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103952276) (:by |root) (:text |comp-editor) - |yyx $ %{} :Expr (:at 1539103955741) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103955741) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103955741) (:by |root) (:text |app.comp.empty) - |r $ %{} :Leaf (:at 1539103955741) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103955741) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103955741) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103955741) (:by |root) (:text |comp-empty) - |yyy $ %{} :Expr (:at 1539103958674) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103958674) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103958674) (:by |root) (:text |app.comp.list) - |r $ %{} :Leaf (:at 1539103958674) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103958674) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103958674) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103958674) (:by |root) (:text |comp-list) + :code $ quote + ns app.comp.container $ :require + [] hsl.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo.core :refer $ [] defcomp <> div span >> button + [] respo.comp.inspect :refer $ [] comp-inspect + [] respo.comp.space :refer $ [] =< + [] app.comp.navigation :refer $ [] comp-navigation + [] app.comp.profile :refer $ [] comp-profile + [] app.comp.login :refer $ [] comp-login + [] respo-message.comp.messages :refer $ [] comp-messages + [] cumulo-reel.comp.reel :refer $ [] comp-reel + [] app.config :refer $ [] dev? + [] app.schema :as schema + [] app.config :as config + [] app.comp.editor :refer $ [] comp-editor + [] app.comp.empty :refer $ [] comp-empty + [] app.comp.list :refer $ [] comp-list |app.comp.dialog $ %{} :FileEntry :defs $ {} |comp-dialog $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |comp-dialog) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |on-close!) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |child-node) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |assert) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |fn?) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |on-close!) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text "||on-close! should be a function") - |x $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |ui/fullscreen) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |ui/center) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:position) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:absolute) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text ||100%) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:height) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text ||100%) - |x $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:background-color) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |0) - |x $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |0.4) - |y $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:z-index) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |100) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |d!) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |m!) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |on-close!) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |m!) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |16) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:background-color) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:white) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |d!) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |m!) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |child-node) + :code $ quote + defcomp comp-dialog (on-close! child-node) + assert (fn? on-close!) "|on-close! should be a function" + div + {} + :style $ merge ui/fullscreen ui/center + {} (:position :absolute) (:width |100%) (:height |100%) + :background-color $ hsl 0 0 0 0.4 + :z-index 100 + :on-click $ fn (e d! m!) (on-close! m!) + div + {} + :style $ {} (:padding 16) (:background-color :white) + :on-click $ fn (e d! m!) + , child-node :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |app.comp.dialog) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |hsl.core) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |ui) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |respo-ui.colors) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |colors) - |x $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |<>) - |v $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |action->) - |x $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |span) - |y $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |div) - |y $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539103997039) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539103997039) (:by |root) (:text |=<) + :code $ quote + ns app.comp.dialog $ :require + [] hsl.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo-ui.colors :as colors + [] respo.core :refer $ [] defcomp <> action-> span div + [] respo.comp.space :refer $ [] =< |app.comp.editor $ %{} :FileEntry :defs $ {} |comp-editor $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |comp-editor) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |snippet) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |D $ %{} :Expr (:at 1629813630381) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813631481) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629813634082) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813637139) (:by |B1y7Rc-Zz) (:text |:cursor) - |j $ %{} :Leaf (:at 1629813638132) (:by |B1y7Rc-Zz) (:text |states) - |T $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |states) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:title) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |snippet) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text ||) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:content) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:content) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |snippet) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text ||) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui/flex) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui/column) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |16) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:overflow) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:auto) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui/column) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |input) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |style/input) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:value) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:placeholder) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text ||Title) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:on-input) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813642741) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813644803) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |assoc) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:title) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:value) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |e) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |nil) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |16) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |textarea) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |style/textarea) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:min-width) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |720) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:min-height) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |400) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui/font-code) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |12) - |y $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:line-height) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text "|\"16px") - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:placeholder) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text ||Content) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:value) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:content) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:on-input) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813650069) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813651469) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |assoc) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:content) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:value) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |e) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |nil) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |16) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui/row-parted) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |800) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |button) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |style/button) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:inner-text) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text ||Submit) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |if) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |some?) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:snippet/update) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |snippet) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:snippet/create) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |state) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813655712) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813656995) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539104899449) (:by |root) (:text |:router/change) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:home) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |span) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |{}) + :code $ quote + defcomp comp-editor (states snippet) + let + cursor $ :cursor states + state $ or (:data states) + {} + :title $ or (:title snippet) | + :content $ or (:content snippet) | + div + {} $ :style + merge ui/flex ui/column $ {} (:padding 16) (:overflow :auto) + div + {} $ :style ui/column + div ({}) + input $ {} (:style style/input) + :value $ :title state + :placeholder |Title + :on-input $ fn (e d!) + d! cursor $ assoc state :title $ assert-type (:value e) :any + =< nil 16 + textarea $ {} + :style $ merge style/textarea + {} (:min-width 720) (:min-height 400) (:font-family ui/font-code) (:font-size 12) (:line-height "\"16px") + :placeholder |Content + :value $ :content state + :on-input $ fn (e d!) + d! cursor $ assoc state :content $ assert-type (:value e) :any + =< nil 16 + div + {} $ :style + merge ui/row-parted $ {} (:width 800) + button $ {} + :style $ merge style/button ({}) + :inner-text |Submit + :on-click $ fn (e d!) + if (some? snippet) + d! :snippet/update $ merge snippet state + d! :snippet/create state + d! cursor nil + d! :router/change $ {} (:name :home) + span $ {} :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |app.comp.editor) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |hsl.core) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |ui) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |cursor->) - |v $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |<>) - |x $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |div) - |y $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |button) - |yT $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |span) - |yj $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |textarea) - |yr $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |button) - |yv $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |input) - |y $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |=<) - |yj $ %{} :Expr (:at 1539104011530) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |app.style) - |r $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104011530) (:by |root) (:text |style) + :code $ quote + ns app.comp.editor $ :require + [] hsl.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo.core :refer $ [] defcomp cursor-> <> div button span textarea button input + [] respo.comp.space :refer $ [] =< + [] app.style :as style |app.comp.empty $ %{} :FileEntry :defs $ {} |comp-empty $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |comp-empty) - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |router) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |8) - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:color) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |70) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text "||Josefin Sans") - |x $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:font-weight) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |300) - |y $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |32) - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |<>) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text "||Missing page: ") - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |pr-str) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |router) + :code $ quote + defcomp comp-empty (router) + div + {} $ :style + {} (:padding 8) + :color $ hsl 0 0 70 + :font-family "|Josefin Sans" + :font-weight 300 + :font-size 32 + <> $ str "|Missing page: " (pr-str router) :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |app.comp.empty) - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |hsl.core) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |ui) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |cursor->) - |v $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |<>) - |x $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |div) - |y $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |button) - |yT $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |span) - |y $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104029504) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104029504) (:by |root) (:text |=<) + :code $ quote + ns app.comp.empty $ :require + [] hsl.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo.core :refer $ [] defcomp cursor-> <> div button span + [] respo.comp.space :refer $ [] =< |app.comp.list $ %{} :FileEntry :defs $ {} |comp-card $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-card) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |D $ %{} :Expr (:at 1629813773385) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813774278) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629813774487) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813775449) (:by |B1y7Rc-Zz) (:text |:cursor) - |j $ %{} :Leaf (:at 1629813776334) (:by |B1y7Rc-Zz) (:text |states) - |T $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |state) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |states) - |r $ %{} :Expr (:at 1629812158770) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812158770) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629812158770) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812158770) (:by |B1y7Rc-Zz) (:text |:hint?) - |j $ %{} :Leaf (:at 1629812158770) (:by |B1y7Rc-Zz) (:text |false) - |j $ %{} :Expr (:at 1629812729507) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812736697) (:by |B1y7Rc-Zz) (:text |remove-plugin) - |j $ %{} :Expr (:at 1629812738052) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812742953) (:by |B1y7Rc-Zz) (:text |use-confirm) - |j $ %{} :Expr (:at 1629812755250) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812755821) (:by |B1y7Rc-Zz) (:text |>>) - |j $ %{} :Leaf (:at 1629812756576) (:by |B1y7Rc-Zz) (:text |states) - |r $ %{} :Leaf (:at 1629812758480) (:by |B1y7Rc-Zz) (:text |:remove) - |r $ %{} :Expr (:at 1629812759132) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812759574) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629812766701) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812783245) (:by |B1y7Rc-Zz) (:text |:text) - |j $ %{} :Leaf (:at 1629812768391) (:by |B1y7Rc-Zz) (:text "|\"Sure to remove?") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-card) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-toolbar) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/row) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |<>) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |8) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |x) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:copied-times) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |when) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |and) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |number?) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |x) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |>) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |x) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |<>) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"(") - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |x) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\")") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |12) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:color) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |80) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |8) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |nil) - |yT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |span) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/center) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539105135255) (:by |root) (:text |:router/change) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:edit) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:data) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812191243) (:by |B1y7Rc-Zz) (:text |comp-i) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:edit) - |r $ %{} :Leaf (:at 1629812193671) (:by |B1y7Rc-Zz) (:text |14) - |v $ %{} :Expr (:at 1629812194525) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812197010) (:by |B1y7Rc-Zz) (:text |hsl) - |j $ %{} :Leaf (:at 1629812197961) (:by |B1y7Rc-Zz) (:text |200) - |r $ %{} :Leaf (:at 1629812198290) (:by |B1y7Rc-Zz) (:text |80) - |v $ %{} :Leaf (:at 1629812198825) (:by |B1y7Rc-Zz) (:text |70) - |t $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |span) - |j $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |:color) - |j $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |:red) - |r $ %{} :Expr (:at 1629812794157) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812796977) (:by |B1y7Rc-Zz) (:text |:on-click) - |j $ %{} :Expr (:at 1629812797285) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812797761) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629812798447) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812798509) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629812799560) (:by |B1y7Rc-Zz) (:text |d!) - |r $ %{} :Expr (:at 1629812800736) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812804246) (:by |B1y7Rc-Zz) (:text |.show) - |j $ %{} :Leaf (:at 1629812808736) (:by |B1y7Rc-Zz) (:text |remove-plugin) - |r $ %{} :Leaf (:at 1629812827615) (:by |B1y7Rc-Zz) (:text |d!) - |v $ %{} :Expr (:at 1629812828229) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812828617) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629812828923) (:by |B1y7Rc-Zz) - :data $ {} - |r $ %{} :Expr (:at 1629812837479) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812837479) (:by |B1y7Rc-Zz) (:text |d!) - |j $ %{} :Leaf (:at 1629812837479) (:by |B1y7Rc-Zz) (:text |:snippet/remove) - |r $ %{} :Expr (:at 1629812837479) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812837479) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629812837479) (:by |B1y7Rc-Zz) (:text |snippet) - |r $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |comp-i) - |j $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |:delete) - |r $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |14) - |v $ %{} :Expr (:at 1629812791235) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |hsl) - |j $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |0) - |r $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |80) - |v $ %{} :Leaf (:at 1629812791235) (:by |B1y7Rc-Zz) (:text |70) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |pre) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:inner-text) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:content) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-code-area) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |copy) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:content) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:snippet/count-usage) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813766919) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813768260) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |assoc) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |state) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:hint?) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |true) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |js/setTimeout) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813769889) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813771369) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |assoc) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |state) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:hint?) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |false) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |2000) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |when) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:hint?) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |state) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:position) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:absolute) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:bottom) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:left) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:background-color) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |x $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0.5) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:color) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:white) - |yT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/font-fancy) - |yj $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"0 8px") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |<>) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"Copied") - |y $ %{} :Expr (:at 1629812844409) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812846298) (:by |B1y7Rc-Zz) (:text |.render) - |j $ %{} :Leaf (:at 1629812846782) (:by |B1y7Rc-Zz) (:text |remove-plugin) + :code $ quote + defcomp comp-card (states snippet) + let + cursor $ :cursor states + state $ or (:data states) + {} $ :hint? false + remove-plugin $ use-confirm (>> states :remove) + {} $ :text "\"Sure to remove?" + div + {} $ :style style-card + div + {} $ :style style-toolbar + div + {} $ :style ui/row + <> $ :title snippet + =< 8 nil + let + x $ :copied-times snippet + when + and (number? x) (> x 0) + <> (str "\"(" x "\")") + {} (:font-size 12) + :color $ hsl 0 0 80 + =< 8 nil + span + {} (:style ui/center) + :on-click $ fn (e d!) + d! :router/change $ {} (:name :edit) + :data $ :id snippet + comp-i :edit 14 $ hsl 200 80 70 + span + {} + :style $ {} (:color :red) + :on-click $ fn (e d!) + .show remove-plugin d! $ fn () + d! :snippet/remove $ :id snippet + comp-i :delete 14 $ hsl 0 80 70 + pre $ {} + :inner-text $ :content snippet + :style style-code-area + :on-click $ fn (e d!) + copy $ :content snippet + d! :snippet/count-usage $ :id snippet + d! cursor $ assoc state :hint? true + js/setTimeout + fn () $ d! cursor (assoc state :hint? false) + , 2000 + when (:hint? state) + div + {} $ :style + {} (:position :absolute) (:bottom 16) (:left 16) + :background-color $ hsl 0 0 0 0.5 + :color :white + :font-family ui/font-fancy + :padding "\"0 8px" + <> "\"Copied" + .render remove-plugin |comp-list $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-list) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |states) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippets) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |query) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |if) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |empty?) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippets) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-no-snippets) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |list->) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/row) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding-bottom) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |120) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:align-items) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:flex-start) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:flex-wrap) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:wrap) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:overflow) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:auto) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812076111) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippets) - |n $ %{} :Expr (:at 1629813684038) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813686234) (:by |B1y7Rc-Zz) (:text |.to-list) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812080580) (:by |B1y7Rc-Zz) (:text |.filter-pair) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |k) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812086290) (:by |B1y7Rc-Zz) (:text |.includes?) - |j $ %{} :Expr (:at 1539197787988) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813711015) (:by |B1y7Rc-Zz) (:text |.!toLowerCase) - |j $ %{} :Expr (:at 1539197790438) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1539197791052) (:by |root) (:text |or) - |T $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |j $ %{} :Leaf (:at 1539197792862) (:by |root) (:text "|\"") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813712411) (:by |B1y7Rc-Zz) (:text |.!toLowerCase) - |j $ %{} :Expr (:at 1539105108200) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1539105109925) (:by |root) (:text |or) - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |query) - |j $ %{} :Leaf (:at 1539105110619) (:by |root) (:text "|\"") - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"") - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812110352) (:by |B1y7Rc-Zz) (:text |.sort-by) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812108956) (:by |B1y7Rc-Zz) (:text |pair) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812994903) (:by |B1y7Rc-Zz) (:text |negate) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:copied-times) - |j $ %{} :Expr (:at 1629812103430) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812105253) (:by |B1y7Rc-Zz) (:text |last) - |j $ %{} :Leaf (:at 1629812106032) (:by |B1y7Rc-Zz) (:text |pair) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812113660) (:by |B1y7Rc-Zz) (:text |.map-pair) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1629812115771) (:by |B1y7Rc-Zz) (:text |k) - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1629812117281) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629812118632) (:by |B1y7Rc-Zz) (:text |[]) - |L $ %{} :Leaf (:at 1629812118921) (:by |B1y7Rc-Zz) (:text |k) - |T $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-card) - |v $ %{} :Expr (:at 1629812123365) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629812124035) (:by |B1y7Rc-Zz) (:text |>>) - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |states) - |j $ %{} :Expr (:at 1629812124850) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812124850) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629812124850) (:by |B1y7Rc-Zz) (:text |snippet) - |x $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |snippet) + :code $ quote + defcomp comp-list (states snippets query) + if (empty? snippets) (comp-no-snippets) + list-> + {} $ :style + merge ui/row $ {} (:padding 16) (:padding-bottom 120) (:align-items :flex-start) (:flex-wrap :wrap) (:overflow :auto) + -> snippets (.to-list) + .filter-pair $ fn (k snippet) + .includes? + .!toLowerCase $ or (:title snippet) "\"" + or + .!toLowerCase $ or query "\"" + , "\"" + .sort-by $ fn (pair) + negate $ :copied-times (last pair) + .map-pair $ fn (k snippet) + [] k $ comp-card + >> states $ :id snippet + , snippet |comp-no-snippets $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-no-snippets) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "||Josefin Sans") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:color) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |70) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |20) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |<>) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "||No snippets") + :code $ quote + defcomp comp-no-snippets () $ div + {} $ :style + {} (:font-family "|Josefin Sans") + :color $ hsl 0 0 70 + :padding 16 + :font-size 20 + <> "|No snippets" |style-card $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-card) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:white-space) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:nowrap) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:text-overflow) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:ellipsis) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:overflow) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:hidden) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:line-height) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text ||24px) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |400) - |yT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:cursor) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:pointer) - |yj $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:margin-right) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |yr $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:margin-top) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |16) - |yv $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:position) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:relative) + :code $ quote + def style-card $ {} (:white-space :nowrap) (:text-overflow :ellipsis) (:overflow :hidden) (:line-height |24px) (:width 400) (:cursor :pointer) (:margin-right 16) (:margin-top 16) (:position :relative) |style-code-area $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-code-area) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:margin) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:color) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |50) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |8) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding-top) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |40) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |12) - |yT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:border) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"1px solid ") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |90) - |yj $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:height) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |320) - |yr $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:overflow) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:auto) - |yv $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:line-height) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"18px") - |yx $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/font-code) - |yy $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:background-color) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:white) + :code $ quote + def style-code-area $ {} (:margin 0) + :color $ hsl 0 0 50 + :padding 8 + :padding-top 40 + :font-size 12 + :border $ str "\"1px solid " (hsl 0 0 90) + :height 320 + :overflow :auto + :line-height "\"18px" + :font-family ui/font-code + :background-color :white |style-toolbar $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |style-toolbar) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui/row-parted) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"100%") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:position) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:absolute) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:top) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |x $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |8) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:background-color) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |100) - |x $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0.8) - |yT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:border) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"1px solid ") - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |90) + :code $ quote + def style-toolbar $ merge ui/row-parted + {} (:width "\"100%") (:position :absolute) (:top 0) (:padding 8) + :background-color $ hsl 0 0 100 0.8 + :border $ str "\"1px solid " (hsl 0 0 90) :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |app.comp.list) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812067607) (:by |B1y7Rc-Zz) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |ui) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |defcomp) - |p $ %{} :Leaf (:at 1629812128292) (:by |B1y7Rc-Zz) (:text |>>) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |list->) - |x $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |<>) - |y $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |div) - |yT $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |button) - |yj $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |span) - |yr $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |pre) - |y $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |=<) - |yj $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |respo.comp.inspect) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-inspect) - |yv $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812177895) (:by |B1y7Rc-Zz) (:text |feather.core) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |v $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |comp-icon) - |x $ %{} :Leaf (:at 1629812184093) (:by |B1y7Rc-Zz) (:text |comp-i) - |yx $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104065107) (:by |root) (:text "|\"copy-to-clipboard") - |r $ %{} :Leaf (:at 1629812133479) (:by |B1y7Rc-Zz) (:text |:default) - |v $ %{} :Leaf (:at 1539104577593) (:by |root) (:text |copy) - |yyT $ %{} :Expr (:at 1539104065107) (:by |root) - :data $ {} - |j $ %{} :Leaf (:at 1629812746961) (:by |B1y7Rc-Zz) (:text |respo-alerts.core) - |r $ %{} :Leaf (:at 1539104065107) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1629812860343) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812749538) (:by |B1y7Rc-Zz) (:text |use-confirm) + :code $ quote + ns app.comp.list $ :require + [] respo-ui.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo.core :refer $ [] defcomp >> list-> <> div button span pre + [] respo.comp.space :refer $ [] =< + [] respo.comp.inspect :refer $ [] comp-inspect + [] feather.core :refer $ [] comp-icon comp-i + [] "\"copy-to-clipboard" :default copy + respo-alerts.core :refer $ use-confirm |app.comp.login $ %{} :FileEntry :defs $ {} |comp-login $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-login) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |states) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |D $ %{} :Expr (:at 1629813365720) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813366598) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629813367036) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813368146) (:by |B1y7Rc-Zz) (:text |:cursor) - |j $ %{} :Leaf (:at 1629813369027) (:by |B1y7Rc-Zz) (:text |states) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |or) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |states) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |initial-state) - |r $ %{} :Expr (:at 1519368111046) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1519368111912) (:by |root) (:text |div) - |L $ %{} :Expr (:at 1519368112156) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368113787) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1519368114295) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368116587) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1519368119982) (:by |root) - :data $ {} - |5 $ %{} :Leaf (:at 1519368124581) (:by |root) (:text |merge) - |D $ %{} :Leaf (:at 1519368123630) (:by |root) (:text |ui/flex) - |T $ %{} :Leaf (:at 1519368119197) (:by |root) (:text |ui/center) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |input) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:placeholder) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||Username) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:value) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:username) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/input) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302367311) (:by |root) (:text |:on-input) - |j $ %{} :Expr (:at 1629813343054) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813343054) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629813345969) (:by |B1y7Rc-Zz) (:text |d!) - |r $ %{} :Expr (:at 1629813343054) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813348590) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813350543) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629813343054) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |state) - |r $ %{} :Leaf (:at 1629813353041) (:by |B1y7Rc-Zz) (:text |:username) - |v $ %{} :Expr (:at 1629813343054) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |:value) - |j $ %{} :Leaf (:at 1629813343054) (:by |B1y7Rc-Zz) (:text |e) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |8) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |input) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:placeholder) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||Password) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:value) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:password) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/input) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302370752) (:by |root) (:text |:on-input) - |j $ %{} :Expr (:at 1629813354548) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813354548) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629813357523) (:by |B1y7Rc-Zz) (:text |d!) - |r $ %{} :Expr (:at 1629813354548) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813374215) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1629813376586) (:by |B1y7Rc-Zz) (:text |cursor) - |j $ %{} :Expr (:at 1629813354548) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |state) - |r $ %{} :Leaf (:at 1629813360439) (:by |B1y7Rc-Zz) (:text |:password) - |v $ %{} :Expr (:at 1629813354548) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |:value) - |j $ %{} :Leaf (:at 1629813354548) (:by |B1y7Rc-Zz) (:text |e) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |8) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1519368067092) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368067501) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1519368135916) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368141461) (:by |root) (:text |:text-align) - |j $ %{} :Leaf (:at 1519368142240) (:by |root) (:text |:right) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1519367924372) (:by |root) (:text |span) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:inner-text) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text "||Sign up") - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1519368006916) (:by |root) (:text |style/link) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302375364) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |on-submit) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:username) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:password) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |true) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |8) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1519367939048) (:by |root) (:text |span) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:inner-text) - |j $ %{} :Leaf (:at 1519368084428) (:by |root) (:text "||Log in") - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1519368006916) (:by |root) (:text |style/link) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302381488) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |on-submit) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:username) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:password) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |state) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |false) + :code $ quote + defcomp comp-login (states) + let + cursor $ :cursor states + state $ or (:data states) initial-state + div + {} $ :style (merge ui/flex ui/center) + div ({}) + div + {} $ :style ({}) + div ({}) + input $ {} (:placeholder |Username) + :value $ :username state + :style ui/input + :on-input $ fn (e d!) + d! cursor $ assoc state :username $ assert-type (:value e) :any + =< nil 8 + div ({}) + input $ {} (:placeholder |Password) + :value $ :password state + :style ui/input + :on-input $ fn (e d!) + d! cursor $ assoc state :password $ assert-type (:value e) :any + =< nil 8 + div + {} $ :style + {} $ :text-align :right + span $ {} (:inner-text "|Sign up") + :style $ merge style/link + :on-click $ on-submit (:username state) (:password state) true + =< 8 nil + span $ {} (:inner-text "|Log in") + :style $ merge style/link + :on-click $ on-submit (:username state) (:password state) false |initial-state $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |initial-state) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:username) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:password) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||) + :code $ quote + def initial-state $ {} (:username |) (:password |) |on-submit $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |on-submit) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |username) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |password) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |signup?) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |dispatch!) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |dispatch!) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |if) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |signup?) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:user/sign-up) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:user/log-in) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |username) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |password) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |j $ %{} :Leaf (:at 1629813585529) (:by |B1y7Rc-Zz) (:text |js/localStorage.setItem) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:storage-key) - |j $ %{} :Leaf (:at 1527788909281) (:by |root) (:text |config/site) - |v $ %{} :Expr (:at 1629813580899) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629813582956) (:by |B1y7Rc-Zz) (:text |format-cirru-edn) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |username) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |password) + :code $ quote + defn on-submit (username password signup?) + fn (e dispatch!) + dispatch! (if signup? :user/sign-up :user/log-in) ([] username password) + js/localStorage.setItem (:storage-key config/site) + format-cirru-edn $ [] username password :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1510936619134) (:by |root) (:text |app.comp.login) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |x $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |input) - |y $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |button) - |yT $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |span) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.comp.inspect) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-inspect) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1516547410331) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui) - |y $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |schema) - |yT $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1519368017028) (:by |root) (:text |app.style) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1519368019779) (:by |root) (:text |style) - |yj $ %{} :Expr (:at 1527788911549) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1527788911897) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1527788913217) (:by |root) (:text |app.config) - |r $ %{} :Leaf (:at 1527788914516) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1527788915188) (:by |root) (:text |config) + :code $ quote + ns app.comp.login $ :require + [] respo.core :refer $ [] defcomp <> div input button span + [] respo.comp.space :refer $ [] =< + [] respo.comp.inspect :refer $ [] comp-inspect + [] respo-ui.core :as ui + [] app.schema :as schema + [] app.style :as style + [] app.config :as config |app.comp.navigation $ %{} :FileEntry :defs $ {} |comp-navigation $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-navigation) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |logged-in?) - |j $ %{} :Leaf (:at 1523120365880) (:by |root) (:text |count-members) - |r $ %{} :Leaf (:at 1539196349163) (:by |root) (:text |query) - |v $ %{} :Leaf (:at 1539196401193) (:by |root) (:text |parent-cursor) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/row-center) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:height) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |48) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:justify-content) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:space-between) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text "||0 16px") - |y $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |16) - |yT $ %{} :Expr (:at 1519314625999) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314630138) (:by |root) (:text |:border-bottom) - |j $ %{} :Expr (:at 1519314630743) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314632214) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1519314635000) (:by |root) (:text "||1px solid ") - |r $ %{} :Expr (:at 1519314635976) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314636519) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1519314637558) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1519314637788) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1519314638678) (:by |root) (:text |0) - |x $ %{} :Leaf (:at 1519314643853) (:by |root) (:text |0.1) - |yj $ %{} :Expr (:at 1519314651278) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314653842) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1519314661374) (:by |root) (:text |ui/font-fancy) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302328636) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1629811964934) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629811966187) (:by |B1y7Rc-Zz) (:text |fn) - |L $ %{} :Expr (:at 1629811966488) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811967288) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629811967971) (:by |B1y7Rc-Zz) (:text |d!) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1629811964307) (:by |B1y7Rc-Zz) (:text |d!) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:router/change) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:home) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104820487) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1539104823046) (:by |root) (:text |merge) - |L $ %{} :Leaf (:at 1539196115682) (:by |root) (:text |ui/row-center) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:cursor) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:pointer) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |j $ %{} :Expr (:at 1536561771096) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536561772481) (:by |B1y7Rc-Zz) (:text |:title) - |j $ %{} :Leaf (:at 1536561776186) (:by |B1y7Rc-Zz) (:text |config/site) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |t $ %{} :Expr (:at 1539196130073) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196130804) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539196132566) (:by |root) (:text |24) - |r $ %{} :Leaf (:at 1539196133092) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:cursor) - |j $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:pointer) - |r $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |d!) - |j $ %{} :Leaf (:at 1539104881016) (:by |root) (:text |:router/change) - |r $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:create) - |r $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1539104748172) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1539104748172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812031559) (:by |B1y7Rc-Zz) (:text |comp-i) - |j $ %{} :Leaf (:at 1629812029011) (:by |B1y7Rc-Zz) (:text |:plus) - |r $ %{} :Leaf (:at 1629812049989) (:by |B1y7Rc-Zz) (:text |14) - |v $ %{} :Expr (:at 1629812050787) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812053296) (:by |B1y7Rc-Zz) (:text |hsl) - |j $ %{} :Leaf (:at 1629812055739) (:by |B1y7Rc-Zz) (:text |200) - |r $ %{} :Leaf (:at 1629812056143) (:by |B1y7Rc-Zz) (:text |80) - |v $ %{} :Leaf (:at 1629812057228) (:by |B1y7Rc-Zz) (:text |70) - |x $ %{} :Expr (:at 1539196136038) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196136038) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1539196136038) (:by |root) (:text |24) - |r $ %{} :Leaf (:at 1539196136038) (:by |root) (:text |nil) - |y $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |input) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |ui/input) - |r $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |320) - |r $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |:value) - |j $ %{} :Leaf (:at 1539196352954) (:by |root) (:text |query) - |v $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |:placeholder) - |j $ %{} :Leaf (:at 1539104763322) (:by |root) (:text "|\"Filter...") - |x $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |:on-input) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1539104763322) (:by |root) (:text |d!) - |r $ %{} :Expr (:at 1539104763322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813532590) (:by |B1y7Rc-Zz) (:text |d!) - |b $ %{} :Leaf (:at 1539196406345) (:by |root) (:text |parent-cursor) - |n $ %{} :Expr (:at 1539196439255) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196440654) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539196440888) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196441725) (:by |root) (:text |:query) - |j $ %{} :Expr (:at 1539196442386) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539196442386) (:by |root) (:text |:value) - |j $ %{} :Leaf (:at 1539196442386) (:by |root) (:text |e) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:cursor) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||pointer) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302332444) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1629811982996) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1629811983910) (:by |B1y7Rc-Zz) (:text |fn) - |L $ %{} :Expr (:at 1629811984515) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811984591) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1629811986256) (:by |B1y7Rc-Zz) (:text |d!) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1629811982388) (:by |B1y7Rc-Zz) (:text |d!) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:router/change) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:profile) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |if) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |logged-in?) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||Me) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text ||Guest) - |v $ %{} :Expr (:at 1523120369216) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120369974) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1523120371053) (:by |root) (:text |8) - |r $ %{} :Leaf (:at 1523120371555) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1523120371997) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120372630) (:by |root) (:text |<>) - |j $ %{} :Leaf (:at 1523120373023) (:by |root) (:text |count-members) + :code $ quote + defcomp comp-navigation (logged-in? count-members query parent-cursor) + div + {} $ :style + merge ui/row-center $ {} (:height 48) (:justify-content :space-between) (:padding "|0 16px") (:font-size 16) + :border-bottom $ str "|1px solid " (hsl 0 0 0 0.1) + :font-family ui/font-fancy + div + {} + :on-click $ fn (e d!) + d! :router/change $ {} (:name :home) + :style $ merge ui/row-center + {} $ :cursor :pointer + <> (:title config/site) nil + =< 24 nil + div + {} + :style $ {} (:cursor :pointer) + :on-click $ fn (e d!) + d! :router/change $ {} (:name :create) (:data nil) + comp-i :plus 14 $ hsl 200 80 70 + =< 24 nil + input $ {} + :style $ merge ui/input + {} $ :width 320 + :value query + :placeholder "\"Filter..." + :on-input $ fn (e d!) + d! parent-cursor $ {} + :query $ :value e + div + {} + :style $ {} (:cursor |pointer) + :on-click $ fn (e d!) + d! :router/change $ {} (:name :profile) + <> $ if logged-in? |Me |Guest + =< 8 nil + <> count-members :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.comp.navigation) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629811946390) (:by |B1y7Rc-Zz) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1516547394445) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui) - |w $ %{} :Expr (:at 1523120376505) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120376949) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1523120379036) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1523120382218) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1523120382545) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120382719) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1523120383255) (:by |root) (:text |=<) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |t $ %{} :Leaf (:at 1521951545529) (:by |root) (:text |action->) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |span) - |x $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |y $ %{} :Leaf (:at 1539104802376) (:by |root) (:text |input) - |y $ %{} :Expr (:at 1536561755369) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536561755369) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1536561755369) (:by |B1y7Rc-Zz) (:text |app.config) - |r $ %{} :Leaf (:at 1536561758845) (:by |B1y7Rc-Zz) (:text |:as) - |v $ %{} :Leaf (:at 1536561761903) (:by |B1y7Rc-Zz) (:text |config) - |yT $ %{} :Expr (:at 1539104795890) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104795890) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812042798) (:by |B1y7Rc-Zz) (:text |feather.core) - |r $ %{} :Leaf (:at 1539104795890) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1539104795890) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104795890) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812045940) (:by |B1y7Rc-Zz) (:text |comp-i) + :code $ quote + ns app.comp.navigation $ :require + [] respo-ui.core :refer $ [] hsl + [] respo-ui.core :as ui + [] respo.comp.space :refer $ [] =< + [] respo.core :refer $ [] defcomp <> action-> span div input + [] app.config :as config + [] feather.core :refer $ [] comp-i |app.comp.profile $ %{} :FileEntry :defs $ {} |comp-profile $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |comp-profile) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |user) - |j $ %{} :Leaf (:at 1524070827396) (:by |root) (:text |members) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1519314673230) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1519314674218) (:by |root) (:text |merge) - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui/flex) - |j $ %{} :Expr (:at 1519314674864) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314675207) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1519314675496) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519314677667) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1519314678341) (:by |root) (:text |16) - |r $ %{} :Expr (:at 1524070753023) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1524070753742) (:by |root) (:text |div) - |L $ %{} :Expr (:at 1524070753977) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070754337) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070764197) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070764960) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1524070765167) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070765499) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070765707) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070768913) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1524070771373) (:by |root) (:text |ui/font-fancy) - |r $ %{} :Expr (:at 1524070772863) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070774437) (:by |root) (:text |:font-size) - |j $ %{} :Leaf (:at 1524070786249) (:by |root) (:text |32) - |v $ %{} :Expr (:at 1524070778614) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070781489) (:by |root) (:text |:font-weight) - |j $ %{} :Leaf (:at 1524070782585) (:by |root) (:text |100) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text "||Hello! ") - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |user) - |t $ %{} :Expr (:at 1524070801446) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070803450) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1524070804372) (:by |root) (:text |nil) - |r $ %{} :Leaf (:at 1524070805591) (:by |root) (:text |16) - |u $ %{} :Expr (:at 1524070806586) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070807601) (:by |root) (:text |div) - |j $ %{} :Expr (:at 1524070807801) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070808172) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070882494) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070886268) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1524070890021) (:by |root) (:text |ui/row) - |r $ %{} :Expr (:at 1524070808914) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070810352) (:by |root) (:text |<>) - |j $ %{} :Leaf (:at 1524070906296) (:by |root) (:text "|\"Members:") - |t $ %{} :Expr (:at 1524070907095) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070907693) (:by |root) (:text |=<) - |j $ %{} :Leaf (:at 1524071002316) (:by |root) (:text |8) - |r $ %{} :Leaf (:at 1524070908955) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1524070813822) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070815507) (:by |root) (:text |list->) - |j $ %{} :Expr (:at 1524070815884) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070816388) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070882494) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070886268) (:by |root) (:text |:style) - |j $ %{} :Leaf (:at 1524070890021) (:by |root) (:text |ui/row) - |r $ %{} :Expr (:at 1524070817648) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812939050) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1524070823331) (:by |root) (:text |members) - |n $ %{} :Expr (:at 1629812940233) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629812943541) (:by |B1y7Rc-Zz) (:text |.to-list) - |r $ %{} :Expr (:at 1524070849620) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629812948660) (:by |B1y7Rc-Zz) (:text |.map-pair) - |j $ %{} :Expr (:at 1524070854323) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070854836) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1524070855268) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070857242) (:by |root) (:text |k) - |j $ %{} :Leaf (:at 1524070860935) (:by |root) (:text |username) - |r $ %{} :Expr (:at 1524070862172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070862624) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1524070863576) (:by |root) (:text |k) - |r $ %{} :Expr (:at 1524070863870) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070935603) (:by |root) (:text |div) - |b $ %{} :Expr (:at 1524070935915) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070936321) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070941378) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070945311) (:by |root) (:text |:style) - |j $ %{} :Expr (:at 1524070945552) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070951279) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1524070952343) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070953379) (:by |root) (:text |:padding) - |j $ %{} :Leaf (:at 1524070959440) (:by |root) (:text "|\"0 8px") - |r $ %{} :Expr (:at 1524070965836) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070967712) (:by |root) (:text |:border) - |j $ %{} :Expr (:at 1524070968157) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070968711) (:by |root) (:text |str) - |j $ %{} :Leaf (:at 1524070971580) (:by |root) (:text "|\"1px solid ") - |r $ %{} :Expr (:at 1524070972774) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070973331) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1524070973606) (:by |root) (:text |0) - |r $ %{} :Leaf (:at 1524070973793) (:by |root) (:text |0) - |v $ %{} :Leaf (:at 1524071006553) (:by |root) (:text |80) - |v $ %{} :Expr (:at 1524070980253) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070984655) (:by |root) (:text |:border-radius) - |j $ %{} :Leaf (:at 1524070992141) (:by |root) (:text "|\"16px") - |x $ %{} :Expr (:at 1524070994599) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070996433) (:by |root) (:text |:margin) - |j $ %{} :Leaf (:at 1524071016063) (:by |root) (:text "|\"0 4px") - |j $ %{} :Expr (:at 1524070937486) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1524070939626) (:by |root) (:text |<>) - |T $ %{} :Leaf (:at 1524070866665) (:by |root) (:text |username) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |v $ %{} :Leaf (:at 1524070799028) (:by |root) (:text |48) - |x $ %{} :Expr (:at 1524070749088) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1524070749878) (:by |root) (:text |div) - |L $ %{} :Expr (:at 1524070750119) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070750478) (:by |root) (:text |{}) - |P $ %{} :Expr (:at 1536750075330) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750077847) (:by |B1y7Rc-Zz) (:text |button) - |j $ %{} :Expr (:at 1536750078116) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750084550) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1536750084800) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750086408) (:by |B1y7Rc-Zz) (:text |:style) - |j $ %{} :Expr (:at 1536750086649) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750087218) (:by |B1y7Rc-Zz) (:text |merge) - |j $ %{} :Leaf (:at 1536750089353) (:by |B1y7Rc-Zz) (:text |ui/button) - |r $ %{} :Expr (:at 1536750146336) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750146336) (:by |B1y7Rc-Zz) (:text |:on-click) - |j $ %{} :Expr (:at 1536750146336) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750146336) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1536750146336) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750146336) (:by |B1y7Rc-Zz) (:text |e) - |j $ %{} :Leaf (:at 1536750196752) (:by |B1y7Rc-Zz) (:text |d!) - |r $ %{} :Leaf (:at 1536750199956) (:by |B1y7Rc-Zz) (:text |m!) - |r $ %{} :Expr (:at 1536750149343) (:by |B1y7Rc-Zz) - :data $ {} - |j $ %{} :Leaf (:at 1629812957322) (:by |B1y7Rc-Zz) (:text |js/location.replace) - |r $ %{} :Expr (:at 1536750157447) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750157996) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1536947568308) (:by |root) (:text |js/location.origin) - |r $ %{} :Leaf (:at 1536947560142) (:by |root) (:text "|\"?time=") - |v $ %{} :Expr (:at 1536750183293) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750183917) (:by |B1y7Rc-Zz) (:text |.now) - |j $ %{} :Leaf (:at 1536750185350) (:by |B1y7Rc-Zz) (:text |js/Date) - |r $ %{} :Expr (:at 1536750090761) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750091205) (:by |B1y7Rc-Zz) (:text |<>) - |j $ %{} :Leaf (:at 1536750096637) (:by |B1y7Rc-Zz) (:text "|\"Refresh") - |R $ %{} :Expr (:at 1536750643074) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1536750643562) (:by |B1y7Rc-Zz) (:text |=<) - |j $ %{} :Leaf (:at 1536750644286) (:by |B1y7Rc-Zz) (:text |8) - |r $ %{} :Leaf (:at 1536750644793) (:by |B1y7Rc-Zz) (:text |nil) - |T $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1529343433304) (:by |root) (:text |button) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:style) - |b $ %{} :Expr (:at 1529343525553) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1529343526544) (:by |root) (:text |merge) - |T $ %{} :Leaf (:at 1529343448522) (:by |root) (:text |ui/button) - |j $ %{} :Expr (:at 1529343455186) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529343455629) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1529343457115) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529343457898) (:by |root) (:text |:color) - |j $ %{} :Leaf (:at 1529343458855) (:by |root) (:text |:red) - |r $ %{} :Expr (:at 1529343459158) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529343463728) (:by |root) (:text |:border-color) - |j $ %{} :Leaf (:at 1529343464475) (:by |root) (:text |:red) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1514302350497) (:by |root) (:text |:on-click) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1521951456454) (:by |root) (:text |fn) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |e) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |dispatch!) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |dispatch!) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:user/log-out) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |j $ %{} :Leaf (:at 1645261630317) (:by |B1y7Rc-Zz) (:text |js/localStorage.removeItem) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:storage-key) - |j $ %{} :Leaf (:at 1527788933957) (:by |root) (:text |config/site) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |r $ %{} :Leaf (:at 1536750140051) (:by |B1y7Rc-Zz) (:text "|\"Log out") + :code $ quote + defcomp comp-profile (user members) + div + {} $ :style + merge ui/flex $ {} (:padding 16) + div + {} $ :style + {} (:font-family ui/font-fancy) (:font-size 32) (:font-weight 100) + <> $ str "|Hello! " (:name user) + =< nil 16 + div + {} $ :style ui/row + <> "\"Members:" + =< 8 nil + list-> + {} $ :style ui/row + -> members (.to-list) + .map-pair $ fn (k username) + [] k $ div + {} $ :style + {} (:padding "\"0 8px") + :border $ str "\"1px solid " (hsl 0 0 80) + :border-radius "\"16px" + :margin "\"0 4px" + <> username + =< nil 48 + div ({}) + button + {} + :style $ merge ui/button + :on-click $ fn (e d! m!) + js/location.replace $ str js/location.origin "\"?time=" (.now js/Date) + <> "\"Refresh" + =< 8 nil + button + {} + :style $ merge ui/button + {} (:color :red) (:border-color :red) + :on-click $ fn (e dispatch!) (dispatch! :user/log-out nil) + js/localStorage.removeItem $ :storage-key config/site + <> "\"Log out" :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.comp.profile) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812962742) (:by |B1y7Rc-Zz) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |schema) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1516547419785) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |ui) - |y $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.core) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |defcomp) - |n $ %{} :Leaf (:at 1524070875244) (:by |root) (:text |list->) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |<>) - |v $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |span) - |x $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |div) - |y $ %{} :Leaf (:at 1529343437918) (:by |root) (:text |button) - |yT $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |respo.comp.space) - |r $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1500541010211) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541010211) (:by |root) (:text |=<) - |yj $ %{} :Expr (:at 1527788936196) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1527788936499) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1527788937835) (:by |root) (:text |app.config) - |r $ %{} :Leaf (:at 1527788938747) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1527788939786) (:by |root) (:text |config) + :code $ quote + ns app.comp.profile $ :require + [] respo-ui.core :refer $ [] hsl + [] app.schema :as schema + [] respo-ui.core :as ui + [] respo.core :refer $ [] defcomp list-> <> span div button + [] respo.comp.space :refer $ [] =< + [] app.config :as config |app.config $ %{} :FileEntry :defs $ {} |dev? $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811824045) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text |def) - |j $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text |dev?) - |r $ %{} :Expr (:at 1629811824045) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text |=) - |j $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text "|\"dev") - |r $ %{} :Expr (:at 1629811824045) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text |get-env) - |j $ %{} :Leaf (:at 1629811824045) (:by |B1y7Rc-Zz) (:text "|\"mode") - |n $ %{} :Leaf (:at 1658773020686) (:by |B1y7Rc-Zz) (:text "|\"release") + :code $ quote + def dev? $ = "\"dev" (get-env "\"mode" "\"release") |site $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |site) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:storage-key) - |j $ %{} :Leaf (:at 1538241431391) (:by |root) (:text "|\"copycat") - |n $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1629813250026) (:by |B1y7Rc-Zz) (:text |:storage-file) - |j $ %{} :Leaf (:at 1629813251545) (:by |B1y7Rc-Zz) (:text "|\"copycat.cirru") - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:port) - |j $ %{} :Leaf (:at 1538241415466) (:by |root) (:text |11012) - |t $ %{} :Expr (:at 1527867502467) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1527867504737) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1538241517931) (:by |root) (:text "|\"Copycat") - |u $ %{} :Expr (:at 1527867511986) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1527867512819) (:by |root) (:text |:icon) - |j $ %{} :Leaf (:at 1539197344046) (:by |root) (:text "|\"http://cdn.tiye.me/logo/copycat.png") - |yr $ %{} :Expr (:at 1535565550489) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1535565552318) (:by |B1y7Rc-Zz) (:text |:theme) - |j $ %{} :Leaf (:at 1535565554474) (:by |B1y7Rc-Zz) (:text "|\"#eeeeff") + :code $ quote + def site $ {} (:storage-key "\"copycat") (:storage-file "\"copycat.cirru") (:port 11012) (:title "\"Copycat") (:icon "\"http://cdn.tiye.me/logo/copycat.png") (:theme "\"#eeeeff") :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1527788708227) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1527788708227) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1527788708227) (:by |root) (:text |app.config) - |r $ %{} :Expr (:at 1528098188887) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1528098190433) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1528098190659) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1528098190811) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1528098192582) (:by |root) (:text |app.util) - |r $ %{} :Leaf (:at 1528098193514) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1528098193724) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1528098194516) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1528098196255) (:by |root) (:text |get-env!) + :code $ quote + ns app.config $ :require + [] app.util :refer $ [] get-env! |app.schema $ %{} :FileEntry :defs $ {} |database $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |database) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:sessions) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:users) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |v $ %{} :Expr (:at 1539104104972) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104106596) (:by |root) (:text |:snippets) - |j $ %{} :Expr (:at 1539104106915) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104107415) (:by |root) (:text |do) - |j $ %{} :Leaf (:at 1539104109224) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104109880) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104110220) (:by |root) (:text |{}) + :code $ quote + def database $ {} + :sessions $ {} + :users $ {} + :snippets $ do snippet ({}) |notification $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |notification) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:kind) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:text) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) + :code $ quote + def notification $ {} (:id nil) (:kind nil) (:text nil) |router $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |router) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:data) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |x $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) + :code $ quote + def router $ {} (:name nil) (:title nil) + :data $ {} + :router nil |session $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:user-id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:nickname) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:home) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |y $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1529230759501) (:by |root) (:text |:messages) - |j $ %{} :Expr (:at 1529230760396) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529230760716) (:by |root) (:text |{}) + :code $ quote + def session $ {} (:user-id nil) (:id nil) (:nickname nil) + :router $ {} (:name :home) (:data nil) (:router nil) + :messages $ {} |snippet $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |:title) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text "|\"") - |v $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |:content) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text "|\"") - |x $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |:edited-at) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |nil) - |y $ %{} :Expr (:at 1539104095842) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |:copied-times) - |j $ %{} :Leaf (:at 1539104095842) (:by |root) (:text |0) + :code $ quote + def snippet $ {} (:id nil) (:title "\"") (:content "\"") (:edited-at nil) (:copied-times 0) |user $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |user) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:nickname) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |x $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:avatar) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) - |y $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:password) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) + :code $ quote + def user $ {} (:name nil) (:id nil) (:nickname nil) (:avatar nil) (:password nil) :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.schema) + :code $ quote (ns app.schema) |app.server $ %{} :FileEntry :defs $ {} |*client-caches $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defatom) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |*client-caches) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |{}) + :code $ quote + defatom *client-caches $ {} |*initial-db $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |defatom) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |*initial-db) - |h $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |path-exists?) - |b $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |w-log) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |storage-file) - |h $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text "|\"Found local EDN data") - |h $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |merge) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |schema/database) - |h $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |parse-cirru-edn) - |b $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |read-file) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |storage-file) - |l $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645260441496) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text "|\"Found no data") - |h $ %{} :Leaf (:at 1645260441496) (:by |B1y7Rc-Zz) (:text |schema/database) + :code $ quote + defatom *initial-db $ if + path-exists? $ w-log storage-file + do (println "\"Found local EDN data") + merge schema/database $ parse-cirru-edn (read-file storage-file) + do (println "\"Found no data") schema/database |*reader-reel $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defatom) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |*reader-reel) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*reel) + :code $ quote (defatom *reader-reel @*reel) |*reel $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defatom) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |*reel) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |merge) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel-schema) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:base) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*initial-db) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:db) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*initial-db) + :code $ quote + defatom *reel $ merge reel-schema + {} (:base @*initial-db) (:db @*initial-db) |dispatch! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |dispatch!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |let) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op-id) - |j $ %{} :Expr (:at 1645260407428) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260407428) (:by |B1y7Rc-Zz) (:text |generate-id!) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op-time) - |j $ %{} :Expr (:at 1645260413082) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260413082) (:by |B1y7Rc-Zz) (:text |->) - |b $ %{} :Expr (:at 1645260413082) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260413082) (:by |B1y7Rc-Zz) (:text |get-time!) - |h $ %{} :Expr (:at 1645260413082) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260413082) (:by |B1y7Rc-Zz) (:text |.timestamp) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |config/dev?) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"Dispatch!") - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op) - |x $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |=) - |j $ %{} :Expr (:at 1696790025507) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1696790026609) (:by |B1y7Rc-Zz) (:text |nth) - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op) - |b $ %{} :Leaf (:at 1696790027707) (:by |B1y7Rc-Zz) (:text |0) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:effect/persist) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |persist-db!) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reset!) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |*reel) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel-reducer) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*reel) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |updater) - |v $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op) - |y $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |yT $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op-id) - |yj $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |op-time) - |yr $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |config/dev?) + :code $ quote + defn dispatch! (op sid) + let + op-id $ generate-id! + op-time $ -> (get-time!) (.timestamp) + if config/dev? $ println "\"Dispatch!" (str op) sid + if + = (nth op 0) :effect/persist + persist-db! + reset! *reel $ reel-reducer @*reel updater op sid op-id op-time config/dev? |get-backup-path! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |defn) - |b $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |get-backup-path!) - |h $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |l $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |let) - |b $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |now) - |b $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |.extract) - |b $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |get-time!) - |h $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |join-path) - |b $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |calcit-dirname) - |h $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text "|\"backups") - |l $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |str) - |b $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |:month) - |b $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |now) - |o $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |str) - |b $ %{} :Expr (:at 1645260278822) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |:day) - |b $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text |now) - |h $ %{} :Leaf (:at 1645260278822) (:by |B1y7Rc-Zz) (:text "|\"-snapshot.cirru") + :code $ quote + defn get-backup-path! () $ let + now $ .extract (get-time!) + join-path calcit-dirname "\"backups" + str $ :month now + str (:day now) "\"-snapshot.cirru" |main! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |main!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"Running mode:") - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |config/dev?) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"dev") - |v $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"release") - |x $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |let) - |j $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |p?) - |b $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |get-env) - |b $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text "|\"port") - |b $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |port) - |b $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |some?) - |b $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |p?) - |h $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |parse-float) - |b $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |p?) - |l $ %{} :Expr (:at 1645260130272) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |:port) - |b $ %{} :Leaf (:at 1645260130272) (:by |B1y7Rc-Zz) (:text |config/site) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |run-server!) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |port) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"Server started on port:") - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |port) - |xT $ %{} :Expr (:at 1645260145991) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260145991) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645260145991) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260145991) (:by |B1y7Rc-Zz) (:text |;) - |b $ %{} :Leaf (:at 1645260145991) (:by |B1y7Rc-Zz) (:text "|\"init it before doing multi-threading") - |h $ %{} :Expr (:at 1645260145991) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260145991) (:by |B1y7Rc-Zz) (:text |identity) - |b $ %{} :Leaf (:at 1645260145991) (:by |B1y7Rc-Zz) (:text |@*reader-reel) - |y $ %{} :Expr (:at 1645260167953) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260167953) (:by |B1y7Rc-Zz) (:text |set-interval) - |b $ %{} :Leaf (:at 1645260167953) (:by |B1y7Rc-Zz) (:text |200) - |h $ %{} :Expr (:at 1645260167953) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260167953) (:by |B1y7Rc-Zz) (:text |fn) - |b $ %{} :Expr (:at 1645260167953) (:by |B1y7Rc-Zz) - :data $ {} - |h $ %{} :Expr (:at 1645260167953) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260167953) (:by |B1y7Rc-Zz) (:text |render-loop!) - |yj $ %{} :Expr (:at 1645260175719) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260175719) (:by |B1y7Rc-Zz) (:text |set-interval) - |b $ %{} :Leaf (:at 1645260175719) (:by |B1y7Rc-Zz) (:text |600000) - |h $ %{} :Expr (:at 1645260175719) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260175719) (:by |B1y7Rc-Zz) (:text |fn) - |b $ %{} :Expr (:at 1645260175719) (:by |B1y7Rc-Zz) - :data $ {} - |h $ %{} :Expr (:at 1645260175719) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260175719) (:by |B1y7Rc-Zz) (:text |persist-db!) - |z $ %{} :Expr (:at 1645260179399) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260179399) (:by |B1y7Rc-Zz) (:text |on-control-c) - |b $ %{} :Leaf (:at 1645260179399) (:by |B1y7Rc-Zz) (:text |on-exit!) + :code $ quote + defn main! () + println "\"Running mode:" $ if config/dev? "\"dev" "\"release" + let + p? $ get-env "\"port" + port $ if (some? p?) (parse-float p?) (:port config/site) + run-server! port + println $ str "\"Server started on port:" port + do (; "\"init it before doing multi-threading") (identity @*reader-reel) + set-interval 200 $ fn () (render-loop!) + set-interval 600000 $ fn () (persist-db!) + on-control-c on-exit! |on-exit! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1645261210095) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |defn) - |b $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |on-exit!) - |h $ %{} :Expr (:at 1645261210095) (:by |B1y7Rc-Zz) - :data $ {} - |l $ %{} :Expr (:at 1645261210095) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |persist-db!) - |o $ %{} :Expr (:at 1645261210095) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |;) - |b $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |println) - |h $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text "|\"exit code is...") - |q $ %{} :Expr (:at 1645261210095) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |quit!) - |b $ %{} :Leaf (:at 1645261210095) (:by |B1y7Rc-Zz) (:text |0) + :code $ quote + defn on-exit! () (persist-db!) (; println "\"exit code is...") (quit! 0) |persist-db! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |persist-db!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |let) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |file-content) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |format-cirru-edn) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |assoc) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |:db) - |b $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |@*reel) - |h $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |:sessions) - |l $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |{}) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |storage-path) - |b $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |storage-file) - |h $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |backup-path) - |b $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |get-backup-path!) - |h $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |check-write-file!) - |b $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |storage-path) - |h $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |file-content) - |l $ %{} :Expr (:at 1645260459380) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |check-write-file!) - |b $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |backup-path) - |h $ %{} :Leaf (:at 1645260459380) (:by |B1y7Rc-Zz) (:text |file-content) + :code $ quote + defn persist-db! () $ let + file-content $ format-cirru-edn + assoc (:db @*reel) :sessions $ {} + storage-path storage-file + backup-path $ get-backup-path! + check-write-file! storage-path file-content + check-write-file! backup-path file-content |reload! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reload!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |println) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text "|\"Code updated.") - |w $ %{} :Expr (:at 1645260318628) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260318628) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Expr (:at 1645260318628) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260318628) (:by |B1y7Rc-Zz) (:text |not) - |b $ %{} :Leaf (:at 1645260318628) (:by |B1y7Rc-Zz) (:text |config/dev?) - |h $ %{} :Expr (:at 1645260318628) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260318628) (:by |B1y7Rc-Zz) (:text |raise) - |b $ %{} :Leaf (:at 1645260318628) (:by |B1y7Rc-Zz) (:text "|\"reloading only happens in dev mode") - |x $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |clear-twig-caches!) - |yT $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reset!) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |*reel) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |refresh-reel) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*reel) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*initial-db) - |v $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |updater) - |yv $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sync-clients!) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*reader-reel) + :code $ quote + defn reload! () (println "\"Code updated.") + if (not config/dev?) (raise "\"reloading only happens in dev mode") + clear-twig-caches! + reset! *reel $ refresh-reel @*reel @*initial-db updater + sync-clients! @*reader-reel |render-loop! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |render-loop!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |v $ %{} :Expr (:at 1645260480876) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |when) - |b $ %{} :Expr (:at 1645260480876) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |not) - |b $ %{} :Expr (:at 1645260480876) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |identical?) - |b $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |@*reader-reel) - |h $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |@*reel) - |h $ %{} :Expr (:at 1645260480876) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |reset!) - |b $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |*reader-reel) - |h $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |@*reel) - |l $ %{} :Expr (:at 1645260480876) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |sync-clients!) - |b $ %{} :Leaf (:at 1645260480876) (:by |B1y7Rc-Zz) (:text |@*reader-reel) + :code $ quote + defn render-loop! () $ when + not $ identical? @*reader-reel @*reel + reset! *reader-reel @*reel + sync-clients! @*reader-reel |run-server! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |defn) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |run-server!) - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |port) - |l $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |wss-serve!) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |&{}) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:port) - |h $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |port) - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |fn) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |data) - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790154148) (:by |B1y7Rc-Zz) (:text |tag-match) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |data) - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:connect) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |sid) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |dispatch!) - |b $ %{} :Expr (:at 1696790138441) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1696790139071) (:by |B1y7Rc-Zz) (:text |::) - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:session/connect) - |l $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |sid) - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text "|\"New client.") - |l $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:message) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |sid) - |h $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |msg) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |let) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |action) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |parse-cirru-edn) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |msg) - |h $ %{} :Expr (:at 1696790135378) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790135378) (:by |B1y7Rc-Zz) (:text |dispatch!) - |b $ %{} :Leaf (:at 1696790135378) (:by |B1y7Rc-Zz) (:text |action) - |h $ %{} :Leaf (:at 1696790135378) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:disconnect) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |sid) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text "|\"Client closed!") - |h $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |dispatch!) - |b $ %{} :Expr (:at 1696790141411) (:by |B1y7Rc-Zz) - :data $ {} - |D $ %{} :Leaf (:at 1696790142079) (:by |B1y7Rc-Zz) (:text |::) - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |:session/disconnect) - |l $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |sid) - |q $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |_) - |b $ %{} :Expr (:at 1645260190443) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text "|\"unknown data:") - |h $ %{} :Leaf (:at 1645260190443) (:by |B1y7Rc-Zz) (:text |data) + :code $ quote + defn run-server! (port) + wss-serve! (&{} :port port) + fn (data) + tag-match data + :connect sid + do + dispatch! (:: :session/connect) sid + println "\"New client." + (:message sid msg) + let + action $ parse-cirru-edn msg + dispatch! action sid + (:disconnect sid) + do (println "\"Client closed!") + dispatch! (:: :session/disconnect) sid + _ $ println "\"unknown data:" data |storage-file $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |def) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |storage-file) - |h $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |empty?) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |calcit-dirname) - |h $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |str) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |calcit-dirname) - |h $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |:storage-file) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |config/site) - |l $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |str) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |calcit-dirname) - |h $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text "|\"/") - |l $ %{} :Expr (:at 1645260384647) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |:storage-file) - |b $ %{} :Leaf (:at 1645260384647) (:by |B1y7Rc-Zz) (:text |config/site) + :code $ quote + def storage-file $ if (empty? calcit-dirname) + str calcit-dirname $ :storage-file config/site + str calcit-dirname "\"/" $ :storage-file config/site |sync-clients! $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sync-clients!) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |wss-each!) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |let) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |db) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:db) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |records) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:records) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |session) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |get-in) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:sessions) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |old-store) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |or) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |get) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |@*client-caches) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |sid) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |nil) - |x $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |new-store) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |twig-container) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |session) - |v $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |records) - |y $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |changes) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |diff-twig) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |old-store) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |new-store) - |v $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:key) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:id) - |r $ %{} :Expr (:at 1645261188340) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |;) - |b $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |when) - |h $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |config/dev?) - |l $ %{} :Expr (:at 1645261188340) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |println) - |b $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text "|\"Changes for") - |h $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |sid) - |l $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text "|\":") - |o $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |changes) - |q $ %{} :Expr (:at 1645261188340) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |count) - |b $ %{} :Leaf (:at 1645261188340) (:by |B1y7Rc-Zz) (:text |records) - |v $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |if) - |b $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |not=) - |b $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |changes) - |h $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |[]) - |h $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |wss-send!) - |b $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |sid) - |h $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |format-cirru-edn) - |X $ %{} :Expr (:at 1696790239785) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790240038) (:by |B1y7Rc-Zz) (:text |::) - |b $ %{} :Leaf (:at 1696790241522) (:by |B1y7Rc-Zz) (:text |:patch) - |h $ %{} :Leaf (:at 1696790242421) (:by |B1y7Rc-Zz) (:text |changes) - |h $ %{} :Expr (:at 1645261179773) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |swap!) - |b $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |*client-caches) - |h $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |assoc) - |l $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1645261179773) (:by |B1y7Rc-Zz) (:text |new-store) + :code $ quote + defn sync-clients! (reel) + wss-each! $ fn (sid) + let + db $ :db reel + records $ :records reel + session $ get-in db ([] :sessions sid) + old-store $ or (get @*client-caches sid) nil + new-store $ twig-container db session records + changes $ diff-twig old-store new-store + {} $ :key :id + ; when config/dev? $ println "\"Changes for" sid "\":" changes (count records) + if + not= changes $ [] + do + wss-send! sid $ format-cirru-edn (:: :patch changes) + swap! *client-caches assoc sid new-store :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |ns) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |app.server) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:require) - |j $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |app.schema) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:as) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |schema) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |app.updater) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |updater) - |x $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |cumulo-reel.core) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel-reducer) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |refresh-reel) - |r $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |reel-schema) - |y $ %{} :Expr (:at 1645260366967) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260366967) (:by |B1y7Rc-Zz) (:text |app.config) - |b $ %{} :Leaf (:at 1645260366967) (:by |B1y7Rc-Zz) (:text |:as) - |h $ %{} :Leaf (:at 1645260366967) (:by |B1y7Rc-Zz) (:text |config) - |yx $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |app.twig.container) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |twig-container) - |yy $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |recollect.diff) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |diff-twig) - |yyT $ %{} :Expr (:at 1645260227360) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260227360) (:by |B1y7Rc-Zz) (:text |wss.core) - |b $ %{} :Leaf (:at 1645260227360) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260227360) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260227360) (:by |B1y7Rc-Zz) (:text |wss-serve!) - |b $ %{} :Leaf (:at 1645260227360) (:by |B1y7Rc-Zz) (:text |wss-send!) - |h $ %{} :Leaf (:at 1645260227360) (:by |B1y7Rc-Zz) (:text |wss-each!) - |yyj $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |recollect.twig) - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629811849639) (:by |B1y7Rc-Zz) - :data $ {} - |j $ %{} :Leaf (:at 1629811849639) (:by |B1y7Rc-Zz) (:text |clear-twig-caches!) - |yyl $ %{} :Expr (:at 1645260222447) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260222447) (:by |B1y7Rc-Zz) (:text |app.$meta) - |b $ %{} :Leaf (:at 1645260222447) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260222447) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260222447) (:by |B1y7Rc-Zz) (:text |calcit-dirname) - |yyn $ %{} :Expr (:at 1645260211850) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260211850) (:by |B1y7Rc-Zz) (:text |calcit.std.fs) - |b $ %{} :Leaf (:at 1645260211850) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260211850) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260211850) (:by |B1y7Rc-Zz) (:text |path-exists?) - |b $ %{} :Leaf (:at 1645260211850) (:by |B1y7Rc-Zz) (:text |check-write-file!) - |yyr $ %{} :Expr (:at 1645260206720) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260206720) (:by |B1y7Rc-Zz) (:text |calcit.std.time) - |b $ %{} :Leaf (:at 1645260206720) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260206720) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260206720) (:by |B1y7Rc-Zz) (:text |set-interval) - |yz $ %{} :Expr (:at 1645260202840) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260202840) (:by |B1y7Rc-Zz) (:text |calcit.std.date) - |b $ %{} :Leaf (:at 1645260202840) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260202840) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260202840) (:by |B1y7Rc-Zz) (:text |Date) - |b $ %{} :Leaf (:at 1645260202840) (:by |B1y7Rc-Zz) (:text |get-time!) - |z $ %{} :Expr (:at 1645260198358) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260198358) (:by |B1y7Rc-Zz) (:text |calcit.std.path) - |b $ %{} :Leaf (:at 1645260198358) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645260198358) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645260198358) (:by |B1y7Rc-Zz) (:text |join-path) + :code $ quote + ns app.server $ :require (app.schema :as schema) + app.updater :refer $ updater + cumulo-reel.core :refer $ reel-reducer refresh-reel reel-schema + app.config :as config + app.twig.container :refer $ twig-container + recollect.diff :refer $ diff-twig + wss.core :refer $ wss-serve! wss-send! wss-each! + recollect.twig :refer $ clear-twig-caches! + app.$meta :refer $ calcit-dirname + calcit.std.fs :refer $ path-exists? check-write-file! + calcit.std.time :refer $ set-interval + calcit.std.date :refer $ Date get-time! + calcit.std.path :refer $ join-path |app.style $ %{} :FileEntry :defs $ {} |button $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104165462) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104165462) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104165462) (:by |root) (:text |button) - |r $ %{} :Expr (:at 1539104165462) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104165462) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104165462) (:by |root) (:text |ui/button) - |r $ %{} :Expr (:at 1539104165462) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104165462) (:by |root) (:text |{}) + :code $ quote + def button $ merge ui/button ({}) |input $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104152342) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |input) - |r $ %{} :Expr (:at 1539104152342) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |ui/input) - |r $ %{} :Expr (:at 1539104152342) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104152342) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |:width) - |j $ %{} :Leaf (:at 1539104152342) (:by |root) (:text |400) + :code $ quote + def input $ merge ui/input + {} $ :width 400 |link $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1519367966237) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519367970413) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1519367966237) (:by |root) (:text |link) - |r $ %{} :Expr (:at 1519367966237) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519367974187) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1519367974501) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519367980887) (:by |root) (:text |:text-decoration) - |j $ %{} :Leaf (:at 1519367984967) (:by |root) (:text |:underline) - |r $ %{} :Expr (:at 1519367985371) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519367998049) (:by |root) (:text |:cursor) - |j $ %{} :Leaf (:at 1519367996458) (:by |root) (:text |:pointer) - |v $ %{} :Expr (:at 1519368028360) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368029579) (:by |root) (:text |:color) - |j $ %{} :Expr (:at 1519368031142) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368031562) (:by |root) (:text |hsl) - |j $ %{} :Leaf (:at 1519368032307) (:by |root) (:text |240) - |r $ %{} :Leaf (:at 1519368032737) (:by |root) (:text |80) - |v $ %{} :Leaf (:at 1519368033240) (:by |root) (:text |80) - |x $ %{} :Expr (:at 1519368217607) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368219848) (:by |root) (:text |:font-family) - |j $ %{} :Leaf (:at 1519368227853) (:by |root) (:text |ui/font-fancy) + :code $ quote + def link $ {} (:text-decoration :underline) (:cursor :pointer) + :color $ hsl 240 80 80 + :font-family ui/font-fancy |textarea $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104624630) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104624630) (:by |root) (:text |def) - |j $ %{} :Leaf (:at 1539104624630) (:by |root) (:text |textarea) - |r $ %{} :Expr (:at 1539104624630) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104624630) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104624630) (:by |root) (:text |ui/textarea) + :code $ quote + def textarea $ merge ui/textarea :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1519367963533) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519367963533) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1519367963533) (:by |root) (:text |app.style) - |r $ %{} :Expr (:at 1519368036923) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368038192) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1519368038575) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368038764) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1629812983837) (:by |B1y7Rc-Zz) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1519368041713) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1519368041918) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368042785) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1519368043289) (:by |root) (:text |hsl) - |r $ %{} :Expr (:at 1519368236509) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1519368236979) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1519368258261) (:by |root) (:text |respo-ui.core) - |r $ %{} :Leaf (:at 1519368241627) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1519368242073) (:by |root) (:text |ui) + :code $ quote + ns app.style $ :require + [] respo-ui.core :refer $ [] hsl + [] respo-ui.core :as ui |app.twig.container $ %{} :FileEntry :defs $ {} |twig-container $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1629813071823) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |twig-container) - |n $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Leaf (:at 1507828952210) (:by |root) (:text |records) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |let) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |logged-in?) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |some?) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:user-id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |router) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Expr (:at 1507830626848) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830630278) (:by |root) (:text |base-data) - |j $ %{} :Expr (:at 1507830631302) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830631896) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1507830632113) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830641027) (:by |root) (:text |:logged-in?) - |j $ %{} :Leaf (:at 1507830639219) (:by |root) (:text |logged-in?) - |n $ %{} :Expr (:at 1507830674443) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830677551) (:by |root) (:text |:session) - |j $ %{} :Leaf (:at 1507830679311) (:by |root) (:text |session) - |v $ %{} :Expr (:at 1507830649968) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830655148) (:by |root) (:text |:reel-length) - |j $ %{} :Expr (:at 1507830655987) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1507830657551) (:by |root) (:text |count) - |j $ %{} :Leaf (:at 1507830658789) (:by |root) (:text |records) - |r $ %{} :Expr (:at 1507830661017) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1507830661999) (:by |root) (:text |merge) - |L $ %{} :Leaf (:at 1507830664014) (:by |root) (:text |base-data) - |T $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |if) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |logged-in?) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:user) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |twig-user) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |get-in) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:users) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:user-id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |x $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |j $ %{} :Expr (:at 1524070628251) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1524070634499) (:by |root) (:text |assoc) - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |router) - |j $ %{} :Leaf (:at 1524070635855) (:by |root) (:text |:data) - |r $ %{} :Expr (:at 1524070636122) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813114828) (:by |B1y7Rc-Zz) (:text |case-default) - |j $ %{} :Expr (:at 1524070641804) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070642493) (:by |root) (:text |:name) - |j $ %{} :Leaf (:at 1524070643351) (:by |root) (:text |router) - |l $ %{} :Expr (:at 1629813115880) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813115880) (:by |B1y7Rc-Zz) (:text |{}) - |n $ %{} :Expr (:at 1525108994160) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1525108995413) (:by |root) (:text |:home) - |j $ %{} :Expr (:at 1539103545887) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539103546221) (:by |root) (:text |{}) - |p $ %{} :Expr (:at 1539105199910) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539105203650) (:by |root) (:text |:edit) - |j $ %{} :Expr (:at 1539105218209) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539105218136) (:by |root) (:text |:data) - |j $ %{} :Leaf (:at 1539105219942) (:by |root) (:text |router) - |r $ %{} :Expr (:at 1524070643948) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070646898) (:by |root) (:text |:profile) - |j $ %{} :Expr (:at 1524070654495) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070662619) (:by |root) (:text |twig-members) - |j $ %{} :Expr (:at 1524070665615) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070670477) (:by |root) (:text |:sessions) - |j $ %{} :Leaf (:at 1524070672563) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1524070673171) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070674094) (:by |root) (:text |:users) - |j $ %{} :Leaf (:at 1524070675166) (:by |root) (:text |db) - |xT $ %{} :Expr (:at 1539104535830) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104539109) (:by |root) (:text |:snippets) - |j $ %{} :Expr (:at 1539104539359) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104540614) (:by |root) (:text |:snippets) - |j $ %{} :Leaf (:at 1539104541933) (:by |root) (:text |db) - |y $ %{} :Expr (:at 1523120222572) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120223864) (:by |root) (:text |:count) - |j $ %{} :Expr (:at 1523120229051) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120230136) (:by |root) (:text |count) - |j $ %{} :Expr (:at 1523120230346) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1523120232122) (:by |root) (:text |:sessions) - |j $ %{} :Leaf (:at 1523120232500) (:by |root) (:text |db) - |yT $ %{} :Expr (:at 1524279105545) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1533834715393) (:by |B1y7Rc-Zz) (:text |:color) - |j $ %{} :Expr (:at 1645261570712) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261570712) (:by |B1y7Rc-Zz) (:text |rand-hex-color!) - |v $ %{} :Leaf (:at 1507830683551) (:by |root) (:text |nil) + :code $ quote + defn twig-container (db session records) + let + logged-in? $ some? (:user-id session) + router $ :router session + base-data $ {} (:logged-in? logged-in?) (:session session) + :reel-length $ count records + merge base-data $ if logged-in? + {} + :user $ twig-user + get-in db $ [] :users (:user-id session) + :router $ assoc router :data + case-default (:name router) ({}) + :home $ {} + :edit $ :data router + :profile $ twig-members (:sessions db) (:users db) + :snippets $ :snippets db + :count $ count (:sessions db) + :color $ rand-hex-color! + , nil |twig-members $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1524070676419) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813088489) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1524070676419) (:by |root) (:text |twig-members) - |r $ %{} :Expr (:at 1524070676419) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070680419) (:by |root) (:text |sessions) - |j $ %{} :Leaf (:at 1524070708862) (:by |root) (:text |users) - |v $ %{} :Expr (:at 1524070683188) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813093928) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1524070692906) (:by |root) (:text |sessions) - |n $ %{} :Expr (:at 1629813094903) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813096154) (:by |B1y7Rc-Zz) (:text |.to-list) - |r $ %{} :Expr (:at 1524070693234) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813100300) (:by |B1y7Rc-Zz) (:text |.map-pair) - |j $ %{} :Expr (:at 1524070696021) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070696334) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1524070696681) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070697507) (:by |root) (:text |k) - |j $ %{} :Leaf (:at 1524070699358) (:by |root) (:text |session) - |r $ %{} :Expr (:at 1524070700350) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070701520) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1524070702142) (:by |root) (:text |k) - |r $ %{} :Expr (:at 1524070702968) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070705127) (:by |root) (:text |get-in) - |j $ %{} :Leaf (:at 1524070714762) (:by |root) (:text |users) - |r $ %{} :Expr (:at 1524070715457) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070716715) (:by |root) (:text |[]) - |j $ %{} :Expr (:at 1524070717257) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1524070720176) (:by |root) (:text |:user-id) - |j $ %{} :Leaf (:at 1524070722292) (:by |root) (:text |session) - |r $ %{} :Leaf (:at 1524070725752) (:by |root) (:text |:name) + :code $ quote + defn twig-members (sessions users) + -> sessions (.to-list) + .map-pair $ fn (k session) + [] k $ get-in users + [] (:user-id session) :name :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.twig.container) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:require) - |x $ %{} :Expr (:at 1629813145859) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813145859) (:by |B1y7Rc-Zz) (:text |app.twig.user) - |j $ %{} :Leaf (:at 1629813145859) (:by |B1y7Rc-Zz) (:text |:refer) - |r $ %{} :Expr (:at 1629813145859) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813145859) (:by |B1y7Rc-Zz) (:text |twig-user) - |y $ %{} :Expr (:at 1645261589961) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261589961) (:by |B1y7Rc-Zz) (:text |calcit.std.rand) - |b $ %{} :Leaf (:at 1645261589961) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645261589961) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261589961) (:by |B1y7Rc-Zz) (:text |rand-hex-color!) + :code $ quote + ns app.twig.container $ :require + app.twig.user :refer $ twig-user + calcit.std.rand :refer $ rand-hex-color! |app.twig.user $ %{} :FileEntry :defs $ {} |twig-user $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1629813079591) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |twig-user) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |user) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |dissoc) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |user) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:password) + :code $ quote + defn twig-user (user) (dissoc user :password) :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.twig.user) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:require) + :code $ quote + ns app.twig.user $ :require |app.updater $ %{} :FileEntry :defs $ {} |updater $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |updater) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op) - |v $ %{} :Leaf (:at 1517930722619) (:by |root) (:text |sid) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |y $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |tag-match) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op) - |h $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:session/connect) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |session/connect) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |l $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:session/disconnect) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |session/disconnect) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |o $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:session/remove-message) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |session/remove-message) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |q $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:user/log-in) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |user/log-in) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |s $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:user/sign-up) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |user/sign-up) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |t $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:user/log-out) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |user/log-out) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |u $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:router/change) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |router/change) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |v $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:snippet/create) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |snippet/create-one) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |w $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:snippet/update) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |snippet/update-one) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |x $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:snippet/remove) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |snippet/remove-one) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |y $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |:snippet/count-usage) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |snippet/count-usage) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-data) - |l $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |sid) - |o $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-id) - |q $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op-time) - |z $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |_) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |do) - |b $ %{} :Expr (:at 1696790100355) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |eprintln) - |b $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text "||Unknown op:") - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |op) - |h $ %{} :Leaf (:at 1696790100355) (:by |B1y7Rc-Zz) (:text |db) + :code $ quote + defn updater (db op sid op-id op-time) + tag-match op + :session/connect + session/connect db sid op-id op-time + (:session/disconnect) (session/disconnect db sid op-id op-time) + (:session/remove-message op-data) (session/remove-message db op-data sid op-id op-time) + (:user/log-in op-data) (user/log-in db op-data sid op-id op-time) + (:user/sign-up op-data) (user/sign-up db op-data sid op-id op-time) + (:user/log-out op-data) (user/log-out db op-data sid op-id op-time) + (:router/change op-data) (router/change db op-data sid op-id op-time) + (:snippet/create op-data) (snippet/create-one db op-data sid op-id op-time) + (:snippet/update op-data) (snippet/update-one db op-data sid op-id op-time) + (:snippet/remove op-data) (snippet/remove-one db op-data sid op-id op-time) + (:snippet/count-usage op-data) (snippet/count-usage db op-data sid op-id op-time) + _ $ do (eprintln "|Unknown op:" op) db :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.session) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.user) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |user) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.router) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |router) - |w $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104291410) (:by |root) (:text |app.updater.snippet) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104293564) (:by |root) (:text |snippet) - |y $ %{} :Expr (:at 1529231005993) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231006285) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529231007723) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1529231008972) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1529231009860) (:by |root) (:text |schema) - |yT $ %{} :Expr (:at 1529231108810) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231110305) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529231113905) (:by |root) (:text |respo-message.updater) - |r $ %{} :Leaf (:at 1529231114617) (:by |root) (:text |:refer) - |v $ %{} :Expr (:at 1529231114849) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231116379) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529231118760) (:by |root) (:text |update-messages) + :code $ quote + ns app.updater $ :require ([] app.updater.session :as session) ([] app.updater.user :as user) ([] app.updater.router :as router) ([] app.updater.snippet :as snippet) ([] app.schema :as schema) + [] respo-message.updater :refer $ [] update-messages |app.updater.router $ %{} :FileEntry :defs $ {} |change $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |change) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |assoc-in) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:sessions) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:router) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-data) + :code $ quote + defn change (db op-data sid op-id op-time) + assoc-in db ([] :sessions sid :router) op-data :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.router) + :code $ quote (ns app.updater.router) |app.updater.session $ %{} :FileEntry :defs $ {} |connect $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |connect) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |assoc-in) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:sessions) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |schema/session) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) + :code $ quote + defn connect (db sid op-id op-time) + assoc-in db ([] :sessions sid) + merge schema/session $ {} (:id sid) |disconnect $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |disconnect) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |update) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:sessions) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |dissoc) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |session) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) + :code $ quote + defn disconnect (db sid op-id op-time) + update db :sessions $ fn (session) (dissoc session sid) |remove-message $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1529231499908) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231499908) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1529231499908) (:by |root) (:text |remove-message) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1529231506714) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231507936) (:by |root) (:text |update-in) - |j $ %{} :Leaf (:at 1529231509725) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1529231509958) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231510376) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1529231511756) (:by |root) (:text |:sessions) - |r $ %{} :Leaf (:at 1529231512509) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1529231515700) (:by |root) (:text |:messages) - |v $ %{} :Expr (:at 1529231534326) (:by |root) - :data $ {} - |D $ %{} :Leaf (:at 1529231534991) (:by |root) (:text |fn) - |L $ %{} :Expr (:at 1529231535248) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231536189) (:by |root) (:text |messages) - |T $ %{} :Expr (:at 1529231516827) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231517957) (:by |root) (:text |dissoc) - |j $ %{} :Leaf (:at 1529231519342) (:by |root) (:text |messages) - |r $ %{} :Expr (:at 1529231521395) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1529231522521) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1529231524125) (:by |root) (:text |op-data) + :code $ quote + defn remove-message (db op-data sid op-id op-time) + update-in db ([] :sessions sid :messages) + fn (messages) + dissoc messages $ :id op-data :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.session) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |schema) + :code $ quote + ns app.updater.session $ :require ([] app.schema :as schema) |app.updater.snippet $ %{} :FileEntry :defs $ {} |count-usage $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104349370) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104349370) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1539104349370) (:by |root) (:text |count-usage) - |r $ %{} :Expr (:at 1539104350330) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104350330) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1539104350330) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1539104350330) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1539104350330) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1539104350330) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1539104391148) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104391148) (:by |root) (:text |update-in) - |j $ %{} :Leaf (:at 1539104393884) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1539104391148) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104391148) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104391148) (:by |root) (:text |:snippets) - |r $ %{} :Leaf (:at 1539197832454) (:by |root) (:text |op-data) - |v $ %{} :Expr (:at 1539104391148) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104391148) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104391148) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104391148) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539197746489) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539197747700) (:by |root) (:text |update) - |j $ %{} :Leaf (:at 1539197748721) (:by |root) (:text |snippet) - |r $ %{} :Leaf (:at 1539197751090) (:by |root) (:text |:copied-times) - |v $ %{} :Leaf (:at 1539197752040) (:by |root) (:text |inc) + :code $ quote + defn count-usage (db op-data sid op-id op-time) + update-in db ([] :snippets op-data) + fn (snippet) (update snippet :copied-times inc) |create-one $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104297107) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104297107) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1539104297107) (:by |root) (:text |create-one) - |r $ %{} :Expr (:at 1539104309665) (:by |root) - :data $ {} - |j $ %{} :Leaf (:at 1539104309665) (:by |root) (:text |db) - |r $ %{} :Leaf (:at 1539104309665) (:by |root) (:text |op-data) - |v $ %{} :Leaf (:at 1539104309665) (:by |root) (:text |sid) - |x $ %{} :Leaf (:at 1539104309665) (:by |root) (:text |op-id) - |y $ %{} :Leaf (:at 1539104309665) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |assoc-in) - |j $ %{} :Leaf (:at 1539104367112) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |:snippets) - |r $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |op-id) - |v $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |schema/snippet) - |r $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |op-data) - |v $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |{}) - |j $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |op-id) - |r $ %{} :Expr (:at 1539104319451) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |:edited-at) - |j $ %{} :Leaf (:at 1539104319451) (:by |root) (:text |op-time) + :code $ quote + defn create-one (db op-data sid op-id op-time) + assoc-in db ([] :snippets op-id) + merge schema/snippet op-data $ {} (:id op-id) (:edited-at op-time) |remove-one $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104346214) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104346214) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1539104346214) (:by |root) (:text |remove-one) - |r $ %{} :Expr (:at 1539104347322) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104347322) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1539104347322) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1539104347322) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1539104347322) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1539104347322) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1539104379402) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104379402) (:by |root) (:text |update) - |j $ %{} :Leaf (:at 1539104383368) (:by |root) (:text |db) - |r $ %{} :Leaf (:at 1539104379402) (:by |root) (:text |:snippets) - |v $ %{} :Expr (:at 1539104379402) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1629813131274) (:by |B1y7Rc-Zz) (:text |\) - |j $ %{} :Leaf (:at 1539104379402) (:by |root) (:text |dissoc) - |r $ %{} :Leaf (:at 1539104379402) (:by |root) (:text |%) - |v $ %{} :Leaf (:at 1539104379402) (:by |root) (:text |op-data) + :code $ quote + defn remove-one (db op-data sid op-id op-time) + update db :snippets $ \ dissoc % op-data |update-one $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104342023) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104342023) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1539104342023) (:by |root) (:text |update-one) - |r $ %{} :Expr (:at 1539104343172) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104343172) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1539104343172) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1539104343172) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1539104343172) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1539104343172) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |update-in) - |j $ %{} :Leaf (:at 1539104358982) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |:snippets) - |r $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |:id) - |j $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |op-data) - |v $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |fn) - |j $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |->) - |j $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |snippet) - |r $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |merge) - |j $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |op-data) - |v $ %{} :Expr (:at 1539104357064) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |assoc) - |j $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |:edited-at) - |r $ %{} :Leaf (:at 1539104357064) (:by |root) (:text |op-time) + :code $ quote + defn update-one (db op-data sid op-id op-time) + update-in db + [] :snippets $ :id op-data + fn (snippet) + -> snippet (merge op-data) (assoc :edited-at op-time) :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1539104278527) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104278527) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1539104278527) (:by |root) (:text |app.updater.snippet) - |r $ %{} :Expr (:at 1539104322672) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104323363) (:by |root) (:text |:require) - |j $ %{} :Expr (:at 1539104326377) (:by |root) - :data $ {} - |T $ %{} :Leaf (:at 1539104326017) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1539104458872) (:by |root) (:text |app.schema) - |r $ %{} :Leaf (:at 1539104329278) (:by |root) (:text |:as) - |v $ %{} :Leaf (:at 1539104460891) (:by |root) (:text |schema) + :code $ quote + ns app.updater.snippet $ :require ([] app.schema :as schema) |app.updater.user $ %{} :FileEntry :defs $ {} |log-in $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |log-in) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |db) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-data) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-id) - |x $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-time) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |let-sugar) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |username) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |password) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-data) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |maybe-user) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:users) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |vals) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |.to-list) - |x $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |find) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |user) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |and) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |=) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |username) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:name) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |user) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |update-in) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:sessions) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |session) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |some?) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |maybe-user) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |=) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |md5) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |password) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:password) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |maybe-user) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |session) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:user-id) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |maybe-user) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |update) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |session) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:messages) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-id) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-id) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:text) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text "|\"Wrong password for ") - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |username) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |update) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |session) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:messages) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-id) - |v $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |op-id) - |r $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |:text) - |j $ %{} :Expr (:at 1629813017779) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text "|\"No user named: ") - |r $ %{} :Leaf (:at 1629813017779) (:by |B1y7Rc-Zz) (:text |username) + :code $ quote + defn log-in (db op-data sid op-id op-time) + let-sugar + [] username password + , op-data + maybe-user $ -> (:users db) (vals) (.to-list) + find $ fn (user) + and $ = username (:name user) + update-in db ([] :sessions sid) + fn (session) + if (some? maybe-user) + if + = (md5 password) (:password maybe-user) + assoc session :user-id $ :id maybe-user + update session :messages $ fn (messages) + assoc messages op-id $ {} (:id op-id) + :text $ str "\"Wrong password for " username + update session :messages $ fn (messages) + assoc messages op-id $ {} (:id op-id) + :text $ str "\"No user named: " username |log-out $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |defn) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |log-out) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-data) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-id) - |x $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |op-time) - |v $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |assoc-in) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |db) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |[]) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:sessions) - |r $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |sid) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:user-id) - |v $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |nil) + :code $ quote + defn log-out (db op-data sid op-id op-time) + assoc-in db ([] :sessions sid :user-id) nil |sign-up $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |defn) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |sign-up) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |db) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-data) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |x $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-time) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |let-sugar) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |username) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |password) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-data) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |maybe-user) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |find) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |vals) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:users) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |user) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |=) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |username) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:name) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |user) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |if) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |some?) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |maybe-user) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |update-in) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:sessions) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:messages) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |fn) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |assoc) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |messages) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:text) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |str) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text "|\"Name is taken: ") - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |username) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |->) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |db) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |assoc-in) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:sessions) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |sid) - |v $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:user-id) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |assoc-in) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |[]) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:users) - |r $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |{}) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:id) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |op-id) - |r $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:name) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |username) - |v $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:nickname) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |username) - |x $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:password) - |j $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |md5) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |password) - |y $ %{} :Expr (:at 1629813034455) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |:avatar) - |j $ %{} :Leaf (:at 1629813034455) (:by |B1y7Rc-Zz) (:text |nil) + :code $ quote + defn sign-up (db op-data sid op-id op-time) + let-sugar + [] username password + , op-data + maybe-user $ find + vals $ :users db + fn (user) + = username $ :name user + if (some? maybe-user) + update-in db ([] :sessions sid :messages) + fn (messages) + assoc messages op-id $ {} (:id op-id) + :text $ str "\"Name is taken: " username + -> db + assoc-in ([] :sessions sid :user-id) op-id + assoc-in ([] :users op-id) + {} (:id op-id) (:name username) (:nickname username) + :password $ md5 password + :avatar nil :ns $ %{} :CodeEntry (:doc |) - :code $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |ns) - |j $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |app.updater.user) - |r $ %{} :Expr (:at 1500541255553) (:by nil) - :data $ {} - |T $ %{} :Leaf (:at 1500541255553) (:by |root) (:text |:require) - |r $ %{} :Expr (:at 1645261376942) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261376942) (:by |B1y7Rc-Zz) (:text |calcit.std.hash) - |b $ %{} :Leaf (:at 1645261376942) (:by |B1y7Rc-Zz) (:text |:refer) - |h $ %{} :Expr (:at 1645261376942) (:by |B1y7Rc-Zz) - :data $ {} - |T $ %{} :Leaf (:at 1645261376942) (:by |B1y7Rc-Zz) (:text |md5) - :users $ {} - |B1y7Rc-Zz $ {} (:avatar nil) (:id |B1y7Rc-Zz) (:name |chen) (:nickname |chen) (:password |d41d8cd98f00b204e9800998ecf8427e) (:theme :star-trail) - |root $ {} (:avatar nil) (:id |root) (:name |root) (:nickname |root) (:password |d41d8cd98f00b204e9800998ecf8427e) (:theme :star-trail) + :code $ quote + ns app.updater.user $ :require + calcit.std.hash :refer $ md5 diff --git a/compact.cirru b/compact.cirru deleted file mode 100644 index 505d2dc..0000000 --- a/compact.cirru +++ /dev/null @@ -1,926 +0,0 @@ - -{} (:package |app) - :configs $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!) (:version nil) - :modules $ [] |respo.calcit/ |lilac/ |recollect/ |memof/ |respo-ui.calcit/ |ws-edn.calcit/ |cumulo-util.calcit/ |respo-message.calcit/ |cumulo-reel.calcit/ |respo-feather.calcit/ |alerts.calcit/ - :entries $ {} - :server $ {} (:init-fn |app.server/main!) (:port 6001) (:reload-fn |app.server/reload!) (:storage-key |calcit.cirru) - :modules $ [] |lilac/ |recollect/ |memof/ |ws-edn.calcit/ |cumulo-util.calcit/ |cumulo-reel.calcit/ |calcit-wss/ |calcit.std/ - :files $ {} - |app.client $ %{} :FileEntry - :defs $ {} - |*states $ %{} :CodeEntry (:doc |) - :code $ quote - defatom *states $ {} - :states $ {} - :cursor $ [] - |*store $ %{} :CodeEntry (:doc |) - :code $ quote (defatom *store nil) - |connect! $ %{} :CodeEntry (:doc |) - :code $ quote - defn connect! () $ let - url-obj $ url-parse js/location.href true - host $ either (-> url-obj .-query .-host) js/location.hostname - port $ either (-> url-obj .-query .-port) (:port config/site) - ws-connect! (str "\"ws://" host "\":" port) - {} - :on-open $ fn (event) (simulate-login!) - :on-close $ fn (event) (reset! *store nil) (js/console.error "\"Lost connection!") - :on-data on-server-data - |dispatch! $ %{} :CodeEntry (:doc |) - :code $ quote - defn dispatch! (op) - when - and config/dev? $ not= (nth op 0) :states - js/console.log "\"Dispatch" op - tag-match op - :states cursor s - reset! *states $ update-states @*states cursor s - (:effect/connect) (connect!) - _ $ ws-send! op - |main! $ %{} :CodeEntry (:doc |) - :code $ quote - defn main! () - println "\"Running mode:" $ if config/dev? "\"dev" "\"release" - if config/dev? $ load-console-formatter! - render-app! - connect! - add-watch *store :changes $ fn (store prev) (render-app!) - add-watch *states :changes $ fn (states prev) (render-app!) - on-page-touch $ fn () - if (nil? @*store) (connect!) - println "\"App started!" - |mount-target $ %{} :CodeEntry (:doc |) - :code $ quote - def mount-target $ js/document.querySelector "\".app" - |on-server-data $ %{} :CodeEntry (:doc |) - :code $ quote - defn on-server-data (data) - tag-match data $ - :patch changes - do - when config/dev? $ js/console.log "\"Changes" changes - reset! *store $ patch-twig @*store changes - |reload! $ %{} :CodeEntry (:doc |) - :code $ quote - defn reload! () $ if - or (some? client-errors) (some? server-errors) - hud! "\"error" $ str client-errors &newline server-errors - do (hud! "\"inactive" nil) (remove-watch *store :changes) (remove-watch *states :changes) (clear-cache!) (render-app!) - add-watch *store :changes $ fn (store prev) (render-app!) - add-watch *states :changes $ fn (states prev) (render-app!) - println "\"Code updated." - |render-app! $ %{} :CodeEntry (:doc |) - :code $ quote - defn render-app! () $ render! mount-target - comp-container (:states @*states) @*store - , dispatch! - |simulate-login! $ %{} :CodeEntry (:doc |) - :code $ quote - defn simulate-login! () $ let - raw $ .!getItem js/localStorage (:storage-key config/site) - if (some? raw) - do (println "\"Found storage.") - dispatch! $ :: :user/log-in (parse-cirru-edn raw) - do $ println "\"Found no storage." - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.client $ :require - respo.core :refer $ render! clear-cache! realize-ssr! - respo.cursor :refer $ update-states - app.comp.container :refer $ comp-container - app.schema :as schema - app.config :as config - ws-edn.client :refer $ ws-connect! ws-send! - recollect.patch :refer $ patch-twig - cumulo-util.core :refer $ on-page-touch - "\"url-parse" :default url-parse - "\"bottom-tip" :default hud! - "\"./calcit.build-errors" :default client-errors - "\"../js-out/calcit.build-errors" :default server-errors - |app.comp.container $ %{} :FileEntry - :defs $ {} - |comp-container $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-container (states store) - let - cursor $ [] - state $ or (:data states) - {} $ :query "\"" - session $ :session store - router $ :router store - router-data $ :data router - if (nil? store) (comp-offline) - div - {} $ :style - merge ui/global ui/fullscreen ui/column $ {} (:background-color "\"hsl(0,0%,96%)") - comp-navigation (:logged-in? store) (:count store) (:query state) cursor - if (:logged-in? store) - case (:name router) - :home $ comp-list states (:snippets store) (:query state) - :create $ comp-editor (>> states :create) nil - :edit $ comp-editor (>> states :edit) - get-in store $ [] :snippets (:data router) - :profile $ comp-profile (:user store) (:data router) - <> router - comp-login states - comp-status-color $ :color store - when dev? $ comp-inspect |Store store - {} (:bottom 0) (:left 0) (:max-width |100%) - comp-messages - get-in store $ [] :session :messages - {} - fn (info d!) (d! :session/remove-message info) - when dev? $ comp-reel (:reel-length store) ({}) - |comp-offline $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-offline () $ div - {} $ :style - merge ui/global ui/fullscreen ui/column-dispersive $ {} - :background-color $ :theme config/site - div $ {} - :style $ {} (:height 0) - div $ {} - :style $ {} - :background-image $ str "\"url(" (:icon config/site) "\")" - :width 128 - :height 128 - :background-size :contain - div - {} - :style $ {} (:cursor :pointer) (:line-height "\"32px") - :on-click $ fn (e d!) (d! :effect/connect nil) - <> "\"No connection..." $ {} (:font-family ui/font-fancy) (:font-size 24) - |comp-status-color $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-status-color (color) - div $ {} - :style $ let - size 24 - {} (:width size) (:height size) (:position :absolute) (:bottom 60) (:left 8) (:background-color color) (:border-radius "\"50%") (:opacity 0.6) (:pointer-events :none) - |style-body $ %{} :CodeEntry (:doc |) - :code $ quote - def style-body $ {} (:padding "|8px 16px") - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.container $ :require - [] hsl.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo.core :refer $ [] defcomp <> div span >> button - [] respo.comp.inspect :refer $ [] comp-inspect - [] respo.comp.space :refer $ [] =< - [] app.comp.navigation :refer $ [] comp-navigation - [] app.comp.profile :refer $ [] comp-profile - [] app.comp.login :refer $ [] comp-login - [] respo-message.comp.messages :refer $ [] comp-messages - [] cumulo-reel.comp.reel :refer $ [] comp-reel - [] app.config :refer $ [] dev? - [] app.schema :as schema - [] app.config :as config - [] app.comp.editor :refer $ [] comp-editor - [] app.comp.empty :refer $ [] comp-empty - [] app.comp.list :refer $ [] comp-list - |app.comp.dialog $ %{} :FileEntry - :defs $ {} - |comp-dialog $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-dialog (on-close! child-node) - assert (fn? on-close!) "|on-close! should be a function" - div - {} - :style $ merge ui/fullscreen ui/center - {} (:position :absolute) (:width |100%) (:height |100%) - :background-color $ hsl 0 0 0 0.4 - :z-index 100 - :on-click $ fn (e d! m!) (on-close! m!) - div - {} - :style $ {} (:padding 16) (:background-color :white) - :on-click $ fn (e d! m!) - , child-node - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.dialog $ :require - [] hsl.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo-ui.colors :as colors - [] respo.core :refer $ [] defcomp <> action-> span div - [] respo.comp.space :refer $ [] =< - |app.comp.editor $ %{} :FileEntry - :defs $ {} - |comp-editor $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-editor (states snippet) - let - cursor $ :cursor states - state $ or (:data states) - {} - :title $ or (:title snippet) | - :content $ or (:content snippet) | - div - {} $ :style - merge ui/flex ui/column $ {} (:padding 16) (:overflow :auto) - div - {} $ :style ui/column - div ({}) - input $ {} (:style style/input) - :value $ :title state - :placeholder |Title - :on-input $ fn (e d!) - d! cursor $ assoc state :title (:value e) - =< nil 16 - textarea $ {} - :style $ merge style/textarea - {} (:min-width 720) (:min-height 400) (:font-family ui/font-code) (:font-size 12) (:line-height "\"16px") - :placeholder |Content - :value $ :content state - :on-input $ fn (e d!) - d! cursor $ assoc state :content (:value e) - =< nil 16 - div - {} $ :style - merge ui/row-parted $ {} (:width 800) - button $ {} - :style $ merge style/button ({}) - :inner-text |Submit - :on-click $ fn (e d!) - if (some? snippet) - d! :snippet/update $ merge snippet state - d! :snippet/create state - d! cursor nil - d! :router/change $ {} (:name :home) - span $ {} - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.editor $ :require - [] hsl.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo.core :refer $ [] defcomp cursor-> <> div button span textarea button input - [] respo.comp.space :refer $ [] =< - [] app.style :as style - |app.comp.empty $ %{} :FileEntry - :defs $ {} - |comp-empty $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-empty (router) - div - {} $ :style - {} (:padding 8) - :color $ hsl 0 0 70 - :font-family "|Josefin Sans" - :font-weight 300 - :font-size 32 - <> $ str "|Missing page: " (pr-str router) - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.empty $ :require - [] hsl.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo.core :refer $ [] defcomp cursor-> <> div button span - [] respo.comp.space :refer $ [] =< - |app.comp.list $ %{} :FileEntry - :defs $ {} - |comp-card $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-card (states snippet) - let - cursor $ :cursor states - state $ or (:data states) - {} $ :hint? false - remove-plugin $ use-confirm (>> states :remove) - {} $ :text "\"Sure to remove?" - div - {} $ :style style-card - div - {} $ :style style-toolbar - div - {} $ :style ui/row - <> $ :title snippet - =< 8 nil - let - x $ :copied-times snippet - when - and (number? x) (> x 0) - <> (str "\"(" x "\")") - {} (:font-size 12) - :color $ hsl 0 0 80 - =< 8 nil - span - {} (:style ui/center) - :on-click $ fn (e d!) - d! :router/change $ {} (:name :edit) - :data $ :id snippet - comp-i :edit 14 $ hsl 200 80 70 - span - {} - :style $ {} (:color :red) - :on-click $ fn (e d!) - .show remove-plugin d! $ fn () - d! :snippet/remove $ :id snippet - comp-i :delete 14 $ hsl 0 80 70 - pre $ {} - :inner-text $ :content snippet - :style style-code-area - :on-click $ fn (e d!) - copy $ :content snippet - d! :snippet/count-usage $ :id snippet - d! cursor $ assoc state :hint? true - js/setTimeout - fn () $ d! cursor (assoc state :hint? false) - , 2000 - when (:hint? state) - div - {} $ :style - {} (:position :absolute) (:bottom 16) (:left 16) - :background-color $ hsl 0 0 0 0.5 - :color :white - :font-family ui/font-fancy - :padding "\"0 8px" - <> "\"Copied" - .render remove-plugin - |comp-list $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-list (states snippets query) - if (empty? snippets) (comp-no-snippets) - list-> - {} $ :style - merge ui/row $ {} (:padding 16) (:padding-bottom 120) (:align-items :flex-start) (:flex-wrap :wrap) (:overflow :auto) - -> snippets (.to-list) - .filter-pair $ fn (k snippet) - .includes? - .!toLowerCase $ or (:title snippet) "\"" - or - .!toLowerCase $ or query "\"" - , "\"" - .sort-by $ fn (pair) - negate $ :copied-times (last pair) - .map-pair $ fn (k snippet) - [] k $ comp-card - >> states $ :id snippet - , snippet - |comp-no-snippets $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-no-snippets () $ div - {} $ :style - {} (:font-family "|Josefin Sans") - :color $ hsl 0 0 70 - :padding 16 - :font-size 20 - <> "|No snippets" - |style-card $ %{} :CodeEntry (:doc |) - :code $ quote - def style-card $ {} (:white-space :nowrap) (:text-overflow :ellipsis) (:overflow :hidden) (:line-height |24px) (:width 400) (:cursor :pointer) (:margin-right 16) (:margin-top 16) (:position :relative) - |style-code-area $ %{} :CodeEntry (:doc |) - :code $ quote - def style-code-area $ {} (:margin 0) - :color $ hsl 0 0 50 - :padding 8 - :padding-top 40 - :font-size 12 - :border $ str "\"1px solid " (hsl 0 0 90) - :height 320 - :overflow :auto - :line-height "\"18px" - :font-family ui/font-code - :background-color :white - |style-toolbar $ %{} :CodeEntry (:doc |) - :code $ quote - def style-toolbar $ merge ui/row-parted - {} (:width "\"100%") (:position :absolute) (:top 0) (:padding 8) - :background-color $ hsl 0 0 100 0.8 - :border $ str "\"1px solid " (hsl 0 0 90) - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.list $ :require - [] respo-ui.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo.core :refer $ [] defcomp >> list-> <> div button span pre - [] respo.comp.space :refer $ [] =< - [] respo.comp.inspect :refer $ [] comp-inspect - [] feather.core :refer $ [] comp-icon comp-i - [] "\"copy-to-clipboard" :default copy - respo-alerts.core :refer $ use-confirm - |app.comp.login $ %{} :FileEntry - :defs $ {} - |comp-login $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-login (states) - let - cursor $ :cursor states - state $ or (:data states) initial-state - div - {} $ :style (merge ui/flex ui/center) - div ({}) - div - {} $ :style ({}) - div ({}) - input $ {} (:placeholder |Username) - :value $ :username state - :style ui/input - :on-input $ fn (e d!) - d! cursor $ assoc state :username (:value e) - =< nil 8 - div ({}) - input $ {} (:placeholder |Password) - :value $ :password state - :style ui/input - :on-input $ fn (e d!) - d! cursor $ assoc state :password (:value e) - =< nil 8 - div - {} $ :style - {} $ :text-align :right - span $ {} (:inner-text "|Sign up") - :style $ merge style/link - :on-click $ on-submit (:username state) (:password state) true - =< 8 nil - span $ {} (:inner-text "|Log in") - :style $ merge style/link - :on-click $ on-submit (:username state) (:password state) false - |initial-state $ %{} :CodeEntry (:doc |) - :code $ quote - def initial-state $ {} (:username |) (:password |) - |on-submit $ %{} :CodeEntry (:doc |) - :code $ quote - defn on-submit (username password signup?) - fn (e dispatch!) - dispatch! (if signup? :user/sign-up :user/log-in) ([] username password) - js/localStorage.setItem (:storage-key config/site) - format-cirru-edn $ [] username password - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.login $ :require - [] respo.core :refer $ [] defcomp <> div input button span - [] respo.comp.space :refer $ [] =< - [] respo.comp.inspect :refer $ [] comp-inspect - [] respo-ui.core :as ui - [] app.schema :as schema - [] app.style :as style - [] app.config :as config - |app.comp.navigation $ %{} :FileEntry - :defs $ {} - |comp-navigation $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-navigation (logged-in? count-members query parent-cursor) - div - {} $ :style - merge ui/row-center $ {} (:height 48) (:justify-content :space-between) (:padding "|0 16px") (:font-size 16) - :border-bottom $ str "|1px solid " (hsl 0 0 0 0.1) - :font-family ui/font-fancy - div - {} - :on-click $ fn (e d!) - d! :router/change $ {} (:name :home) - :style $ merge ui/row-center - {} $ :cursor :pointer - <> (:title config/site) nil - =< 24 nil - div - {} - :style $ {} (:cursor :pointer) - :on-click $ fn (e d!) - d! :router/change $ {} (:name :create) (:data nil) - comp-i :plus 14 $ hsl 200 80 70 - =< 24 nil - input $ {} - :style $ merge ui/input - {} $ :width 320 - :value query - :placeholder "\"Filter..." - :on-input $ fn (e d!) - d! parent-cursor $ {} - :query $ :value e - div - {} - :style $ {} (:cursor |pointer) - :on-click $ fn (e d!) - d! :router/change $ {} (:name :profile) - <> $ if logged-in? |Me |Guest - =< 8 nil - <> count-members - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.navigation $ :require - [] respo-ui.core :refer $ [] hsl - [] respo-ui.core :as ui - [] respo.comp.space :refer $ [] =< - [] respo.core :refer $ [] defcomp <> action-> span div input - [] app.config :as config - [] feather.core :refer $ [] comp-i - |app.comp.profile $ %{} :FileEntry - :defs $ {} - |comp-profile $ %{} :CodeEntry (:doc |) - :code $ quote - defcomp comp-profile (user members) - div - {} $ :style - merge ui/flex $ {} (:padding 16) - div - {} $ :style - {} (:font-family ui/font-fancy) (:font-size 32) (:font-weight 100) - <> $ str "|Hello! " (:name user) - =< nil 16 - div - {} $ :style ui/row - <> "\"Members:" - =< 8 nil - list-> - {} $ :style ui/row - -> members (.to-list) - .map-pair $ fn (k username) - [] k $ div - {} $ :style - {} (:padding "\"0 8px") - :border $ str "\"1px solid " (hsl 0 0 80) - :border-radius "\"16px" - :margin "\"0 4px" - <> username - =< nil 48 - div ({}) - button - {} - :style $ merge ui/button - :on-click $ fn (e d! m!) - js/location.replace $ str js/location.origin "\"?time=" (.now js/Date) - <> "\"Refresh" - =< 8 nil - button - {} - :style $ merge ui/button - {} (:color :red) (:border-color :red) - :on-click $ fn (e dispatch!) (dispatch! :user/log-out nil) - js/localStorage.removeItem $ :storage-key config/site - <> "\"Log out" - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.comp.profile $ :require - [] respo-ui.core :refer $ [] hsl - [] app.schema :as schema - [] respo-ui.core :as ui - [] respo.core :refer $ [] defcomp list-> <> span div button - [] respo.comp.space :refer $ [] =< - [] app.config :as config - |app.config $ %{} :FileEntry - :defs $ {} - |dev? $ %{} :CodeEntry (:doc |) - :code $ quote - def dev? $ = "\"dev" (get-env "\"mode" "\"release") - |site $ %{} :CodeEntry (:doc |) - :code $ quote - def site $ {} (:storage-key "\"copycat") (:storage-file "\"copycat.cirru") (:port 11012) (:title "\"Copycat") (:icon "\"http://cdn.tiye.me/logo/copycat.png") (:theme "\"#eeeeff") - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.config $ :require - [] app.util :refer $ [] get-env! - |app.schema $ %{} :FileEntry - :defs $ {} - |database $ %{} :CodeEntry (:doc |) - :code $ quote - def database $ {} - :sessions $ {} - :users $ {} - :snippets $ do snippet ({}) - |notification $ %{} :CodeEntry (:doc |) - :code $ quote - def notification $ {} (:id nil) (:kind nil) (:text nil) - |router $ %{} :CodeEntry (:doc |) - :code $ quote - def router $ {} (:name nil) (:title nil) - :data $ {} - :router nil - |session $ %{} :CodeEntry (:doc |) - :code $ quote - def session $ {} (:user-id nil) (:id nil) (:nickname nil) - :router $ {} (:name :home) (:data nil) (:router nil) - :messages $ {} - |snippet $ %{} :CodeEntry (:doc |) - :code $ quote - def snippet $ {} (:id nil) (:title "\"") (:content "\"") (:edited-at nil) (:copied-times 0) - |user $ %{} :CodeEntry (:doc |) - :code $ quote - def user $ {} (:name nil) (:id nil) (:nickname nil) (:avatar nil) (:password nil) - :ns $ %{} :CodeEntry (:doc |) - :code $ quote (ns app.schema) - |app.server $ %{} :FileEntry - :defs $ {} - |*client-caches $ %{} :CodeEntry (:doc |) - :code $ quote - defatom *client-caches $ {} - |*initial-db $ %{} :CodeEntry (:doc |) - :code $ quote - defatom *initial-db $ if - path-exists? $ w-log storage-file - do (println "\"Found local EDN data") - merge schema/database $ parse-cirru-edn (read-file storage-file) - do (println "\"Found no data") schema/database - |*reader-reel $ %{} :CodeEntry (:doc |) - :code $ quote (defatom *reader-reel @*reel) - |*reel $ %{} :CodeEntry (:doc |) - :code $ quote - defatom *reel $ merge reel-schema - {} (:base @*initial-db) (:db @*initial-db) - |dispatch! $ %{} :CodeEntry (:doc |) - :code $ quote - defn dispatch! (op sid) - let - op-id $ generate-id! - op-time $ -> (get-time!) (.timestamp) - if config/dev? $ println "\"Dispatch!" (str op) sid - if - = (nth op 0) :effect/persist - persist-db! - reset! *reel $ reel-reducer @*reel updater op sid op-id op-time config/dev? - |get-backup-path! $ %{} :CodeEntry (:doc |) - :code $ quote - defn get-backup-path! () $ let - now $ .extract (get-time!) - join-path calcit-dirname "\"backups" - str $ :month now - str (:day now) "\"-snapshot.cirru" - |main! $ %{} :CodeEntry (:doc |) - :code $ quote - defn main! () - println "\"Running mode:" $ if config/dev? "\"dev" "\"release" - let - p? $ get-env "\"port" - port $ if (some? p?) (parse-float p?) (:port config/site) - run-server! port - println $ str "\"Server started on port:" port - do (; "\"init it before doing multi-threading") (identity @*reader-reel) - set-interval 200 $ fn () (render-loop!) - set-interval 600000 $ fn () (persist-db!) - on-control-c on-exit! - |on-exit! $ %{} :CodeEntry (:doc |) - :code $ quote - defn on-exit! () (persist-db!) (; println "\"exit code is...") (quit! 0) - |persist-db! $ %{} :CodeEntry (:doc |) - :code $ quote - defn persist-db! () $ let - file-content $ format-cirru-edn - assoc (:db @*reel) :sessions $ {} - storage-path storage-file - backup-path $ get-backup-path! - check-write-file! storage-path file-content - check-write-file! backup-path file-content - |reload! $ %{} :CodeEntry (:doc |) - :code $ quote - defn reload! () (println "\"Code updated.") - if (not config/dev?) (raise "\"reloading only happens in dev mode") - clear-twig-caches! - reset! *reel $ refresh-reel @*reel @*initial-db updater - sync-clients! @*reader-reel - |render-loop! $ %{} :CodeEntry (:doc |) - :code $ quote - defn render-loop! () $ when - not $ identical? @*reader-reel @*reel - reset! *reader-reel @*reel - sync-clients! @*reader-reel - |run-server! $ %{} :CodeEntry (:doc |) - :code $ quote - defn run-server! (port) - wss-serve! (&{} :port port) - fn (data) - tag-match data - :connect sid - do - dispatch! (:: :session/connect) sid - println "\"New client." - (:message sid msg) - let - action $ parse-cirru-edn msg - dispatch! action sid - (:disconnect sid) - do (println "\"Client closed!") - dispatch! (:: :session/disconnect) sid - _ $ println "\"unknown data:" data - |storage-file $ %{} :CodeEntry (:doc |) - :code $ quote - def storage-file $ if (empty? calcit-dirname) - str calcit-dirname $ :storage-file config/site - str calcit-dirname "\"/" $ :storage-file config/site - |sync-clients! $ %{} :CodeEntry (:doc |) - :code $ quote - defn sync-clients! (reel) - wss-each! $ fn (sid) - let - db $ :db reel - records $ :records reel - session $ get-in db ([] :sessions sid) - old-store $ or (get @*client-caches sid) nil - new-store $ twig-container db session records - changes $ diff-twig old-store new-store - {} $ :key :id - ; when config/dev? $ println "\"Changes for" sid "\":" changes (count records) - if - not= changes $ [] - do - wss-send! sid $ format-cirru-edn (:: :patch changes) - swap! *client-caches assoc sid new-store - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.server $ :require (app.schema :as schema) - app.updater :refer $ updater - cumulo-reel.core :refer $ reel-reducer refresh-reel reel-schema - app.config :as config - app.twig.container :refer $ twig-container - recollect.diff :refer $ diff-twig - wss.core :refer $ wss-serve! wss-send! wss-each! - recollect.twig :refer $ clear-twig-caches! - app.$meta :refer $ calcit-dirname - calcit.std.fs :refer $ path-exists? check-write-file! - calcit.std.time :refer $ set-interval - calcit.std.date :refer $ Date get-time! - calcit.std.path :refer $ join-path - |app.style $ %{} :FileEntry - :defs $ {} - |button $ %{} :CodeEntry (:doc |) - :code $ quote - def button $ merge ui/button ({}) - |input $ %{} :CodeEntry (:doc |) - :code $ quote - def input $ merge ui/input - {} $ :width 400 - |link $ %{} :CodeEntry (:doc |) - :code $ quote - def link $ {} (:text-decoration :underline) (:cursor :pointer) - :color $ hsl 240 80 80 - :font-family ui/font-fancy - |textarea $ %{} :CodeEntry (:doc |) - :code $ quote - def textarea $ merge ui/textarea - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.style $ :require - [] respo-ui.core :refer $ [] hsl - [] respo-ui.core :as ui - |app.twig.container $ %{} :FileEntry - :defs $ {} - |twig-container $ %{} :CodeEntry (:doc |) - :code $ quote - defn twig-container (db session records) - let - logged-in? $ some? (:user-id session) - router $ :router session - base-data $ {} (:logged-in? logged-in?) (:session session) - :reel-length $ count records - merge base-data $ if logged-in? - {} - :user $ twig-user - get-in db $ [] :users (:user-id session) - :router $ assoc router :data - case-default (:name router) ({}) - :home $ {} - :edit $ :data router - :profile $ twig-members (:sessions db) (:users db) - :snippets $ :snippets db - :count $ count (:sessions db) - :color $ rand-hex-color! - , nil - |twig-members $ %{} :CodeEntry (:doc |) - :code $ quote - defn twig-members (sessions users) - -> sessions (.to-list) - .map-pair $ fn (k session) - [] k $ get-in users - [] (:user-id session) :name - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.twig.container $ :require - app.twig.user :refer $ twig-user - calcit.std.rand :refer $ rand-hex-color! - |app.twig.user $ %{} :FileEntry - :defs $ {} - |twig-user $ %{} :CodeEntry (:doc |) - :code $ quote - defn twig-user (user) (dissoc user :password) - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.twig.user $ :require - |app.updater $ %{} :FileEntry - :defs $ {} - |updater $ %{} :CodeEntry (:doc |) - :code $ quote - defn updater (db op sid op-id op-time) - tag-match op - :session/connect - session/connect db sid op-id op-time - (:session/disconnect) (session/disconnect db sid op-id op-time) - (:session/remove-message op-data) (session/remove-message db op-data sid op-id op-time) - (:user/log-in op-data) (user/log-in db op-data sid op-id op-time) - (:user/sign-up op-data) (user/sign-up db op-data sid op-id op-time) - (:user/log-out op-data) (user/log-out db op-data sid op-id op-time) - (:router/change op-data) (router/change db op-data sid op-id op-time) - (:snippet/create op-data) (snippet/create-one db op-data sid op-id op-time) - (:snippet/update op-data) (snippet/update-one db op-data sid op-id op-time) - (:snippet/remove op-data) (snippet/remove-one db op-data sid op-id op-time) - (:snippet/count-usage op-data) (snippet/count-usage db op-data sid op-id op-time) - _ $ do (eprintln "|Unknown op:" op) db - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.updater $ :require ([] app.updater.session :as session) ([] app.updater.user :as user) ([] app.updater.router :as router) ([] app.updater.snippet :as snippet) ([] app.schema :as schema) - [] respo-message.updater :refer $ [] update-messages - |app.updater.router $ %{} :FileEntry - :defs $ {} - |change $ %{} :CodeEntry (:doc |) - :code $ quote - defn change (db op-data sid op-id op-time) - assoc-in db ([] :sessions sid :router) op-data - :ns $ %{} :CodeEntry (:doc |) - :code $ quote (ns app.updater.router) - |app.updater.session $ %{} :FileEntry - :defs $ {} - |connect $ %{} :CodeEntry (:doc |) - :code $ quote - defn connect (db sid op-id op-time) - assoc-in db ([] :sessions sid) - merge schema/session $ {} (:id sid) - |disconnect $ %{} :CodeEntry (:doc |) - :code $ quote - defn disconnect (db sid op-id op-time) - update db :sessions $ fn (session) (dissoc session sid) - |remove-message $ %{} :CodeEntry (:doc |) - :code $ quote - defn remove-message (db op-data sid op-id op-time) - update-in db ([] :sessions sid :messages) - fn (messages) - dissoc messages $ :id op-data - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.updater.session $ :require ([] app.schema :as schema) - |app.updater.snippet $ %{} :FileEntry - :defs $ {} - |count-usage $ %{} :CodeEntry (:doc |) - :code $ quote - defn count-usage (db op-data sid op-id op-time) - update-in db ([] :snippets op-data) - fn (snippet) (update snippet :copied-times inc) - |create-one $ %{} :CodeEntry (:doc |) - :code $ quote - defn create-one (db op-data sid op-id op-time) - assoc-in db ([] :snippets op-id) - merge schema/snippet op-data $ {} (:id op-id) (:edited-at op-time) - |remove-one $ %{} :CodeEntry (:doc |) - :code $ quote - defn remove-one (db op-data sid op-id op-time) - update db :snippets $ \ dissoc % op-data - |update-one $ %{} :CodeEntry (:doc |) - :code $ quote - defn update-one (db op-data sid op-id op-time) - update-in db - [] :snippets $ :id op-data - fn (snippet) - -> snippet (merge op-data) (assoc :edited-at op-time) - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.updater.snippet $ :require ([] app.schema :as schema) - |app.updater.user $ %{} :FileEntry - :defs $ {} - |log-in $ %{} :CodeEntry (:doc |) - :code $ quote - defn log-in (db op-data sid op-id op-time) - let-sugar - [] username password - , op-data - maybe-user $ -> (:users db) (vals) (.to-list) - find $ fn (user) - and $ = username (:name user) - update-in db ([] :sessions sid) - fn (session) - if (some? maybe-user) - if - = (md5 password) (:password maybe-user) - assoc session :user-id $ :id maybe-user - update session :messages $ fn (messages) - assoc messages op-id $ {} (:id op-id) - :text $ str "\"Wrong password for " username - update session :messages $ fn (messages) - assoc messages op-id $ {} (:id op-id) - :text $ str "\"No user named: " username - |log-out $ %{} :CodeEntry (:doc |) - :code $ quote - defn log-out (db op-data sid op-id op-time) - assoc-in db ([] :sessions sid :user-id) nil - |sign-up $ %{} :CodeEntry (:doc |) - :code $ quote - defn sign-up (db op-data sid op-id op-time) - let-sugar - [] username password - , op-data - maybe-user $ find - vals $ :users db - fn (user) - = username $ :name user - if (some? maybe-user) - update-in db ([] :sessions sid :messages) - fn (messages) - assoc messages op-id $ {} (:id op-id) - :text $ str "\"Name is taken: " username - -> db - assoc-in ([] :sessions sid :user-id) op-id - assoc-in ([] :users op-id) - {} (:id op-id) (:name username) (:nickname username) - :password $ md5 password - :avatar nil - :ns $ %{} :CodeEntry (:doc |) - :code $ quote - ns app.updater.user $ :require - calcit.std.hash :refer $ md5 diff --git a/deps.cirru b/deps.cirru new file mode 100644 index 0000000..c846575 --- /dev/null +++ b/deps.cirru @@ -0,0 +1,15 @@ + +{} (:calcit-version |0.12.47) + :dependencies $ {} (|Cumulo/cumulo-reel.calcit |0.0.15) + |Cumulo/cumulo-util.calcit |main + |Respo/alerts.calcit |0.10.12 + |Respo/respo-feather.calcit |main + |Respo/respo-message.calcit |0.0.9 + |Respo/respo-ui.calcit |0.6.4 + |Respo/respo.calcit |0.16.47 + |calcit-lang/calcit-wss |0.2.9 + |calcit-lang/calcit.std |0.2.11 + |calcit-lang/lilac |0.5.1 + |calcit-lang/memof |main + |calcit-lang/recollect |0.0.21 + |mvc-works/ws-edn.calcit |0.0.12 diff --git a/package.cirru b/package.cirru deleted file mode 100644 index d28b938..0000000 --- a/package.cirru +++ /dev/null @@ -1,15 +0,0 @@ -{} - :dependencies $ {} - |calcit-lang/lilac |main - |calcit-lang/memof |main - |calcit-lang/recollect |main - |Respo/respo.calcit |main - |Respo/respo-ui.calcit |main - |Respo/respo-message.calcit |main - |Cumulo/cumulo-util.calcit |main - |Cumulo/cumulo-reel.calcit |main - |mvc-works/ws-edn.calcit |main - |Respo/respo-feather.calcit |main - |Respo/alerts.calcit |main - |calcit-lang/calcit-wss |main - |calcit-lang/calcit.std |main diff --git a/package.json b/package.json index c115b26..79caaab 100644 --- a/package.json +++ b/package.json @@ -2,11 +2,12 @@ "name": "copycat", "version": "0.1.0", "description": "Copycat", + "packageManager": "yarn@4.12.0", "main": "index.js", "scripts": { - "compile-page": "cr --emit-js --once", + "compile-page": "cr js", "release-page": "vite build --base=./", - "watch-page": "cr --emit-js" + "watch-page": "cr js --watch" }, "repository": { "type": "git", @@ -15,7 +16,7 @@ "author": "jiyinyiyong", "license": "MIT", "dependencies": { - "@calcit/procs": "^0.8.46" + "@calcit/procs": "^0.12.47" }, "devDependencies": { "bottom-tip": "^0.1.5", diff --git a/yarn.lock b/yarn.lock index 4847c77..bcf376b 100644 --- a/yarn.lock +++ b/yarn.lock @@ -1,575 +1,1108 @@ -# THIS IS AN AUTOGENERATED FILE. DO NOT EDIT THIS FILE DIRECTLY. -# yarn lockfile v1 +# This file is generated by running "yarn install" inside your project. +# Manual changes might be lost - proceed with caution! +__metadata: + version: 8 + cacheKey: 10c0 -"@calcit/procs@^0.8.46": - version "0.8.46" - resolved "https://registry.yarnpkg.com/@calcit/procs/-/procs-0.8.46.tgz#5715992307acee222b781ff4ca98fe806c633811" - integrity sha512-+2ohCRwRQI3LtzjakqISwwdCsZUZPF8wxmRrhesKg/R3JOLpSlEHsMJvox7v8pcWrjALy0VsnVKBjTrWBMh0uA== +"@calcit/procs@npm:^0.12.47": + version: 0.12.47 + resolution: "@calcit/procs@npm:0.12.47" dependencies: - "@calcit/ternary-tree" "0.0.23" - "@cirru/parser.ts" "^0.0.6" - "@cirru/writer.ts" "^0.1.4" - -"@calcit/ternary-tree@0.0.23": - version "0.0.23" - resolved "https://registry.yarnpkg.com/@calcit/ternary-tree/-/ternary-tree-0.0.23.tgz#a299f7ffd614ac2dfe2cbcf78506934df4008c77" - integrity sha512-GKHfokm1YBUvPprV9p227fDpE+w4lVl4YKQpfKoNEqvprJnC4HRXaa+QSLwZkvZlXr09hAA0x4l4ZKUIcbYydg== - -"@cirru/parser.ts@^0.0.6": - version "0.0.6" - resolved "https://registry.yarnpkg.com/@cirru/parser.ts/-/parser.ts-0.0.6.tgz#b95a84e02273fcbd71ff100925782b6f86410234" - integrity sha512-qpDNPq+IuuwYjQFI+wzpd3ntbF7lwJs90v1XWyLQbL9Ru4ld4aHxVGwW/9F/QOu5mEGCMXtagCoYDf0HtOpDZg== - -"@cirru/writer.ts@^0.1.4": - version "0.1.4" - resolved "https://registry.yarnpkg.com/@cirru/writer.ts/-/writer.ts-0.1.4.tgz#4b5851d002ab7c4891457bf8c707f09620c8f122" - integrity sha512-Uy3Y7jjLdaxLW9ajZuIS9rp+dhaSVU95hRRwvnP6E16PwgPl+zGs6Xqn1L7Lqw07ypujrdBBdFQyRJOLc6IHQQ== - -"@esbuild/aix-ppc64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/aix-ppc64/-/aix-ppc64-0.25.12.tgz#80fcbe36130e58b7670511e888b8e88a259ed76c" - integrity sha512-Hhmwd6CInZ3dwpuGTF8fJG6yoWmsToE+vYgD4nytZVxcu1ulHpUQRAB1UJ8+N1Am3Mz4+xOByoQoSZf4D+CpkA== - -"@esbuild/android-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/android-arm64/-/android-arm64-0.25.12.tgz#8aa4965f8d0a7982dc21734bf6601323a66da752" - integrity sha512-6AAmLG7zwD1Z159jCKPvAxZd4y/VTO0VkprYy+3N2FtJ8+BQWFXU+OxARIwA46c5tdD9SsKGZ/1ocqBS/gAKHg== - -"@esbuild/android-arm@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/android-arm/-/android-arm-0.25.12.tgz#300712101f7f50f1d2627a162e6e09b109b6767a" - integrity sha512-VJ+sKvNA/GE7Ccacc9Cha7bpS8nyzVv0jdVgwNDaR4gDMC/2TTRc33Ip8qrNYUcpkOHUT5OZ0bUcNNVZQ9RLlg== - -"@esbuild/android-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/android-x64/-/android-x64-0.25.12.tgz#87dfb27161202bdc958ef48bb61b09c758faee16" - integrity sha512-5jbb+2hhDHx5phYR2By8GTWEzn6I9UqR11Kwf22iKbNpYrsmRB18aX/9ivc5cabcUiAT/wM+YIZ6SG9QO6a8kg== - -"@esbuild/darwin-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/darwin-arm64/-/darwin-arm64-0.25.12.tgz#79197898ec1ff745d21c071e1c7cc3c802f0c1fd" - integrity sha512-N3zl+lxHCifgIlcMUP5016ESkeQjLj/959RxxNYIthIg+CQHInujFuXeWbWMgnTo4cp5XVHqFPmpyu9J65C1Yg== - -"@esbuild/darwin-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/darwin-x64/-/darwin-x64-0.25.12.tgz#146400a8562133f45c4d2eadcf37ddd09718079e" - integrity sha512-HQ9ka4Kx21qHXwtlTUVbKJOAnmG1ipXhdWTmNXiPzPfWKpXqASVcWdnf2bnL73wgjNrFXAa3yYvBSd9pzfEIpA== - -"@esbuild/freebsd-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/freebsd-arm64/-/freebsd-arm64-0.25.12.tgz#1c5f9ba7206e158fd2b24c59fa2d2c8bb47ca0fe" - integrity sha512-gA0Bx759+7Jve03K1S0vkOu5Lg/85dou3EseOGUes8flVOGxbhDDh/iZaoek11Y8mtyKPGF3vP8XhnkDEAmzeg== - -"@esbuild/freebsd-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/freebsd-x64/-/freebsd-x64-0.25.12.tgz#ea631f4a36beaac4b9279fa0fcc6ca29eaeeb2b3" - integrity sha512-TGbO26Yw2xsHzxtbVFGEXBFH0FRAP7gtcPE7P5yP7wGy7cXK2oO7RyOhL5NLiqTlBh47XhmIUXuGciXEqYFfBQ== - -"@esbuild/linux-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-arm64/-/linux-arm64-0.25.12.tgz#e1066bce58394f1b1141deec8557a5f0a22f5977" - integrity sha512-8bwX7a8FghIgrupcxb4aUmYDLp8pX06rGh5HqDT7bB+8Rdells6mHvrFHHW2JAOPZUbnjUpKTLg6ECyzvas2AQ== - -"@esbuild/linux-arm@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-arm/-/linux-arm-0.25.12.tgz#452cd66b20932d08bdc53a8b61c0e30baf4348b9" - integrity sha512-lPDGyC1JPDou8kGcywY0YILzWlhhnRjdof3UlcoqYmS9El818LLfJJc3PXXgZHrHCAKs/Z2SeZtDJr5MrkxtOw== - -"@esbuild/linux-ia32@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-ia32/-/linux-ia32-0.25.12.tgz#b24f8acc45bcf54192c7f2f3be1b53e6551eafe0" - integrity sha512-0y9KrdVnbMM2/vG8KfU0byhUN+EFCny9+8g202gYqSSVMonbsCfLjUO+rCci7pM0WBEtz+oK/PIwHkzxkyharA== - -"@esbuild/linux-loong64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-loong64/-/linux-loong64-0.25.12.tgz#f9cfffa7fc8322571fbc4c8b3268caf15bd81ad0" - integrity sha512-h///Lr5a9rib/v1GGqXVGzjL4TMvVTv+s1DPoxQdz7l/AYv6LDSxdIwzxkrPW438oUXiDtwM10o9PmwS/6Z0Ng== - -"@esbuild/linux-mips64el@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-mips64el/-/linux-mips64el-0.25.12.tgz#575a14bd74644ffab891adc7d7e60d275296f2cd" - integrity sha512-iyRrM1Pzy9GFMDLsXn1iHUm18nhKnNMWscjmp4+hpafcZjrr2WbT//d20xaGljXDBYHqRcl8HnxbX6uaA/eGVw== - -"@esbuild/linux-ppc64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-ppc64/-/linux-ppc64-0.25.12.tgz#75b99c70a95fbd5f7739d7692befe60601591869" - integrity sha512-9meM/lRXxMi5PSUqEXRCtVjEZBGwB7P/D4yT8UG/mwIdze2aV4Vo6U5gD3+RsoHXKkHCfSxZKzmDssVlRj1QQA== - -"@esbuild/linux-riscv64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-riscv64/-/linux-riscv64-0.25.12.tgz#2e3259440321a44e79ddf7535c325057da875cd6" - integrity sha512-Zr7KR4hgKUpWAwb1f3o5ygT04MzqVrGEGXGLnj15YQDJErYu/BGg+wmFlIDOdJp0PmB0lLvxFIOXZgFRrdjR0w== - -"@esbuild/linux-s390x@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-s390x/-/linux-s390x-0.25.12.tgz#17676cabbfe5928da5b2a0d6df5d58cd08db2663" - integrity sha512-MsKncOcgTNvdtiISc/jZs/Zf8d0cl/t3gYWX8J9ubBnVOwlk65UIEEvgBORTiljloIWnBzLs4qhzPkJcitIzIg== - -"@esbuild/linux-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/linux-x64/-/linux-x64-0.25.12.tgz#0583775685ca82066d04c3507f09524d3cd7a306" - integrity sha512-uqZMTLr/zR/ed4jIGnwSLkaHmPjOjJvnm6TVVitAa08SLS9Z0VM8wIRx7gWbJB5/J54YuIMInDquWyYvQLZkgw== - -"@esbuild/netbsd-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/netbsd-arm64/-/netbsd-arm64-0.25.12.tgz#f04c4049cb2e252fe96b16fed90f70746b13f4a4" - integrity sha512-xXwcTq4GhRM7J9A8Gv5boanHhRa/Q9KLVmcyXHCTaM4wKfIpWkdXiMog/KsnxzJ0A1+nD+zoecuzqPmCRyBGjg== - -"@esbuild/netbsd-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/netbsd-x64/-/netbsd-x64-0.25.12.tgz#77da0d0a0d826d7c921eea3d40292548b258a076" - integrity sha512-Ld5pTlzPy3YwGec4OuHh1aCVCRvOXdH8DgRjfDy/oumVovmuSzWfnSJg+VtakB9Cm0gxNO9BzWkj6mtO1FMXkQ== - -"@esbuild/openbsd-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/openbsd-arm64/-/openbsd-arm64-0.25.12.tgz#6296f5867aedef28a81b22ab2009c786a952dccd" - integrity sha512-fF96T6KsBo/pkQI950FARU9apGNTSlZGsv1jZBAlcLL1MLjLNIWPBkj5NlSz8aAzYKg+eNqknrUJ24QBybeR5A== - -"@esbuild/openbsd-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/openbsd-x64/-/openbsd-x64-0.25.12.tgz#f8d23303360e27b16cf065b23bbff43c14142679" - integrity sha512-MZyXUkZHjQxUvzK7rN8DJ3SRmrVrke8ZyRusHlP+kuwqTcfWLyqMOE3sScPPyeIXN/mDJIfGXvcMqCgYKekoQw== - -"@esbuild/openharmony-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/openharmony-arm64/-/openharmony-arm64-0.25.12.tgz#49e0b768744a3924be0d7fd97dd6ce9b2923d88d" - integrity sha512-rm0YWsqUSRrjncSXGA7Zv78Nbnw4XL6/dzr20cyrQf7ZmRcsovpcRBdhD43Nuk3y7XIoW2OxMVvwuRvk9XdASg== - -"@esbuild/sunos-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/sunos-x64/-/sunos-x64-0.25.12.tgz#a6ed7d6778d67e528c81fb165b23f4911b9b13d6" - integrity sha512-3wGSCDyuTHQUzt0nV7bocDy72r2lI33QL3gkDNGkod22EsYl04sMf0qLb8luNKTOmgF/eDEDP5BFNwoBKH441w== - -"@esbuild/win32-arm64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/win32-arm64/-/win32-arm64-0.25.12.tgz#9ac14c378e1b653af17d08e7d3ce34caef587323" - integrity sha512-rMmLrur64A7+DKlnSuwqUdRKyd3UE7oPJZmnljqEptesKM8wx9J8gx5u0+9Pq0fQQW8vqeKebwNXdfOyP+8Bsg== - -"@esbuild/win32-ia32@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/win32-ia32/-/win32-ia32-0.25.12.tgz#918942dcbbb35cc14fca39afb91b5e6a3d127267" - integrity sha512-HkqnmmBoCbCwxUKKNPBixiWDGCpQGVsrQfJoVGYLPT41XWF8lHuE5N6WhVia2n4o5QK5M4tYr21827fNhi4byQ== - -"@esbuild/win32-x64@0.25.12": - version "0.25.12" - resolved "https://registry.yarnpkg.com/@esbuild/win32-x64/-/win32-x64-0.25.12.tgz#9bdad8176be7811ad148d1f8772359041f46c6c5" - integrity sha512-alJC0uCZpTFrSL0CCDjcgleBXPnCrEAhTBILpeAp7M/OFgoqtAetfBzX0xM00MUsVVPpVjlPuMbREqnZCXaTnA== - -"@rollup/rollup-android-arm-eabi@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-android-arm-eabi/-/rollup-android-arm-eabi-4.60.1.tgz#043f145716234529052ef9e1ce1d847ffbe9e674" - integrity sha512-d6FinEBLdIiK+1uACUttJKfgZREXrF0Qc2SmLII7W2AD8FfiZ9Wjd+rD/iRuf5s5dWrr1GgwXCvPqOuDquOowA== - -"@rollup/rollup-android-arm64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-android-arm64/-/rollup-android-arm64-4.60.1.tgz#023e1bd146e7519087dfd9e8b29e4cf9f8ecd35c" - integrity sha512-YjG/EwIDvvYI1YvYbHvDz/BYHtkY4ygUIXHnTdLhG+hKIQFBiosfWiACWortsKPKU/+dUwQQCKQM3qrDe8c9BA== - -"@rollup/rollup-darwin-arm64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-darwin-arm64/-/rollup-darwin-arm64-4.60.1.tgz#55ccb5487c02419954c57a7a80602885d616e1ee" - integrity sha512-mjCpF7GmkRtSJwon+Rq1N8+pI+8l7w5g9Z3vWj4T7abguC4Czwi3Yu/pFaLvA3TTeMVjnu3ctigusqWUfjZzvw== - -"@rollup/rollup-darwin-x64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-darwin-x64/-/rollup-darwin-x64-4.60.1.tgz#254b65404b14488c83225e88b8819376ad71a784" - integrity sha512-haZ7hJ1JT4e9hqkoT9R/19XW2QKqjfJVv+i5AGg57S+nLk9lQnJ1F/eZloRO3o9Scy9CM3wQ9l+dkXtcBgN5Ew== - -"@rollup/rollup-freebsd-arm64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-freebsd-arm64/-/rollup-freebsd-arm64-4.60.1.tgz#6377ff38c052c76fcaffb7b2728d3172fe676fe6" - integrity sha512-czw90wpQq3ZsAVBlinZjAYTKduOjTywlG7fEeWKUA7oCmpA8xdTkxZZlwNJKWqILlq0wehoZcJYfBvOyhPTQ6w== - -"@rollup/rollup-freebsd-x64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-freebsd-x64/-/rollup-freebsd-x64-4.60.1.tgz#ba3902309d088eaf7139b916f09b7140b28b406d" - integrity sha512-KVB2rqsxTHuBtfOeySEyzEOB7ltlB/ux38iu2rBQzkjbwRVlkhAGIEDiiYnO2kFOkJp+Z7pUXKyrRRFuFUKt+g== - -"@rollup/rollup-linux-arm-gnueabihf@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-arm-gnueabihf/-/rollup-linux-arm-gnueabihf-4.60.1.tgz#e011b9a14638267e53b446286e838dbdaf53f167" - integrity sha512-L+34Qqil+v5uC0zEubW7uByo78WOCIrBvci69E7sFASRl0X7b/MB6Cqd1lky/CtcSVTydWa2WZwFuWexjS5o6g== - -"@rollup/rollup-linux-arm-musleabihf@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-arm-musleabihf/-/rollup-linux-arm-musleabihf-4.60.1.tgz#0bce9ce9a009490abd28fd922dd97ed521311afe" - integrity sha512-n83O8rt4v34hgFzlkb1ycniJh7IR5RCIqt6mz1VRJD6pmhRi0CXdmfnLu9dIUS6buzh60IvACM842Ffb3xd6Gg== - -"@rollup/rollup-linux-arm64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-arm64-gnu/-/rollup-linux-arm64-gnu-4.60.1.tgz#6f6cfbbf324fbb4ceff213abdf7f322fd45d25ff" - integrity sha512-Nql7sTeAzhTAja3QXeAI48+/+GjBJ+QmAH13snn0AJSNL50JsDqotyudHyMbO2RbJkskbMbFJfIJKWA6R1LCJQ== - -"@rollup/rollup-linux-arm64-musl@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-arm64-musl/-/rollup-linux-arm64-musl-4.60.1.tgz#f7cb3eecaea9c151ef77342af05f38ae924bf795" - integrity sha512-+pUymDhd0ys9GcKZPPWlFiZ67sTWV5UU6zOJat02M1+PiuSGDziyRuI/pPue3hoUwm2uGfxdL+trT6Z9rxnlMA== - -"@rollup/rollup-linux-loong64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-loong64-gnu/-/rollup-linux-loong64-gnu-4.60.1.tgz#499bfac6bb669fd88bb664357bf6be996a28b92f" - integrity sha512-VSvgvQeIcsEvY4bKDHEDWcpW4Yw7BtlKG1GUT4FzBUlEKQK0rWHYBqQt6Fm2taXS+1bXvJT6kICu5ZwqKCnvlQ== - -"@rollup/rollup-linux-loong64-musl@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-loong64-musl/-/rollup-linux-loong64-musl-4.60.1.tgz#127dfac08764764396bbe04453c545d38a3ab518" - integrity sha512-4LqhUomJqwe641gsPp6xLfhqWMbQV04KtPp7/dIp0nzPxAkNY1AbwL5W0MQpcalLYk07vaW9Kp1PBhdpZYYcEw== - -"@rollup/rollup-linux-ppc64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-ppc64-gnu/-/rollup-linux-ppc64-gnu-4.60.1.tgz#6a72f4d95852aac18326c5bf708393e8f3a41b70" - integrity sha512-tLQQ9aPvkBxOc/EUT6j3pyeMD6Hb8QF2BTBnCQWP/uu1lhc9AIrIjKnLYMEroIz/JvtGYgI9dF3AxHZNaEH0rw== - -"@rollup/rollup-linux-ppc64-musl@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-ppc64-musl/-/rollup-linux-ppc64-musl-4.60.1.tgz#ba8674666b00d6f9066cb9a5771a8430c34d2de6" - integrity sha512-RMxFhJwc9fSXP6PqmAz4cbv3kAyvD1etJFjTx4ONqFP9DkTkXsAMU4v3Vyc5BgzC+anz7nS/9tp4obsKfqkDHg== - -"@rollup/rollup-linux-riscv64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-riscv64-gnu/-/rollup-linux-riscv64-gnu-4.60.1.tgz#17cc38b2a71e302547cad29bcf78d0db2618c922" - integrity sha512-QKgFl+Yc1eEk6MmOBfRHYF6lTxiiiV3/z/BRrbSiW2I7AFTXoBFvdMEyglohPj//2mZS4hDOqeB0H1ACh3sBbg== - -"@rollup/rollup-linux-riscv64-musl@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-riscv64-musl/-/rollup-linux-riscv64-musl-4.60.1.tgz#e36a41e2d8bd247331bd5cfc13b8c951d33454a2" - integrity sha512-RAjXjP/8c6ZtzatZcA1RaQr6O1TRhzC+adn8YZDnChliZHviqIjmvFwHcxi4JKPSDAt6Uhf/7vqcBzQJy0PDJg== - -"@rollup/rollup-linux-s390x-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-s390x-gnu/-/rollup-linux-s390x-gnu-4.60.1.tgz#1687265f1f4bdea0726c761a58c2db9933609d68" - integrity sha512-wcuocpaOlaL1COBYiA89O6yfjlp3RwKDeTIA0hM7OpmhR1Bjo9j31G1uQVpDlTvwxGn2nQs65fBFL5UFd76FcQ== - -"@rollup/rollup-linux-x64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-x64-gnu/-/rollup-linux-x64-gnu-4.60.1.tgz#56a6a0d9076f2a05a976031493b24a20ddcc0e77" - integrity sha512-77PpsFQUCOiZR9+LQEFg9GClyfkNXj1MP6wRnzYs0EeWbPcHs02AXu4xuUbM1zhwn3wqaizle3AEYg5aeoohhg== - -"@rollup/rollup-linux-x64-musl@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-linux-x64-musl/-/rollup-linux-x64-musl-4.60.1.tgz#bc240ebb5b9fd8d41ca8a80cb458452e8c187e0f" - integrity sha512-5cIATbk5vynAjqqmyBjlciMJl1+R/CwX9oLk/EyiFXDWd95KpHdrOJT//rnUl4cUcskrd0jCCw3wpZnhIHdD9w== - -"@rollup/rollup-openbsd-x64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-openbsd-x64/-/rollup-openbsd-x64-4.60.1.tgz#6f80d48a006c4b2ffa7724e95a3e33f6975872af" - integrity sha512-cl0w09WsCi17mcmWqqglez9Gk8isgeWvoUZ3WiJFYSR3zjBQc2J5/ihSjpl+VLjPqjQ/1hJRcqBfLjssREQILw== - -"@rollup/rollup-openharmony-arm64@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-openharmony-arm64/-/rollup-openharmony-arm64-4.60.1.tgz#8f6db6f70d0a48abd833b263cd6dd3e7199c4c0e" - integrity sha512-4Cv23ZrONRbNtbZa37mLSueXUCtN7MXccChtKpUnQNgF010rjrjfHx3QxkS2PI7LqGT5xXyYs1a7LbzAwT0iCA== - -"@rollup/rollup-win32-arm64-msvc@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-win32-arm64-msvc/-/rollup-win32-arm64-msvc-4.60.1.tgz#b68989bfa815d0b3d4e302ecd90bda744438b177" - integrity sha512-i1okWYkA4FJICtr7KpYzFpRTHgy5jdDbZiWfvny21iIKky5YExiDXP+zbXzm3dUcFpkEeYNHgQ5fuG236JPq0g== - -"@rollup/rollup-win32-ia32-msvc@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-win32-ia32-msvc/-/rollup-win32-ia32-msvc-4.60.1.tgz#c098e45338c50f22f1b288476354f025b746285b" - integrity sha512-u09m3CuwLzShA0EYKMNiFgcjjzwqtUMLmuCJLeZWjjOYA3IT2Di09KaxGBTP9xVztWyIWjVdsB2E9goMjZvTQg== - -"@rollup/rollup-win32-x64-gnu@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-win32-x64-gnu/-/rollup-win32-x64-gnu-4.60.1.tgz#2c9e15be155b79d05999953b1737b2903842e903" - integrity sha512-k+600V9Zl1CM7eZxJgMyTUzmrmhB/0XZnF4pRypKAlAgxmedUA+1v9R+XOFv56W4SlHEzfeMtzujLJD22Uz5zg== - -"@rollup/rollup-win32-x64-msvc@4.60.1": - version "4.60.1" - resolved "https://registry.yarnpkg.com/@rollup/rollup-win32-x64-msvc/-/rollup-win32-x64-msvc-4.60.1.tgz#23b860113e9f87eea015d1fa3a4240a52b42fcd4" - integrity sha512-lWMnixq/QzxyhTV6NjQJ4SFo1J6PvOX8vUx5Wb4bBPsEb+8xZ89Bz6kOXpfXj9ak9AHTQVQzlgzBEc1SyM27xQ== - -"@types/estree@1.0.8": - version "1.0.8" - resolved "https://registry.yarnpkg.com/@types/estree/-/estree-1.0.8.tgz#958b91c991b1867ced318bedea0e215ee050726e" - integrity sha512-dWHzHa2WqEXI/O1E9OjrocMTKJl2mSrEolh1Iomrv6U+JuNwaHXsXx9bLu5gG7BUWFIN0skIQJQ/L1rIex4X6w== - -bottom-tip@^0.1.5: - version "0.1.5" - resolved "https://registry.yarnpkg.com/bottom-tip/-/bottom-tip-0.1.5.tgz#ca81e738fba6ae956a5b4c55a78a127820c9b99e" - integrity sha512-53RCkWg6hY8M7Y9lPgU2f2bAEejQh0H6SCL9B8ufFdYAOAH/cUEwxSsBIH0AcPbOcNaSgdEJr9OhdnTUENe5bA== + "@calcit/ternary-tree": "npm:0.0.26" + "@cirru/parser.ts": "npm:^0.0.9" + "@cirru/writer.ts": "npm:^0.1.9" + checksum: 10c0/31a0874d2ea99759165e493b242578811e2fa392047eeb06b7a2c16a578986c1731d29077f92292e4a33449e295849ab43151a30f7a088ff993c71e683e4854c + languageName: node + linkType: hard + +"@calcit/ternary-tree@npm:0.0.26": + version: 0.0.26 + resolution: "@calcit/ternary-tree@npm:0.0.26" + checksum: 10c0/53fee664f72e25f3512f3a61c917fe7926e2620caab1fed68e030ee4ddf905be68b4249c2e644a4db7cadb96b23594059f73fa9c475af8a79526e8d145736563 + languageName: node + linkType: hard + +"@cirru/parser.ts@npm:^0.0.9": + version: 0.0.9 + resolution: "@cirru/parser.ts@npm:0.0.9" + checksum: 10c0/3b13623b8f627ac81adae0cb6a4e3664f0da09115a997ca9b78b8d5d0b0f9b9b18c1ad847e068831cb1052c7da2a00329d2af04421b1024a004eef0ddca5fd7a + languageName: node + linkType: hard + +"@cirru/writer.ts@npm:^0.1.9": + version: 0.1.9 + resolution: "@cirru/writer.ts@npm:0.1.9" + checksum: 10c0/df2672837d1bf61ee1a83b8b77ea17b9c241cb8135323567992749ee26daf3abccf43ab75d8698d67c36c8b8469f9a66c235a809a60484d71133592a9161a054 + languageName: node + linkType: hard + +"@esbuild/aix-ppc64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/aix-ppc64@npm:0.25.12" + conditions: os=aix & cpu=ppc64 + languageName: node + linkType: hard + +"@esbuild/android-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/android-arm64@npm:0.25.12" + conditions: os=android & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/android-arm@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/android-arm@npm:0.25.12" + conditions: os=android & cpu=arm + languageName: node + linkType: hard + +"@esbuild/android-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/android-x64@npm:0.25.12" + conditions: os=android & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/darwin-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/darwin-arm64@npm:0.25.12" + conditions: os=darwin & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/darwin-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/darwin-x64@npm:0.25.12" + conditions: os=darwin & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/freebsd-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/freebsd-arm64@npm:0.25.12" + conditions: os=freebsd & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/freebsd-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/freebsd-x64@npm:0.25.12" + conditions: os=freebsd & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/linux-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-arm64@npm:0.25.12" + conditions: os=linux & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/linux-arm@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-arm@npm:0.25.12" + conditions: os=linux & cpu=arm + languageName: node + linkType: hard + +"@esbuild/linux-ia32@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-ia32@npm:0.25.12" + conditions: os=linux & cpu=ia32 + languageName: node + linkType: hard + +"@esbuild/linux-loong64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-loong64@npm:0.25.12" + conditions: os=linux & cpu=loong64 + languageName: node + linkType: hard + +"@esbuild/linux-mips64el@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-mips64el@npm:0.25.12" + conditions: os=linux & cpu=mips64el + languageName: node + linkType: hard + +"@esbuild/linux-ppc64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-ppc64@npm:0.25.12" + conditions: os=linux & cpu=ppc64 + languageName: node + linkType: hard + +"@esbuild/linux-riscv64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-riscv64@npm:0.25.12" + conditions: os=linux & cpu=riscv64 + languageName: node + linkType: hard + +"@esbuild/linux-s390x@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-s390x@npm:0.25.12" + conditions: os=linux & cpu=s390x + languageName: node + linkType: hard + +"@esbuild/linux-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/linux-x64@npm:0.25.12" + conditions: os=linux & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/netbsd-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/netbsd-arm64@npm:0.25.12" + conditions: os=netbsd & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/netbsd-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/netbsd-x64@npm:0.25.12" + conditions: os=netbsd & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/openbsd-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/openbsd-arm64@npm:0.25.12" + conditions: os=openbsd & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/openbsd-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/openbsd-x64@npm:0.25.12" + conditions: os=openbsd & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/openharmony-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/openharmony-arm64@npm:0.25.12" + conditions: os=openharmony & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/sunos-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/sunos-x64@npm:0.25.12" + conditions: os=sunos & cpu=x64 + languageName: node + linkType: hard + +"@esbuild/win32-arm64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/win32-arm64@npm:0.25.12" + conditions: os=win32 & cpu=arm64 + languageName: node + linkType: hard + +"@esbuild/win32-ia32@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/win32-ia32@npm:0.25.12" + conditions: os=win32 & cpu=ia32 + languageName: node + linkType: hard + +"@esbuild/win32-x64@npm:0.25.12": + version: 0.25.12 + resolution: "@esbuild/win32-x64@npm:0.25.12" + conditions: os=win32 & cpu=x64 + languageName: node + linkType: hard + +"@isaacs/fs-minipass@npm:^4.0.0": + version: 4.0.1 + resolution: "@isaacs/fs-minipass@npm:4.0.1" dependencies: - nanoid "^4.0.1" - virtual-dom "^2.1.1" - -browser-split@0.0.1: - version "0.0.1" - resolved "https://registry.yarnpkg.com/browser-split/-/browser-split-0.0.1.tgz#7b097574f8e3ead606fb4664e64adfdda2981a93" - integrity sha512-JhvgRb2ihQhsljNda3BI8/UcRHVzrVwo3Q+P8vDtSiyobXuFpuZ9mq+MbRGMnC22CjW3RrfXdg6j6ITX8M+7Ow== - -camelize@^1.0.0: - version "1.0.1" - resolved "https://registry.yarnpkg.com/camelize/-/camelize-1.0.1.tgz#89b7e16884056331a35d6b5ad064332c91daa6c3" - integrity sha512-dU+Tx2fsypxTgtLoE36npi3UqcjSSMNYfkqgmoEhtZrraP5VWq0K7FkWVTYa8eMPtnU/G2txVsfdCJTn9uzpuQ== - -classnames@^2.2.5: - version "2.5.1" - resolved "https://registry.yarnpkg.com/classnames/-/classnames-2.5.1.tgz#ba774c614be0f016da105c858e7159eae8e7687b" - integrity sha512-saHYOzhIQs6wy2sVxTM6bUDsQO4F50V9RQ22qBpEdCW+I+/Wmke2HOl6lS6dTpdxVhb88/I6+Hs+438c3lfUow== - -copy-to-clipboard@^3.3.3: - version "3.3.3" - resolved "https://registry.yarnpkg.com/copy-to-clipboard/-/copy-to-clipboard-3.3.3.tgz#55ac43a1db8ae639a4bd99511c148cdd1b83a1b0" - integrity sha512-2KV8NhB5JqC3ky0r9PMCAZKbUHSwtEo4CwCs0KXgruG43gX5PMqDEBbVU4OUzw2MuAWUfsuFmWvEKG5QRfSnJA== + minipass: "npm:^7.0.4" + checksum: 10c0/c25b6dc1598790d5b55c0947a9b7d111cfa92594db5296c3b907e2f533c033666f692a3939eadac17b1c7c40d362d0b0635dc874cbfe3e70db7c2b07cc97a5d2 + languageName: node + linkType: hard + +"@rollup/rollup-android-arm-eabi@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-android-arm-eabi@npm:4.60.1" + conditions: os=android & cpu=arm + languageName: node + linkType: hard + +"@rollup/rollup-android-arm64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-android-arm64@npm:4.60.1" + conditions: os=android & cpu=arm64 + languageName: node + linkType: hard + +"@rollup/rollup-darwin-arm64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-darwin-arm64@npm:4.60.1" + conditions: os=darwin & cpu=arm64 + languageName: node + linkType: hard + +"@rollup/rollup-darwin-x64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-darwin-x64@npm:4.60.1" + conditions: os=darwin & cpu=x64 + languageName: node + linkType: hard + +"@rollup/rollup-freebsd-arm64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-freebsd-arm64@npm:4.60.1" + conditions: os=freebsd & cpu=arm64 + languageName: node + linkType: hard + +"@rollup/rollup-freebsd-x64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-freebsd-x64@npm:4.60.1" + conditions: os=freebsd & cpu=x64 + languageName: node + linkType: hard + +"@rollup/rollup-linux-arm-gnueabihf@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-arm-gnueabihf@npm:4.60.1" + conditions: os=linux & cpu=arm & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-arm-musleabihf@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-arm-musleabihf@npm:4.60.1" + conditions: os=linux & cpu=arm & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-linux-arm64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-arm64-gnu@npm:4.60.1" + conditions: os=linux & cpu=arm64 & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-arm64-musl@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-arm64-musl@npm:4.60.1" + conditions: os=linux & cpu=arm64 & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-linux-loong64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-loong64-gnu@npm:4.60.1" + conditions: os=linux & cpu=loong64 & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-loong64-musl@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-loong64-musl@npm:4.60.1" + conditions: os=linux & cpu=loong64 & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-linux-ppc64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-ppc64-gnu@npm:4.60.1" + conditions: os=linux & cpu=ppc64 & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-ppc64-musl@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-ppc64-musl@npm:4.60.1" + conditions: os=linux & cpu=ppc64 & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-linux-riscv64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-riscv64-gnu@npm:4.60.1" + conditions: os=linux & cpu=riscv64 & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-riscv64-musl@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-riscv64-musl@npm:4.60.1" + conditions: os=linux & cpu=riscv64 & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-linux-s390x-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-s390x-gnu@npm:4.60.1" + conditions: os=linux & cpu=s390x & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-x64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-x64-gnu@npm:4.60.1" + conditions: os=linux & cpu=x64 & libc=glibc + languageName: node + linkType: hard + +"@rollup/rollup-linux-x64-musl@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-linux-x64-musl@npm:4.60.1" + conditions: os=linux & cpu=x64 & libc=musl + languageName: node + linkType: hard + +"@rollup/rollup-openbsd-x64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-openbsd-x64@npm:4.60.1" + conditions: os=openbsd & cpu=x64 + languageName: node + linkType: hard + +"@rollup/rollup-openharmony-arm64@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-openharmony-arm64@npm:4.60.1" + conditions: os=openharmony & cpu=arm64 + languageName: node + linkType: hard + +"@rollup/rollup-win32-arm64-msvc@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-win32-arm64-msvc@npm:4.60.1" + conditions: os=win32 & cpu=arm64 + languageName: node + linkType: hard + +"@rollup/rollup-win32-ia32-msvc@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-win32-ia32-msvc@npm:4.60.1" + conditions: os=win32 & cpu=ia32 + languageName: node + linkType: hard + +"@rollup/rollup-win32-x64-gnu@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-win32-x64-gnu@npm:4.60.1" + conditions: os=win32 & cpu=x64 + languageName: node + linkType: hard + +"@rollup/rollup-win32-x64-msvc@npm:4.60.1": + version: 4.60.1 + resolution: "@rollup/rollup-win32-x64-msvc@npm:4.60.1" + conditions: os=win32 & cpu=x64 + languageName: node + linkType: hard + +"@types/estree@npm:1.0.8": + version: 1.0.8 + resolution: "@types/estree@npm:1.0.8" + checksum: 10c0/39d34d1afaa338ab9763f37ad6066e3f349444f9052b9676a7cc0252ef9485a41c6d81c9c4e0d26e9077993354edf25efc853f3224dd4b447175ef62bdcc86a5 + languageName: node + linkType: hard + +"abbrev@npm:^5.0.0": + version: 5.0.0 + resolution: "abbrev@npm:5.0.0" + checksum: 10c0/8e88f5c798ea4562d28c5a3e9ad69e3879890bc5d695d8f2dffb8609be4c890aacc8f80ef4553fdd2c6a62d70c2ce8bc57b38074e383beb7487bdafa9ed42ea5 + languageName: node + linkType: hard + +"bottom-tip@npm:^0.1.5": + version: 0.1.5 + resolution: "bottom-tip@npm:0.1.5" dependencies: - toggle-selection "^1.0.6" - -core-js@^3.1.3: - version "3.36.1" - resolved "https://registry.yarnpkg.com/core-js/-/core-js-3.36.1.tgz#c97a7160ebd00b2de19e62f4bbd3406ab720e578" - integrity sha512-BTvUrwxVBezj5SZ3f10ImnX2oRByMxql3EimVqMysepbC9EeMUOpLwdy6Eoili2x6E4kf+ZUB5k/+Jv55alPfA== - -dom-walk@^0.1.0: - version "0.1.2" - resolved "https://registry.yarnpkg.com/dom-walk/-/dom-walk-0.1.2.tgz#0c548bef048f4d1f2a97249002236060daa3fd84" - integrity sha512-6QvTW9mrGeIegrFXdtQi9pk7O/nSK6lSdXW2eqUspN5LWD7UTji2Fqw5V2YLjBpHEoU9Xl/eUWNpDeZvoyOv2w== - -error@^4.3.0: - version "4.4.0" - resolved "https://registry.yarnpkg.com/error/-/error-4.4.0.tgz#bf69ff251fb4a279c19adccdaa6b61e90d9bf12a" - integrity sha512-SNDKualLUtT4StGFP7xNfuFybL2f6iJujFtrWuvJqGbVQGaN+adE23veqzPz1hjUjTunLi2EnJ+0SJxtbJreKw== + nanoid: "npm:^4.0.1" + virtual-dom: "npm:^2.1.1" + checksum: 10c0/6d67176db5e2e66c3566351fe418451a2665f2935f8621a61135fb493bcb2adbf5b6763a584a9935997efb0a89ee1022b60994fd90ef3ef1d8f2e08abe5b34e3 + languageName: node + linkType: hard + +"browser-split@npm:0.0.1": + version: 0.0.1 + resolution: "browser-split@npm:0.0.1" + checksum: 10c0/c0ed77e8bf3494e6803681c578f5c0c0d050fbd041f608f0fe7ec23bdb98483ba6905dfa785786963b9b555aab04f95d6e15f8b4ecdd53a40215134a66ec3f39 + languageName: node + linkType: hard + +"camelize@npm:^1.0.0": + version: 1.0.1 + resolution: "camelize@npm:1.0.1" + checksum: 10c0/4c9ac55efd356d37ac483bad3093758236ab686192751d1c9daa43188cc5a07b09bd431eb7458a4efd9ca22424bba23253e7b353feb35d7c749ba040de2385fb + languageName: node + linkType: hard + +"chownr@npm:^3.0.0": + version: 3.0.0 + resolution: "chownr@npm:3.0.0" + checksum: 10c0/43925b87700f7e3893296c8e9c56cc58f926411cce3a6e5898136daaf08f08b9a8eb76d37d3267e707d0dcc17aed2e2ebdf5848c0c3ce95cf910a919935c1b10 + languageName: node + linkType: hard + +"classnames@npm:^2.2.5": + version: 2.5.1 + resolution: "classnames@npm:2.5.1" + checksum: 10c0/afff4f77e62cea2d79c39962980bf316bacb0d7c49e13a21adaadb9221e1c6b9d3cdb829d8bb1b23c406f4e740507f37e1dcf506f7e3b7113d17c5bab787aa69 + languageName: node + linkType: hard + +"copy-to-clipboard@npm:^3.3.3": + version: 3.3.3 + resolution: "copy-to-clipboard@npm:3.3.3" dependencies: - camelize "^1.0.0" - string-template "~0.2.0" - xtend "~4.0.0" - -esbuild@^0.25.0: - version "0.25.12" - resolved "https://registry.yarnpkg.com/esbuild/-/esbuild-0.25.12.tgz#97a1d041f4ab00c2fce2f838d2b9969a2d2a97a5" - integrity sha512-bbPBYYrtZbkt6Os6FiTLCTFxvq4tt3JKall1vRwshA3fdVztsLAatFaZobhkBC8/BrPetoa0oksYoKXoG4ryJg== - optionalDependencies: - "@esbuild/aix-ppc64" "0.25.12" - "@esbuild/android-arm" "0.25.12" - "@esbuild/android-arm64" "0.25.12" - "@esbuild/android-x64" "0.25.12" - "@esbuild/darwin-arm64" "0.25.12" - "@esbuild/darwin-x64" "0.25.12" - "@esbuild/freebsd-arm64" "0.25.12" - "@esbuild/freebsd-x64" "0.25.12" - "@esbuild/linux-arm" "0.25.12" - "@esbuild/linux-arm64" "0.25.12" - "@esbuild/linux-ia32" "0.25.12" - "@esbuild/linux-loong64" "0.25.12" - "@esbuild/linux-mips64el" "0.25.12" - "@esbuild/linux-ppc64" "0.25.12" - "@esbuild/linux-riscv64" "0.25.12" - "@esbuild/linux-s390x" "0.25.12" - "@esbuild/linux-x64" "0.25.12" - "@esbuild/netbsd-arm64" "0.25.12" - "@esbuild/netbsd-x64" "0.25.12" - "@esbuild/openbsd-arm64" "0.25.12" - "@esbuild/openbsd-x64" "0.25.12" - "@esbuild/openharmony-arm64" "0.25.12" - "@esbuild/sunos-x64" "0.25.12" - "@esbuild/win32-arm64" "0.25.12" - "@esbuild/win32-ia32" "0.25.12" - "@esbuild/win32-x64" "0.25.12" - -ev-store@^7.0.0: - version "7.0.0" - resolved "https://registry.yarnpkg.com/ev-store/-/ev-store-7.0.0.tgz#1ab0c7f82136505dd74b31d17701cb2be6d26558" - integrity sha512-otazchNRnGzp2YarBJ+GXKVGvhxVATB1zmaStxJBYet0Dyq7A9VhH8IUEB/gRcL6Ch52lfpgPTRJ2m49epyMsQ== + toggle-selection: "npm:^1.0.6" + checksum: 10c0/3ebf5e8ee00601f8c440b83ec08d838e8eabb068c1fae94a9cda6b42f288f7e1b552f3463635f419af44bf7675afc8d0390d30876cf5c2d5d35f86d9c56a3e5f + languageName: node + linkType: hard + +"copycat@workspace:.": + version: 0.0.0-use.local + resolution: "copycat@workspace:." dependencies: - individual "^3.0.0" - -fdir@^6.4.4, fdir@^6.5.0: - version "6.5.0" - resolved "https://registry.yarnpkg.com/fdir/-/fdir-6.5.0.tgz#ed2ab967a331ade62f18d077dae192684d50d350" - integrity sha512-tIbYtZbucOs0BRGqPJkshJUYdL+SDH7dVM8gjy+ERp3WAUjLEFJE+02kanyHtwjWOnwrKYBiwAmM0p4kLJAnXg== - -feather-icons@^4.29.1: - version "4.29.1" - resolved "https://registry.yarnpkg.com/feather-icons/-/feather-icons-4.29.1.tgz#f222aaa4cc6fca499356660c9de6c009ee2cb117" - integrity sha512-P1we61haGTds6lKWe6CCVPsNULb8tHr1y6S9gXEpU+lNR1Ja7GdV0A1l2hTNmzXv+0Stix/3YMWMAn7n1Qtd6A== + "@calcit/procs": "npm:^0.12.47" + bottom-tip: "npm:^0.1.5" + copy-to-clipboard: "npm:^3.3.3" + feather-icons: "npm:^4.29.1" + url-parse: "npm:^1.5.10" + vite: "npm:^6.4.3" + languageName: unknown + linkType: soft + +"core-js@npm:^3.1.3": + version: 3.36.1 + resolution: "core-js@npm:3.36.1" + checksum: 10c0/4f0ad2464535d809ba659226feca15bff14b9b5452518bddff8d81b9c94b0227b3027d9838f22f1dce664958acb4107b935cc0037695ae545edc2a303bca98bf + languageName: node + linkType: hard + +"dom-walk@npm:^0.1.0": + version: 0.1.2 + resolution: "dom-walk@npm:0.1.2" + checksum: 10c0/4d2ad9062a9423d890f8577aa202b597a6b85f9489bdde656b9443901b8b322b289655c3affefc58ec2e41931e0828dfee0a1d2db6829a607d76def5901fc5a9 + languageName: node + linkType: hard + +"env-paths@npm:^2.2.0": + version: 2.2.1 + resolution: "env-paths@npm:2.2.1" + checksum: 10c0/285325677bf00e30845e330eec32894f5105529db97496ee3f598478e50f008c5352a41a30e5e72ec9de8a542b5a570b85699cd63bd2bc646dbcb9f311d83bc4 + languageName: node + linkType: hard + +"error@npm:^4.3.0": + version: 4.4.0 + resolution: "error@npm:4.4.0" dependencies: - classnames "^2.2.5" - core-js "^3.1.3" - -fsevents@~2.3.2, fsevents@~2.3.3: - version "2.3.3" - resolved "https://registry.yarnpkg.com/fsevents/-/fsevents-2.3.3.tgz#cac6407785d03675a2a5e1a5305c697b347d90d6" - integrity sha512-5xoDfX+fL7faATnagmWPpbFtwh/R77WmMMqqHGS65C3vvB0YHrgF+B1YmZ3441tMj5n63k0212XNoJwzlhffQw== - -global@^4.3.0: - version "4.4.0" - resolved "https://registry.yarnpkg.com/global/-/global-4.4.0.tgz#3e7b105179006a323ed71aafca3e9c57a5cc6406" - integrity sha512-wv/LAoHdRE3BeTGz53FAamhGlPLhlssK45usmGFThIi4XqnBmjKQ16u+RNbP7WvigRZDxUsM0J3gcQ5yicaL0w== + camelize: "npm:^1.0.0" + string-template: "npm:~0.2.0" + xtend: "npm:~4.0.0" + checksum: 10c0/6aecddafbc14db142a47df295b2d832630dd4af6ec62a52dbf00eefa7adea249a3182a6c920c5e24974204f7234d02ed2b073f6f8eb164ba2e620d93218e2e66 + languageName: node + linkType: hard + +"esbuild@npm:^0.25.0": + version: 0.25.12 + resolution: "esbuild@npm:0.25.12" dependencies: - min-document "^2.19.0" - process "^0.11.10" - -individual@^3.0.0: - version "3.0.0" - resolved "https://registry.yarnpkg.com/individual/-/individual-3.0.0.tgz#e7ca4f85f8957b018734f285750dc22ec2f9862d" - integrity sha512-rUY5vtT748NMRbEMrTNiFfy29BgGZwGXUi2NFUVMWQrogSLzlJvQV9eeMWi+g1aVaQ53tpyLAQtd5x/JH0Nh1g== - -is-object@^1.0.1: - version "1.0.2" - resolved "https://registry.yarnpkg.com/is-object/-/is-object-1.0.2.tgz#a56552e1c665c9e950b4a025461da87e72f86fcf" - integrity sha512-2rRIahhZr2UWb45fIOuvZGpFtz0TyOZLf32KxBbSoUCeZR495zCKlWUKKUByk3geS2eAs7ZAABt0Y/Rx0GiQGA== - -min-document@^2.19.0: - version "2.19.2" - resolved "https://registry.yarnpkg.com/min-document/-/min-document-2.19.2.tgz#f95db44639eaae3ac8ea85ae6809ae85ff7e3b81" - integrity sha512-8S5I8db/uZN8r9HSLFVWPdJCvYOejMcEC82VIzNUc6Zkklf/d1gg2psfE79/vyhWOj4+J8MtwmoOz3TmvaGu5A== + "@esbuild/aix-ppc64": "npm:0.25.12" + "@esbuild/android-arm": "npm:0.25.12" + "@esbuild/android-arm64": "npm:0.25.12" + "@esbuild/android-x64": "npm:0.25.12" + "@esbuild/darwin-arm64": "npm:0.25.12" + "@esbuild/darwin-x64": "npm:0.25.12" + "@esbuild/freebsd-arm64": "npm:0.25.12" + "@esbuild/freebsd-x64": "npm:0.25.12" + "@esbuild/linux-arm": "npm:0.25.12" + "@esbuild/linux-arm64": "npm:0.25.12" + "@esbuild/linux-ia32": "npm:0.25.12" + "@esbuild/linux-loong64": "npm:0.25.12" + "@esbuild/linux-mips64el": "npm:0.25.12" + "@esbuild/linux-ppc64": "npm:0.25.12" + "@esbuild/linux-riscv64": "npm:0.25.12" + "@esbuild/linux-s390x": "npm:0.25.12" + "@esbuild/linux-x64": "npm:0.25.12" + "@esbuild/netbsd-arm64": "npm:0.25.12" + "@esbuild/netbsd-x64": "npm:0.25.12" + "@esbuild/openbsd-arm64": "npm:0.25.12" + "@esbuild/openbsd-x64": "npm:0.25.12" + "@esbuild/openharmony-arm64": "npm:0.25.12" + "@esbuild/sunos-x64": "npm:0.25.12" + "@esbuild/win32-arm64": "npm:0.25.12" + "@esbuild/win32-ia32": "npm:0.25.12" + "@esbuild/win32-x64": "npm:0.25.12" + dependenciesMeta: + "@esbuild/aix-ppc64": + optional: true + "@esbuild/android-arm": + optional: true + "@esbuild/android-arm64": + optional: true + "@esbuild/android-x64": + optional: true + "@esbuild/darwin-arm64": + optional: true + "@esbuild/darwin-x64": + optional: true + "@esbuild/freebsd-arm64": + optional: true + "@esbuild/freebsd-x64": + optional: true + "@esbuild/linux-arm": + optional: true + "@esbuild/linux-arm64": + optional: true + "@esbuild/linux-ia32": + optional: true + "@esbuild/linux-loong64": + optional: true + "@esbuild/linux-mips64el": + optional: true + "@esbuild/linux-ppc64": + optional: true + "@esbuild/linux-riscv64": + optional: true + "@esbuild/linux-s390x": + optional: true + "@esbuild/linux-x64": + optional: true + "@esbuild/netbsd-arm64": + optional: true + "@esbuild/netbsd-x64": + optional: true + "@esbuild/openbsd-arm64": + optional: true + "@esbuild/openbsd-x64": + optional: true + "@esbuild/openharmony-arm64": + optional: true + "@esbuild/sunos-x64": + optional: true + "@esbuild/win32-arm64": + optional: true + "@esbuild/win32-ia32": + optional: true + "@esbuild/win32-x64": + optional: true + bin: + esbuild: bin/esbuild + checksum: 10c0/c205357531423220a9de8e1e6c6514242bc9b1666e762cd67ccdf8fdfdc3f1d0bd76f8d9383958b97ad4c953efdb7b6e8c1f9ca5951cd2b7c5235e8755b34a6b + languageName: node + linkType: hard + +"ev-store@npm:^7.0.0": + version: 7.0.0 + resolution: "ev-store@npm:7.0.0" dependencies: - dom-walk "^0.1.0" - -nanoid@^3.3.12: - version "3.3.15" - resolved "https://registry.yarnpkg.com/nanoid/-/nanoid-3.3.15.tgz#36c490fad8c6e86c824c940dfdde999b69ed4316" - integrity sha512-y7Wygv/7mEOvxTuEQDB8StXdMRBWf1kR/tlhAzBRUFkB2jfcLOAxO/SHmOO2zgz1pVgK29/kyupn059/bCHdjA== - -nanoid@^4.0.1: - version "4.0.2" - resolved "https://registry.yarnpkg.com/nanoid/-/nanoid-4.0.2.tgz#140b3c5003959adbebf521c170f282c5e7f9fb9e" - integrity sha512-7ZtY5KTCNheRGfEFxnedV5zFiORN1+Y1N6zvPTnHQd8ENUvfaDBeuJDZb2bN/oXwXxu3qkTXDzy57W5vAmDTBw== - -next-tick@^0.2.2: - version "0.2.2" - resolved "https://registry.yarnpkg.com/next-tick/-/next-tick-0.2.2.tgz#75da4a927ee5887e39065880065b7336413b310d" - integrity sha512-f7h4svPtl+QidoBv4taKXUjJ70G2asaZ8G28nS0OkqaalX8dwwrtWtyxEDPK62AC00ur/+/E0pUwBwY5EPn15Q== - -picocolors@^1.1.1: - version "1.1.1" - resolved "https://registry.yarnpkg.com/picocolors/-/picocolors-1.1.1.tgz#3d321af3eab939b083c8f929a1d12cda81c26b6b" - integrity sha512-xceH2snhtb5M9liqDsmEw56le376mTZkEX/jEb/RxNFyegNul7eNslCXP9FDj/Lcu0X8KEyMceP2ntpaHrDEVA== - -picomatch@^4.0.2, picomatch@^4.0.4: - version "4.0.4" - resolved "https://registry.yarnpkg.com/picomatch/-/picomatch-4.0.4.tgz#fd6f5e00a143086e074dffe4c924b8fb293b0589" - integrity sha512-QP88BAKvMam/3NxH6vj2o21R6MjxZUAd6nlwAS/pnGvN9IVLocLHxGYIzFhg6fUQ+5th6P4dv4eW9jX3DSIj7A== - -postcss@^8.5.3: - version "8.5.16" - resolved "https://registry.yarnpkg.com/postcss/-/postcss-8.5.16.tgz#1230ce0b5df354c24c0ea45f99ce5f6a88279d28" - integrity sha512-vuwillviilfKZsg0VGj5R/YwwcHx4SLsIOI/7K6mQkWx+l5cUHTjj5g0AasTBcyXsbfTgrwsUNmVUb5xVwyPwg== + individual: "npm:^3.0.0" + checksum: 10c0/a470c07142a34ebc1aff20291fafe56675f4231ac5077de2dd6df6134e257a603b45efd4865c2f368084e40b1ac8efcec1459a182ce4bcd52256ae70e1b3dd5d + languageName: node + linkType: hard + +"exponential-backoff@npm:^3.1.1": + version: 3.1.3 + resolution: "exponential-backoff@npm:3.1.3" + checksum: 10c0/77e3ae682b7b1f4972f563c6dbcd2b0d54ac679e62d5d32f3e5085feba20483cf28bd505543f520e287a56d4d55a28d7874299941faf637e779a1aa5994d1267 + languageName: node + linkType: hard + +"fdir@npm:^6.4.4, fdir@npm:^6.5.0": + version: 6.5.0 + resolution: "fdir@npm:6.5.0" + peerDependencies: + picomatch: ^3 || ^4 + peerDependenciesMeta: + picomatch: + optional: true + checksum: 10c0/e345083c4306b3aed6cb8ec551e26c36bab5c511e99ea4576a16750ddc8d3240e63826cc624f5ae17ad4dc82e68a253213b60d556c11bfad064b7607847ed07f + languageName: node + linkType: hard + +"feather-icons@npm:^4.29.1": + version: 4.29.1 + resolution: "feather-icons@npm:4.29.1" dependencies: - nanoid "^3.3.12" - picocolors "^1.1.1" - source-map-js "^1.2.1" - -process@^0.11.10: - version "0.11.10" - resolved "https://registry.yarnpkg.com/process/-/process-0.11.10.tgz#7332300e840161bda3e69a1d1d91a7d4bc16f182" - integrity sha512-cdGef/drWFoydD1JsMzuFf8100nZl+GT+yacc2bEced5f9Rjk4z+WtFUTBu9PhOi9j/jfmBPu0mMEY4wIdAF8A== - -querystringify@^2.1.1: - version "2.2.0" - resolved "https://registry.yarnpkg.com/querystringify/-/querystringify-2.2.0.tgz#3345941b4153cb9d082d8eee4cda2016a9aef7f6" - integrity sha512-FIqgj2EUvTa7R50u0rGsyTftzjYmv/a3hO345bZNrqabNqjtgiDMgmo4mkUjd+nzU5oF3dClKqFIPUKybUyqoQ== - -requires-port@^1.0.0: - version "1.0.0" - resolved "https://registry.yarnpkg.com/requires-port/-/requires-port-1.0.0.tgz#925d2601d39ac485e091cf0da5c6e694dc3dcaff" - integrity sha512-KigOCHcocU3XODJxsu8i/j8T9tzT4adHiecwORRQ0ZZFcp7ahwXuRU1m+yuO90C5ZUyGeGfocHDI14M3L3yDAQ== - -rollup@^4.34.9: - version "4.60.1" - resolved "https://registry.yarnpkg.com/rollup/-/rollup-4.60.1.tgz#b4aa2bcb3a5e1437b5fad40d43fe42d4bde7a42d" - integrity sha512-VmtB2rFU/GroZ4oL8+ZqXgSA38O6GR8KSIvWmEFv63pQ0G6KaBH9s07PO8XTXP4vI+3UJUEypOfjkGfmSBBR0w== + classnames: "npm:^2.2.5" + core-js: "npm:^3.1.3" + checksum: 10c0/16d58ca3461ca5d159a41b2ecaf7449a20e03fd000dec6c53d644af8b95667df4b2904b8fa4c8fbd1870979342be2fde7373a7e62a5f9bdf7b7f59bec186f56f + languageName: node + linkType: hard + +"fsevents@npm:~2.3.2, fsevents@npm:~2.3.3": + version: 2.3.3 + resolution: "fsevents@npm:2.3.3" dependencies: - "@types/estree" "1.0.8" - optionalDependencies: - "@rollup/rollup-android-arm-eabi" "4.60.1" - "@rollup/rollup-android-arm64" "4.60.1" - "@rollup/rollup-darwin-arm64" "4.60.1" - "@rollup/rollup-darwin-x64" "4.60.1" - "@rollup/rollup-freebsd-arm64" "4.60.1" - "@rollup/rollup-freebsd-x64" "4.60.1" - "@rollup/rollup-linux-arm-gnueabihf" "4.60.1" - "@rollup/rollup-linux-arm-musleabihf" "4.60.1" - "@rollup/rollup-linux-arm64-gnu" "4.60.1" - "@rollup/rollup-linux-arm64-musl" "4.60.1" - "@rollup/rollup-linux-loong64-gnu" "4.60.1" - "@rollup/rollup-linux-loong64-musl" "4.60.1" - "@rollup/rollup-linux-ppc64-gnu" "4.60.1" - "@rollup/rollup-linux-ppc64-musl" "4.60.1" - "@rollup/rollup-linux-riscv64-gnu" "4.60.1" - "@rollup/rollup-linux-riscv64-musl" "4.60.1" - "@rollup/rollup-linux-s390x-gnu" "4.60.1" - "@rollup/rollup-linux-x64-gnu" "4.60.1" - "@rollup/rollup-linux-x64-musl" "4.60.1" - "@rollup/rollup-openbsd-x64" "4.60.1" - "@rollup/rollup-openharmony-arm64" "4.60.1" - "@rollup/rollup-win32-arm64-msvc" "4.60.1" - "@rollup/rollup-win32-ia32-msvc" "4.60.1" - "@rollup/rollup-win32-x64-gnu" "4.60.1" - "@rollup/rollup-win32-x64-msvc" "4.60.1" - fsevents "~2.3.2" - -source-map-js@^1.2.1: - version "1.2.1" - resolved "https://registry.yarnpkg.com/source-map-js/-/source-map-js-1.2.1.tgz#1ce5650fddd87abc099eda37dcff024c2667ae46" - integrity sha512-UXWMKhLOwVKb728IUtQPXxfYU+usdybtUrK/8uGE8CQMvrhOpwvzDBwj0QhSL7MQc7vIsISBG8VQ8+IDQxpfQA== - -string-template@~0.2.0: - version "0.2.1" - resolved "https://registry.yarnpkg.com/string-template/-/string-template-0.2.1.tgz#42932e598a352d01fc22ec3367d9d84eec6c9add" - integrity sha512-Yptehjogou2xm4UJbxJ4CxgZx12HBfeystp0y3x7s4Dj32ltVVG1Gg8YhKjHZkHicuKpZX/ffilA8505VbUbpw== - -tinyglobby@^0.2.13: - version "0.2.16" - resolved "https://registry.yarnpkg.com/tinyglobby/-/tinyglobby-0.2.16.tgz#1c3b7eb953fce42b226bc5a1ee06428281aff3d6" - integrity sha512-pn99VhoACYR8nFHhxqix+uvsbXineAasWm5ojXoN8xEwK5Kd3/TrhNn1wByuD52UxWRLy8pu+kRMniEi6Eq9Zg== + node-gyp: "npm:latest" + checksum: 10c0/a1f0c44595123ed717febbc478aa952e47adfc28e2092be66b8ab1635147254ca6cfe1df792a8997f22716d4cbafc73309899ff7bfac2ac3ad8cf2e4ecc3ec60 + conditions: os=darwin + languageName: node + linkType: hard + +"fsevents@patch:fsevents@npm%3A~2.3.2#optional!builtin, fsevents@patch:fsevents@npm%3A~2.3.3#optional!builtin": + version: 2.3.3 + resolution: "fsevents@patch:fsevents@npm%3A2.3.3#optional!builtin::version=2.3.3&hash=df0bf1" dependencies: - fdir "^6.5.0" - picomatch "^4.0.4" - -toggle-selection@^1.0.6: - version "1.0.6" - resolved "https://registry.yarnpkg.com/toggle-selection/-/toggle-selection-1.0.6.tgz#6e45b1263f2017fa0acc7d89d78b15b8bf77da32" - integrity sha512-BiZS+C1OS8g/q2RRbJmy59xpyghNBqrr6k5L/uKBGRsTfxmu3ffiRnd8mlGPUVayg8pvfi5urfnu8TU7DVOkLQ== - -url-parse@^1.5.10: - version "1.5.10" - resolved "https://registry.yarnpkg.com/url-parse/-/url-parse-1.5.10.tgz#9d3c2f736c1d75dd3bd2be507dcc111f1e2ea9c1" - integrity sha512-WypcfiRhfeUP9vvF0j6rw0J3hrWrw6iZv3+22h6iRMJ/8z1Tj6XfLP4DsUix5MhMPnXpiHDoKyoZ/bdCkwBCiQ== + node-gyp: "npm:latest" + conditions: os=darwin + languageName: node + linkType: hard + +"global@npm:^4.3.0": + version: 4.4.0 + resolution: "global@npm:4.4.0" dependencies: - querystringify "^2.1.1" - requires-port "^1.0.0" - -virtual-dom@^2.1.1: - version "2.1.1" - resolved "https://registry.yarnpkg.com/virtual-dom/-/virtual-dom-2.1.1.tgz#80eda2d481b9ede0c049118cefcb4a05f21d1375" - integrity sha512-wb6Qc9Lbqug0kRqo/iuApfBpJJAq14Sk1faAnSmtqXiwahg7PVTvWMs9L02Z8nNIMqbwsxzBAA90bbtRLbw0zg== + min-document: "npm:^2.19.0" + process: "npm:^0.11.10" + checksum: 10c0/4a467aec6602c00a7c5685f310574ab04e289ad7f894f0f01c9c5763562b82f4b92d1e381ce6c5bbb12173e2a9f759c1b63dda6370cfb199970267e14d90aa91 + languageName: node + linkType: hard + +"graceful-fs@npm:^4.2.6": + version: 4.2.11 + resolution: "graceful-fs@npm:4.2.11" + checksum: 10c0/386d011a553e02bc594ac2ca0bd6d9e4c22d7fa8cfbfc448a6d148c59ea881b092db9dbe3547ae4b88e55f1b01f7c4a2ecc53b310c042793e63aa44cf6c257f2 + languageName: node + linkType: hard + +"individual@npm:^3.0.0": + version: 3.0.0 + resolution: "individual@npm:3.0.0" + checksum: 10c0/1d5b7af8833a4af77755a98abc0f69e0f54396ca379a5b2287f0b4dafbbbd9ac896e413e780ce18e61476b9bbfe4144b8a36d218770a7a707d490c09d428ea1b + languageName: node + linkType: hard + +"is-object@npm:^1.0.1": + version: 1.0.2 + resolution: "is-object@npm:1.0.2" + checksum: 10c0/9cfb80c3a850f453d4a77297e0556bc2040ac6bea5b6e418aee208654938b36bab768169bef3945ccfac7a9bb460edd8034e7c6d8973bcf147d7571e1b53e764 + languageName: node + linkType: hard + +"isexe@npm:^4.0.0": + version: 4.0.0 + resolution: "isexe@npm:4.0.0" + checksum: 10c0/5884815115bceac452877659a9c7726382531592f43dc29e5d48b7c4100661aed54018cb90bd36cb2eaeba521092570769167acbb95c18d39afdccbcca06c5ce + languageName: node + linkType: hard + +"min-document@npm:^2.19.0": + version: 2.19.2 + resolution: "min-document@npm:2.19.2" + dependencies: + dom-walk: "npm:^0.1.0" + checksum: 10c0/f6cd59ae07758583bda19cf86ffa8e072cc6e1d72d4e2a62fbf72af3ca630f66ac6a0b3e0ca2b83d5939886da2d006c309fbd0e94f17931ad117860c3fb51bf7 + languageName: node + linkType: hard + +"minipass@npm:^7.0.4, minipass@npm:^7.1.2": + version: 7.1.3 + resolution: "minipass@npm:7.1.3" + checksum: 10c0/539da88daca16533211ea5a9ee98dc62ff5742f531f54640dd34429e621955e91cc280a91a776026264b7f9f6735947629f920944e9c1558369e8bf22eb33fbb + languageName: node + linkType: hard + +"minizlib@npm:^3.1.0": + version: 3.1.0 + resolution: "minizlib@npm:3.1.0" + dependencies: + minipass: "npm:^7.1.2" + checksum: 10c0/5aad75ab0090b8266069c9aabe582c021ae53eb33c6c691054a13a45db3b4f91a7fb1bd79151e6b4e9e9a86727b522527c0a06ec7d45206b745d54cd3097bcec + languageName: node + linkType: hard + +"nanoid@npm:^3.3.12": + version: 3.3.15 + resolution: "nanoid@npm:3.3.15" + bin: + nanoid: bin/nanoid.cjs + checksum: 10c0/e0b12e3a1d361f74150fa4b25631d0ae29f7162dab01a12f0f1be1f53b7a2a219f9b729504e474d4821207d0fe349bd3c97569ab5cf7ec2fff6aa94711956c93 + languageName: node + linkType: hard + +"nanoid@npm:^4.0.1": + version: 4.0.2 + resolution: "nanoid@npm:4.0.2" + bin: + nanoid: bin/nanoid.js + checksum: 10c0/3fec62f422bc4727918eda0e7aa43e9cbb2e759be72813a0587b9dac99727d3c7ad972efce7f4f1d4cb5c7c554136a1ec3b1043d1d91d28d818d6acbe98200e5 + languageName: node + linkType: hard + +"next-tick@npm:^0.2.2": + version: 0.2.2 + resolution: "next-tick@npm:0.2.2" + checksum: 10c0/ccecbe773004af4ef06870dec192b5c8ad8cfe42425306bff1a90738339c6e6e3a520e65536f8a46a76b45ebf82a7049c8252b3518ec7bac9900859b786aed5b + languageName: node + linkType: hard + +"node-gyp@npm:latest": + version: 13.0.1 + resolution: "node-gyp@npm:13.0.1" + dependencies: + env-paths: "npm:^2.2.0" + exponential-backoff: "npm:^3.1.1" + graceful-fs: "npm:^4.2.6" + nopt: "npm:^10.0.0" + proc-log: "npm:^7.0.0" + semver: "npm:^7.3.5" + tar: "npm:^7.5.4" + tinyglobby: "npm:^0.2.12" + undici: "npm:^8.4.1" + which: "npm:^7.0.0" + bin: + node-gyp: bin/node-gyp.js + checksum: 10c0/424077bc9e9bbe953a8e86db473ba818cbc6a121714008c977fd589e21e5f0c811fbf22faac730dc7182450b5e52df301811d01ae3373898658d999b7710f4e6 + languageName: node + linkType: hard + +"nopt@npm:^10.0.0": + version: 10.0.1 + resolution: "nopt@npm:10.0.1" + dependencies: + abbrev: "npm:^5.0.0" + bin: + nopt: bin/nopt.js + checksum: 10c0/980d89257f9587f3e1f77877ddbf905d6aa3b738ec33e49a4fa1a059a0dd82eb28063982b150654a7ae9de386f2ead60e56172db7d37cf56de545f7392a2a26a + languageName: node + linkType: hard + +"picocolors@npm:^1.1.1": + version: 1.1.1 + resolution: "picocolors@npm:1.1.1" + checksum: 10c0/e2e3e8170ab9d7c7421969adaa7e1b31434f789afb9b3f115f6b96d91945041ac3ceb02e9ec6fe6510ff036bcc0bf91e69a1772edc0b707e12b19c0f2d6bcf58 + languageName: node + linkType: hard + +"picomatch@npm:^4.0.2, picomatch@npm:^4.0.4": + version: 4.0.4 + resolution: "picomatch@npm:4.0.4" + checksum: 10c0/e2c6023372cc7b5764719a5ffb9da0f8e781212fa7ca4bd0562db929df8e117460f00dff3cb7509dacfc06b86de924b247f504d0ce1806a37fac4633081466b0 + languageName: node + linkType: hard + +"postcss@npm:^8.5.3": + version: 8.5.16 + resolution: "postcss@npm:8.5.16" + dependencies: + nanoid: "npm:^3.3.12" + picocolors: "npm:^1.1.1" + source-map-js: "npm:^1.2.1" + checksum: 10c0/625de7a02f662f3a340964d14b487bd5097adf16f5f171e257d19005ba37aea8768ee446557500e88e91ca46b4d14d6cb4a0bf033c6ec0c8c0b660d85719f1ef + languageName: node + linkType: hard + +"proc-log@npm:^7.0.0": + version: 7.0.0 + resolution: "proc-log@npm:7.0.0" + checksum: 10c0/b89c2d862604f35fec795477b0c7e376feab3ba0d4f4d291c4e959567442697cf451ac557d0623c1cc38af45a78128b983410f397a10c5d3a67f76c33de4754b + languageName: node + linkType: hard + +"process@npm:^0.11.10": + version: 0.11.10 + resolution: "process@npm:0.11.10" + checksum: 10c0/40c3ce4b7e6d4b8c3355479df77aeed46f81b279818ccdc500124e6a5ab882c0cc81ff7ea16384873a95a74c4570b01b120f287abbdd4c877931460eca6084b3 + languageName: node + linkType: hard + +"querystringify@npm:^2.1.1": + version: 2.2.0 + resolution: "querystringify@npm:2.2.0" + checksum: 10c0/3258bc3dbdf322ff2663619afe5947c7926a6ef5fb78ad7d384602974c467fadfc8272af44f5eb8cddd0d011aae8fabf3a929a8eee4b86edcc0a21e6bd10f9aa + languageName: node + linkType: hard + +"requires-port@npm:^1.0.0": + version: 1.0.0 + resolution: "requires-port@npm:1.0.0" + checksum: 10c0/b2bfdd09db16c082c4326e573a82c0771daaf7b53b9ce8ad60ea46aa6e30aaf475fe9b164800b89f93b748d2c234d8abff945d2551ba47bf5698e04cd7713267 + languageName: node + linkType: hard + +"rollup@npm:^4.34.9": + version: 4.60.1 + resolution: "rollup@npm:4.60.1" + dependencies: + "@rollup/rollup-android-arm-eabi": "npm:4.60.1" + "@rollup/rollup-android-arm64": "npm:4.60.1" + "@rollup/rollup-darwin-arm64": "npm:4.60.1" + "@rollup/rollup-darwin-x64": "npm:4.60.1" + "@rollup/rollup-freebsd-arm64": "npm:4.60.1" + "@rollup/rollup-freebsd-x64": "npm:4.60.1" + "@rollup/rollup-linux-arm-gnueabihf": "npm:4.60.1" + "@rollup/rollup-linux-arm-musleabihf": "npm:4.60.1" + "@rollup/rollup-linux-arm64-gnu": "npm:4.60.1" + "@rollup/rollup-linux-arm64-musl": "npm:4.60.1" + "@rollup/rollup-linux-loong64-gnu": "npm:4.60.1" + "@rollup/rollup-linux-loong64-musl": "npm:4.60.1" + "@rollup/rollup-linux-ppc64-gnu": "npm:4.60.1" + "@rollup/rollup-linux-ppc64-musl": "npm:4.60.1" + "@rollup/rollup-linux-riscv64-gnu": "npm:4.60.1" + "@rollup/rollup-linux-riscv64-musl": "npm:4.60.1" + "@rollup/rollup-linux-s390x-gnu": "npm:4.60.1" + "@rollup/rollup-linux-x64-gnu": "npm:4.60.1" + "@rollup/rollup-linux-x64-musl": "npm:4.60.1" + "@rollup/rollup-openbsd-x64": "npm:4.60.1" + "@rollup/rollup-openharmony-arm64": "npm:4.60.1" + "@rollup/rollup-win32-arm64-msvc": "npm:4.60.1" + "@rollup/rollup-win32-ia32-msvc": "npm:4.60.1" + "@rollup/rollup-win32-x64-gnu": "npm:4.60.1" + "@rollup/rollup-win32-x64-msvc": "npm:4.60.1" + "@types/estree": "npm:1.0.8" + fsevents: "npm:~2.3.2" + dependenciesMeta: + "@rollup/rollup-android-arm-eabi": + optional: true + "@rollup/rollup-android-arm64": + optional: true + "@rollup/rollup-darwin-arm64": + optional: true + "@rollup/rollup-darwin-x64": + optional: true + "@rollup/rollup-freebsd-arm64": + optional: true + "@rollup/rollup-freebsd-x64": + optional: true + "@rollup/rollup-linux-arm-gnueabihf": + optional: true + "@rollup/rollup-linux-arm-musleabihf": + optional: true + "@rollup/rollup-linux-arm64-gnu": + optional: true + "@rollup/rollup-linux-arm64-musl": + optional: true + "@rollup/rollup-linux-loong64-gnu": + optional: true + "@rollup/rollup-linux-loong64-musl": + optional: true + "@rollup/rollup-linux-ppc64-gnu": + optional: true + "@rollup/rollup-linux-ppc64-musl": + optional: true + "@rollup/rollup-linux-riscv64-gnu": + optional: true + "@rollup/rollup-linux-riscv64-musl": + optional: true + "@rollup/rollup-linux-s390x-gnu": + optional: true + "@rollup/rollup-linux-x64-gnu": + optional: true + "@rollup/rollup-linux-x64-musl": + optional: true + "@rollup/rollup-openbsd-x64": + optional: true + "@rollup/rollup-openharmony-arm64": + optional: true + "@rollup/rollup-win32-arm64-msvc": + optional: true + "@rollup/rollup-win32-ia32-msvc": + optional: true + "@rollup/rollup-win32-x64-gnu": + optional: true + "@rollup/rollup-win32-x64-msvc": + optional: true + fsevents: + optional: true + bin: + rollup: dist/bin/rollup + checksum: 10c0/48d3f2216b5533639b007e6756e2275c7f594e45adee21ce03674aa2e004406c661f8b86c7a0b471c9e889c6a9efbb29240ca0b7673c50e391406c490c309833 + languageName: node + linkType: hard + +"semver@npm:^7.3.5": + version: 7.8.5 + resolution: "semver@npm:7.8.5" + bin: + semver: bin/semver.js + checksum: 10c0/b1f3127a5be8125a94f37188b361c212466c292c6910adce3ec106cff5dc211ccaedc4739c11bb70fda59d6fc1f040a9bca289f4e093451521a2372e5231fe0c + languageName: node + linkType: hard + +"source-map-js@npm:^1.2.1": + version: 1.2.1 + resolution: "source-map-js@npm:1.2.1" + checksum: 10c0/7bda1fc4c197e3c6ff17de1b8b2c20e60af81b63a52cb32ec5a5d67a20a7d42651e2cb34ebe93833c5a2a084377e17455854fee3e21e7925c64a51b6a52b0faf + languageName: node + linkType: hard + +"string-template@npm:~0.2.0": + version: 0.2.1 + resolution: "string-template@npm:0.2.1" + checksum: 10c0/5dc9bd8741e50aaf1ebb616c64fdada32301dc52718692a7a13088285b96fecd1010ab612b348ef29c08dff4df4f96c8e80689ca855a578d01cc182e48199182 + languageName: node + linkType: hard + +"tar@npm:^7.5.4": + version: 7.5.19 + resolution: "tar@npm:7.5.19" + dependencies: + "@isaacs/fs-minipass": "npm:^4.0.0" + chownr: "npm:^3.0.0" + minipass: "npm:^7.1.2" + minizlib: "npm:^3.1.0" + yallist: "npm:^5.0.0" + checksum: 10c0/7022e8cb04a8ceccc0689f2c731743fa2aab2e3c3f559f7dbc37b65ef7d5913049b427284eded2ec0765c5db5ff72dd7939fe2ae15785ff422cef2116c95d798 + languageName: node + linkType: hard + +"tinyglobby@npm:^0.2.12": + version: 0.2.17 + resolution: "tinyglobby@npm:0.2.17" + dependencies: + fdir: "npm:^6.5.0" + picomatch: "npm:^4.0.4" + checksum: 10c0/7f7bb0f197c88bc4b20c231e0deca4240ca3bf313a88f5a7fee93a872b84966a4d50220947c0455ad07a60b3b360961c5b7fd979222aeb716a9f99b412002e4c + languageName: node + linkType: hard + +"tinyglobby@npm:^0.2.13": + version: 0.2.16 + resolution: "tinyglobby@npm:0.2.16" + dependencies: + fdir: "npm:^6.5.0" + picomatch: "npm:^4.0.4" + checksum: 10c0/f2e09fd93dd95c41e522113b686ff6f7c13020962f8698a864a257f3d7737599afc47722b7ab726e12f8a813f779906187911ff8ee6701ede65072671a7e934b + languageName: node + linkType: hard + +"toggle-selection@npm:^1.0.6": + version: 1.0.6 + resolution: "toggle-selection@npm:1.0.6" + checksum: 10c0/f2cf1f2c70f374fd87b0cdc8007453ba9e981c4305a8bf4eac10a30e62ecdfd28bca7d18f8f15b15a506bf8a7bfb20dbe3539f0fcf2a2c8396c1a78d53e1f179 + languageName: node + linkType: hard + +"undici@npm:^8.4.1": + version: 8.6.0 + resolution: "undici@npm:8.6.0" + checksum: 10c0/1d3c72ab9712fe242e30dadcf539aa990b3848308af360f3a09336d1d27f8c8e896db3c5483ac002494f609f17976bc83bb4eaf5bbb5eb7878d801219ec1ae15 + languageName: node + linkType: hard + +"url-parse@npm:^1.5.10": + version: 1.5.10 + resolution: "url-parse@npm:1.5.10" + dependencies: + querystringify: "npm:^2.1.1" + requires-port: "npm:^1.0.0" + checksum: 10c0/bd5aa9389f896974beb851c112f63b466505a04b4807cea2e5a3b7092f6fbb75316f0491ea84e44f66fed55f1b440df5195d7e3a8203f64fcefa19d182f5be87 + languageName: node + linkType: hard + +"virtual-dom@npm:^2.1.1": + version: 2.1.1 + resolution: "virtual-dom@npm:2.1.1" + dependencies: + browser-split: "npm:0.0.1" + error: "npm:^4.3.0" + ev-store: "npm:^7.0.0" + global: "npm:^4.3.0" + is-object: "npm:^1.0.1" + next-tick: "npm:^0.2.2" + x-is-array: "npm:0.1.0" + x-is-string: "npm:0.1.0" + checksum: 10c0/15b89e0ae3d259a190c0489c74b3119f10e93fe55d108f394749a1a324e413e22fbc98710538b31cfaafbedd2ab0ff5379c61790e20778b923e33375f47d3cfb + languageName: node + linkType: hard + +"vite@npm:^6.4.3": + version: 6.4.3 + resolution: "vite@npm:6.4.3" dependencies: - browser-split "0.0.1" - error "^4.3.0" - ev-store "^7.0.0" - global "^4.3.0" - is-object "^1.0.1" - next-tick "^0.2.2" - x-is-array "0.1.0" - x-is-string "0.1.0" - -vite@^6.4.3: - version "6.4.3" - resolved "https://registry.yarnpkg.com/vite/-/vite-6.4.3.tgz#85a164db7ce706f2a776812efa2b340f1721858e" - integrity sha512-NTKlcQjlAK7MlQoyb6LgaqHc8sso/pVyUJYWMws3jg21uTJw/LddqIFPcPqP6PzpgbIcZyKI85sFE4HBrQDA8A== + esbuild: "npm:^0.25.0" + fdir: "npm:^6.4.4" + fsevents: "npm:~2.3.3" + picomatch: "npm:^4.0.2" + postcss: "npm:^8.5.3" + rollup: "npm:^4.34.9" + tinyglobby: "npm:^0.2.13" + peerDependencies: + "@types/node": ^18.0.0 || ^20.0.0 || >=22.0.0 + jiti: ">=1.21.0" + less: "*" + lightningcss: ^1.21.0 + sass: "*" + sass-embedded: "*" + stylus: "*" + sugarss: "*" + terser: ^5.16.0 + tsx: ^4.8.1 + yaml: ^2.4.2 + dependenciesMeta: + fsevents: + optional: true + peerDependenciesMeta: + "@types/node": + optional: true + jiti: + optional: true + less: + optional: true + lightningcss: + optional: true + sass: + optional: true + sass-embedded: + optional: true + stylus: + optional: true + sugarss: + optional: true + terser: + optional: true + tsx: + optional: true + yaml: + optional: true + bin: + vite: bin/vite.js + checksum: 10c0/23ce22e50d5c7a87321f04b155c5bc3cf915e34e6c40918975741ed5e8b0c257039a643f1bc1cd829ee814ad92a138704e82084b7ebe40b399a62d8effea630c + languageName: node + linkType: hard + +"which@npm:^7.0.0": + version: 7.0.0 + resolution: "which@npm:7.0.0" dependencies: - esbuild "^0.25.0" - fdir "^6.4.4" - picomatch "^4.0.2" - postcss "^8.5.3" - rollup "^4.34.9" - tinyglobby "^0.2.13" - optionalDependencies: - fsevents "~2.3.3" - -x-is-array@0.1.0: - version "0.1.0" - resolved "https://registry.yarnpkg.com/x-is-array/-/x-is-array-0.1.0.tgz#de520171d47b3f416f5587d629b89d26b12dc29d" - integrity sha512-goHPif61oNrr0jJgsXRfc8oqtYzvfiMJpTqwE7Z4y9uH+T3UozkGqQ4d2nX9mB9khvA8U2o/UbPOFjgC7hLWIA== - -x-is-string@0.1.0: - version "0.1.0" - resolved "https://registry.yarnpkg.com/x-is-string/-/x-is-string-0.1.0.tgz#474b50865af3a49a9c4657f05acd145458f77d82" - integrity sha512-GojqklwG8gpzOVEVki5KudKNoq7MbbjYZCbyWzEz7tyPA7eleiE0+ePwOWQQRb5fm86rD3S8Tc0tSFf3AOv50w== - -xtend@~4.0.0: - version "4.0.2" - resolved "https://registry.yarnpkg.com/xtend/-/xtend-4.0.2.tgz#bb72779f5fa465186b1f438f674fa347fdb5db54" - integrity sha512-LKYU1iAXJXUgAXn9URjiu+MWhyUXHsvfp7mcuYm9dSUKK0/CjtrUwFAxD82/mCWbtLsGjFIad0wIsod4zrTAEQ== + isexe: "npm:^4.0.0" + bin: + node-which: bin/which.js + checksum: 10c0/ca0b54f198f78bbc4b7c02e34bda8d335cb352e0adb4cbca1c37b1a957af3a879a82c4c27ca6525bc942f548d8b64f816ef6528360af9f3de55ffb9b979b620d + languageName: node + linkType: hard + +"x-is-array@npm:0.1.0": + version: 0.1.0 + resolution: "x-is-array@npm:0.1.0" + checksum: 10c0/b559d9acfdffb3ea6c31e07b152439df2e85d98cc674846ccb785a003ff597bd3e31475d50eda62296c1503284c69c00bbb1f1dd5b3958b32aa72ea26099c42c + languageName: node + linkType: hard + +"x-is-string@npm:0.1.0": + version: 0.1.0 + resolution: "x-is-string@npm:0.1.0" + checksum: 10c0/1ec001229eb17ac5c08c5bfb03c6d6e415306a6e923c0dbcadc5cb655b6008f61d50f29fcf610c9527bcbb9df40db82fb3cc9aefcb575898fba2affa17864f1c + languageName: node + linkType: hard + +"xtend@npm:~4.0.0": + version: 4.0.2 + resolution: "xtend@npm:4.0.2" + checksum: 10c0/366ae4783eec6100f8a02dff02ac907bf29f9a00b82ac0264b4d8b832ead18306797e283cf19de776538babfdcb2101375ec5646b59f08c52128ac4ab812ed0e + languageName: node + linkType: hard + +"yallist@npm:^5.0.0": + version: 5.0.0 + resolution: "yallist@npm:5.0.0" + checksum: 10c0/a499c81ce6d4a1d260d4ea0f6d49ab4da09681e32c3f0472dee16667ed69d01dae63a3b81745a24bd78476ec4fcf856114cb4896ace738e01da34b2c42235416 + languageName: node + linkType: hard From c336e205a3abf8e26ccde18ee29db389f6f7e3ae Mon Sep 17 00:00:00 2001 From: tiye Date: Fri, 3 Jul 2026 19:46:00 +0800 Subject: [PATCH 2/3] format program --- calcit.cirru | 408 ++++++++++++++++++++++++++++++--------------------- 1 file changed, 240 insertions(+), 168 deletions(-) diff --git a/calcit.cirru b/calcit.cirru index 64bf9c3..2039b8a 100644 --- a/calcit.cirru +++ b/calcit.cirru @@ -1,46 +1,50 @@ -{} (:package |app) - :configs $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!) (:storage-key |calcit.cirru) +{} (:about "|Machine-generated snapshot. Do not edit directly — changes will be overwritten. Use `cr query` to inspect and `cr edit`/`cr tree` to modify. Run `cr docs agents --full` first. Manual edits must follow format and schema conventions, then run `cr edit format`.") (:package |app) + :configs $ {} (:init-fn |app.client/main!) (:reload-fn |app.client/reload!) (:version |0.0.0) :modules $ [] |respo.calcit/ |lilac/ |recollect/ |memof/ |respo-ui.calcit/ |ws-edn.calcit/ |cumulo-util.calcit/ |respo-message.calcit/ |cumulo-reel.calcit/ |respo-feather.calcit/ |alerts.calcit/ :entries $ {} - :server $ {} (:init-fn |app.server/main!) (:port 6001) (:reload-fn |app.server/reload!) (:storage-key |calcit.cirru) + :server $ {} (:init-fn |app.server/main!) (:reload-fn |app.server/reload!) (:version |0.0.0) :modules $ [] |lilac/ |recollect/ |memof/ |ws-edn.calcit/ |cumulo-util.calcit/ |cumulo-reel.calcit/ |calcit-wss/ |calcit.std/ :files $ {} |app.client $ %{} :FileEntry :defs $ {} - |*states $ %{} :CodeEntry (:doc |) + |*states $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defatom *states $ {} :states $ {} :cursor $ [] - |*store $ %{} :CodeEntry (:doc |) + :examples $ [] + |*store $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote (defatom *store nil) - |connect! $ %{} :CodeEntry (:doc |) + :examples $ [] + |connect! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn connect! () $ let url-obj $ url-parse js/location.href true host $ either (-> url-obj .-query .-host) js/location.hostname port $ either (-> url-obj .-query .-port) (:port config/site) - ws-connect! (str "\"ws://" host "\":" port) + ws-connect! (str |ws:// host |: port) {} :on-open $ fn (event) (simulate-login!) - :on-close $ fn (event) (reset! *store nil) (js/console.error "\"Lost connection!") + :on-close $ fn (event) (reset! *store nil) (js/console.error "|Lost connection!") :on-data on-server-data - |dispatch! $ %{} :CodeEntry (:doc |) + :examples $ [] + |dispatch! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn dispatch! (op) when and config/dev? $ not= (nth op 0) :states - js/console.log "\"Dispatch" op + js/console.log |Dispatch op tag-match op - :states cursor s + (:states cursor s) reset! *states $ update-states @*states cursor s (:effect/connect) (connect!) _ $ ws-send! op - |main! $ %{} :CodeEntry (:doc |) + :examples $ [] + |main! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn main! () - println "\"Running mode:" $ if config/dev? "\"dev" "\"release" + println "|Running mode:" $ if config/dev? |dev |release if config/dev? $ load-console-formatter! render-app! connect! @@ -48,41 +52,47 @@ add-watch *states :changes $ fn (states prev) (render-app!) on-page-touch $ fn () if (nil? @*store) (connect!) - println "\"App started!" - |mount-target $ %{} :CodeEntry (:doc |) + println "|App started!" + :examples $ [] + |mount-target $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - def mount-target $ js/document.querySelector "\".app" - |on-server-data $ %{} :CodeEntry (:doc |) + def mount-target $ js/document.querySelector |.app + :examples $ [] + |on-server-data $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn on-server-data (data) - tag-match data $ + tag-match data $ :patch changes do - when config/dev? $ js/console.log "\"Changes" changes + when config/dev? $ js/console.log |Changes changes reset! *store $ patch-twig @*store changes - |reload! $ %{} :CodeEntry (:doc |) + :examples $ [] + |reload! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn reload! () $ if or (some? client-errors) (some? server-errors) - hud! "\"error" $ str client-errors &newline server-errors - do (hud! "\"inactive" nil) (remove-watch *store :changes) (remove-watch *states :changes) (clear-cache!) (render-app!) + hud! |error $ str client-errors &newline server-errors + do (hud! |inactive nil) (remove-watch *store :changes) (remove-watch *states :changes) (clear-cache!) (render-app!) add-watch *store :changes $ fn (store prev) (render-app!) add-watch *states :changes $ fn (states prev) (render-app!) - println "\"Code updated." - |render-app! $ %{} :CodeEntry (:doc |) + println "|Code updated." + :examples $ [] + |render-app! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn render-app! () $ render! mount-target comp-container (:states @*states) @*store , dispatch! - |simulate-login! $ %{} :CodeEntry (:doc |) + :examples $ [] + |simulate-login! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn simulate-login! () $ let raw $ .!getItem js/localStorage (:storage-key config/site) if (some? raw) - do (println "\"Found storage.") + do (println "|Found storage.") dispatch! $ :: :user/log-in (parse-cirru-edn raw) - do $ println "\"Found no storage." - :ns $ %{} :CodeEntry (:doc |) + do $ println "|Found no storage." + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.client $ :require respo.core :refer $ render! clear-cache! realize-ssr! @@ -93,26 +103,26 @@ ws-edn.client :refer $ ws-connect! ws-send! recollect.patch :refer $ patch-twig cumulo-util.core :refer $ on-page-touch - "\"url-parse" :default url-parse - "\"bottom-tip" :default hud! - "\"./calcit.build-errors" :default client-errors - "\"../js-out/calcit.build-errors" :default server-errors + |url-parse :default url-parse + |bottom-tip :default hud! + |./calcit.build-errors :default client-errors + |../js-out/calcit.build-errors :default server-errors |app.comp.container $ %{} :FileEntry :defs $ {} - |comp-container $ %{} :CodeEntry (:doc |) + |comp-container $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-container (states store) let cursor $ [] state $ or (:data states) - {} $ :query "\"" + {} $ :query | session $ :session store router $ :router store router-data $ :data router if (nil? store) (comp-offline) div {} $ :style - merge ui/global ui/fullscreen ui/column $ {} (:background-color "\"hsl(0,0%,96%)") + merge ui/global ui/fullscreen ui/column $ {} (:background-color "|hsl(0,0%,96%)") comp-navigation (:logged-in? store) (:count store) (:query state) cursor if (:logged-in? store) case (:name router) @@ -131,7 +141,8 @@ {} fn (info d!) (d! :session/remove-message info) when dev? $ comp-reel (:reel-length store) ({}) - |comp-offline $ %{} :CodeEntry (:doc |) + :examples $ [] + |comp-offline $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-offline () $ div {} $ :style @@ -141,26 +152,29 @@ :style $ {} (:height 0) div $ {} :style $ {} - :background-image $ str "\"url(" (:icon config/site) "\")" + :background-image $ str "|url(" (:icon config/site) "|)" :width 128 :height 128 :background-size :contain div {} - :style $ {} (:cursor :pointer) (:line-height "\"32px") + :style $ {} (:cursor :pointer) (:line-height |32px) :on-click $ fn (e d!) (d! :effect/connect nil) - <> "\"No connection..." $ {} (:font-family ui/font-fancy) (:font-size 24) - |comp-status-color $ %{} :CodeEntry (:doc |) + <> "|No connection..." $ {} (:font-family ui/font-fancy) (:font-size 24) + :examples $ [] + |comp-status-color $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-status-color (color) div $ {} :style $ let size 24 - {} (:width size) (:height size) (:position :absolute) (:bottom 60) (:left 8) (:background-color color) (:border-radius "\"50%") (:opacity 0.6) (:pointer-events :none) - |style-body $ %{} :CodeEntry (:doc |) + {} (:width size) (:height size) (:position :absolute) (:bottom 60) (:left 8) (:background-color color) (:border-radius |50%) (:opacity 0.6) (:pointer-events :none) + :examples $ [] + |style-body $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def style-body $ {} (:padding "|8px 16px") - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.container $ :require [] hsl.core :refer $ [] hsl @@ -181,7 +195,7 @@ [] app.comp.list :refer $ [] comp-list |app.comp.dialog $ %{} :FileEntry :defs $ {} - |comp-dialog $ %{} :CodeEntry (:doc |) + |comp-dialog $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-dialog (on-close! child-node) assert (fn? on-close!) "|on-close! should be a function" @@ -197,7 +211,8 @@ :style $ {} (:padding 16) (:background-color :white) :on-click $ fn (e d! m!) , child-node - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.dialog $ :require [] hsl.core :refer $ [] hsl @@ -207,7 +222,7 @@ [] respo.comp.space :refer $ [] =< |app.comp.editor $ %{} :FileEntry :defs $ {} - |comp-editor $ %{} :CodeEntry (:doc |) + |comp-editor $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-editor (states snippet) let @@ -226,15 +241,17 @@ :value $ :title state :placeholder |Title :on-input $ fn (e d!) - d! cursor $ assoc state :title $ assert-type (:value e) :any + d! cursor $ assoc state :title + assert-type (:value e) :any =< nil 16 textarea $ {} :style $ merge style/textarea - {} (:min-width 720) (:min-height 400) (:font-family ui/font-code) (:font-size 12) (:line-height "\"16px") + {} (:min-width 720) (:min-height 400) (:font-family ui/font-code) (:font-size 12) (:line-height |16px) :placeholder |Content :value $ :content state :on-input $ fn (e d!) - d! cursor $ assoc state :content $ assert-type (:value e) :any + d! cursor $ assoc state :content + assert-type (:value e) :any =< nil 16 div {} $ :style @@ -249,7 +266,8 @@ d! cursor nil d! :router/change $ {} (:name :home) span $ {} - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.editor $ :require [] hsl.core :refer $ [] hsl @@ -259,7 +277,7 @@ [] app.style :as style |app.comp.empty $ %{} :FileEntry :defs $ {} - |comp-empty $ %{} :CodeEntry (:doc |) + |comp-empty $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-empty (router) div @@ -270,7 +288,8 @@ :font-weight 300 :font-size 32 <> $ str "|Missing page: " (pr-str router) - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.empty $ :require [] hsl.core :refer $ [] hsl @@ -279,7 +298,7 @@ [] respo.comp.space :refer $ [] =< |app.comp.list $ %{} :FileEntry :defs $ {} - |comp-card $ %{} :CodeEntry (:doc |) + |comp-card $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-card (states snippet) let @@ -287,7 +306,7 @@ state $ or (:data states) {} $ :hint? false remove-plugin $ use-confirm (>> states :remove) - {} $ :text "\"Sure to remove?" + {} $ :text "|Sure to remove?" div {} $ :style style-card div @@ -300,7 +319,7 @@ x $ :copied-times snippet when and (number? x) (> x 0) - <> (str "\"(" x "\")") + <> (str "|(" x "|)") {} (:font-size 12) :color $ hsl 0 0 80 =< 8 nil @@ -334,10 +353,11 @@ :background-color $ hsl 0 0 0 0.5 :color :white :font-family ui/font-fancy - :padding "\"0 8px" - <> "\"Copied" + :padding "|0 8px" + <> |Copied .render remove-plugin - |comp-list $ %{} :CodeEntry (:doc |) + :examples $ [] + |comp-list $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-list (states snippets query) if (empty? snippets) (comp-no-snippets) @@ -347,17 +367,18 @@ -> snippets (.to-list) .filter-pair $ fn (k snippet) .includes? - .!toLowerCase $ or (:title snippet) "\"" + .!toLowerCase $ or (:title snippet) | or - .!toLowerCase $ or query "\"" - , "\"" + .!toLowerCase $ or query | + , | .sort-by $ fn (pair) negate $ :copied-times (last pair) .map-pair $ fn (k snippet) [] k $ comp-card >> states $ :id snippet , snippet - |comp-no-snippets $ %{} :CodeEntry (:doc |) + :examples $ [] + |comp-no-snippets $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-no-snippets () $ div {} $ :style @@ -366,29 +387,33 @@ :padding 16 :font-size 20 <> "|No snippets" - |style-card $ %{} :CodeEntry (:doc |) + :examples $ [] + |style-card $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def style-card $ {} (:white-space :nowrap) (:text-overflow :ellipsis) (:overflow :hidden) (:line-height |24px) (:width 400) (:cursor :pointer) (:margin-right 16) (:margin-top 16) (:position :relative) - |style-code-area $ %{} :CodeEntry (:doc |) + :examples $ [] + |style-code-area $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def style-code-area $ {} (:margin 0) :color $ hsl 0 0 50 :padding 8 :padding-top 40 :font-size 12 - :border $ str "\"1px solid " (hsl 0 0 90) + :border $ str "|1px solid " (hsl 0 0 90) :height 320 :overflow :auto - :line-height "\"18px" + :line-height |18px :font-family ui/font-code :background-color :white - |style-toolbar $ %{} :CodeEntry (:doc |) + :examples $ [] + |style-toolbar $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def style-toolbar $ merge ui/row-parted - {} (:width "\"100%") (:position :absolute) (:top 0) (:padding 8) + {} (:width |100%) (:position :absolute) (:top 0) (:padding 8) :background-color $ hsl 0 0 100 0.8 - :border $ str "\"1px solid " (hsl 0 0 90) - :ns $ %{} :CodeEntry (:doc |) + :border $ str "|1px solid " (hsl 0 0 90) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.list $ :require [] respo-ui.core :refer $ [] hsl @@ -397,11 +422,11 @@ [] respo.comp.space :refer $ [] =< [] respo.comp.inspect :refer $ [] comp-inspect [] feather.core :refer $ [] comp-icon comp-i - [] "\"copy-to-clipboard" :default copy + [] |copy-to-clipboard :default copy respo-alerts.core :refer $ use-confirm |app.comp.login $ %{} :FileEntry :defs $ {} - |comp-login $ %{} :CodeEntry (:doc |) + |comp-login $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-login (states) let @@ -417,14 +442,16 @@ :value $ :username state :style ui/input :on-input $ fn (e d!) - d! cursor $ assoc state :username $ assert-type (:value e) :any + d! cursor $ assoc state :username + assert-type (:value e) :any =< nil 8 div ({}) input $ {} (:placeholder |Password) :value $ :password state :style ui/input :on-input $ fn (e d!) - d! cursor $ assoc state :password $ assert-type (:value e) :any + d! cursor $ assoc state :password + assert-type (:value e) :any =< nil 8 div {} $ :style @@ -436,17 +463,20 @@ span $ {} (:inner-text "|Log in") :style $ merge style/link :on-click $ on-submit (:username state) (:password state) false - |initial-state $ %{} :CodeEntry (:doc |) + :examples $ [] + |initial-state $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def initial-state $ {} (:username |) (:password |) - |on-submit $ %{} :CodeEntry (:doc |) + :examples $ [] + |on-submit $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn on-submit (username password signup?) fn (e dispatch!) dispatch! (if signup? :user/sign-up :user/log-in) ([] username password) js/localStorage.setItem (:storage-key config/site) format-cirru-edn $ [] username password - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.login $ :require [] respo.core :refer $ [] defcomp <> div input button span @@ -458,7 +488,7 @@ [] app.config :as config |app.comp.navigation $ %{} :FileEntry :defs $ {} - |comp-navigation $ %{} :CodeEntry (:doc |) + |comp-navigation $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-navigation (logged-in? count-members query parent-cursor) div @@ -485,7 +515,7 @@ :style $ merge ui/input {} $ :width 320 :value query - :placeholder "\"Filter..." + :placeholder |Filter... :on-input $ fn (e d!) d! parent-cursor $ {} :query $ :value e @@ -497,7 +527,8 @@ <> $ if logged-in? |Me |Guest =< 8 nil <> count-members - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.navigation $ :require [] respo-ui.core :refer $ [] hsl @@ -508,7 +539,7 @@ [] feather.core :refer $ [] comp-i |app.comp.profile $ %{} :FileEntry :defs $ {} - |comp-profile $ %{} :CodeEntry (:doc |) + |comp-profile $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defcomp comp-profile (user members) div @@ -521,7 +552,7 @@ =< nil 16 div {} $ :style ui/row - <> "\"Members:" + <> |Members: =< 8 nil list-> {} $ :style ui/row @@ -529,10 +560,10 @@ .map-pair $ fn (k username) [] k $ div {} $ :style - {} (:padding "\"0 8px") - :border $ str "\"1px solid " (hsl 0 0 80) - :border-radius "\"16px" - :margin "\"0 4px" + {} (:padding "|0 8px") + :border $ str "|1px solid " (hsl 0 0 80) + :border-radius |16px + :margin "|0 4px" <> username =< nil 48 div ({}) @@ -540,8 +571,8 @@ {} :style $ merge ui/button :on-click $ fn (e d! m!) - js/location.replace $ str js/location.origin "\"?time=" (.now js/Date) - <> "\"Refresh" + js/location.replace $ str js/location.origin |?time= (.now js/Date) + <> |Refresh =< 8 nil button {} @@ -549,8 +580,9 @@ {} (:color :red) (:border-color :red) :on-click $ fn (e dispatch!) (dispatch! :user/log-out nil) js/localStorage.removeItem $ :storage-key config/site - <> "\"Log out" - :ns $ %{} :CodeEntry (:doc |) + <> "|Log out" + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.comp.profile $ :require [] respo-ui.core :refer $ [] hsl @@ -561,98 +593,114 @@ [] app.config :as config |app.config $ %{} :FileEntry :defs $ {} - |dev? $ %{} :CodeEntry (:doc |) + |dev? $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - def dev? $ = "\"dev" (get-env "\"mode" "\"release") - |site $ %{} :CodeEntry (:doc |) + def dev? $ = |dev (get-env |mode |release) + :examples $ [] + |site $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - def site $ {} (:storage-key "\"copycat") (:storage-file "\"copycat.cirru") (:port 11012) (:title "\"Copycat") (:icon "\"http://cdn.tiye.me/logo/copycat.png") (:theme "\"#eeeeff") - :ns $ %{} :CodeEntry (:doc |) + def site $ {} (:storage-key |copycat) (:storage-file |copycat.cirru) (:port 11012) (:title |Copycat) (:icon |http://cdn.tiye.me/logo/copycat.png) (:theme |#eeeeff) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.config $ :require [] app.util :refer $ [] get-env! |app.schema $ %{} :FileEntry :defs $ {} - |database $ %{} :CodeEntry (:doc |) + |database $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def database $ {} :sessions $ {} :users $ {} :snippets $ do snippet ({}) - |notification $ %{} :CodeEntry (:doc |) + :examples $ [] + |notification $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def notification $ {} (:id nil) (:kind nil) (:text nil) - |router $ %{} :CodeEntry (:doc |) + :examples $ [] + |router $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def router $ {} (:name nil) (:title nil) :data $ {} :router nil - |session $ %{} :CodeEntry (:doc |) + :examples $ [] + |session $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def session $ {} (:user-id nil) (:id nil) (:nickname nil) :router $ {} (:name :home) (:data nil) (:router nil) :messages $ {} - |snippet $ %{} :CodeEntry (:doc |) + :examples $ [] + |snippet $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - def snippet $ {} (:id nil) (:title "\"") (:content "\"") (:edited-at nil) (:copied-times 0) - |user $ %{} :CodeEntry (:doc |) + def snippet $ {} (:id nil) (:title |) (:content |) (:edited-at nil) (:copied-times 0) + :examples $ [] + |user $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def user $ {} (:name nil) (:id nil) (:nickname nil) (:avatar nil) (:password nil) - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote (ns app.schema) |app.server $ %{} :FileEntry :defs $ {} - |*client-caches $ %{} :CodeEntry (:doc |) + |*client-caches $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defatom *client-caches $ {} - |*initial-db $ %{} :CodeEntry (:doc |) + :examples $ [] + |*initial-db $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defatom *initial-db $ if path-exists? $ w-log storage-file - do (println "\"Found local EDN data") + do (println "|Found local EDN data") merge schema/database $ parse-cirru-edn (read-file storage-file) - do (println "\"Found no data") schema/database - |*reader-reel $ %{} :CodeEntry (:doc |) + do (println "|Found no data") schema/database + :examples $ [] + |*reader-reel $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote (defatom *reader-reel @*reel) - |*reel $ %{} :CodeEntry (:doc |) + :examples $ [] + |*reel $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defatom *reel $ merge reel-schema {} (:base @*initial-db) (:db @*initial-db) - |dispatch! $ %{} :CodeEntry (:doc |) + :examples $ [] + |dispatch! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn dispatch! (op sid) let op-id $ generate-id! op-time $ -> (get-time!) (.timestamp) - if config/dev? $ println "\"Dispatch!" (str op) sid + if config/dev? $ println |Dispatch! (str op) sid if = (nth op 0) :effect/persist persist-db! reset! *reel $ reel-reducer @*reel updater op sid op-id op-time config/dev? - |get-backup-path! $ %{} :CodeEntry (:doc |) + :examples $ [] + |get-backup-path! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn get-backup-path! () $ let now $ .extract (get-time!) - join-path calcit-dirname "\"backups" + join-path calcit-dirname |backups str $ :month now - str (:day now) "\"-snapshot.cirru" - |main! $ %{} :CodeEntry (:doc |) + str (:day now) |-snapshot.cirru + :examples $ [] + |main! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn main! () - println "\"Running mode:" $ if config/dev? "\"dev" "\"release" + println "|Running mode:" $ if config/dev? |dev |release let - p? $ get-env "\"port" + p? $ get-env |port port $ if (some? p?) (parse-float p?) (:port config/site) run-server! port - println $ str "\"Server started on port:" port - do (; "\"init it before doing multi-threading") (identity @*reader-reel) + println $ str "|Server started on port:" port + do (; "|init it before doing multi-threading") (identity @*reader-reel) set-interval 200 $ fn () (render-loop!) set-interval 600000 $ fn () (persist-db!) on-control-c on-exit! - |on-exit! $ %{} :CodeEntry (:doc |) + :examples $ [] + |on-exit! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - defn on-exit! () (persist-db!) (; println "\"exit code is...") (quit! 0) - |persist-db! $ %{} :CodeEntry (:doc |) + defn on-exit! () (persist-db!) (; println "|exit code is...") (quit! 0) + :examples $ [] + |persist-db! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn persist-db! () $ let file-content $ format-cirru-edn @@ -661,43 +709,48 @@ backup-path $ get-backup-path! check-write-file! storage-path file-content check-write-file! backup-path file-content - |reload! $ %{} :CodeEntry (:doc |) + :examples $ [] + |reload! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote - defn reload! () (println "\"Code updated.") - if (not config/dev?) (raise "\"reloading only happens in dev mode") + defn reload! () (println "|Code updated.") + if (not config/dev?) (raise "|reloading only happens in dev mode") clear-twig-caches! reset! *reel $ refresh-reel @*reel @*initial-db updater sync-clients! @*reader-reel - |render-loop! $ %{} :CodeEntry (:doc |) + :examples $ [] + |render-loop! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn render-loop! () $ when not $ identical? @*reader-reel @*reel reset! *reader-reel @*reel sync-clients! @*reader-reel - |run-server! $ %{} :CodeEntry (:doc |) + :examples $ [] + |run-server! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn run-server! (port) wss-serve! (&{} :port port) fn (data) tag-match data - :connect sid + (:connect sid) do dispatch! (:: :session/connect) sid - println "\"New client." + println "|New client." (:message sid msg) let action $ parse-cirru-edn msg dispatch! action sid (:disconnect sid) - do (println "\"Client closed!") + do (println "|Client closed!") dispatch! (:: :session/disconnect) sid - _ $ println "\"unknown data:" data - |storage-file $ %{} :CodeEntry (:doc |) + _ $ println "|unknown data:" data + :examples $ [] + |storage-file $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def storage-file $ if (empty? calcit-dirname) str calcit-dirname $ :storage-file config/site - str calcit-dirname "\"/" $ :storage-file config/site - |sync-clients! $ %{} :CodeEntry (:doc |) + str calcit-dirname |/ $ :storage-file config/site + :examples $ [] + |sync-clients! $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn sync-clients! (reel) wss-each! $ fn (sid) @@ -709,13 +762,14 @@ new-store $ twig-container db session records changes $ diff-twig old-store new-store {} $ :key :id - ; when config/dev? $ println "\"Changes for" sid "\":" changes (count records) + ; when config/dev? $ println "|Changes for" sid |: changes (count records) if not= changes $ [] do wss-send! sid $ format-cirru-edn (:: :patch changes) swap! *client-caches assoc sid new-store - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.server $ :require (app.schema :as schema) app.updater :refer $ updater @@ -732,29 +786,33 @@ calcit.std.path :refer $ join-path |app.style $ %{} :FileEntry :defs $ {} - |button $ %{} :CodeEntry (:doc |) + |button $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def button $ merge ui/button ({}) - |input $ %{} :CodeEntry (:doc |) + :examples $ [] + |input $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def input $ merge ui/input {} $ :width 400 - |link $ %{} :CodeEntry (:doc |) + :examples $ [] + |link $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def link $ {} (:text-decoration :underline) (:cursor :pointer) :color $ hsl 240 80 80 :font-family ui/font-fancy - |textarea $ %{} :CodeEntry (:doc |) + :examples $ [] + |textarea $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote def textarea $ merge ui/textarea - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.style $ :require [] respo-ui.core :refer $ [] hsl [] respo-ui.core :as ui |app.twig.container $ %{} :FileEntry :defs $ {} - |twig-container $ %{} :CodeEntry (:doc |) + |twig-container $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn twig-container (db session records) let @@ -775,34 +833,36 @@ :count $ count (:sessions db) :color $ rand-hex-color! , nil - |twig-members $ %{} :CodeEntry (:doc |) + :examples $ [] + |twig-members $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn twig-members (sessions users) -> sessions (.to-list) .map-pair $ fn (k session) [] k $ get-in users [] (:user-id session) :name - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.twig.container $ :require app.twig.user :refer $ twig-user calcit.std.rand :refer $ rand-hex-color! |app.twig.user $ %{} :FileEntry :defs $ {} - |twig-user $ %{} :CodeEntry (:doc |) + |twig-user $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn twig-user (user) (dissoc user :password) - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.twig.user $ :require |app.updater $ %{} :FileEntry :defs $ {} - |updater $ %{} :CodeEntry (:doc |) + |updater $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn updater (db op sid op-id op-time) tag-match op - :session/connect - session/connect db sid op-id op-time + (:session/connect) (session/connect db sid op-id op-time) (:session/disconnect) (session/disconnect db sid op-id op-time) (:session/remove-message op-data) (session/remove-message db op-data sid op-id op-time) (:user/log-in op-data) (user/log-in db op-data sid op-id op-time) @@ -814,67 +874,76 @@ (:snippet/remove op-data) (snippet/remove-one db op-data sid op-id op-time) (:snippet/count-usage op-data) (snippet/count-usage db op-data sid op-id op-time) _ $ do (eprintln "|Unknown op:" op) db - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.updater $ :require ([] app.updater.session :as session) ([] app.updater.user :as user) ([] app.updater.router :as router) ([] app.updater.snippet :as snippet) ([] app.schema :as schema) [] respo-message.updater :refer $ [] update-messages |app.updater.router $ %{} :FileEntry :defs $ {} - |change $ %{} :CodeEntry (:doc |) + |change $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn change (db op-data sid op-id op-time) assoc-in db ([] :sessions sid :router) op-data - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote (ns app.updater.router) |app.updater.session $ %{} :FileEntry :defs $ {} - |connect $ %{} :CodeEntry (:doc |) + |connect $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn connect (db sid op-id op-time) assoc-in db ([] :sessions sid) merge schema/session $ {} (:id sid) - |disconnect $ %{} :CodeEntry (:doc |) + :examples $ [] + |disconnect $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn disconnect (db sid op-id op-time) update db :sessions $ fn (session) (dissoc session sid) - |remove-message $ %{} :CodeEntry (:doc |) + :examples $ [] + |remove-message $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn remove-message (db op-data sid op-id op-time) update-in db ([] :sessions sid :messages) fn (messages) dissoc messages $ :id op-data - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.updater.session $ :require ([] app.schema :as schema) |app.updater.snippet $ %{} :FileEntry :defs $ {} - |count-usage $ %{} :CodeEntry (:doc |) + |count-usage $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn count-usage (db op-data sid op-id op-time) update-in db ([] :snippets op-data) fn (snippet) (update snippet :copied-times inc) - |create-one $ %{} :CodeEntry (:doc |) + :examples $ [] + |create-one $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn create-one (db op-data sid op-id op-time) assoc-in db ([] :snippets op-id) merge schema/snippet op-data $ {} (:id op-id) (:edited-at op-time) - |remove-one $ %{} :CodeEntry (:doc |) + :examples $ [] + |remove-one $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn remove-one (db op-data sid op-id op-time) update db :snippets $ \ dissoc % op-data - |update-one $ %{} :CodeEntry (:doc |) + :examples $ [] + |update-one $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn update-one (db op-data sid op-id op-time) update-in db [] :snippets $ :id op-data fn (snippet) -> snippet (merge op-data) (assoc :edited-at op-time) - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.updater.snippet $ :require ([] app.schema :as schema) |app.updater.user $ %{} :FileEntry :defs $ {} - |log-in $ %{} :CodeEntry (:doc |) + |log-in $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn log-in (db op-data sid op-id op-time) let-sugar @@ -891,15 +960,17 @@ assoc session :user-id $ :id maybe-user update session :messages $ fn (messages) assoc messages op-id $ {} (:id op-id) - :text $ str "\"Wrong password for " username + :text $ str "|Wrong password for " username update session :messages $ fn (messages) assoc messages op-id $ {} (:id op-id) - :text $ str "\"No user named: " username - |log-out $ %{} :CodeEntry (:doc |) + :text $ str "|No user named: " username + :examples $ [] + |log-out $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn log-out (db op-data sid op-id op-time) assoc-in db ([] :sessions sid :user-id) nil - |sign-up $ %{} :CodeEntry (:doc |) + :examples $ [] + |sign-up $ %{} :CodeEntry (:doc |) (:schema :dynamic) :code $ quote defn sign-up (db op-data sid op-id op-time) let-sugar @@ -913,14 +984,15 @@ update-in db ([] :sessions sid :messages) fn (messages) assoc messages op-id $ {} (:id op-id) - :text $ str "\"Name is taken: " username + :text $ str "|Name is taken: " username -> db assoc-in ([] :sessions sid :user-id) op-id assoc-in ([] :users op-id) {} (:id op-id) (:name username) (:nickname username) :password $ md5 password :avatar nil - :ns $ %{} :CodeEntry (:doc |) + :examples $ [] + :ns $ %{} :NsEntry (:doc |) :code $ quote ns app.updater.user $ :require calcit.std.hash :refer $ md5 From cabb660cad88264c74736c2e5ecf7089c50bdb00 Mon Sep 17 00:00:00 2001 From: tiye Date: Fri, 3 Jul 2026 19:48:50 +0800 Subject: [PATCH 3/3] fix and format actions file --- .github/workflows/upload.yaml | 84 +++++++++++++++++------------------ 1 file changed, 42 insertions(+), 42 deletions(-) diff --git a/.github/workflows/upload.yaml b/.github/workflows/upload.yaml index 6631730..6e7dd9b 100644 --- a/.github/workflows/upload.yaml +++ b/.github/workflows/upload.yaml @@ -10,55 +10,55 @@ jobs: test: runs-on: ubuntu-latest steps: - - uses: actions/checkout@v4 + - uses: actions/checkout@v4 - - uses: actions/setup-node@v6 - with: - node-version: 24 + - uses: actions/setup-node@v6 + with: + node-version: 24 - - name: Enable Corepack - run: | - corepack enable - corepack prepare yarn@4.12.0 --activate - yarn --version + - name: Enable Corepack + run: | + corepack enable + corepack prepare yarn@4.12.0 --activate + yarn --version - - uses: calcit-lang/setup-cr@0.0.9 - with: - version: "0.12.47" + - uses: calcit-lang/setup-cr@0.0.9 + with: + version: "0.12.47" - - run: caps --ci && cr --entry server ir + - run: caps --ci && cr --entry server ir - - run: yarn install --immutable && yarn compile-page && yarn release-page + - run: yarn install --immutable && yarn compile-page && yarn release-page - - run: mkdir -p dist-server && cp compact.cirru dist-server && cp package.json dist-server/ - name: Copy server scripts + - run: mkdir -p dist-server && cp calcit.cirru dist-server && cp package.json dist-server/ + name: Copy server scripts - - name: Upload web assets - id: deploy - uses: Pendect/action-rsyncer@v2.0.0 - env: - DEPLOY_KEY: ${{secrets.rsync_private_key}} - with: - flags: '-avzr --progress' - options: '' - ssh_options: '' - src: 'dist/*' - dest: 'rsync-user@tiye.me:/web-assets/repo/${{ github.repository }}' + - name: Upload web assets + id: deploy + uses: Pendect/action-rsyncer@v2.0.0 + env: + DEPLOY_KEY: ${{secrets.rsync_private_key}} + with: + flags: "-avzr --progress" + options: "" + ssh_options: "" + src: "dist/*" + dest: "rsync-user@tiye.me:/web-assets/repo/${{ github.repository }}" - - name: Display status from deploy - run: echo "${{ steps.deploy.outputs.status }}" + - name: Display status from deploy + run: echo "${{ steps.deploy.outputs.status }}" - - name: Upload server script - id: deploy-server - uses: Pendect/action-rsyncer@v1.1.0 - env: - DEPLOY_KEY: ${{secrets.rsync_private_key}} - with: - flags: '-avzr --progress' - options: '' - ssh_options: '' - src: 'dist-server/*' - dest: 'rsync-user@tiye.me:/servers/paste-sharing/' + - name: Upload server script + id: deploy-server + uses: Pendect/action-rsyncer@v1.1.0 + env: + DEPLOY_KEY: ${{secrets.rsync_private_key}} + with: + flags: "-avzr --progress" + options: "" + ssh_options: "" + src: "dist-server/*" + dest: "rsync-user@tiye.me:/servers/paste-sharing/" - - name: Display status from deploy - run: echo "${{ steps.deploy-server.outputs.status }}" + - name: Display status from deploy + run: echo "${{ steps.deploy-server.outputs.status }}"