(loop for CATEGORY in (ob:get-posts nil nil nil 'category) do (progn (insert (format "
  • %s" (ob:path-to-root) (ob:category-safe CATEGORY) (ob:category-name CATEGORY))) (let ((POSTS (ob:get-posts (lambda(x) (equal (ob:category-name CATEGORY) (ob:category-name (ob:post-category x))))))) (ob:insert-template "index_category.html") ) (insert "
  • ")))