<%(post-quot _curr)%>
the brown-dragon blog
<%(bd-make-html-safe (post-title _curr))%>
<%(bd-display-date (post-date _curr))%>
<%(let loop ((ak (site-tags _site)) (mk (post-tags _curr)) (s "")) (if (eq? ak '()) s (let ((ck (car ak)) (spc "o-keyword")) (if (member ck mk) (set! spc "t-keyword")) (loop (cdr ak) mk (string-append s (format "
" spc (bd-tag-file ck)) (if (member ck mk) "
" "") ck "(" (number->string (length (filter (lambda (p) (member ck (post-tags p))) (site-posts _site)))) ")" (if (member ck mk) "
" "") "
" "
|
")))))%>
<%(post-content _curr)%>
Other Posts
(ordered by
Tags
then
Date
)
<%(let ((s "") (l (bd-posts-by-similarity _curr (site-posts _site)))) (for-each (lambda (p) (set! s (string-append s (format "
[" (post-link p)) (bd-display-date (post-date p)) "]
" (bd-make-html-safe (post-title p)) (if (eq? '() (post-tags p)) "" (string-append "
(" (string-intersperse (post-tags p) ",") ")
")) "
" (bd-make-html-safe (bd-post-teaser (post-teaser p))) "
"))) l) s)%>
