From 914126f9fa3ed87f8cffeeb132340277808715e6 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Sun, 14 Jun 2026 15:07:26 +0300
Subject: created english side

---
 lisp/org-publish-project-alist.el | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

(limited to 'lisp')

diff --git a/lisp/org-publish-project-alist.el b/lisp/org-publish-project-alist.el
index c65f8f0..0461aed 100644
--- a/lisp/org-publish-project-alist.el
+++ b/lisp/org-publish-project-alist.el
@@ -18,22 +18,25 @@ org-html-publish-to-html, otherwise use org-pubish-attachment."
 (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>
+         (seq-map (lambda (lang)
+                    `(,(car lang)
+                      :base-directory ,(concat root (car lang))
+                      :publishing-directory ,(concat root generated (car lang))
+                      :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 ,(concat "<header>
+<a id=\"skiptocontent\" href=\"#content\">" (cdr lang) "</a>
 <a href=\"/fi/\">FI</a> · <a href=\"/en/\">EN</a>
-</header>"
-           :with-toc nil
-           :section-numbers nil
-           :language "fi"))
+</header>")
+                      :with-toc nil
+                      :section-numbers nil
+                      :author "Joel Kronqvist"
+                      :language ,lang))
+                  '(("fi" . "Siirry pääsisältöön") ("en" . "Skip to content")))
          (seq-map (lambda (ident)
                     `(,ident
                       :base-directory ,(concat root ident)
-- 
cgit v1.2.3