qbit/werc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Further simplification/cleanup.

Browse Source
This commit is contained in:
uriel 2008-12-27 11:47:36 +01:00
parent 330a40956d
commit 47f8de61c4
1 changed files with 4 additions and 4 deletions
Show Stats 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 {
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)
show_post $p | $formatter
}
fn show_post {
bds=$blaghDirs^'|'
l=`{echo $1 |sed 's,'$bds'XXX,,g'}
sed '1s|.*|[&]('$l') -'^$l'|' < $1/index.md
l=`{echo $1 | sed 's|'$sitedir$req_path'||'}
sed '1s|.*|[&]('$l')|' < $1/index.md
}