X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=my-publish.el;h=fd1cee3ba95fd75a18da00ded4d7f48d381377af;hb=bcf8061138a19780faa449f0fde0e97a676ec833;hp=5a5c9287585c163834b1291d9c8194d56fb322a9;hpb=d2003e5d109c4ac4475263b2284e79f40ff199b7;p=blog.git

diff --git a/my-publish.el b/my-publish.el
index 5a5c928..fd1cee3 100644
--- a/my-publish.el
+++ b/my-publish.el
@@ -24,8 +24,6 @@
 
 ;;; Code:
 
-;; (defconst root-dir "~/Private/blog/")
-
 (require 'org)
 (require 'ox-publish)
 (require 'htmlize)
@@ -35,18 +33,17 @@
 
 (setq blog-extra-head
       (concat
-       ;; "<link rel='stylesheet' href='../css/worg.css' />\n"
-       "<link rel='stylesheet' href='../css/my.css' />\n"
-       "<link rel='stylesheet' href='../css/code.css' />"))
+       "<link rel='stylesheet' href='/css/my.css' />\n"
+       "<link rel='stylesheet' href='/css/code.css' />"))
 
 (setq blog-header
       (concat
        "<header id= 'banner'>"
        "<a class=\"title\"href= '/' >Peng Li</a>"
        "<nav><ul>"
-       "<li><a href= '/about.html' >About</a></li>"
+       "<li><a href= '/index.html' >About</a></li>"
        "<li><a href= '/posts/sitemap.html' >Blog</a></li>"
-       "<li><a href= '/index.html' >Home</a></li>"
+       ;; "<li><a href= '/index.html' >Home</a></li>"
        "</ul></nav>"
        "</header>"
        "<hr>"))
@@ -54,7 +51,7 @@
 (setq blog-footer
       (concat 
        "<hr />\n"
-       "<p><span style=\"float: left;\"><a href= \"http://orgmode.org\"/>Org-mode </a>" (org-version) "</span>"))
+       org-html-creator-string))
 
 (defun blog-setup-project-alist (root-dir &optional output-dir)
   "Set project alist. `output-dir' is the directory of publish-directory.
@@ -115,7 +112,10 @@
 	   ;; sitemap
 	   :auto-sitemap t
 	   :sitemap-filename "sitemap.org"
-	   :sitemap-title "Sitemap"
+	   :sitemap-title "Blog"
+	   :sitemap-sort-files anti-chronologically
+	   :sitemap-date-format "%h %d, %Y"
+	   :sitemap-file-entry-format "%d » %t"
 
 	   ;; other generic options
 	   :with-toc nil 		; table of contents