- (ob:gettext :home) /
(cond ;; Static page or post ((boundp 'POST) (let ((path (when (ob:post-filepath POST) (cdr (split-string (ob:post-filepath POST) "/"))))) (loop for p in (if (ob:greater (length path) 1) (cons (ob:post-category POST) path) path) with prev = (ob:path-to-root) do (progn (setf prev (format "%s/%s" prev (if (ob:category-p p) (ob:category-safe p) p))) (insert (format "
- %s /
" prev (if (ob:category-p p) (ob:category-name p) p)))))) (unless (and (string= "index.html" (ob:post-htmlfile POST)) (string= "." (ob:post-path-to-root POST))) (insert (format "
- %s
" (ob:post-title POST))))) ;; archives ((and (boundp 'MONTH) (boundp 'YEAR) (boundp 'CATEGORY)) (insert "
- Archives /
") (insert (format "
- %s /
" (ob:category-name CATEGORY))) (insert (format "
- %s /
" YEAR)) (insert (format "
- %.2d
" MONTH))) ((and (boundp 'YEAR) (boundp 'CATEGORY)) (insert "
- Archives /
") (insert (format "
- %s /
" (ob:category-name CATEGORY))) (insert (format "
- %s
" YEAR))) ((boundp 'CATEGORY) (insert "
- Archives /
") (insert (format "
- %s
" (ob:category-name CATEGORY)))) ((and ;;(boundp 'template) (string= "blog_archives.html" template)) (insert (format "
- Archives
"))) ;; Tags ((boundp 'TAG) (insert "
- Tags /
") (insert (format "
- %s
" (ob:tags-name TAG)))) ((and ;;(boundp 'template) (string= "blog_tags.html" template)) (insert (format "
- Tags
"))) ((boundp 'BREADCRUMB) (insert (format "
- %s
" BREADCRUMB))))