q/thirdculture-werc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Further simplification/cleanup.

Browse source
This commit is contained in:
Uriel 2008-12-27 11:47:36 +01:00
parent 0eeaf87d2c
commit 168d1c6074
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
apps/blagh/app.rc
View file

@ -7,13 +7,13 @@ fn blagh_setup {
} }
fn blagh_body { fn blagh_body {
posts=`{ls -F $blaghDirs^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ | sed -n 's,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'} d=$sitedir$req_path^$blaghDirs^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/
posts=`{ls -F $d >[2]/dev/null | sed -n 's,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'}
for(p in $posts) for(p in $posts)
show_post $p | $formatter show_post $p | $formatter
} }
fn show_post { fn show_post {
bds=$blaghDirs^'|' l=`{echo $1 | sed 's|'$sitedir$req_path'||'}
l=`{echo $1 |sed 's,'$bds'XXX,,g'} sed '1s|.*|[&]('$l')|' < $1/index.md
sed '1s|.*|[&]('$l') -'^$l'|' < $1/index.md
} }