Initialze repository

systems/base.scm

@@ -0,0 +1,38 @@
+(define-module (systems base)
+  #:use-module (gnu)
+  #:use-module (guix)
+  #:export (system-config))
+
+(use-service-modules networking ssh)
+
+(define (system-config system)
+  (operating-system
+    (inherit system)
+    (timezone "Etc/UTC")
+    (locale "en_DK.utf8")
+
+    (users (cons (user-account
+                  (name "muon")
+                  (group "users")
+                  (home-directory "/home/muon")
+                  (supplementary-groups
+                    '("wheel" "netdev" "kvm" "tty" "input" "audio" "video")))
+                 %base-user-accounts))
+
+    (packages (append (map specification->package
+                        '("git"
+                          "glibc-locales"
+                          "nss-certs"
+                          "gnupg"
+                          "curl"
+                          "cryptsetup"
+                          "openssl"
+                          "polkit"
+                          "vim"))
+                      %base-packages))
+
+    (services (append (list (service dhcpcd-service-type)
+                            (service openssh-service-type))
+                      %base-services))))
+
+