X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;ds=inline;f=blog.el;fp=blog.el;h=ff2fca2f3d925b54bff8211f0b39a3605b991238;hb=38acbeb6acd4af5479940996bad1c85ba90c97f8;hp=2ab08e8cc8a635c358e0440594a4a2229bec6134;hpb=b13b4bec130538c082f698b9ce5bb72df72fca05;p=blog.git
diff --git a/blog.el b/blog.el
index 2ab08e8..ff2fca2 100644
--- a/blog.el
+++ b/blog.el
@@ -68,6 +68,31 @@
;; To prevent inline-css when exporting html. will use external css
(setq org-html-htmlize-output-type 'css)
+
+(setq blog-extra-head
+ (concat
+ "\n"
+ ;; "\n"
+ ;; ""
+ ))
+
+;; (setq blog-header
+;; (concat
+;; " "
+;; ""
+;; "
"
+;; ""
+;; ""))
+
+;; don't know why setting this null in `org-publish-project-alist' doesn't work
+;; (setf org-html-home/up-format "")
+
(setq org-publish-project-alist
`(
;; ("org-notes"
@@ -98,7 +123,8 @@
:publishing-function org-html-publish-to-html
;; html style
- :html-head ,(concat "")
+ :htlm-link-home "/"
+ :html-head ,blog-extra-head
:html-postamble nil)
("blog-posts"
;; publishing
@@ -107,12 +133,17 @@
:publishing-directory ,(concat publish-dir "/posts")
:recursive t
:publishing-function org-html-publish-to-html
- :html-link-home "/"
-
+
;; html style
- :html-head ,(concat "")
+ :html-link-home "/"
+ ;; disable Home/Up
+ :html-home/up-format ""
+ :html-link-up ""
+ :html-link-home ""
;; don't export creator auto validation info in html postamble div
- :html-postamble nil)
+ :html-head ,blog-extra-head
+ :html-preamble nil
+ :html-postamble "")
("blog-css"
:base-directory ,(concat root-dir "/css")
:base-extension ".*"