seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-07-08 17:35:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: seasharp:6a9c5289d072e8d359c660c09ae137ac5f64d68b
Branches Tags
seasharp:trunk
seasharp:keyring
...
compare: seasharp:1cf75b64fbd1fb0d6405ac32ff20170f8087a76a
Branches Tags
seasharp:trunk
seasharp:keyring

3 Commits
6a9c5289d0 ... 1cf75b64fb

Author SHA1 Message Date
Hilton Chain
1cf75b64fb
maint: Add REUSE.toml. 
* REUSE.toml: New file.
 2025-06-23 13:41:04 +08:00
Hilton Chain
5aeedc947b
maint: Minor fixups. 2025-06-23 13:35:32 +08:00
Hilton Chain
07e2be7791
services: Add home-theme-service-type. 
* modules/rosenthal/services/desktop.scm (home-theme-service-type): New
variable.
(home-theme-configuration): New data type.
* .dir-locals.el (scheme-mode): Add its indentation.
 2025-06-23 13:35:30 +08:00
6 changed files with 112 additions and 5 deletions
Show Stats Expand all files Collapse all files

1
.dir-locals.el
View File

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

6
REUSE.toml Normal file
View File

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

1
modules/rosenthal/examples/waybar/style.css
View File

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

5
modules/rosenthal/services/base.scm
View File

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

9
modules/rosenthal/services/cuirass.scm
View File

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

95
modules/rosenthal/services/desktop.scm
View File

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