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