From 85c20e38f6fa4088b098e97a139be8d8c23dd701 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jurij=20Podgor=C5=A1ek?= <jurij@kompot.si>
Date: Mon, 25 Sep 2023 22:22:30 +0200
Subject: [PATCH] WIP guix recepti in viri

---
 README.org        |  8 ++++++++
 guix-container.sh |  2 ++
 guix-shell.sh     |  3 +++
 manifest.scm      | 13 +++++++++++++
 system.scm        | 23 +++++++++++++++++++++++
 5 files changed, 49 insertions(+)
 create mode 100644 README.org
 create mode 100644 guix-container.sh
 create mode 100755 guix-shell.sh
 create mode 100644 manifest.scm
 create mode 100644 system.scm

diff --git a/README.org b/README.org
new file mode 100644
index 0000000..af2322f
--- /dev/null
+++ b/README.org
@@ -0,0 +1,8 @@
+#+TITLE: Container za emacs, CRDT, orgmode in web server
+
+* Viri
+- https://guix.gnu.org/cookbook/en/html_node/Guix-Containers.html
+- https://guix.gnu.org/cookbook/en/html_node/A-Database-Container.html
+- https://guix.gnu.org/cookbook/en/html_node/Container-Networking.html
+- https://issues.genenetwork.org/topics/guix-system-containers-and-how-we-use-them
+- https://guix.gnu.org/manual/en/html_node/Web-Services.html
diff --git a/guix-container.sh b/guix-container.sh
new file mode 100644
index 0000000..c4a2ced
--- /dev/null
+++ b/guix-container.sh
@@ -0,0 +1,2 @@
+pot="test"
+guix system container --network --share=$pot system.scm
diff --git a/guix-shell.sh b/guix-shell.sh
new file mode 100755
index 0000000..113e141
--- /dev/null
+++ b/guix-shell.sh
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+guix shell --container --network --manifest=manifest.scm -- emacs
diff --git a/manifest.scm b/manifest.scm
new file mode 100644
index 0000000..f93cd5c
--- /dev/null
+++ b/manifest.scm
@@ -0,0 +1,13 @@
+(specifications->manifest
+  (list ;; Base packages
+        "nginx"
+        "bash-minimal"
+        "glibc-locales"
+        "nss-certs"
+
+        ;; CMDline
+        "coreutils"
+
+        ;; Emacs!
+        "emacs"
+        "emacs-crdt"))
diff --git a/system.scm b/system.scm
new file mode 100644
index 0000000..6ddad73
--- /dev/null
+++ b/system.scm
@@ -0,0 +1,23 @@
+(use-modules (gnu))
+
+(use-package-modules web emacs)
+;(use-service-modules ...)
+
+(operating-system
+  (host-name "emacs-crdt-blog")
+  (timezone "Europe/Ljubljana")
+  (locale "sl_SI.UTF-8")
+  (file-systems (cons (file-system
+                        (device  (file-system-label "r00t"))
+                        (mount-point "/")
+                        (type "ext4"))
+                      %base-file-systems))
+  (bootloader (bootloader-configuration
+               (bootloader grub-bootloader)
+               (targets '("/dev/sdX"))))
+  (packages (append (list (specification->package "nginx")
+                          (specification->package "emacs")
+                          (specification->package "emacs-crdt"))
+            %base-packages))
+  (services %base-services))
+