76 lines
2.2 KiB
Plaintext
76 lines
2.2 KiB
Plaintext
fn conf_enable_blog {
|
|
blagh_uri=$conf_wd
|
|
blagh_dirs=$*
|
|
if(~ $#blagh_dirs 0)
|
|
blagh_dirs=( . )
|
|
}
|
|
|
|
fn blagh_init {
|
|
if(~ $#blagh_dirs 0 && ~ $req_path */[bB]log/) {
|
|
blagh_uri=$req_path
|
|
blagh_dirs=( . )
|
|
}
|
|
|
|
# Should not match sub-dirs!
|
|
if(! ~ $#blagh_dirs 0) {
|
|
# && test -d / `{echo '-a -d '^$blagh_root^$blagh_dirs}
|
|
blagh_url=$base_url^$blagh_uri
|
|
blagh_root=$sitedir^$blagh_uri
|
|
|
|
if(~ $req_path */ && ~ $req_path $blagh_uri) {
|
|
handler_body_main=blagh_body
|
|
u=$blagh_uri'index'
|
|
extraHeaders=$"extraHeaders ^ \
|
|
'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />
|
|
<link rel="alternate" type="application/atom+xml" title="ATOM" href="'$"u'.atom" />'
|
|
|
|
}
|
|
if not if(~ $req_path */index.atom)
|
|
blagh_setup_feed_handlers atom.tpl
|
|
if not if(~ $req_path */index.rss)
|
|
blagh_setup_feed_handlers rss20.tpl
|
|
}
|
|
}
|
|
|
|
fn blagh_setup_feed_handlers {
|
|
handler_body_main=NOT_USED_by_blagh_feeds
|
|
res_tail=()
|
|
master_template=_apps/blagh/$1
|
|
}
|
|
|
|
fn blagh_body {
|
|
for(p in `{get_post_list $blagh_root^$blagh_dirs}) {
|
|
l=`{echo -n $p|sed 's!'$sitedir^$req_path'!!'}
|
|
sed '1s!.*!' < $p/index.md | $formatter
|
|
}
|
|
}
|
|
|
|
fn get_post_list {
|
|
# the /./->/|/ are added so we can sort -t| and order only the file name
|
|
# NOTE: this breaks if any path element in blagh_dirs contain '/./' or '|'
|
|
ls -F $*^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ >[2]/dev/null | sed -n '/'^$forbidden_uri_chars^'/d; s,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'
|
|
}
|
|
|
|
|
|
fn make_blog_post {
|
|
if(! ~ 0 $#1 $#2 $#3) {
|
|
bdir=$1
|
|
btitle=$2
|
|
btext=$3
|
|
date=`{/bin/date +%F}
|
|
|
|
n=1
|
|
for(f in $bdir^$date^'-'*) {
|
|
i=`{echo -n $f | sed -n 's,^.*/'$date'-([0-9]+)_.*,\1,p'|tr -d $NEW_LINE}
|
|
if(! ~ $#i 0 && test $i -ge $n)
|
|
n=`{hoc -e $i'+1'}
|
|
}
|
|
btitle=`{echo -n $"btitle | sed 's/[ ]+/_/g; 1q'}
|
|
|
|
echo $btext > $bdir^'/'^$"date^'-'^$"n^_$"btitle.md
|
|
}
|
|
if not
|
|
status=Missing blog post arguments $"1 $"2 $"3
|
|
}
|
|
|