X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;ds=sidebyside;f=my-publish.el;h=7f0cd311ce469ef4a62434dd82b24ae0b9e042a9;hb=b180940e46407b5f41f1951487c02d3b586096e8;hp=984bb11ad9c263a22f60c20a774fad744c16ae1a;hpb=2f98df72c926b951cab2310c1fbf4442d4535bec;p=blog.git
diff --git a/my-publish.el b/my-publish.el
index 984bb11..7f0cd31 100644
--- a/my-publish.el
+++ b/my-publish.el
@@ -28,6 +28,7 @@
(require 'org)
(require 'ox-publish)
+(require 'htmlize)
;; To prevent inline-css when exporting html. will use external css
(setq org-html-htmlize-output-type 'css)
@@ -45,9 +46,9 @@
"
"
"
"
""
""))
@@ -59,11 +60,14 @@ License: CC BY-SA 4
(defun blog-setup-project-alist (root-dir &optional output-dir)
"Set project alist. `output-dir' is the directory of publish-directory.
`root-dir' is the root directory of blog repository."
- (unless output-dir (setq output-dir (concat root-dir "_site/")))
+ (unless (> (length output-dir) 0)
+ (setq output-dir (concat root-dir "/_site/")))
+ (message "Blog dir is: %s\nOut dir is: %s"
+ (format root-dir)
+ (format output-dir))
(setq org-publish-project-alist
`(
("blog-pages"
- ;; publishing
:base-directory ,root-dir
:base-extension "org"
:publishing-directory ,output-dir
@@ -85,7 +89,6 @@ License: CC BY-SA 4
:html-postamble ,blog-footer)
("blog-posts"
- ;; publishing
:base-directory ,(concat root-dir "/posts")
:base-extension "org"
:publishing-directory ,(concat output-dir "/posts")
@@ -125,13 +128,5 @@ License: CC BY-SA 4
:recursive t)
("blog" :components ("blog-pages" "blog-posts" "blog-css" "blog-cgi")))))
-
-(defun blog-publish (out-dir force)
- "publish the project"
- (interactive)
- (blog-setup-project out-dir)
- (org-publish-project "blog" force))
-
-
(provide 'my-publish)
;;; publish.el ends here