From bbc069ee0d10b9f0eef577336eeab83cf20ae7e5 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Sat, 30 Dec 2023 11:45:51 -0300
Subject: [PATCH] home-environments: radio: Turn file into a guile module

---
 home-environments/radio.scm | 123 +++++++++++++++++++++++-------------
 1 file changed, 78 insertions(+), 45 deletions(-)

diff --git a/home-environments/radio.scm b/home-environments/radio.scm
index f371d0a..31a24cb 100644
--- a/home-environments/radio.scm
+++ b/home-environments/radio.scm
@@ -1,50 +1,83 @@
-#|Modules|#
-(use-modules
- #|GNU  |# (gnu)
-           (gnu home)
-           (gnu home services)
- #|Guix |# (guix channels)
- #|Radix|# (radix packages fonts)
-           (radix packages wm)
-           (radix packages syndication)
-           (radix home services)
-           (radix home services shells)
-           (radix home services gnupg)
-           (radix home services xdg)
-           (radix home services zathura)
-           (radix utils)
-           ((radix files awesome)  #:prefix file:awesome-)
-           ((radix files emacs)    #:prefix file:emacs-)
-           ((radix files fish)     #:prefix file:fish-)
-           ((radix files git)      #:prefix file:git-)
-           ((radix files info)     #:prefix file:info-)
-           ((radix files kakoune)  #:prefix file:kak-)
-           ((radix files lf)       #:prefix file:lf-)
-           ((radix files mpv)      #:prefix file:mpv-)
-           ((radix files newsraft) #:prefix file:newsraft-))
+(define-module (radix home-enviroments radio)
+  #|GNU|#
+  #:use-module (gnu)
+  #:use-module (gnu home)
+  #:use-module (gnu home services)
 
-(use-package-modules
- #|A|# admin
- #|B|# bittorrent
- #|C|# c calendar curl
- #|D|# disk
- #|F|# file fonts freedesktop
- #|G|# games gnome gnu-doc gnupg gnuzilla guile-xyz
- #|I|# image-viewers
- #|L|# linux
- #|M|# maths minetest
- #|P|# password-utils pdf pulseaudio python-xyz
- #|S|# scheme shells ssh suckless
- #|T|# telegram text-editors tor toys
- #|V|# version-control video
- #|W|# wm
- #|X|# xdisorg xorg)
+  #|GNU packages|#
+  #|A|# #:use-module (gnu packages admin)
+  #|B|# #:use-module (gnu packages bittorrent)
+  #|C|# #:use-module (gnu packages c)
+        #:use-module (gnu packages calendar)
+        #:use-module (gnu packages curl)
+  #|D|# #:use-module (gnu packages disk)
+  #|F|# #:use-module (gnu packages file)
+        #:use-module (gnu packages fonts)
+        #:use-module (gnu packages freedesktop)
+  #|G|# #:use-module (gnu packages games)
+        #:use-module (gnu packages gnome)
+        #:use-module (gnu packages gnu-doc)
+        #:use-module (gnu packages gnupg)
+        #:use-module (gnu packages gnuzilla)
+        #:use-module (gnu packages guile-xyz)
+  #|I|# #:use-module (gnu packages image-viewers)
+  #|L|# #:use-module (gnu packages linux)
+  #|M|# #:use-module (gnu packages maths)
+        #:use-module (gnu packages minetest)
+  #|P|# #:use-module (gnu packages password-utils)
+        #:use-module (gnu packages pdf)
+        #:use-module (gnu packages pulseaudio)
+        #:use-module (gnu packages python-xyz)
+  #|S|# #:use-module (gnu packages scheme)
+        #:use-module (gnu packages shells)
+        #:use-module (gnu packages ssh)
+        #:use-module (gnu packages suckless)
+  #|T|# #:use-module (gnu packages telegram)
+        #:use-module (gnu packages text-editors)
+        #:use-module (gnu packages tor)
+        #:use-module (gnu packages toys)
+  #|V|# #:use-module (gnu packages version-control)
+        #:use-module (gnu packages video)
+  #|W|# #:use-module (gnu packages wm)
+  #|X|# #:use-module (gnu packages xdisorg)
+        #:use-module (gnu packages xorg)
 
-(use-home-service-modules
- #|D|# desktop
- #|G|# guix
- #|M|# mcron
- #|S|# ssh shepherd sound)
+  #|GNU home services|#
+  #|D|# (gnu home services desktop)
+  #|G|# (gnu home services guix)
+  #|M|# (gnu home services mcron)
+  #|S|# (gnu home services ssh)
+        (gnu home services shepherd)
+        (gnu home services sound)
+
+  #|Guix|#
+  #:use-module (guix channels)
+
+  #|Radix|#
+  #:use-module (radix utils)
+  #:use-module (radix home services)
+
+  #|Radix packages|#
+  #|F|# #:use-module (radix packages fonts)
+  #|S|# #:use-module (radix packages syndication)
+  #|W|# #:use-module (radix packages wm)
+
+  #|Radix home services|#
+  #|G|# #:use-module (radix home services gnupg)
+  #|S|# #:use-module (radix home services shells)
+  #|X|# #:use-module (radix home services xdg)
+  #|Z|# #:use-module (radix home services zathura)
+
+  #|Radix files|#
+  #|A|# #:use-module ((radix files awesome)  #:prefix file:awesome-)
+  #|E|# #:use-module ((radix files emacs)    #:prefix file:emacs-)
+  #|F|# #:use-module ((radix files fish)     #:prefix file:fish-)
+  #|G|# #:use-module ((radix files git)      #:prefix file:git-)
+  #|I|# #:use-module ((radix files info)     #:prefix file:info-)
+  #|K|# #:use-module ((radix files kakoune)  #:prefix file:kak-)
+  #|L|# #:use-module ((radix files lf)       #:prefix file:lf-)
+  #|M|# #:use-module ((radix files mpv)      #:prefix file:mpv-)
+  #|N|# #:use-module ((radix files newsraft) #:prefix file:newsraft-))
 
 (home-environment
  (packages