services: %rosenthal-skeletons: Fix file paths.

This is a follow-up to 36c789fcb8.
This commit is contained in:
Hilton Chain 2026-02-13 00:06:52 +08:00
parent c9f71daf91
commit fdada954a6
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292

View File

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