$FFFFFFFF new-color, FValue login-bg-col#
$FF000000 $FF0000FF fade-color, FValue pw-err-col#
$000000FF dup text-emoji-color: black-emoji
$000000FF new-color, FValue otr-col#
$FFFFFFFF new-color, FValue chat-col#
$80FFFFFF new-color, FValue chat-bg-col#
$FFFFFFFF new-color, FValue posting-bg-col#
$000000CC new-color, FValue album-bg-col#

: entropy-colorize ( -- )
    prev-text$ erase  addr prev-text$ $free
    edit-w .text$ passphrase-entropy 1e fmin pw-bg-col# f+
    pw-back >o to w-color o> ;
: size-limit ( -- )
    edit-w .text$ nip #800 u> IF

slide-deck Constant default-sd
slide-class new Constant album-sd
album-sd to slide-deck

glue new glue-left !
glue new glue-right !

Variable imgs[]

: >imgs ( o -- o ) dup imgs[] >stack ;

0 Value imgs-box

: swap-images ( -- )
    imgs-box .childs[] dup >r get-stack >r 2swap r> r> set-stack ;

: /mid ( o -- o' ) >r
    {{  glue*wh }}glue
	{{ glue*l }}glue r> /center glue*l }}glue }}v box[] >bl
    }}z box[] ;

{{
    glue*wh album-bg-col# slide-frame dup .button1
    {{
	glue-left @ }}glue
	tex: img0 ' img0 "doc/thumb.png" 0.666e }}image-file drop >imgs
	/mid        dup >slides
	tex: img1 ' img1 "doc/thumb.png" 0.666e }}image-file drop >imgs
	/mid /hflip dup >slides
	tex: img2 ' img2 "doc/thumb.png" 0.666e }}image-file drop >imgs
	/mid /hflip dup >slides
	tex: img3 ' img3 "doc/thumb.png" 0.666e }}image-file drop >imgs
	/mid /hflip dup >slides
	glue-right @ }}glue
    }}h dup to imgs-box
    {{
	{{
	    glue*ll }}glue
	    {{
		s" ❌" }}text 25%b

	    "  " }}text ' next-slide 0 click[]
	    \normal
	}}h box[]
	glue*ll }}glue
    }}v box[]
}}z box[] Constant album-viewer






default-sd to slide-deck

: group.imgs ( addr u -- )

     bounds ?DO
	    I $@ over be-64@ .ticks space
	    1 64s /string 85type cr
	cell +LOOP ;
: .imgs ( -- )
    imgs# [: dup $. ." :" cr cell+ $@ group.imgs ;] #map ;
: +imgs ( addr$ -- )
    [: { w^ string | ts[ 1 64s ] }
	msg:timestamp ts[ be-64!
	ts[ 1 64s type  string $. ;] $tmp $make { w^ string }
    msg-group$ $@ imgs# #@ d0= IF
	string cell msg-group$ $@ imgs# #!
    ELSE
	string $@ last# cell+ $ins[] drop  string $free
    THEN ;

: img>group# ( img u -- n )
    msg-group$ $@ imgs# #@ bounds ?DO
	2dup I $@ 1 64s /string str= IF
	    2drop I last# cell+ $@ drop - cell/  unloop  EXIT
	THEN
    cell +LOOP  2drop -1 ;

: >album-viewer ( img u -- )
    img>group# dup 0< IF  drop  EXIT  THEN
    album-sd to slide-deck
    dup 3 and slide# ! -4 and >r
    4 0 DO
	I slides[] $[] @
	I slide# @ = IF  /flop  ELSE  /flip  THEN
	drop  LOOP
    { | i# }  last# cell+ $@ r> cells safe/string 4 cells min bounds U+DO
	I $@ 1 64s /string 2dup need-hashed? IF  85type ."  need" cr
	ELSE
	    i# imgs[] $[] @ >o image-tex
	    ?read-enc-hashed save-mem
	    mem-exif  [: 2dup >thumb-scan ;] catch  file-exif drop
	    mem>texture  img-orient 1- dup to rotate#  4 and IF  swap  THEN
	    tile-glue >o
	    pixelsize# fm* fdup vglue-c df! dpy-h @ fm/
	    pixelsize# fm* fdup hglue-c df! dpy-w @ fm/ fmax 1/f fdup
	    vglue-c df@ f* vglue-c df!
	    hglue-c df@ f* hglue-c df!
	    o> o>
	THEN
	1 +to i#
    cell +LOOP
    album-viewer n2o-frame .childs[] >stack
    +sync +resize ;

:noname ( addr u type -- )
    obj-red
    case 0 >r
	msg:image#     of
	    msg-box .childs[] $[]# ?dup-IF
		rdrop  1- msg-box .childs[] $[] @
		dup .name$ "thumbnail" str= IF

		    [:  addr data $@ >album-viewer ;]
		    2swap $make dup +imgs 64#1 +to msg:timestamp
		    click[] drop  EXIT  THEN  drop  THEN
	    [: ." img["      85type ']' emit ;] $tmp }}text  "image" name!
	endof
	msg:thumbnail# of  ?thumb  "thumbnail" name!  endof
	msg:patch#     of  [: ." patch["    85type ']' emit
	    ;] $tmp }}text  "patch" name!  endof
	msg:snapshot#  of  [: ." snapshot[" 85type ']' emit