maint: Add REUSE.toml.

* REUSE.toml: New file.

.dir-locals.el

@@ -61,6 +61,7 @@
    (eval . (put 'home-rofi-configuration 'scheme-indent-function 0))
    (eval . (put 'home-socks2http-configuration 'scheme-indent-function 0))
    (eval . (put 'home-swaybg-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-theme-configuration 'scheme-indent-function 0))
    (eval . (put 'home-wakapi-configuration 'scheme-indent-function 0))
    (eval . (put 'home-waybar-configuration 'scheme-indent-function 0))
    (eval . (put 'iwd-configuration 'scheme-indent-function 0))

REUSE.toml

@@ -0,0 +1,6 @@
+version = 1
+
+[[annotations]]
+path = ["modules/rosenthal/examples/wallpaper.jpg"]
+SPDX-FileCopyrightText = "Copyright © 2023 Hilton Chain <hako@ultrarare.space>"
+SPDX-License-Identifier = "CC-BY-SA-4.0"

modules/rosenthal/examples/waybar/style.css

@@ -20,7 +20,6 @@
 @define-color color7 #939ba3;
 
 * {
-    font-family: "Noto Sans";
     font-size: 1.2rem;
     background-color: transparent;
     border-radius: 5px;

modules/rosenthal/services/base.scm

@@ -6,8 +6,11 @@
   #:use-module (guix gexp)
   #:use-module (guix records)
   #:use-module (rosenthal utils packages)
+
   #:use-module (gnu services base)
+
   #:use-module (gnu packages bash)
+  #:use-module (rosenthal packages admin)
   #:export (greetd-tuigreet-session))
 
 (define-record-type* <greetd-tuigreet-session>
@@ -15,7 +18,7 @@
   greetd-tuigreet-session?
   this-greetd-tuigreet-session
   (tuigreet greetd-tuigreet-session-tuigreet
-            (default (spec->pkg "tuigreet"))))
+            (default tuigreet)))
 
 (define-gexp-compiler (greetd-tuigreet-session-compiler
                        (session <greetd-tuigreet-session>)

modules/rosenthal/services/cuirass.scm

@@ -5,24 +5,29 @@
 (define-module (rosenthal services cuirass)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
+
   #:use-module (guix gexp)
   #:use-module (guix modules)
   #:use-module (guix records)
   #:use-module (guix store)
   #:use-module (rosenthal utils packages)
-  #:use-module (gnu system)
+
   #:use-module (gnu bootloader)
   #:use-module (gnu bootloader grub)
+  #:use-module (gnu system)
   #:use-module (gnu system linux-container)
   #:use-module (gnu system file-systems)
   #:use-module (gnu system shadow)
+
   #:use-module (gnu services)
   #:use-module (gnu services admin)
   #:use-module (gnu services base)
   #:use-module (gnu services cuirass)
   #:use-module (gnu services databases)
   #:use-module (gnu services shepherd)
+
   #:use-module (gnu packages linux)
+  #:use-module (rosenthal packages ci)
   #:export (cuirass-worker-container-service-type
             cuirass-worker-container-configuration
             cuirass-worker-container-configuration?
@@ -159,7 +164,7 @@
         (services
          (cons (service cuirass-remote-worker-for-container
                  (cuirass-remote-worker-configuration
-                   (cuirass (spec->pkg "cuirass-hako"))
+                   (cuirass cuirass/hako)
                    (workers workers)
                    (server server)
                    (systems supported-systems)

modules/rosenthal/services/desktop.scm

@@ -51,6 +51,9 @@
             home-swaybg-configuration
             home-swaybg-service-type
 
+            home-theme-configuration
+            home-theme-service-type
+
             home-waybar-configuration
             home-waybar-service-type
 
@@ -336,7 +339,7 @@ compositor.")))
 configuration {
     icon-theme: \"Qogir\";
 }
-@theme \"" (spec->pkg "rofi") "/share/rofi/themes/fullscreen-preview.rasi\"\n"))
+@theme \"" (spec->pkg "rofi-wayland") "/share/rofi/themes/fullscreen-preview.rasi\"\n"))
 
 
 (define-record-type* <home-rofi-configuration>
@@ -409,6 +412,96 @@ configuration {
     (description
      "Run swaybg, a screen wallpaper utility for Wayland compositors.")))
 
+
+;;;
+;;; theme
+;;;
+
+(define-record-type* <home-theme-configuration>
+  home-theme-configuration
+  make-home-theme-configuration
+  home-theme-configuration?
+  this-home-theme-configuration
+  (packages     home-theme-configuration-packages
+                (default '()))
+  (icon-theme   home-theme-configuration-icon-theme
+                (default "Adwaita"))
+  (cursor-theme home-theme-configuration-cursor-theme
+                (default "Adwaita"))
+  (cursor-size  home-theme-configuration-cursor-size
+                (default 24))
+  (key-theme    home-theme-configuration-key-theme
+                (default "Emacs"))
+  ;; Extensions.
+  (environment-variables home-theme-configuration-environment-variables
+                         (default (%home-theme-environment-variables
+                                   this-home-theme-configuration))
+                         (thunked))
+  (profile               home-theme-configuration-profile
+                         (default (%home-theme-profile
+                                   this-home-theme-configuration))
+                         (thunked))
+  (files                 home-theme-configuration-files
+                         (default (%home-theme-files
+                                   this-home-theme-configuration))
+                         (thunked))
+  (xdg-config            home-theme-configuration-xdg-config
+                         (default (%home-theme-xdg-config
+                                   this-home-theme-configuration))
+                         (thunked)))
+
+(define (%home-theme-environment-variables _)
+  '(("QT_QPA_PLATFORMTHEME" . "gtk3")
+    ("QT_WAYLAND_DECORATION" . "adwaita")))
+
+(define %home-theme-profile
+  (match-record-lambda <home-theme-configuration>
+      (packages)
+    (append (specs->pkgs "adwaita-icon-theme"
+                         "hicolor-icon-theme"
+                         "qtwayland")
+            packages)))
+
+(define %home-theme-files
+  (match-record-lambda <home-theme-configuration>
+      (icon-theme)
+    `((".icons/default/index.theme"
+       ,(plain-file "index.theme"
+          (format #f "~
+[icon theme]
+Inherits = ~a~%"
+                  icon-theme))))))
+
+(define %home-theme-xdg-config
+  (match-record-lambda <home-theme-configuration>
+      (icon-theme cursor-theme cursor-size key-theme)
+    `(("gtk-3.0/settings.ini"
+       ,(plain-file "settings.ini"
+          (format #f "~
+[Settings]
+gtk-theme-name = Adwaita
+gtk-icon-theme-name = ~a
+gtk-font-name = Sans 11
+gtk-cursor-theme-name = ~a
+gtk-cursor-theme-size = ~a
+gtk-key-theme-name = ~a~%"
+                  icon-theme cursor-theme cursor-size key-theme))))))
+
+(define home-theme-service-type
+  (service-type
+    (name 'theme)
+    (extensions
+     (list (service-extension home-environment-variables-service-type
+                              home-theme-configuration-environment-variables)
+           (service-extension home-profile-service-type
+                              home-theme-configuration-profile)
+           (service-extension home-files-service-type
+                              home-theme-configuration-files)
+           (service-extension home-xdg-configuration-files-service-type
+                              home-theme-configuration-xdg-config)))
+    (default-value (home-theme-configuration))
+    (description "Set up desktop themes.")))
+
 
 ;;;
 ;;; waybar