From 6e34cd5024022723405237654a4322a3ef8db117 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Tue, 26 Jan 2021 11:36:20 +0100
Subject: [PATCH] .config/guix/system/desktop-nanana: Init.

---
 .config/guix/system/desktop-nanana.scm | 71 ++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100644 .config/guix/system/desktop-nanana.scm

diff --git a/.config/guix/system/desktop-nanana.scm b/.config/guix/system/desktop-nanana.scm
new file mode 100644
index 00000000..8738f6b1
--- /dev/null
+++ b/.config/guix/system/desktop-nanana.scm
@@ -0,0 +1,71 @@
+;; With Eshell:
+;; *sudo -E guix system -L ~/.config/guix/system reconfigure ~/.config/guix/system/desktop-nanana.scm
+(define-module (desktop-nanana)
+  #:use-module (srfi srfi-1)
+  #:use-module (default)
+  #:use-module (guix packages)
+  #:use-module (gnu)
+  #:use-module (gnu system)
+  #:use-module (gnu services))
+
+(use-service-modules
+ desktop                                ; To remove bluetooth.
+ networking                             ; To remove NetworkManager.
+ ;; To remove GDM:
+ xorg)
+
+(use-package-modules
+ ;; To remove iw.
+ linux)
+
+(define-public %nanana/services
+  (cons*
+   (service connman-service-type)
+   (service slim-service-type (slim-configuration
+                               (display ":0")
+                               (vt "vt7")))
+   (remove
+    (lambda (service)
+      (or
+       (member (service-kind service)
+               (list bluetooth-service
+                     cups-pk-helper-service-type
+                     geoclue-service
+                     gdm-service-type
+                     ;; NetworkManager.  The applet is a
+                     ;; simple-service and must be removed by
+                     ;; matching the type name.
+                     network-manager-service-type
+                     ;; wpa-supplicant-service-type ; Still needed for networking.
+                     modem-manager-service-type
+                     usb-modeswitch-service-type))
+       (member (service-type-name (service-kind service))
+               '(network-manager-applet))))
+    %ambrevar/services)))
+
+(define-public %nanana/os
+  (operating-system
+    (inherit %ambrevar/default-os)
+    (host-name "nanana")
+
+    (file-systems (cons* (file-system
+                           (device (uuid "CAE6-BFFA" 'fat))
+                           (mount-point "/boot/efi")
+                           (type "vfat"))
+                         (file-system
+                           (device (file-system-label "guix"))
+                           (mount-point "/")
+                           (type "btrfs")
+                           (options "subvol=rootfs,compress=zstd"))
+                         (file-system
+                           (mount-point "/tmp")
+                           (device "none")
+                           (type "tmpfs")
+                           (check? #f))
+                         %base-file-systems))
+
+    (packages (delete iw (operating-system-packages %ambrevar/default-os)))
+
+    (services %nanana/services)))
+
+%nanana/os