Separate export of articles

To keep Creation dates somewhat more close to their actual creation
date.
This commit is contained in:
Tom Willemse 2013-11-25 01:29:47 +01:00
parent c7712fff53
commit 879aef7f89
5 changed files with 46 additions and 7 deletions

View file

@ -1,12 +1,14 @@
all: all:
clean: clean:
rm -rf _publish rm -f _publish/*.*
rm -rf _publish/projects
export: clean export: clean
emacs -L ~/.emacs.d/vendor-lisp/org/lisp \ emacs -L $(CURDIR) -L ~/.emacs.d/vendor-lisp/org/lisp \
-L ~/.emacs.d/vendor-lisp/org/contrib/lisp -batch -l project.el \ -L ~/.emacs.d/vendor-lisp/org/contrib/lisp -batch -l project.el \
-f org-publish-all -f org-publish-all
$(MAKE) -C articles export
publish: export publish: export
rsync -avuz --exclude=*~ _publish/ ryuslash.org:public_html/orgweb rsync -avuz --exclude=*~ _publish/ ryuslash.org:public_html/orgweb

6
articles/Makefile Normal file
View file

@ -0,0 +1,6 @@
all:
export:
emacs -L $(CURDIR) -L ~/.emacs.d/vendor-lisp/org/lisp \
-L ~/.emacs.d/vendor-lisp/org/contrib/lisp -batch -l project.el \
-f org-publish-all

18
articles/project.el Normal file
View file

@ -0,0 +1,18 @@
(require 'org-publish)
(load "../common.el")
(setq org-publish-use-timestamps-flag t
org-publish-project-alist
'(("blog"
:base-directory "./"
:publishing-directory "../_publish/articles/"
:recursive nil
:base-extension "org"
:publishing-function org-html-publish-to-html
:section-numbers nil
:table-of-contents nil
:html-doctype "<!DOCTYPE html>"
:html-head "<link href=\"https://ryuslash.org/org.css\" type=\"text/css\" rel=\"stylesheet\" />"
:html-link-up "../blog.html"
:html-link-home "/")))

4
common.el Normal file
View file

@ -0,0 +1,4 @@
(setq org-html-head-include-scripts nil
org-html-validation-link nil
org-html-htmlize-output-type 'css
org-confirm-babel-evaluate nil)

View file

@ -2,6 +2,8 @@
(require 'ox-rss) (require 'ox-rss)
;; (require 'ox-html) ;; (require 'ox-html)
(load "common.el")
;; (defun org-html-template (contents info) ;; (defun org-html-template (contents info)
;; "Return complete document string after HTML conversion. ;; "Return complete document string after HTML conversion.
;; CONTENTS is the transcoded contents string. INFO is a plist ;; CONTENTS is the transcoded contents string. INFO is a plist
@ -130,12 +132,8 @@
;; toc-entries "") ;; toc-entries "")
;; (org-html--make-string (- prev-level start-level) "</li>\n</ul>\n")))) ;; (org-html--make-string (- prev-level start-level) "</li>\n</ul>\n"))))
(setq org-html-head-include-scripts nil (setq org-publish-use-timestamps-flag nil
org-html-validation-link nil
org-publish-use-timestamps-flag nil
org-html-htmlize-output-type 'css
org-rss-extension "rss" org-rss-extension "rss"
org-confirm-babel-evaluate nil
org-publish-project-alist org-publish-project-alist
'(("oni-files" '(("oni-files"
:base-directory "./" :base-directory "./"
@ -146,6 +144,17 @@
("org" ("org"
:base-directory "./" :base-directory "./"
:publishing-directory "_publish/" :publishing-directory "_publish/"
:recursive nil
:base-extension "org"
:publishing-function org-html-publish-to-html
:section-numbers nil
:table-of-contents 1
:html-doctype "<!DOCTYPE html>"
:html-head "<link href=\"https://ryuslash.org/org.css\" type=\"text/css\" rel=\"stylesheet\" />"
:html-link-home "https://ryuslash.org")
("projects"
:base-directory "./projects/"
:publishing-directory "_publish/projects/"
:recursive t :recursive t
:base-extension "org" :base-extension "org"
:publishing-function org-html-publish-to-html :publishing-function org-html-publish-to-html