From d2eb63b0abd8d567808bcc400a09b600168814cf Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Wed, 20 Mar 2024 03:42:12 -0300
Subject: [PATCH] home-environments: radio: Move to wayland :)

---
 home-environments/radio.scm | 43 +++++++++++++++++++++++++------------
 1 file changed, 29 insertions(+), 14 deletions(-)

diff --git a/home-environments/radio.scm b/home-environments/radio.scm
index 25e851d..854a61b 100644
--- a/home-environments/radio.scm
+++ b/home-environments/radio.scm
@@ -25,6 +25,7 @@
         #:use-module (gnu packages gnupg)
         #:use-module (gnu packages guile-xyz)
   #|I|# #:use-module (gnu packages image-viewers)
+        #:use-module (gnu packages image)
   #|L|# #:use-module (gnu packages linux)
   #|M|# #:use-module (gnu packages maths)
         #:use-module (gnu packages minetest)
@@ -36,6 +37,7 @@
         #:use-module (gnu packages ssh)
         #:use-module (gnu packages suckless)
   #|T|# #:use-module (gnu packages telegram)
+        #:use-module (gnu packages terminals)
         #:use-module (gnu packages text-editors)
         #:use-module (gnu packages tor-browsers)
         #:use-module (gnu packages toys)
@@ -44,6 +46,7 @@
   #|W|# #:use-module (gnu packages wm)
   #|X|# #:use-module (gnu packages xdisorg)
         #:use-module (gnu packages xorg)
+  #|Z|# #:use-module (gnu packages zig-xyz)
 
   #|GNU home services|#
   #|•|# #:use-module (gnu home services)
@@ -51,9 +54,11 @@
         #:use-module (gnu home services dotfiles)
   #|G|# #:use-module (gnu home services guix)
   #|M|# #:use-module (gnu home services mcron)
+  #|P|# #:use-module (gnu home services pm)
   #|S|# #:use-module (gnu home services ssh)
         #:use-module (gnu home services shepherd)
         #:use-module (gnu home services sound)
+  #|X|# #:use-module (gnu home services xdg)
 
   #|Guix|#
   #|C|# #:use-module (guix channels)
@@ -67,20 +72,20 @@
   #|F|# #:use-module (radix packages fonts)
   #|S|# #:use-module (radix packages seninha)
         #:use-module (radix packages syndication)
+  #|T|# #:use-module (radix packages toys)
   #|W|# #:use-module (radix packages wm)
 
   #|Radix home services|#
   #|•|# #:use-module (radix home services)
   #|G|# #:use-module (radix home services gnupg)
   #|S|# #:use-module (radix home services shells)
-  #|X|# #:use-module (radix home services xdg)
 
   #:export (home-environment))
 
 (define home-environment
   (user-home-environment
    (packages
-    (list #|admin         |# neofetch netcat-openbsd
+    (list #|admin         |# hyfetch
           #|bittorrent    |# aria2 qbittorrent
           #|c             |# c-intro-and-ref
           #|calendar      |# remind
@@ -91,14 +96,15 @@
           #|fonts         |# font-awesome font-google-noto font-google-noto-emoji
                              font-juliamono font-liberation font-meslo-lg-dz
                              font-misc-misc font-un font-wqy-zenhei
-          #|freedesktop   |# xdg-utils
+          #|freedesktop   |# xdg-utils xdg-desktop-portal xdg-desktop-portal-wlr
           #|games         |# minetest supertuxkart xonotic
           #|gnome         |# adwaita-icon-theme
           #|gnu-doc       |# gnu-standards
           #|gnupg         |# gnupg pinentry
           #|guile-xyz     |# haunt
+          #|image         |# grim slurp
           #|image-viewers |# imv ueberzug++
-          #|linux         |# alsa-utils
+          #|linux         |# wireplumber
           #|math          |# libqalculate
           #|password-utils|# keepassxc
           #|pdf           |# sioyek
@@ -106,17 +112,16 @@
           #|scheme        |# sicp
           #|seninha       |# fmutils
           #|ssh           |# openssh
-          #|suckless      |# xst
           #|syndication   |# newsraft
           #|telegram      |# telegram-desktop
-          #|tor-browsers  |# mullvadbrowser torbrowser
-          #|toys          |# oneko
+          #|terminals     |# foot
+          #|tor-browsers  |# mullvadbrowser
+          #|toys          |# wayneko
           #|vesion-control|# git
           #|video         |# ffmpeg mpv yt-dlp
-          #|wm            |# awesome-next
-          #|xdisorg       |# maim wmctrl xbanish xclip xinit xsel
-          #|xorg          |# setxkbmap xinput xf86-input-libinput xkill xmodmap
-                             xorg-server xrdb xset))
+          #|wm            |# fnott rivercarro swww waybar
+          #|xdisorg       |# fuzzel wl-clipboard wlsunset
+          #|zig-xyz       |# river))
 
    (services
     (list #|XDG services|#
@@ -353,8 +358,7 @@
                             ("GUILE_LOAD_PATH"
                              . ,(format #f "~?~?"
                                            "~@{:$HOME/areas/code/scm/~a~}"
-                                           '(ajatt
-                                             radix
+                                           '(radix
                                              zero
                                              zero/operating-systems
                                              zero/home-environments)
@@ -375,7 +379,7 @@
                             ("PAGER"    . "less")
                             ("READER"   . "sioyek")
                             ("SHELL"    . "fish")
-                            ("TERMINAL" . "xst")
+                            ("TERMINAL" . "foot")
                             ("VISUAL"   . "kak")
                             ("WM"       . "awesome")))
 
@@ -407,6 +411,17 @@
           #|Sound services|#
           (service home-pipewire-service-type)
 
+          #|Battery services|#
+          (service home-batsignal-service-type
+                   (home-batsignal-configuration
+                    (poll-delay 15)
+                    (full-level 90)
+                    (warning-level 70)
+                    (critical-level 30)
+                    (full-message "Unplug the cable.")
+                    (warning-message "You may want to plug the cable.")
+                    (critical-message "Plug the cable.")))
+
           #|Mcron service|#
           (service home-mcron-service-type
                    (home-mcron-configuration