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

Compare commits

base: cristiancmoises:77d40da76facebe498420ff5181dd5901eab7125
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako
..
compare: cristiancmoises:eb8d291d54955a09241b8438579ea3d71874e312
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako

No commits in common. "77d40da76facebe498420ff5181dd5901eab7125" and "eb8d291d54955a09241b8438579ea3d71874e312" have entirely different histories.
77d40da76f ... eb8d291d54

11 changed files with 35 additions and 164 deletions
Show Stats Expand all files Collapse all files

13
home-environments/radio.scm
View File

@ -58,7 +58,7 @@
#|F|# packages:file-managing packages:fonts
#|G|# packages:guix-contrib
#|I|# packages:image
#|M|# packages:messaging packages:music
#|M|# packages:messaging
#|P|# packages:password
#|R|# packages:reading
#|S|# packages:scheme packages:sound
@ -140,12 +140,11 @@
(simple-service 'home-extra-channels
home-channels-service-type
(list channel:guix
channel:radix))
channel:radix
channel:saayix))
#|Shepherd services|#
(service home-shepherd-service-type
(home-shepherd-configuration
(shepherd (@ (shepherd-package) shepherd))))
#|Shepherd service|#
(service home-shepherd-service-type)
#|Shell services|#
(service home-tty-colorscheme-service-type
@ -306,8 +305,6 @@
. ,(format #f "~?~?"
"~@{:$HOME/areas/code/scm/~a~}"
'(radix
shepherd/modules
shepherd/.guix/modules
zero
zero/operating-systems
zero/home-environments)

64
home-environments/radio/files/.config/kew/kewrc
View File

@ -1,64 +0,0 @@
# Make sure that kew is closed before editing this file in order for changes to take effect.
path=/home/radio/media/music/by-artist
coverEnabled=1
coverAnsi=0
visualizerEnabled=1
visualizerHeight=5
useProfileColors=1
allowNotifications=1
hideLogo=0
hideHelp=1
lastVolume=100
# Cache: Set to 1 to use cache of the music library directory tree for faster startup times.
cacheLibrary=-1
# Color values are 0=Black, 1=Red, 2=Green, 3=Yellow, 4=Blue, 5=Magenta, 6=Cyan, 7=White
# These mostly affect the library view.
# Logo color:
color=4
# Header color in library view:
artistColor=4
# Now playing song text in library view:
titleColor=4
# Color of enqueued songs in library view:
enqueuedColor=7
# Key Bindings:
volumeUp=+
volumeUpAlt==
volumeDown=-
previousTrackAlt=h
nextTrackAlt=l
scrollUpAlt=k
scrollDownAlt=j
switchNumberedSong=
togglePause=p
toggleColorsDerivedFrom=i
toggleVisualizer=v
toggleAscii=b
toggleRepeat=r
toggleShuffle=s
seekBackward=a
seekForward=d
savePlaylist=x
addToMainPlaylist=.
updateLibrary=u
# The different main views, normally F2-F6:
showPlaylistAlt=Z
showLibraryAlt=X
showTrackAlt=C
showSearchAlt=V
showKeysAlt=B
quit=q
# For special keys use terminal codes: OS, for F4 for instance. This can depend on the terminal.
# You can find out the codes for the keys by using tools like showkey.
# For special keys, see the key value after the bracket "[" after typing "showkey -a" in the terminal and then pressing a key you want info about.

10
home-environments/radio/files/.config/senpai/scripts/on-highlight.fish
View File

@ -1,10 +0,0 @@
#!/usr/bin/env -S fish
function escape
printf "%s" "$1" | string replace '\\' '\\\\'
end
notify-send --urgency=normal --expire-time=0 --category=Mail "[$BUFFER] $SENDER" "$(escape "$MESSAGE")"
mpv ~/.guix-home/profile/share/sounds/freedesktop/stereo/message.oga

10
home-environments/radio/files/.config/senpai/scripts/on-highlight.sh Executable file
View File

@ -0,0 +1,10 @@
#!/bin/sh
escape() {
printf "%s" "$1" | sed 's#\#\\#g'
}
notify-send --urgency=normal --expire-time=0 --category=Mail "[$BUFFER] $SENDER" "$(escape "$MESSAGE")"
mpv ~/.guix-home/profile/share/sounds/freedesktop/stereo/complete.oga

3
home-environments/radio/files/.config/senpai/scripts/pass.sh Executable file
View File

@ -0,0 +1,3 @@
#!/bin/sh
read -p 'senpai password: '

2
home-environments/radio/files/.config/senpai/senpai.scfg
View File

@ -3,7 +3,7 @@ nickname anemofilia
password-cmd pass show senpai/password
highlight anemofilia: anemofilia, radix saayix cargo2guix misako
channel "#coreboot" "#fossandcrafts" "#fsf" "#gnu" "#guix" "#guile" "#hurd" "#ibmthinkpad" "#kakoune" "#lisp" "#lobsters" "#scheme" "#spritely" "#savannah" "#whereiseveryone"
on-highlight-path /home/radio/.config/senpai/scripts/on-highlight.fish
on-highlight-path /home/radio/.config/senpai/scripts/on-highlight.sh
tls true
typings false
mouse true

12
home-environments/radio/packages.scm
View File

@ -26,8 +26,7 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages image-viewers)
#:use-module (gnu packages irc)
#|L|# #:use-module (gnu packages libcanberra)
#:use-module (gnu packages linux)
#|L|# #:use-module (gnu packages linux)
#|M|# #:use-module (gnu packages maths)
#:use-module (gnu packages mail)
#:use-module (gnu packages messaging)
@ -64,7 +63,6 @@
#:use-module (radix packages fonts)
#|G|# #:use-module (radix packages games)
#|K|# #:use-module (radix packages kak-xyz)
#|M|# #:use-module (radix packages music)
#|P|# #:use-module (radix packages pdf)
#:use-module (radix packages pulseaudio)
#|S|# #:use-module (radix packages seninha)
@ -74,6 +72,9 @@
#|V|# #:use-module (radix packages video)
#|X|# #:use-module (radix packages xdisorg)
#|Saayix packages|#
#|M|# #:use-module (saayix packages messaging)
#:export (blogging
calendar
databases
@ -89,7 +90,6 @@
haskell
image
messaging
music
password
reading
scheme
@ -112,7 +112,6 @@
xdg-terminal-exec
#|glib |# dbus
#|image |# grim slurp
#|libcanberra|# sound-theme-freedesktop
#|terminals |# foot
#|toys |# wayneko
#|wm |# fnott rivercarro swww waybar
@ -170,9 +169,6 @@
#|mail |# neomutt
#|messaging|# senpai))
(define music
(list #|music|# kew))
(define password
(list #|password-utils|# password-store tessen))

23
operating-systems/buer.scm
View File

@ -26,11 +26,11 @@
#|D|# #:use-module (gnu services dbus)
#:use-module (gnu services desktop)
#|G|# #:use-module (gnu services guix)
#|M|# #:use-module (gnu services mcron)
#|L|# #:use-module (gnu services linux)
#|N|# #:use-module (gnu services networking)
#|P|# #:use-module (gnu services pm)
#|S|# #:use-module (gnu services shepherd)
#:use-module (gnu services sysctl)
#|S|# #:use-module (gnu services sysctl)
#|GNU system|#
#|•|# #:use-module (gnu system)
@ -80,9 +80,7 @@
#:prefix privileged-programs:)
#|R|# #:use-module ((buer rules)
#:prefix rules:)
#|S|# #:use-module ((buer shepherd-services)
#:prefix shepherd-service:)
#:use-module ((buer substitute-keys)
#|S|# #:use-module ((buer substitute-keys)
#:prefix substitute-key:)
#|U|# #:use-module ((buer users)
#:prefix user:)
@ -171,15 +169,6 @@
#|Allow resolution of '.local' host names with mDNS|#
(name-service-switch %mdns-host-lookup-nss)
(essential-services
(modify-services
(operating-system-default-essential-services this-operating-system)
(shepherd-root-service-type
_ => (shepherd-configuration
(shepherd (@ (shepherd-package) shepherd))
(services (list shepherd-service:guix-gc
shepherd-service:snapshot-@home
shepherd-service:timer))))))
#|System services|#
(services
@ -237,6 +226,12 @@
"--gc-keep-derivations=yes"
"--gc-keep-outputs=yes"))))
#|Mcron service|#
(service mcron-service-type
(mcron-configuration
(jobs (list #~(job "* * * * Sun"
"guix gc --optimize --free-space=10G")))))
#|Device management services|#
(service udev-service-type
(udev-configuration

12
operating-systems/buer/file-systems.scm
View File

@ -129,18 +129,6 @@
discard=async,~
ssd")))
#|snapshots|#
(file-system
(device partition:guix)
(type "btrfs")
(mount-point "/snapshots")
(check? #f)
(needed-for-boot? #t)
(flags '(no-atime))
(options (format #f "compress=zstd,~
subvol=@snapshots,~
ssd")))
#|home|#
(file-system
(device partition:guix)

6
operating-systems/buer/kernel.scm
View File

@ -5,7 +5,7 @@
(define-public linux-libre
(customize-linux
#:name "buer-linux-libre"
#:linux linux-libre-6.11
#:source linux-libre-6.11-source
#:defconfig (local-file "kernel/defconfig")
#:linux linux-libre-6.10
#:source linux-libre-6.10-source
#:defconfig (local-file "defconfig")
#:extra-version "buer"))

44
operating-systems/buer/shepherd-services.scm
View File

@ -1,44 +0,0 @@
(define-module (buer shepherd-services)
#:use-module (guix gexp)
#:use-module (gnu services shepherd)
#:use-module (shepherd service timer)
#:export (guix-gc snapshot-@home timer))
(define timer-trigger-action
(shepherd-action
(name 'trigger)
(procedure #~trigger-timer)
(documentation
"Trigger the action associated with @var{timer} as if it had reached its
next calendar event.")))
(define guix-gc
(shepherd-service
(provision '(guix-gc))
(modules '((shepherd service timer)))
(start #~(make-timer-constructor
(calendar-event #:days-of-month '(1 15))
(command '("guix" "gc" "--optimize" "--free-space=10G"))))
(stop #~(make-timer-destructor))
(actions (list timer-trigger-action))))
(define snapshot-@home
(shepherd-service
(provision '(snapshot-@home))
(modules '((shepherd service timer)))
(start #~(make-timer-constructor
(calendar-event #:days-of-month '(1 15))
(lambda ()
(let* ((btrfs "/run/current-system/profile/bin/btrfs")
(date (strftime "%Y-%m-%d" (localtime (current-time)))))
(system* btrfs "subvolume" "snapshot" "/home"
(string-append "/snapshots/home/" date))))))
(stop #~(make-timer-destructor))
(actions (list timer-trigger-action))))
(define timer
(shepherd-service
(provision '(timer))
(modules '((shepherd service timer)))
(free-form #~(timer-service))))