cristiancmoises
/
zero
mirror of https://codeberg.org/anemofilia/zero
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

home-environments: radio: Move to wayland :)

impermanence
Luis Guilherme Coelho 2024-03-20 03:42:12 -03:00
parent c0717c14ca
commit d2eb63b0ab
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 29 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
home-environments/radio.scm
View File

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