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