From cec050aba3576b077a0efbafa6c9138c152b1793 Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Sun, 15 Feb 2026 18:38:04 +0800 Subject: [PATCH] rosenthal: Add %rosenthal-skeletons-installer. * modules/rosenthal/services/desktop.scm (%rosenthal-skeletons): Move skeletons that are only useful within the installer to... (%rosenthal-skeletons-installer): ...this new variable. --- modules/rosenthal/services/desktop.scm | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/modules/rosenthal/services/desktop.scm b/modules/rosenthal/services/desktop.scm index 46deca6..29d3c6d 100644 --- a/modules/rosenthal/services/desktop.scm +++ b/modules/rosenthal/services/desktop.scm @@ -77,6 +77,7 @@ home-waybar-service-type %rosenthal-skeletons + %rosenthal-skeletons-installer %rosenthal-desktop-services/gdm %rosenthal-desktop-services/tuigreet @@ -581,12 +582,19 @@ gtk-key-theme-name = ~a~%" ,(local-file "../examples/dot-config/autostart/shepherd.desktop")) (".config/niri/config.kdl" ,(local-file "../examples/dot-config/niri/config.kdl")) - (".config/noctalia/settings.json" + (".config/xfce4/helpers.rc" + ,(local-file "../examples/dot-config/xfce4/helpers.rc")) + + ;; Selected from the default skeletons. + (".config/gdb/gdbinit" ,%default-gdbinit) + (".config/nano/nanorc" ,%default-nanorc) + (".guile" ,%default-dotguile))) + +(define %rosenthal-skeletons-installer + `((".config/noctalia/settings.json" ,(local-file "../examples/dot-config/noctalia/settings.json")) (".config/wezterm/wezterm.lua" ,(local-file "../examples/dot-config/wezterm/wezterm.lua")) - (".config/xfce4/helpers.rc" - ,(local-file "../examples/dot-config/xfce4/helpers.rc")) ;; Prevent Noctalia shell initial screen. (".cache/noctalia/shell-state.json" ,(computed-file "noctalia-shell-state.json" @@ -603,11 +611,7 @@ gtk-key-theme-name = ~a~%" ("instanceId" . ""))) port #:pretty #t))))))) - - ;; Selected from the default skeletons. - (".config/gdb/gdbinit" ,%default-gdbinit) - (".config/nano/nanorc" ,%default-nanorc) - (".guile" ,%default-dotguile))) + ,@%rosenthal-skeletons)) ;;;