- (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))))