X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;ds=sidebyside;f=blog.el;h=3fd220917317b563784f8e69833c20f93e9bf68b;hb=a49ee8a4d7abe5ae39f0eaa80ca6b255557ede38;hp=a0bb36bbd7d03ea5c2d851beb186d46531d8edfb;hpb=407d0a9cb8c734ab1f84e6965c6479311e0a2178;p=blog.git

diff --git a/blog.el b/blog.el
index a0bb36b..3fd2209 100644
--- a/blog.el
+++ b/blog.el
@@ -39,18 +39,23 @@
 ;; constants
 ;; (defconst root-dir "~/Private/blog/")
 (defconst root-dir (file-name-directory (or load-file-name buffer-file-name)))
-(defconst publish-dir (concat root-dir "_site/"))
+(defvar publish-dir (concat root-dir "_site/"))
 (defconst css-file "../css/worg.css")
 ;; (defconst css-file (concat root-dir "css/worg.css"))
 
+(let ((aa (pop command-line-args-left)))
+  (if (>  (length aa) 0)
+      (setq publish-dir aa)))
 
+;; (setq publish-dir (or (pop command-line-args-left) publish-dir))
+(message publish-dir)
 
 (require 'org)
-;; (require 'org-html)
 (require 'ox-publish)
 (require 'htmlize)
 
-
+(message "Org-mode version %s" (org-version))
+(message "publish directory is %s" publish-dir)
 
 ;; To prevent inline-css when exporting html. will use external css
 (setq org-html-htmlize-output-type 'css)
@@ -78,7 +83,7 @@
          :html-head-include-scripts nil)
         ("org-static"
          :base-directory ,root-dir
-         :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
+         :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|el"
          :publishing-directory ,publish-dir
          :recursive t
          :publishing-function org-publish-attachment
@@ -86,5 +91,8 @@
         ("org" :components ("org-notes" "org-static"))))
 
 
-(provide 'blog)
+(org-publish-project "org" t)
+
+;; (provide 'blog)
+(kill-emacs 0)
 ;;; blog.el ends here