mirror of https://codeberg.org/anemofilia/zero
557 lines
23 KiB
Scheme
557 lines
23 KiB
Scheme
(define-module (home-environments radio)
|
|
#|Ice-9|#
|
|
#|M|# #:use-module (ice-9 match)
|
|
|
|
#|GNU|#
|
|
#|•|# #:use-module (gnu)
|
|
#|H|# #:use-module ((gnu home) #:select (this-home-environment))
|
|
#:use-module ((gnu home) #:hide (this-home-environment)
|
|
#:prefix user-)
|
|
|
|
#|GNU packages|#
|
|
#|A|# #:use-module (gnu packages admin)
|
|
#|B|# #:use-module (gnu packages bittorrent)
|
|
#:use-module (gnu packages browser-extensions)
|
|
#|C|# #:use-module (gnu packages c)
|
|
#:use-module (gnu packages calendar)
|
|
#:use-module (gnu packages chromium)
|
|
#:use-module (gnu packages curl)
|
|
#|D|# #: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 glib)
|
|
#: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)
|
|
#|H|# #:use-module (gnu packages haskell-xyz)
|
|
#|I|# #:use-module (gnu packages image)
|
|
#:use-module (gnu packages image-viewers)
|
|
#:use-module (gnu packages irc)
|
|
#|L|# #:use-module (gnu packages linux)
|
|
#:use-module (gnu packages llvm)
|
|
#|M|# #:use-module (gnu packages maths)
|
|
#:use-module (gnu packages messaging)
|
|
#:use-module (gnu packages minetest)
|
|
#|O|# #:use-module (gnu packages ocr)
|
|
#|P|# #:use-module (gnu packages password-utils)
|
|
#:use-module (gnu packages pdf)
|
|
#:use-module (gnu packages pulseaudio)
|
|
#|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 terminals)
|
|
#:use-module (gnu packages tex)
|
|
#:use-module (gnu packages text-editors)
|
|
#: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)
|
|
#|Z|# #:use-module (gnu packages zig-xyz)
|
|
|
|
#|GNU home services|#
|
|
#|•|# #:use-module (gnu home services)
|
|
#|D|# #:use-module (gnu home services desktop)
|
|
#:use-module (gnu home services dotfiles)
|
|
#|G|# #:use-module (gnu home services guix)
|
|
#|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)
|
|
|
|
#|Guix|#
|
|
#|C|# #:use-module (guix channels)
|
|
#|P|# #:use-module (guix packages)
|
|
|
|
#|Radio|#
|
|
#|C|# #:use-module ((radio channels) #:prefix channel:)
|
|
|
|
#|Radix|#
|
|
#|C|# #:use-module (radix combinators)
|
|
#|U|# #:use-module (radix utils)
|
|
|
|
#|Radix packages|#
|
|
#|B|# #:use-module (radix packages browser-extensions)
|
|
#|D|# #:use-module (radix packages disk)
|
|
#|I|# #:use-module (radix packages image-viewers)
|
|
#|F|# #:use-module (radix packages fish-xyz)
|
|
#:use-module (radix packages freedesktop)
|
|
#:use-module (radix packages fonts)
|
|
#|P|# #:use-module (radix packages pdf)
|
|
#|S|# #:use-module (radix packages seninha)
|
|
#:use-module (radix packages syndication)
|
|
#|T|# #:use-module (radix packages text-editors)
|
|
#:use-module (radix packages toys)
|
|
#|W|# #:use-module (radix packages wm)
|
|
#|V|# #:use-module (radix packages video)
|
|
#|X|# #:use-module (radix packages xdisorg)
|
|
|
|
#|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
|
|
|
|
application:browser
|
|
application:editor
|
|
application:pager
|
|
application:reader
|
|
application:shell
|
|
application:terminal
|
|
application:wm
|
|
|
|
packages:blogging
|
|
packages:calendar
|
|
packages:databases
|
|
packages:desktop
|
|
packages:development
|
|
packages:documentation
|
|
packages:downloads
|
|
packages:file-managing
|
|
packages:fonts
|
|
packages:games
|
|
packages:haskell
|
|
packages:image
|
|
packages:messaging
|
|
packages:password
|
|
packages:scheme
|
|
packages:sound
|
|
packages:video
|
|
packages:web))
|
|
|
|
#|Default applications|#
|
|
(define application:browser "chromium")
|
|
(define application:editor "kak")
|
|
(define application:pager "less")
|
|
(define application:reader "sioyek")
|
|
(define application:terminal "footclient -D ~")
|
|
(define application:wm "river")
|
|
|
|
#|Package lists|#
|
|
(define packages:blogging
|
|
(list #|guile-xyz|# haunt))
|
|
|
|
(define packages:calendar
|
|
(list #|calendar|# remind))
|
|
|
|
(define packages:databases
|
|
(list #|databases|# recutils))
|
|
|
|
(define packages:desktop
|
|
(list #|admin |# fastfetch
|
|
#|freedesktop|# xdg-utils xdg-desktop-portal xdg-desktop-portal-wlr
|
|
xdg-terminal-exec
|
|
#|glib |# dbus
|
|
#|image |# grim slurp
|
|
#|terminals |# foot
|
|
#|toys |# wayneko
|
|
#|wm |# fnott rivercarro riverguile river-bnf swww
|
|
waybar-sans-elogind
|
|
#|xdisorg |# fuzzel wl-clipboard wlrctl gammastep
|
|
#|zig-xyz |# river-minimal))
|
|
|
|
(define packages:development
|
|
(list #|gnupg |# gnupg pinentry
|
|
#|llvm |# clang-15
|
|
#|math |# libqalculate
|
|
#|ssh |# openssh
|
|
#|text-editors |# kakoune kak-lsp parinfer-rust
|
|
#|vesion-control|# git))
|
|
|
|
(define packages:documentation
|
|
(list #|c |# c-intro-and-ref
|
|
#|gnu-doc|# gnu-standards
|
|
#|scheme |# r7rs-small-texinfo sicp))
|
|
|
|
(define packages:downloads
|
|
(list #|bittorrent|# aria2 qbittorrent
|
|
#|curl |# curl
|
|
#|video |# yt-dlp))
|
|
|
|
(define packages:file-managing
|
|
(list #|disk |# lf
|
|
#|file |# file
|
|
#|haskell-xyz |# pandoc
|
|
#|image-viewers|# chafa
|
|
#|pdf |# poppler
|
|
#|seninha |# fmutils
|
|
#|video |# ffmpegthumbnailer))
|
|
|
|
(define packages:fonts
|
|
(list #|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))
|
|
|
|
(define packages:games
|
|
(list #|games|# minetest red-eclipse supertuxkart xonotic))
|
|
|
|
(define packages:image
|
|
(list #|image-viewers|# imv
|
|
#|ocr |# tesseract-ocr))
|
|
|
|
(define packages:messaging
|
|
(list #|telegram |# telegram-desktop))
|
|
|
|
(define packages:password
|
|
(list #|password-utils|# keepassxc))
|
|
|
|
(define packages:reading
|
|
(list #|gnome |# libnotify ; dependency for newsraft
|
|
#|pdf |# sioyek/wayland
|
|
#|syndication|# newsraft))
|
|
|
|
(define packages:scheme
|
|
(list #|guile-xyz|# guile-goblins guile-hoot guile-lib guile-srfi-197
|
|
guile-srfi-232))
|
|
|
|
(define packages:haskell
|
|
(list #|commencement|# gcc-toolchain
|
|
#|haskell |# ghc
|
|
#|haskell-xyz |# ghc-async ghc-base-prelude ghc-basement
|
|
ghc-basic-prelude ghc-chart ghc-groups))
|
|
|
|
(define packages:sound
|
|
(list #|linux |# wireplumber-minimal
|
|
#|pulseaudio|# pavucontrol))
|
|
|
|
(define packages:video
|
|
(list #|video|# ffmpeg mpv-minimal/wayland))
|
|
|
|
(define packages:web
|
|
(list #|chromium |# ungoogled-chromium/wayland
|
|
#|browser-extensions|# darkreader/chromium ublock-origin/chromium))
|
|
|
|
(define home-environment
|
|
(user-home-environment
|
|
(packages
|
|
(append #|B|# packages:blogging
|
|
#|C|# packages:calendar
|
|
#|D|# packages:databases packages:desktop packages:development
|
|
packages:documentation packages:downloads
|
|
#|F|# packages:file-managing packages:fonts
|
|
#|G|# packages:games
|
|
#|H|# packages:haskell
|
|
#|I|# packages:image
|
|
#|M|# packages:messaging
|
|
#|P|# packages:password
|
|
#|R|# packages:reading
|
|
#|S|# packages:scheme packages:sound
|
|
#|V|# packages:video
|
|
#|W|# packages:web))
|
|
|
|
(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
|
|
(desktop-entries
|
|
(list (xdg-desktop-entry
|
|
(name "foot")
|
|
(file "org.codeberg.dnkl.foot.desktop")
|
|
(type 'application)
|
|
(config `((exec . "foot")
|
|
(terminal . "true")
|
|
(exec-arg . "")
|
|
(startup-wm-class . "foot"))))))
|
|
(default (associate-right
|
|
('chromium.desktop
|
|
`("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/html"
|
|
"text/plain"
|
|
"text/troff"
|
|
"text/xml"
|
|
"text/x-c"
|
|
"text/x-c++"
|
|
"text/x-clojure"
|
|
"text/x-diff"
|
|
"text/x-lisp"
|
|
"text/x-scheme"
|
|
"text/x-script.python"
|
|
"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"))
|
|
('sioyek.desktop
|
|
`("image/vnd.djvu"
|
|
"application/pdf"
|
|
"application/epub+zip"))))))
|
|
|
|
#|Dotfiles service|#
|
|
(service home-dotfiles-service-type
|
|
(home-dotfiles-configuration
|
|
(layout 'plain)
|
|
(directories `("radio/files"))))
|
|
|
|
#|Guix service|#
|
|
(simple-service 'home-extra-channels
|
|
home-channels-service-type
|
|
(list channel:guix
|
|
channel:radix))
|
|
|
|
#|Shepherd service|#
|
|
(service home-shepherd-service-type)
|
|
|
|
#|Shell services|#
|
|
(service home-fish-service-type
|
|
(home-fish-configuration
|
|
(plugins
|
|
(list fish-autopair
|
|
fish-done
|
|
fish-puffer))
|
|
(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")
|
|
|
|
#|Plugins|#
|
|
("__done_allow_nongraphical" . "1")
|
|
("__done_exclude"
|
|
. (map (partial string-append "^")
|
|
(list #|G|# "git" "guix (edit|repl|shell)"
|
|
#|K|# "kak"
|
|
#|L|# "lf"
|
|
#|M|# "mpv"
|
|
#|N|# "newsraft")))
|
|
("__done_notification_command"
|
|
. "notify-send '$title' '$message'")))
|
|
(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 ~
|
|
--human-readable ~
|
|
-v"))
|
|
|
|
#|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")
|
|
|
|
#|Kakoune aliases for the shell|#
|
|
(":e" . "kak")
|
|
(":q" . "exit")))
|
|
(abbreviations
|
|
(let ((@ (symbol-prefix-proc '@))
|
|
(edit (partial format #f "$EDITOR~@{ ~a~}"))
|
|
(@radix (partial symbol-append '~/areas/code/scm/radix))
|
|
(@zero (partial symbol-append '~/areas/code/scm/zero)))
|
|
`(,@(map (match-lambda
|
|
((x . y) (abbreviation
|
|
(name (@ x))
|
|
(position 'anywhere)
|
|
(expansion (y x)))))
|
|
(associate-right
|
|
#|P.A.R.A.|#
|
|
((lambda (dir)
|
|
(cond ((equal? dir 'archive)
|
|
(symbol-append '~/. dir))
|
|
((equal? dir 'bookmarks)
|
|
(symbol-append '~/resources/ dir))
|
|
(else (symbol-append '~/ dir))))
|
|
'(areas bookmarks projects resources archive))
|
|
|
|
#|XDG user directories|#
|
|
((const (fish-function "xdg-user-directory"))
|
|
'(desktop documents download music pictures videos))
|
|
|
|
#|Code projects|#
|
|
((symbol-prefix-proc '~/projects/code/)
|
|
'(c clj cpp hs html kak md pl scm sh tex zig))
|
|
|
|
#|Code areas|#
|
|
((symbol-prefix-proc '~/areas/code/scm/)
|
|
'(guile guix misako radix
|
|
riverguile saayix shepherd zero))
|
|
|
|
#|Radix|#
|
|
((partial @radix '/radix/)
|
|
'(packages services home/services))
|
|
|
|
#|Zero|#
|
|
((partial @zero '/operating-systems/)
|
|
(list (string->symbol (gethostname))))
|
|
((partial @zero '/home-environments/)
|
|
'(radio))
|
|
((partial @zero '/home-environments/radio/)
|
|
'(files manifests))))
|
|
|
|
,@(map (match-lambda
|
|
((x . y) (abbreviation
|
|
(name x)
|
|
(expansion y))))
|
|
`(#|Download/Upload|#
|
|
(a . "aria2c -j 10 '%'")
|
|
(i . "ipfs get %")
|
|
(m . "yt-dlp -x '%'")
|
|
(u . "curl -F file=@% https://0x0.st | wl-copy")
|
|
(v . "yt-dlp '%'")))
|
|
|
|
,@(map (match-lambda
|
|
((x . y) (abbreviation
|
|
(name x)
|
|
(position 'anywhere)
|
|
(expansion y))))
|
|
`(#|Guix|#
|
|
(!dgen . "guix % delete-generations 2w")
|
|
(!repair . "doas guix build --repair")
|
|
(!pull . "guix pull")
|
|
(!home . "guix home reconfigure ~/.config/guix/home.scm")
|
|
(!system . "doas guix system reconfigure /etc/config.scm")
|
|
|
|
#|Processes|#
|
|
(tf . "setsid -f %>/dev/null 2>&1 & disown")
|
|
|
|
#|Quick edit|#
|
|
(:e . ,(edit))
|
|
(:system . ,(edit "/etc/config.scm"))
|
|
(:home . ,(edit "~/.config/guix/home.scm"))
|
|
(:todo . ,(edit "~/areas/meta/todo")))))))))
|
|
|
|
#|Environment variables services|#
|
|
(simple-service 'home-shell-environment-variables
|
|
home-environment-variables-service-type
|
|
`(("PATH" . "$HOME/.local/bin:$PATH")
|
|
("INPUTRC" . "$XDG_CONFIG_HOME/readline/inputrc")))
|
|
(simple-service 'home-guile-environment-variables
|
|
home-environment-variables-service-type
|
|
`(("GUILE_WARN_DEPRECATED" . "detailed")
|
|
("GUILE_HISTORY" . "$XDG_CACHE_HOME/guile/history")
|
|
("GUILE_LOAD_PATH"
|
|
. ,(format #f "~?~?"
|
|
"~@{:$HOME/areas/code/scm/~a~}"
|
|
'(radix
|
|
zero
|
|
zero/operating-systems
|
|
zero/home-environments)
|
|
"~@{:~a/share/guile/site/3.0~}"
|
|
'($HOME/.guix-home/profile
|
|
$XDG_CONFIG_HOME/guix/current
|
|
/run/current-system/profile)))))
|
|
(simple-service 'home-wayland-environment-variables
|
|
home-environment-variables-service-type
|
|
`(("QT_QPA_PLATFORM" . "wayland;xcb")
|
|
("QT_WAYLAND_DISABLE_WINDOWDECORATION" . "1")))
|
|
(simple-service 'home-language-environment-variables
|
|
home-environment-variables-service-type
|
|
`(("LANG" . "en_US.UTF-8")
|
|
("LANGUAGE" . "en_US.UTF-8")
|
|
("LC_COLLATE" . "C")))
|
|
(simple-service 'home-default-applications-environment-variables
|
|
home-environment-variables-service-type
|
|
`(("BROWSER" . ,application:browser)
|
|
("EDITOR" . ,application:editor)
|
|
("PAGER" . ,application:pager)
|
|
("READER" . ,application:reader)
|
|
("TERMINAL" . ,application:terminal)
|
|
("VISUAL" . ,application:editor)
|
|
("WM" . ,application:wm)))
|
|
|
|
#|SSH service|#
|
|
(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 "git.sr.ht")
|
|
(host-name "git.sr.ht")
|
|
(user "git")
|
|
(identity-file "~/.ssh/srht"))))
|
|
(authorized-keys #f)))
|
|
|
|
#|GPG agent service|#
|
|
(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
|
|
(home-pipewire-configuration
|
|
(wireplumber wireplumber-minimal)))
|
|
|
|
#|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.")))))))
|
|
home-environment
|