(loop for YEAR in (ob:get-posts nil nil nil 'year) do (progn (insert (format "
  • %.2d" (ob:path-to-root) (ob:category-safe CATEGORY) YEAR YEAR)) (let ((POSTS (ob:get-posts (lambda(x) (= YEAR (ob:post-year x)))))) (ob:insert-template "index_year.html") ) (insert "
  • ")))