diff options
| author | Hilton Chain <hako@ultrarare.space> | 2025-06-26 20:33:32 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2025-06-27 00:42:15 +0800 |
| commit | d9ea94dc4487fb668f98e512f96506a5eaf566c2 (patch) | |
| tree | 3d1600efb89da5979672de37d63821e57879b02b /gnu/system/shadow.scm | |
| parent | c1aa13841de248594a89c185f066e4c008e3d624 (diff) | |
system: skeleton-directory: Create parent directory for target.
This allows specifying the following skeleton, for example:
--8<---------------cut here---------------start------------->8---
`((".config/test.txt" ,[...])
--8<---------------cut here---------------end--------------->8---
* gnu/system/shadow.scm (skeleton-directory): Create parent directory for
target.
Change-Id: I49649000bd6cdab9060f057b47a5122b17027f10
Diffstat (limited to 'gnu/system/shadow.scm')
| -rw-r--r-- | gnu/system/shadow.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm index 792d2fb7aee..c257cb329ba 100644 --- a/gnu/system/shadow.scm +++ b/gnu/system/shadow.scm | |||
| @@ -323,6 +323,7 @@ home-config")) | |||
| 323 | ;; would just copy the symlinks as is. | 323 | ;; would just copy the symlinks as is. |
| 324 | (for-each (match-lambda | 324 | (for-each (match-lambda |
| 325 | ((target source) | 325 | ((target source) |
| 326 | (mkdir-p (dirname target)) | ||
| 326 | (copy-recursively source target))) | 327 | (copy-recursively source target))) |
| 327 | '#$skeletons) | 328 | '#$skeletons) |
| 328 | ;; Make nanorc respect XDG_CONFIG_HOME. | 329 | ;; Make nanorc respect XDG_CONFIG_HOME. |