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

Compare commits

base: cristiancmoises:298c085e02e8785d39c2a9748932312f5e1757da
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako
..
compare: cristiancmoises:47dae46b98ad1e8af4b0b1f52b98696b13e84472
Branches Tags
cristiancmoises:main
cristiancmoises:impermanence
cristiancmoises:buersako

No commits in common. "298c085e02e8785d39c2a9748932312f5e1757da" and "47dae46b98ad1e8af4b0b1f52b98696b13e84472" have entirely different histories.
298c085e02 ... 47dae46b98

3 changed files with 11 additions and 7 deletions
Show Stats Expand all files Collapse all files

5
home-environments/radio/shepherd-services.scm
View File

@ -20,7 +20,10 @@ next calendar event.")))
(start #~(make-timer-constructor (start #~(make-timer-constructor
(calendar-event #:hours '(6) #:minutes '(0)) (calendar-event #:hours '(6) #:minutes '(0))
(lambda () (lambda ()
(spawn-shell-command "mpv --shuffle ~/media/music/by-artist")))) (use-modules (ice-9 threads))
(parallel
(system "foot -He rem")
(system "mpv --shuffle ~/media/music/by-artist")))))
(stop #~(make-timer-destructor)) (stop #~(make-timer-destructor))
(actions (list timer-trigger-action)))) (actions (list timer-trigger-action))))

4
operating-systems/buer.scm
View File

@ -144,6 +144,7 @@
user:root user:root
%base-user-accounts)) %base-user-accounts))
#|System level packages|#
(packages (packages
(list #|admin |# btop inetutils isc-dhcp shadow zzz (list #|admin |# btop inetutils isc-dhcp shadow zzz
#|base |# coreutils diffutils findutils grep patch sed tar which #|base |# coreutils diffutils findutils grep patch sed tar which
@ -170,7 +171,6 @@
#|Allow resolution of '.local' host names with mDNS|# #|Allow resolution of '.local' host names with mDNS|#
(name-service-switch %mdns-host-lookup-nss) (name-service-switch %mdns-host-lookup-nss)
(essential-services (essential-services
(modify-services (modify-services
(operating-system-default-essential-services this-operating-system) (operating-system-default-essential-services this-operating-system)
@ -180,6 +180,8 @@
(services (list shepherd-service:guix-gc (services (list shepherd-service:guix-gc
shepherd-service:snapshot-@home shepherd-service:snapshot-@home
shepherd-service:timer)))))) shepherd-service:timer))))))
#|System services|#
(services (services
(list #|TTY services|# (list #|TTY services|#
(service virtual-terminal-service-type) (service virtual-terminal-service-type)

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

@ -30,11 +30,10 @@ next calendar event.")))
(start #~(make-timer-constructor (start #~(make-timer-constructor
(calendar-event #:days-of-month '(1 15)) (calendar-event #:days-of-month '(1 15))
(lambda () (lambda ()
(let ((btrfs "/run/current-system/profile/bin/btrfs") (let* ((btrfs "/run/current-system/profile/bin/btrfs")
(date (strftime "%Y-%m-%d" (localtime (current-time))))) (date (strftime "%Y-%m-%d" (localtime (current-time)))))
(spawn-shell-command (system* btrfs "subvolume" "snapshot" "/home"
(string-append btrfs " subvolume snapshot" (string-append "/snapshots/home/" date))))))
" /home /snapshots/home/" date))))))
(stop #~(make-timer-destructor)) (stop #~(make-timer-destructor))
(actions (list timer-trigger-action)))) (actions (list timer-trigger-action))))