(require 'esh-maint) (require 'blorg) (setq blorg-put-full-post '(post feed)) (setq blorg-previous-posts-number 20) (setq blorg-parg-in-headlines 3) (setq blorg-put-author-in-post nil) (setq blorg-post-number-per-page '((index . 10) (feed . 10) (tag . 10) (month . 10))) ;; blorg-publish needs this: ;;(setq org-hide-leading-stars nil) ;;(require 'fast-lock) ;;(setq font-lock-support-mode 'fast-lock-mode) ;;(setq font-lock-support-mode 'jit-lock-mode) (defun blorg-insert-ga () (insert " ")) (defmacro blorg-side-menu () `(progn (insert "

Me

Tags

") (blorg-insert-tags-as-cloud) (insert "
") (insert "

Archive

") (blorg-insert-archives) (insert "
") (insert "
") (insert "
") (when (boundp 'blorg-feed-url) (insert "
 atom feed
")) (insert "

Older posts

") (blorg-insert-previous-posts) (insert "
") (insert "
"))) (setq blorg-index-template "

(blorg-insert-page-title)

(blorg-side-menu)
(blorg-insert-content)
(blorg-insert-ga) ") (setq blorg-month-page-template "

(blorg-insert-page-title) - (blorg-insert-month-name)

(blorg-side-menu)
(blorg-insert-content)
(blorg-insert-ga) ") (setq blorg-tag-page-template "

(blorg-insert-page-title) - (blorg-insert-tag-name)

(blorg-side-menu)
(blorg-insert-content)
(blorg-insert-ga) ") (setq blorg-post-page-template "

(blorg-insert-page-title)

(blorg-insert-content)
(blorg-insert-ga) ")