examples: Change directory layout.

* Add directories dot-cache and dot-config.
* Follow the layout used for %rosenthal-skeletons.

modules/rosenthal/examples/dot-config/xfce4/helpers.rc

@@ -0,0 +1 @@
+TerminalEmulator=open-wezterm-here

modules/rosenthal/services/desktop.scm

@@ -662,10 +662,11 @@ set-keymap us dvorak -o ctrl:nocaps\n")
      (license #f))))
 
 (define %rosenthal-skeletons
-  `((".config/autostart/shepherd.desktop"
-     ,(local-file "../examples/shepherd.desktop"))
-
-    (".config/emacs/init.el"
+  (let ((dot (lambda (dir file)
+               (cons
+                (string-append "." dir "/" file)
+                (local-file (string-append "../examples/dot-" dir "/" file))))))
+    `((".config/emacs/init.el"
        ,(local-file "../examples/emacs/init.el"))
       (".config/emacs/init-fonts.el"
        ,(local-file "../examples/emacs/init-fonts.el"))
@@ -676,21 +677,18 @@ set-keymap us dvorak -o ctrl:nocaps\n")
       (".config/emacs/init-miscellaneous.el"
        ,(local-file "../examples/emacs/init-miscellaneous.el"))
 
-    (".config/niri/config.kdl"
-     ,(local-file "../examples/niri.kdl"))
-    (".cache/noctalia/shell-state.json"
-     ,(local-file "../examples/noctalia-shell/shell-state.json"))
-    (".config/noctalia/settings.json"
-     ,(local-file "../examples/noctalia-shell/settings.json"))
-    (".config/wezterm/wezterm.lua"
-     ,(local-file "../examples/wezterm.lua"))
-    (".config/xfce4/helpers.rc"
-     ,(plain-file "helpers.rc" "TerminalEmulator=open-wezterm-here\n"))
+      ,(dot "config" "autostart/shepherd.desktop")
+      ,(dot "config" "niri/config.kdl")
+      ,(dot "config" "noctalia/settings.json")
+      ,(dot "config" "wezterm/wezterm.lua")
+      ,(dot "config" "xfce4/helpers.rc")
+      ;; Prevent Noctalia shell initial screen.
+      ,(dot "cache" "noctalia/shell-state.json")
 
       ;; Selected from the default skeletons.
       (".config/gdb/gdbinit" ,%default-gdbinit)
       (".config/nano/nanorc" ,%default-nanorc)
-    (".guile" ,%default-dotguile)))
+      (".guile" ,%default-dotguile))))
 
 
 ;;;