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

Compare commits

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

4 Commits
47dae46b98 ... 298c085e02

Author SHA1 Message Date
Luis Guilherme Coelho 298c085e02
operating-systems: buer: Remove unnecessary comments 2024-11-25 03:31:30 -03:00
Luis Guilherme Coelho 771fc81d3e
operating-systems: buer: Use spawn-shell-command instead of system since a lambda action should be suspendable 2024-11-25 03:30:48 -03:00
Luis Guilherme Coelho ab23d68de3
home-environment: radio: Use spawn-shell-command instead of system since a lambda action should be suspendable 2024-11-25 03:23:58 -03:00
Luis Guilherme Coelho bc36fbc43d
operating-systems: buer: Add comment on essential-services section 2024-11-25 00:34:43 -03:00
3 changed files with 7 additions and 11 deletions
Show Stats Expand all files Collapse all files

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

@ -20,10 +20,7 @@ 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 ()
(use-modules (ice-9 threads)) (spawn-shell-command "mpv --shuffle ~/media/music/by-artist"))))
(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,7 +144,6 @@
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
@ -171,6 +170,7 @@
#|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,8 +180,6 @@
(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,10 +30,11 @@ 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)))))
(system* btrfs "subvolume" "snapshot" "/home" (spawn-shell-command
(string-append "/snapshots/home/" date)))))) (string-append btrfs " subvolume snapshot"
" /home /snapshots/home/" date))))))
(stop #~(make-timer-destructor)) (stop #~(make-timer-destructor))
(actions (list timer-trigger-action)))) (actions (list timer-trigger-action))))