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,35 +662,33 @@ set-keymap us dvorak -o ctrl:nocaps\n")
      (license #f))))
 
 (define %rosenthal-skeletons
-  `((".config/autostart/shepherd.desktop"
+  (let ((dot (lambda (dir file)
-     ,(local-file "../examples/shepherd.desktop"))
+               (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"))
+      (".config/emacs/init-interface.el"
+       ,(local-file "../examples/emacs/init-interface.el"))
+      (".config/emacs/init-editing.el"
+       ,(local-file "../examples/emacs/init-editing.el"))
+      (".config/emacs/init-miscellaneous.el"
+       ,(local-file "../examples/emacs/init-miscellaneous.el"))
 
-    (".config/emacs/init.el"
+      ,(dot "config" "autostart/shepherd.desktop")
-     ,(local-file "../examples/emacs/init.el"))
+      ,(dot "config" "niri/config.kdl")
-    (".config/emacs/init-fonts.el"
+      ,(dot "config" "noctalia/settings.json")
-     ,(local-file "../examples/emacs/init-fonts.el"))
+      ,(dot "config" "wezterm/wezterm.lua")
-    (".config/emacs/init-interface.el"
+      ,(dot "config" "xfce4/helpers.rc")
-     ,(local-file "../examples/emacs/init-interface.el"))
+      ;; Prevent Noctalia shell initial screen.
-    (".config/emacs/init-editing.el"
+      ,(dot "cache" "noctalia/shell-state.json")
-     ,(local-file "../examples/emacs/init-editing.el"))
-    (".config/emacs/init-miscellaneous.el"
-     ,(local-file "../examples/emacs/init-miscellaneous.el"))
 
-    (".config/niri/config.kdl"
+      ;; Selected from the default skeletons.
-     ,(local-file "../examples/niri.kdl"))
+      (".config/gdb/gdbinit" ,%default-gdbinit)
-    (".cache/noctalia/shell-state.json"
+      (".config/nano/nanorc" ,%default-nanorc)
-     ,(local-file "../examples/noctalia-shell/shell-state.json"))
+      (".guile" ,%default-dotguile))))
-    (".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"))
-
-    ;; Selected from the default skeletons.
-    (".config/gdb/gdbinit" ,%default-gdbinit)
-    (".config/nano/nanorc" ,%default-nanorc)
-    (".guile" ,%default-dotguile)))
 
 
 ;;;