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

Titles for individual blog posts

Browse source
This commit is contained in:
Uriel 2007-06-13 12:13:49 +02:00
parent 7ab982475b
commit e606d0bc52
1 changed files with 19 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

24
bin/controller.rc
View file

@ -71,10 +71,19 @@ fn sortedBlogPostList {
ls $*^'/./' | grep '[0-9]+.*\.md$'| sort -r -t. +1 ls $*^'/./' | grep '[0-9]+.*\.md$'| sort -r -t. +1
} }
fn blogTitle {
title=`{basename $1 | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' }
du=`{ls -l $1}
echo '##' $title '*('By $du(4) Last mod: $du(7 8 9) ')*'
}
# Body # Body
fn genbody { fn genbody {
if ( test -f $body.md ) if ( test -f $body.md ) {
if ( ! ~ $#inBlog 0 )
blogTitle $body.md | markdown.pl
markdown.pl < $body.md markdown.pl < $body.md
}
if not if ( test -f $body.tpl ) if not if ( test -f $body.tpl )
template.awk $body.tpl | rc $rcargs template.awk $body.tpl | rc $rcargs
if not if ( test -f $body.html ) if not if ( test -f $body.html )
@ -97,9 +106,10 @@ fn genbody {
echo '<h1>'$"blogTitle'</h1>' echo '<h1>'$"blogTitle'</h1>'
echo '<div align="right">(<a href="index.rss">rss feed</a>)</div>' echo '<div align="right">(<a href="index.rss">rss feed</a>)</div>'
for ( f in `{ sortedBlogPostList $blogDirs } ) { for ( f in `{ sortedBlogPostList $blogDirs } ) {
title=`{basename $f | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' } #title=`{basename $f | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' }
du=`{ls -l $f} #du=`{ls -l $f}
echo '##' $title '*('By $du(4) Last mod: $du(7 8 9) ')*' #echo '##' $title '*('By $du(4) Last mod: $du(7 8 9) ')*'
blogTitle $f
cat $f cat $f
echo echo
} | markdown.pl } | markdown.pl
@ -118,7 +128,11 @@ if (! ~ $args '') {
fpath=$sitedir fpath=$sitedir
for ( i in '' $args ) { for ( i in '' $args ) {
fpath = $fpath/$i fpath = $fpath/$i
blogDirs = () # We don't want blog settings to cascade into posts # We don't want blog settings to cascade into posts, note that we are inBlog instead
if ( ! ~ $#blogDirs 0 ) {
inBlog = $blogDirs
blogDirs = ()
}
if ( test -f $fpath/_config ) if ( test -f $fpath/_config )
. $fpath/_config . $fpath/_config
} }