From 60e06a26f4f35160528d22169ee314864c277db5 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Fri, 12 Jun 2026 00:15:21 +0300
Subject: created & configured finnish side of blog & imported two old blog
 posts

---
 lisp/org-publish-project-alist.el | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 lisp/org-publish-project-alist.el

(limited to 'lisp/org-publish-project-alist.el')

diff --git a/lisp/org-publish-project-alist.el b/lisp/org-publish-project-alist.el
new file mode 100644
index 0000000..0310ce0
--- /dev/null
+++ b/lisp/org-publish-project-alist.el
@@ -0,0 +1,44 @@
+
+(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)))
+
+(let ((root "~/Documents/orgsite/") (generated "generated/"))
+  (setq org-publish-project-alist
+        `(("blog"
+           :base-directory ,(concat root "blog")
+           :publishing-directory ,(concat root generated "blog")
+           :base-extension any
+           :exclude ".*~"
+           :publishing-function org-html-publish-or-copy
+           :html-head-extra "<link rel=\"stylesheet\"type=\"text/css\" href=\"../static/global.css\">"
+           :html-postamble nil
+           :with-toc nil
+           :section-numbers nil
+           :language "fi")
+
+
+          ; TODO Refactor
+          ("static"
+           :base-directory ,(concat root "static")
+           :publishing-directory ,(concat root generated "static")
+           :base-extension any
+           :publishing-function org-publish-attachment)
+          ("img"
+           :base-directory ,(concat root "img")
+           :publishing-directory ,(concat root generated "img")
+           :base-extension any
+           :publishing-function org-publish-attachment)
+          
+          
+          )))
-- 
cgit v1.2.3