From 6f8d4a801ceaee4ae8aba075f323418da511d89d Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Sat, 9 Nov 2024 08:54:30 -0300
Subject: [PATCH] operating-systems: buer: Set uncompressed zram size to 2*ram,
 use greetd-service-type from (radix services greetd)

---
 operating-systems/buer.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/operating-systems/buer.scm b/operating-systems/buer.scm
index 7d74ef9..38f9098 100644
--- a/operating-systems/buer.scm
+++ b/operating-systems/buer.scm
@@ -24,7 +24,7 @@
   #|•|# #:use-module (gnu services)
   #|A|# #:use-module (gnu services admin)
         #:use-module (gnu services avahi)
-  #|B|# #:use-module (gnu services base)
+  #|B|# #:use-module ((gnu services base) #:hide (greetd-service-type))
   #|D|# #:use-module (gnu services dbus)
         #:use-module (gnu services desktop)
   #|G|# #:use-module (gnu services guix)
@@ -61,6 +61,7 @@
 
   #|Radix services|#
   #|A|# #:use-module (radix services admin)
+  #|G|# #:use-module (radix services greetd)
   #|P|# #:use-module (radix services pm)
 
   #|Radix system|#
@@ -181,10 +182,7 @@
                       (map (lambda (x)
                              (greetd-terminal-configuration
                               (terminal-vt (number->string x))
-                              (terminal-switch (= x 1))
-                              (default-session-command
-                               (greetd-agreety-session
-                                (command #~(getenv "SHELL"))))))
+                              (terminal-switch (= x 1))))
                            (iota 2 1)))))
 
           #|Home environment services|#
@@ -289,7 +287,7 @@
           #|Memory management services|#
           (service zram-device-service-type
                    (zram-device-configuration
-                    (size (round/ (ram-total) 2))
+                    (size (* 2 (ram-total)))
                     (compression-algorithm 'lz4)))
 
           #|Permission services|#