(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/")
-
-
+;; 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")
+;; (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)
:html-table-of-contents nil
:html-postamble nil ;dont export creator auto validation info in html postamble div
:html-link-home "/"
- :html-head "<link rel='stylesheet' href='/Users/peli3/Private/blog/res/worg.css' />"
+ :html-head ,(concat "<link rel='stylesheet' href='" css-file "' />")
:html-head-include-default-style nil
: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
("org" :components ("org-notes" "org-static"))))
-(provide 'blog)
+(org-publish-project "org" t)
+
+;; (provide 'blog)
+(kill-emacs 0)
;;; blog.el ends here