X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=blog.el;h=ff2fca2f3d925b54bff8211f0b39a3605b991238;hb=38acbeb6acd4af5479940996bad1c85ba90c97f8;hp=86ec8504f0b68b4002650c966bf66ae7d27e9784;hpb=f3562da7e39d6a886cc1db5ade3302b18175b68a;p=blog.git

diff --git a/blog.el b/blog.el
index 86ec850..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
+       "<link rel='stylesheet' href='" css-file "' />\n"
+       ;; "<link rel='stylesheet' href='../css/main.css' />\n"
+       ;; "<link rel='stylesheet' href='../css/code.css' />"
+       ))
+
+;; (setq blog-header
+;;       (concat
+;;        " <header id= "banner" > "
+;;        "<h1><a href= '/' >Dennis Ogbe </a></h1>"
+;;        "<hr>"
+;;        "<nav><ul>"
+;;        "<li><a href= '/contact.html' >Contact</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>"
+;;        "</ul></nav>"
+;;        "</header>"))
+
+;; 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,31 +123,37 @@
 	 :publishing-function org-html-publish-to-html
 	 
 	 ;; html style
-	 :html-head  ,(concat  "<link rel='stylesheet' href='" css-file  "' />")
+	 :htlm-link-home "/"
+	 :html-head  ,blog-extra-head
 	 :html-postamble nil)
 	("blog-posts"
 	 ;; publishing
-	 :base-directory ,(concat root-dir "posts")
+	 :base-directory ,(concat root-dir "/posts")
 	 :base-extension "org"
-	 :publishing-directory ,(concat publish-dir "posts")
+	 :publishing-directory ,(concat publish-dir "/posts")
 	 :recursive t
 	 :publishing-function org-html-publish-to-html
-	 :html-link-home "/"
-	 
+
 	 ;; html style
-	 :html-head ,(concat "<link rel='stylesheet' href='" css-file "' />")
+  	 :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-directory ,(concat root-dir "/css")
 	 :base-extension ".*"
-	 :publishing-directory ,(concat publish-dir "css")
+	 :publishing-directory ,(concat publish-dir "/css")
 	 :publishing-function org-publish-attachment
 	 :recursive t)
 	("blog-cgi"
-	 :base-directory ,(concat root-dir "cgi-bin")
+	 :base-directory ,(concat root-dir "/cgi-bin")
 	 :base-extension ".*"
-	 :publishing-directory ,(concat publish-dir "cgi-bin")
+	 :publishing-directory ,(concat publish-dir "/cgi-bin")
 	 :publishing-function org-publish-attachment
 	 :recursive t)
         ("blog" :components ("blog-pages" "blog-posts" "blog-css" "blog-cgi"))))