"<h1><a href= '/' >Peng Li</a></h1>"
"<hr>"
"<nav><ul>"
- "<li><a href= '/' >About</a></li>"
- "<li><a href= '/blog.html' >Blog</a></li>"
- "<li><a href= '/home.html' >Home</a></li>"
+ "<li><a href= '/about.html' >About</a></li>"
+ "<li><a href= '/posts/sitemap.html' >Blog</a></li>"
+ "<li><a href= '/index.html' >Home</a></li>"
"</ul></nav>"
"</header>"))
<p><span style=\"float: left;\"><a href= \"/blog.xml\">RSS</a></span>
License: <a href= \"https://creativecommons.org/licenses/by-sa/4.0/\">CC BY-SA 4.0</a></p\n")
-(defun blog-setup-project-alist (root-dir &optinal output-dir)
+(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
:html-postamble ,blog-footer)
("blog-posts"
- ;; publishing
:base-directory ,(concat root-dir "/posts")
:base-extension "org"
:publishing-directory ,(concat output-dir "/posts")
: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