defn
prod-page
let
assets
read-string
slurp
"dist/assets.edn
cdn
if
config/cdn?
:cdn-url
config/site
"
prefix-cdn
fn
x
str
cdn
x
make-page
"
merge
base-info
{}
:styles
[]
:release-ui
config/site
:scripts
map
#()
->
%
:output-name
prefix-cdn
assets
:inline-styles
[]
slurp
"./entry/main.css
defn
updater
store
op
op-data
op-id
op-time
case
op
:add-x
update
store
:x
fn
x
if
>
x
10
0
+
x
1
:tab
assoc
store
:tab
op-data
:states
let
[]
cursor
new-state
op-data
assoc-in
store
concat
[]
:states
cursor
[]
:data
new-state
:hydrate-storage
op-data
do
println
"unknown op
op
op-data
store
defcomp
comp-bookmark
bookmark
idx
selected?
div
{}
:class-name
|stack-bookmark
:draggable
true
:on-click
on-pick
bookmark
idx
:on-dragstart
fn
e
d!
m!
->
e
:event
.-dataTransfer
.setData
"id
idx
:on-drop
fn
e
d!
m!
let
target-idx
js/parseInt
->
e
:event
.-dataTransfer
.getData
"id
when
not=
target-idx
idx
d!
:writer/move-order
{}
:from
target-idx
:to
idx
:on-dragover
fn
e
d!
m!
->
e
:event
.preventDefault
case
:kind
bookmark
:def
div
{}
:style
merge
style-bookmark
div
{}
span
{}
:inner-text
:extra
bookmark
:style
merge
style-main
if
selected?
style-highlight
div
{}
:style
ui/row-middle
=<
8
nil
<>
:ns
bookmark
style-minor
div
{}
:style
merge
style-bookmark
{}
:padding
"8px
<>
span
str
:kind
bookmark
style-kind
<>
:ns
bookmark
merge
style-main
if
selected?
style-highlight