4 files changed, 71 insertions(+), 1 deletions(-)

A .envrc
D guix-env
A scripts/build-site.el
R get-readme-mutation-json => scripts/get-readme-mutation-json

@@ 0,0 1,11 @@
+# TODO: Use pass or gpg for storing keys
+export YOUTUBE_RTMP_KEY=`pass show studio.youtube.com/rtmp-key`
+export PEERTUBE_RTMP_KEY=`pass show diode.zone/rtmp-key`
+
+export TEST_YOUTUBE_RTMP_KEY=key1
+export TEST_PEERTUBE_RTMP_KEY=key2
+
+export EMACSLOADPATH=
+
+use guixs
+

@@ 1,1 0,0 @@
-guix environment --ad-hoc make jq curl>
\ No newline at end of file

@@ 0,0 1,60 @@
+(require 'ox-publish)
+;; (require 'htmlize)
+
+;; There is a bug in ox-html, which doesn't check for empty string in
+;; properties, so `org-html-extension' should set using variable.
+(setq org-html-extension "")
+
+(let ((org-roam-v2-ack t))
+  (require 'org-roam))
+(setq org-roam-directory "../notes/notes")
+;; (org-roam-db-autosync-enable)
+(org-roam-update-org-id-locations)
+
+(require 'find-lisp)
+(setq org-publish-timestamp-directory "./target/")
+
+(setq
+ org-publish-project-alist
+ '(("pages"
+    :base-directory "./pages/"
+    :base-extension "org"
+    :publishing-directory "./target/site/html/"
+    :publishing-function org-html-publish-to-html
+    :html-head "<link rel=\"stylesheet\" href=\"/assets/simple.min.css\" type=\"text/css\"/>"
+    :recursive t
+    :section-numbers nil
+    :with-author nil
+    :with-creator nil
+    :with-toc nil
+    :html-validation-link nil
+    :html-head-include-default-style nil
+    :html-head-include-scripts nil
+    :time-stamp-file nil)
+   ("notes"
+    :base-directory "../notes/notes/"
+    :base-extension "org"
+    :publishing-directory "./target/site/html/notes/"
+    :publishing-function org-html-publish-to-html
+    :html-head "<link rel=\"stylesheet\" href=\"/assets/simple.min.css\" type=\"text/css\"/>"
+    :section-numbers nil
+    :with-author nil
+    :with-creator nil
+    :with-toc nil
+    :html-validation-link nil
+    :html-head-include-default-style nil
+    :html-head-include-scripts nil
+    :time-stamp-file nil)
+
+   ("assets"
+    :base-directory "./assets/"
+    :base-extension any
+    :publishing-directory "./target/site/html/assets/"
+    :publishing-function org-publish-attachment)
+
+   ("site" :components ("pages" "assets" "notes"))))
+
+;; (let ((org-id-extra-files (find-lisp-find-files "../notes/notes/" "\.org$")))
+;; )
+(org-publish "site")
+