operating-systems: buer: Setup timer-related shepherd-services

home-environments/radio.scm

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

home-environments/radio/files/.config/kew/kewrc

@@ -0,0 +1,64 @@
+# 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.
+
+

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

@@ -0,0 +1,10 @@
+#!/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
+

home-environments/radio/files/.config/senpai/scripts/on-highlight.sh

@@ -1,10 +0,0 @@
-#!/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
-

home-environments/radio/files/.config/senpai/scripts/pass.sh

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

home-environments/radio/files/.config/senpai/senpai.scfg

@@ -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.sh
+on-highlight-path /home/radio/.config/senpai/scripts/on-highlight.fish
 tls true
 typings false
 mouse true

home-environments/radio/packages.scm

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

operating-systems/buer.scm

@@ -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 sysctl)
+  #|S|# #:use-module (gnu services shepherd)
+        #:use-module (gnu services sysctl)
 
   #|GNU system|#
   #|•|# #:use-module (gnu system)
@@ -80,7 +80,9 @@
                       #:prefix privileged-programs:)
   #|R|# #:use-module ((buer rules)
                       #:prefix rules:)
-  #|S|# #:use-module ((buer substitute-keys)
+  #|S|# #:use-module ((buer shepherd-services)
+                      #:prefix shepherd-service:)
+        #:use-module ((buer substitute-keys)
                       #:prefix substitute-key:)
   #|U|# #:use-module ((buer users)
                       #:prefix user:)
@@ -169,6 +171,15 @@
 
    #|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
@@ -226,12 +237,6 @@
                         "--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

operating-systems/buer/file-systems.scm

@@ -129,6 +129,18 @@
                                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)

operating-systems/buer/kernel.scm

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

operating-systems/buer/shepherd-services.scm

@@ -0,0 +1,44 @@
+(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))))