1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#!/bin/rc
path=(. /bin)
fn run {
lpaf=home$REQUEST_URI
rpafs='/'; wd='/'; ifs='/';
arg = `{echo $REQUEST_URI}
if (test -d $lpaf) {
lpaf=$lpaf^'i'
}
for (i in $arg) {
wd=$wd^$i
rpafs=($rpafs $wd)
wd=$wd'/'
}
echo;
for (h in $bar) { $$h }
mh $lpaf.md
}
fn sbar {
echo -n 'ENTER HTML PREAMBLE HERE'
ls -F home/./$rpafs | sed -e 's,/+\./+,/,g' \
-e '/\/i\.(md)$/d' \
-e 's/\.(md)$//' -e 's!^home!!' | sort | awk -F/ '
function p(x, y, s) { for (i=0; i<x-y; i++) printf s }
BEGIN { lNF = 2 }
{
sub("/$", "", $0)
p(NF, lNF, "<ul>"); p(lNF, NF, "</ul><hr>")
lNF = NF; fp = $NF
printf "<li><a href=\%s\>%s</a>", $0, fp
}
END { p(lNF, 2, "</ul><hr>"); printf "</ul></nav></small><article>" }'}
fn add {
_l = $1^_^$#$1
$_l = $*(2-)
$1 = ($$1 $_l)
}
add bar sbar; run
(avsbq) | cat cork-base
#!/bin/rc
path=(. /bin)
fn run {
lpaf=home$REQUEST_URI
rpafs='/'; wd='/'; ifs='/';
arg = `{echo $REQUEST_URI}
if (test -d $lpaf) {
lpaf=$lpaf^'i'
}
for (i in $arg) {
wd=$wd^$i
rpafs=($rpafs $wd)
wd=$wd'/'
}
echo;
for (h in $bar) { $$h }
mh $lpaf.md
}
fn sbar {
echo -n '<style>img{width:150px;}nav li ul{padding-left:.5em}body{display:flex;flex-wrap:wrap;margin:20 24%}article{flex:1}nav{min-width:12em}ul{list-style: none}#t{flex:2;position:fixed;right:calc(5vw + 10px);width:222px;max-height:80vh;overflow-y:auto;box-sizing:border-box;background-color:#fff;z-index:10;}</style><meta charset=utf-8><small><nav><ul>'
ls -F home/./$rpafs | sed -e 's,/+\./+,/,g' \
-e '/\/i\.(md)$/d' \
-e 's/\.(md)$//' -e 's!^home!!' | sort | awk -F/ '
function p(x, y, s) { for (i=0; i<x-y; i++) printf s }
BEGIN { lNF = 2 }
{
sub("/$", "", $0)
p(NF, lNF, "<ul>"); p(lNF, NF, "</ul><hr>")
lNF = NF; fp = $NF
printf "<li><a href=\%s\>%s</a>", $0, fp
}
END { p(lNF, 2, "</ul><hr>"); printf "</ul></nav></small><article>" }'}
fn add {
_l = $1^_^$#$1
$_l = $*(2-)
$1 = ($$1 $_l)
}
add bar sbar; run
|
