home-environments/radio.scm

@@ -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|#
+          #|Shepherd service|#
-          (service home-shepherd-service-type
+          (service home-shepherd-service-type)
-                   (home-shepherd-configuration
-                     (shepherd (@ (shepherd-package) shepherd))))
 
           #|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)

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

@@ -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.
-
-

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

@@ -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
-

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

@@ -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
+

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

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

home-environments/radio/packages.scm

@@ -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)
+  #|L|# #:use-module (gnu packages linux)
-        #: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))
 

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 shepherd)
+  #|S|# #:use-module (gnu services sysctl)
-        #: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)
+  #|S|# #:use-module ((buer substitute-keys)
-                      #:prefix shepherd-service:)
-        #: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

operating-systems/buer/file-systems.scm

@@ -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)

operating-systems/buer/kernel.scm

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

operating-systems/buer/shepherd-services.scm

@@ -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))))