blob: c65f8f0be769f5c19bed240ec07daebbb0d0ba50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
(defun file-extension (filename)
"returns the file extension of the supplied filename,
or nil if no extension was present"
(car
(last
(split-string filename "\\."))))
(defun org-html-publish-or-copy (plist filename pub-dir)
"If the file extension is `.org`, publish using
org-html-publish-to-html, otherwise use org-pubish-attachment."
(if (string-equal (file-extension filename) "org")
(org-html-publish-to-html plist filename pub-dir)
(org-publish-attachment plist filename pub-dir)))
(setq org-publish-use-timestamps-flag nil)
(let ((root "~/Documents/orgsite/") (generated "generated/"))
(setq org-publish-project-alist
(nconc
`(("fi"
:base-directory ,(concat root "fi")
:publishing-directory ,(concat root generated "fi")
:base-extension any
:exclude ".*~"
:recursive t
:publishing-function org-html-publish-or-copy
:html-head-extra "<link rel=\"stylesheet\"type=\"text/css\" href=\"../../static/global.css\">"
:html-postamble nil
:html-preamble "<header>
<a id=\"skiptocontent\" href=\"#content\">Siirry pääsisältöön</a>
<a href=\"/fi/\">FI</a> · <a href=\"/en/\">EN</a>
</header>"
:with-toc nil
:section-numbers nil
:language "fi"))
(seq-map (lambda (ident)
`(,ident
:base-directory ,(concat root ident)
:publishing-directory ,(concat root generated ident)
:base-extension any
:publishing-function org-publish-attachment))
'("static" "img")))))
|
