(define-module (home-environments radio) #|GNU|# #:use-module (gnu) #:use-module ((gnu home) #:select (this-home-environment)) #:use-module ((gnu home) #:hide (this-home-environment) #:prefix user-) #:use-module (gnu home services) #|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) #:use-module (gnu packages databases) #|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 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-browsers) #: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) #|GNU home services|# #|D|# #:use-module (gnu home services desktop) #|G|# #:use-module (gnu home services guix) #|M|# #:use-module (gnu home services mcron) #|S|# #:use-module (gnu home services ssh) #:use-module (gnu home services shepherd) #:use-module (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 seninha) #: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) #|Radio|# #|S|# #:use-module ((radio fish-abbreviations) #:prefix fish-abbreviations:) #|Radio files|# #|A|# #:use-module ((radio files awesome) #:prefix file:awesome-) #|E|# #:use-module ((radio files emacs) #:prefix file:emacs-) #|F|# #:use-module ((radio files fish) #:prefix file:fish-) #|G|# #:use-module ((radio files git) #:prefix file:git-) #|I|# #:use-module ((radio files info) #:prefix file:info-) #|K|# #:use-module ((radio files kakoune) #:prefix file:kak-) #|L|# #:use-module ((radio files lf) #:prefix file:lf-) #|M|# #:use-module ((radio files mpv) #:prefix file:mpv-) #|N|# #:use-module ((radio files newsraft) #:prefix file:newsraft-) #:export (home-environment)) (define home-environment (user-home-environment (packages (list #|admin |# neofetch netcat-openbsd #|bittorrent |# aria2 qbittorrent #|c |# c-intro-and-ref #|calendar |# remind #|curl |# curl #|disk |# lf #|databases |# recutils #|file |# file #|fonts |# font-arabic-misc font-liberation font-meslo-lg-dz font-misc-misc font-un font-wqy-zenhei #|freedesktop |# xdg-utils #|games |# minetest supertuxkart xonotic #|gnome |# adwaita-icon-theme #|gnu-doc |# gnu-standards #|gnupg |# gnupg pinentry #|guile-xyz |# haunt #|image-viewers |# imv #|linux |# alsa-utils #|math |# libqalculate #|password-utils|# keepassxc #|pdf |# zathura zathura-pdf-mupdf zathura-djvu #|pulseaudio |# pamixer pavucontrol #|python-xyz |# python-ueberzug #|scheme |# sicp #|seninha |# fmutils #|ssh |# openssh #|suckless |# xst #|syndication |# newsraft #|telegram |# telegram-desktop #|tor-browsers |# mullvadbrowser torbrowser #|toys |# oneko #|vesion-control|# git #|video |# ffmpeg mpv yt-dlp #|wm |# awesome-next #|xdisorg |# maim xbanish xclip xinit xsel #|xorg |# setxkbmap xinput xf86-input-libinput xkill xmodmap xorg-server xrdb xset)) (services (list #|XDG services|# (service home-xdg-user-directories-service-type (home-xdg-user-directories-configuration (desktop "$HOME/areas") (documents "$HOME/areas/documents") (download "$HOME/.local/share/downloads") (music "$HOME/media/music") (pictures "$HOME/media/pictures") (videos "$HOME/media/videos") (publicshare "") (templates ""))) (service home-xdg-mime-applications-service-type (home-xdg-mime-applications-configuration (default (associate-right ('mullvadbrowser.desktop `("text/html" "application/xhtml+xml" "application/x-extension-htm" "application/x-extension-xhtml" "application/x-extension-xht" "x-scheme-handler/http" "x-scheme-handler/https")) ('kak.desktop `("text/plain" "text/troff" "text/xml" "text/x-c" "text/x-c++" "text/x-diff" "text/x-lisp" "text/x-scheme" "text/x-shellscript" "text/x-tex")) ('lf.desktop `("inode/directory" "x-scheme-handler/ftp" "x-scheme-handler/nfs" "x-scheme-handler/smb" "x-scheme-handler/ssh" "application/x-directory")) ('mpv.desktop `("image/gif" "audio/mpeg" "audio/ogg" "audio/opus" "audio/x-opus+ogg" "video/mp4" "video/x-matroska" "video/webm")) ('imv.desktop `("image/avif" "image/bmp" "image/jpeg" "image/png" "image/svg+xml" "image/webp")) ('org.pwmt.zathura.desktop `("image/vnd.djvu" "application/pdf" "application/epub+zip")))))) (service home-xdg-configuration-files-service-type `(("awesome/rc.lua" ,file:awesome-config) ("awesome/themes/current.lua" ,file:awesome-theme) ("emacs/init.el" ,file:emacs-init) ("emacs/theme.el" ,file:emacs-theme) ("fish/functions" ,file:fish-functions) ("fish/conf.d" ,file:fish-config) ("git" ,file:git-config) ("info" ,file:info-config) ("kak/kakrc" ,file:kak-config) ("kak/autoload/colorscheme.kak" ,file:kak-colorscheme) ("lf" ,file:lf-config) ("mpv" ,file:mpv-config) ("newsraft" ,file:newsraft-config))) #|Guix service|# (simple-service 'channels-service home-channels-service-type (list (channel (name 'radix) (url "https://codeberg.org/anemofilia/radix") (branch "main") (introduction (make-channel-introduction "f9130e11e35d2c147c6764ef85542dc58dc09c4f" (openpgp-fingerprint (format #f "F164 709E 5FC7 B32B AEC7 ~ 9F37 1F2E 76AC E3F5 31C8"))))))) #|Shepherd service|# (service home-shepherd-service-type) #|Shell services|# (service home-fish-service-type (home-fish-configuration (config (list file:fish-custom-functions)) (environment-variables `(#|GNU Privacy Guard|# ("GPG_TTY" . "(tty)") #|Remind|# ("DOTREMINDERS" . "$XDG_DATA_HOME/reminders") #|GTK|# ("GTK_RC_FILES" . "$XDG_CONFIG_HOME/gtk-2.0/gtkrc") #|Ncurses|# ("TERMINFO" . "$XDG_DATA_HOME/terminfo"))) (aliases `(#|Common aliases|# ("df" . "df -h") ("du" . "du -h") ("diff" . "diff --color=auto") ("grep" . "grep --color=auto") ("ip" . "ip --color=auto") ("ls" . ,(format #f "ls --color=auto ~ --group-directories-first ~ --classify ~ -hv")) #|Clear terminal screen without ncurses|# ("clear" . "printf \"\\033c\"") #|Make ln idempotent|# ("ln" . "ln -sfn") #|Kakoune bindings for info|# ("info" . "info --init-file $XDG_CONFIG_HOME/info") #|Easy presentation setup with xrandr|# ("present" . ,(format #f "xrandr --output LVDS-1 ~ --mode 1366x768 ~ --scale 1x1 ~ --output VGA-1 ~ --same-as LVDS-1 ~ --mode 1920x1080 ~ --scale 0.711x0.711")) #|Display images in lf using ueberzug|# ("lf" . "$HOME/.local/bin/lf/lfrun") #|Listen to libre music on vern's radio|# ("radio" . "https://radio.vern.cc") #|Kakoune aliases for the shell|# ("':e'" . "kak") ("':q'" . "exit"))) (abbreviations `(,@fish-abbreviations:user-dirs ,@fish-abbreviations:extensions ,@fish-abbreviations:channels ,@fish-abbreviations:config ,@fish-abbreviations:quick-edit ,@fish-abbreviations:bookmarks ,@fish-abbreviations:history ,@fish-abbreviations:guix ,@fish-abbreviations:terminal-emulators ,@fish-abbreviations:download/upload)))) (simple-service 'environment-variables-service home-environment-variables-service-type `(#|Shells|# ("PATH" . "$HOME/.local/bin:$PATH") ("ENV" . "$XDG_CONFIG_HOME/dash/init.sh") ("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc") ("XINITRC" . "$XDG_CONFIG_HOME/x11/xinitrc") #|Guile|# ("GUILE_WARN_DEPRECATED" . "detailed") ("GUILE_HISTORY" . "$XDG_CACHE_HOME/guile/history") ("GUILE_LOAD_PATH" . ,(format #f "$HOME/areas/code/scm~?~?" "~@{:$HOME/areas/code/scm/~a~}" '(ajatt radix/modules radix/home-environments radix/operating-systems) "~@{:~a/share/guile/site/3.0~}" '($HOME/.guix-home/profile $XDG_CONFIG_HOME/guix/current /run/current-system/profile))) #|Language|# ("LANG" . "en_US.UTF-8") ("LANGUAGE" . "en_US.UTF-8") ("LC_COLLATE" . "C") #|Default applications|# ("BROWSER" . "mullvadbrowser") ("EDITOR" . "kak") ("FCEDIT" . "kak") ("PAGER" . "less") ("READER" . "zathura") ("SHELL" . "fish") ("TERMINAL" . "xst") ("VISUAL" . "kak") ("WM" . "awesome"))) (service home-openssh-service-type (home-openssh-configuration (hosts (list (openssh-host (name "codeberg.org") (host-name "codeberg.org") (user "git") (identity-file "~/.ssh/codeberg")) (openssh-host (name "github.com") (host-name "github.com") (user "git") (identity-file "~/.ssh/github")) (openssh-host (name "*.onion") (identity-file "~/.ssh/codeberg") (proxy (proxy-command "nc -x 127.0.0.1:9050 -X5 %h %p"))))) (authorized-keys #f))) (service home-gpg-agent-service-type (home-gpg-agent-configuration (gnupghome ".local/share/gnupg") (pinentry-program (file-append pinentry "/bin/pinentry-curses")))) #|Session services|# (service home-dbus-service-type) #|Sound services|# (service home-pipewire-service-type) #|Desktop application services|# (service home-zathura-service-type (home-zathura-configuration (selection-clipboard 'clipboard) (pages-per-row 1) (statusbar-home-tilde? #t) (recolor (recolor-configuration (keephue? #t) (reverse-video? #t))) (key-maps (list (key-map (binding "gk") (command "goto top")) (key-map (binding "gj") (command "goto bottom")) (key-map (binding "d") (command #f)))) (index-face (face (background "#000000") (foreground "#dddddd"))) (index-active-face (face (background "#9688d9") (foreground "#000000"))) (completion-face (face (background "#000000") (foreground "#dddddd"))) (completion-highlight-face (face (background "#000000") (foreground "#9688d9"))))) #|Mcron service|# (service home-mcron-service-type (home-mcron-configuration (jobs (list #~(job "30 5 * * *" "mpv --shuffle ~/media/music"))))))))) home-environment