Add blog-tool.el file

[blog.git] / blog.el

diff --git a/blog.el b/blog.el
index 9f04f1f..245a849 100644 (file)
--- a/blog.el
+++ b/blog.el
@@ -82,21 +82,18 @@
        "<h1><a href= '/' >Peng Li</a></h1>"
        "<hr>"
        "<nav><ul>"
-       ;; "<li><a href= '/contact.html' >Contact</a></li>"
+       "<li><a href= '/' >About</a></li>"
        "<li><a href= '/blog.html' >Blog</a></li>"
-       ;; "<li><a href= '/teaching.html' >Teaching</a></li>"
-       ;; "<li><a href= '/research.html' >Research</a></li>"
-       "<li><a href= '/' >About Me</a></li>"
+       "<li><a href= '/home.html' >Home</a></li>"
        "</ul></nav>"
        "</header>"))
 
 
 
-;; (setq blog-footer
-;;       "<hr />\n
-;; <p><span style=\"float: left;\"><a href= \"/blog.xml\">RSS</a></span>
-;; License: <a href= \"https://creativecommons.org/licenses/by-sa/4.0/\">CC BY-SA 4.0</a></p>\n
-;; <p><a href= \"/contact.html\"> Contact</a></p>\n")
+(setq blog-footer
+      "<hr />\n
+<p><span style=\"float: left;\"><a href= \"/blog.xml\">RSS</a></span>
+License: <a href= \"https://creativecommons.org/licenses/by-sa/4.0/\">CC BY-SA 4.0</a></p\n")
 
 ;; don't know why setting this null in `org-publish-project-alist' doesn't work
 ;; (setf org-html-home/up-format "")
@@ -117,9 +114,13 @@
         :html-home/up-format ""
         :html-link-home ""
         :html-link-up ""
-        
-        :html-head  ,blog-extra-head
-        :html-postamble nil)
+        ;;
+        :html-head nil
+        :html-head-include-default-style nil
+        :html-head-include-scripts nil
+        :html-head-extra  ,blog-extra-head
+        :html-preamble ,blog-header
+        :html-postamble ,blog-footer)
 
        ("blog-posts"
         ;; publishing
@@ -141,7 +142,7 @@
         :html-head-include-scripts nil
         :html-head-extra ,blog-extra-head
         :html-preamble ,blog-header
-        ;; :html-postamble ,blog-footer
+        :html-postamble ,blog-footer
 
         ;; sitemap
         :auto-sitemap t