projects
/
blog.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add flag force publish
[blog.git]
/
blog.el
diff --git
a/blog.el
b/blog.el
index
a0bb36b
..
2df1224
100644
(file)
--- a/
blog.el
+++ b/
blog.el
@@
-39,18
+39,31
@@
;; constants
;; (defconst root-dir "~/Private/blog/")
(defconst root-dir (file-name-directory (or load-file-name buffer-file-name)))
;; constants
;; (defconst root-dir "~/Private/blog/")
(defconst root-dir (file-name-directory (or load-file-name buffer-file-name)))
-(def
const
publish-dir (concat root-dir "_site/"))
+(def
var
publish-dir (concat root-dir "_site/"))
(defconst css-file "../css/worg.css")
(defconst css-file "../css/worg.css")
+(defvar force-publish nil)
;; (defconst css-file (concat root-dir "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)))
+(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 'org)
-;; (require 'org-html)
(require 'ox-publish)
(require 'htmlize)
(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)
;; To prevent inline-css when exporting html. will use external css
(setq org-html-htmlize-output-type 'css)
@@
-78,7
+91,7
@@
:html-head-include-scripts nil)
("org-static"
:base-directory ,root-dir
: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\\|pl
"
:publishing-directory ,publish-dir
:recursive t
:publishing-function org-publish-attachment
:publishing-directory ,publish-dir
:recursive t
:publishing-function org-publish-attachment
@@
-86,5
+99,8
@@
("org" :components ("org-notes" "org-static"))))
("org" :components ("org-notes" "org-static"))))
-(provide 'blog)
+(org-publish-project "org" force-publish)
+
+;; (provide 'blog)
+(kill-emacs 0)
;;; blog.el ends here
;;; blog.el ends here