X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=blog.el;fp=blog.el;h=eeda3e11e1e84fcaad786f7263a45e11252ade1f;hb=8a653cd86fff80dd57609b5d266b17d0409a9655;hp=46b6bf73d5cae2bc51b504c287f8d3da5808c48b;hpb=597d14ac026de80583bfcc22b00d2a868dd18aaa;p=blog.git

diff --git a/blog.el b/blog.el
index 46b6bf7..eeda3e1 100644
--- a/blog.el
+++ b/blog.el
@@ -27,25 +27,40 @@
 (require 'package)
 (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
 (package-initialize)
+
 (setq debug-on-error t)
 
+;; package initialise
 (unless (package-installed-p 'htmlize)
   (package-refresh-contents)
   (package-install 'htmlize))
 
+;; constants
+;; (defconst root-dir (file-name-directory (or load-file-name buffer-file-name)))
+(defconst root-dir "~/Private/blog/")
+(defconst publish-dir "~/Private/publish_html/")
+
+
+
+
+
+
 (require 'org)
+;; (require 'org-html)
 (require 'ox-publish)
 (require 'htmlize)
 
+
+
 ;; To prevent inline-css when exporting html. will use external css
 (setq org-html-htmlize-output-type 'css)
 
 (setq org-publish-project-alist
       `(
         ("org-notes"
-         :base-directory "~/Private/blog/"
+         :base-directory ,root-dir
          :base-extension "org"
-         :publishing-directory "~/Private/publish_html"
+         :publishing-directory ,publish-dir
          :recursive t
          :publishing-function org-html-publish-to-html
          :headline-levels 4
@@ -62,9 +77,9 @@
          :html-head-include-default-style nil
          :html-head-include-scripts nil)
         ("org-static"
-         :base-directory "~/Private/blog/"
+         :base-directory ,root-dir
          :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
-         :publishing-directory "~/Private/publish_html"
+         :publishing-directory ,publish-dir
          :recursive t
          :publishing-function org-publish-attachment
          :table-of-contents nil)