" say "
"

/ width height
(w;h):80 32

/ random char
rc:{97+*1?(122-97)}
/ tab
t:8
/ pad x random chars
p:{"c"$rc'!x}

/ some functions for creating foreground elements: blue, , , etc
/ make blue line
mkbln:{l:w-&x
       p[t]+" "+x+" "+(p(l-t)-2)}
/ make  line
mkaln:{l:w-&x
       p[t]+" "+x+" "+(p(l-t)-2)}
/ make   : mkatr[link title;link href;description]
mkatr:{s:" "*t-&x
       l:w-&"$x$s$z"
       p[t]+" $x$s$z "+p(l-t)-2}

/ a matrix of w*h random characters which we'll mutate
m:"c"$h$rc'!w*h

/ write the body text to the matrix
i:2;  m[i]:mkbln "skylar bleed"
i+:1; m[i]:mkbln "musician & computer whisperer. chicago."
i+:1; m[i]:mkbln "rust k haskell c unix."

i+:2; m[i]:mkbln "my email is sbleed at proton dot me"

i+:2; m[i]:mkbln "links:"
i+:1; m[i]:mkbln "======"
i+:1; m[i]:mkaln["github";    "https://github.com/bleedsa"]
i+:1; m[i]:mkaln["codeberg";  "https://codeberg.org/bleedsa/"]
i+:1; m[i]:mkaln["badboy git";"http://git.badboy.institute/~skye/"]
i+:1; m[i]:mkaln["bandcamp";  "https://skylarbleed.bandcamp.com/"]
i+:1; m[i]:mkaln["soundcloud";"https://soundcloud.com/skye-bleed"]

i+:2; m[i]:mkbln "directories:"
i+:1; m[i]:mkbln "============"

/ the directories with their README.txt descriptions in a nice little table
i+:1; [f:{mkatr[x;x;*=.[read;x+"/README.txt";""]]}'f@&{~x~".git"}'f:(d@"name")@&((d:read ".")@"dir")
       m:@[m;i+!#f;:;f]
       i+:#f]

/ :)
i+:2; m[i]:mkaln["view page src";"index.goal.txt"]

/ display the matrix
say'm

/ footer
say "
" say "