X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=blog.el;h=2df12243dcc92be94343480f0b1f1b20537d7422;hb=a1e8b148970121c8f944f5abb2b85cca59090366;hp=46b6bf73d5cae2bc51b504c287f8d3da5808c48b;hpb=597d14ac026de80583bfcc22b00d2a868dd18aaa;p=blog.git
diff --git a/blog.el b/blog.el
index 46b6bf7..2df1224 100644
--- a/blog.el
+++ b/blog.el
@@ -27,25 +27,53 @@
(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 "~/Private/blog/")
+(defconst root-dir (file-name-directory (or load-file-name buffer-file-name)))
+(defvar publish-dir (concat root-dir "_site/"))
+(defconst css-file "../css/worg.css")
+(defvar force-publish nil)
+;; (defconst css-file (concat root-dir "css/worg.css"))
+
+(let ((aa (pop command-line-args-left)))
+ (if (> (length aa) 0)
+ (setq publish-dir aa)))
+
+
+(let ((force (pop command-line-args-left)))
+ (if (string= force "true")
+ (setq force-publish t)))
+
+
+;; (setq publish-dir (or (pop command-line-args-left) publish-dir))
+(message publish-dir)
+
(require 'org)
(require 'ox-publish)
(require 'htmlize)
+(message "Org-mode version %s" (org-version))
+(message "publish directory is %s" publish-dir)
+(message "force %s" force-publish)
+
;; 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
@@ -58,18 +86,21 @@
:html-table-of-contents nil
:html-postamble nil ;dont export creator auto validation info in html postamble div
:html-link-home "/"
- :html-head ""
+ :html-head ,(concat "")
:html-head-include-default-style nil
:html-head-include-scripts nil)
("org-static"
- :base-directory "~/Private/blog/"
- :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
- :publishing-directory "~/Private/publish_html"
+ :base-directory ,root-dir
+ :base-extension "css\\|js\\|png\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|el\\|pl"
+ :publishing-directory ,publish-dir
:recursive t
:publishing-function org-publish-attachment
:table-of-contents nil)
("org" :components ("org-notes" "org-static"))))
-(provide 'blog)
+(org-publish-project "org" force-publish)
+
+;; (provide 'blog)
+(kill-emacs 0)
;;; blog.el ends here