diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/file-systems.scm | 22 | ||||
| -rw-r--r-- | gnu/system/install.scm | 2 | ||||
| -rw-r--r-- | gnu/system/locale.scm | 2 |
3 files changed, 25 insertions, 1 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index 003eb443d15..b177f93398f 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm | |||
| @@ -50,6 +50,7 @@ | |||
| 50 | %devtmpfs-file-system | 50 | %devtmpfs-file-system |
| 51 | %immutable-store | 51 | %immutable-store |
| 52 | %control-groups | 52 | %control-groups |
| 53 | %elogind-file-systems | ||
| 53 | 54 | ||
| 54 | %base-file-systems | 55 | %base-file-systems |
| 55 | %container-file-systems | 56 | %container-file-systems |
| @@ -258,6 +259,26 @@ UUID representation." | |||
| 258 | '("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer" | 259 | '("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer" |
| 259 | "blkio" "perf_event" "hugetlb"))))) | 260 | "blkio" "perf_event" "hugetlb"))))) |
| 260 | 261 | ||
| 262 | (define %elogind-file-systems | ||
| 263 | ;; We don't use systemd, but these file systems are needed for elogind, | ||
| 264 | ;; which was extracted from systemd. | ||
| 265 | (list (file-system | ||
| 266 | (device "none") | ||
| 267 | (mount-point "/run/systemd") | ||
| 268 | (type "tmpfs") | ||
| 269 | (check? #f) | ||
| 270 | (flags '(no-suid no-dev no-exec)) | ||
| 271 | (options "mode=0755") | ||
| 272 | (create-mount-point? #t)) | ||
| 273 | (file-system | ||
| 274 | (device "none") | ||
| 275 | (mount-point "/run/user") | ||
| 276 | (type "tmpfs") | ||
| 277 | (check? #f) | ||
| 278 | (flags '(no-suid no-dev no-exec)) | ||
| 279 | (options "mode=0755") | ||
| 280 | (create-mount-point? #t)))) | ||
| 281 | |||
| 261 | (define %base-file-systems | 282 | (define %base-file-systems |
| 262 | ;; List of basic file systems to be mounted. Note that /proc and /sys are | 283 | ;; List of basic file systems to be mounted. Note that /proc and /sys are |
| 263 | ;; currently mounted by the initrd. | 284 | ;; currently mounted by the initrd. |
| @@ -265,6 +286,7 @@ UUID representation." | |||
| 265 | %pseudo-terminal-file-system | 286 | %pseudo-terminal-file-system |
| 266 | %shared-memory-file-system | 287 | %shared-memory-file-system |
| 267 | %immutable-store) | 288 | %immutable-store) |
| 289 | %elogind-file-systems | ||
| 268 | %control-groups)) | 290 | %control-groups)) |
| 269 | 291 | ||
| 270 | ;; File systems for Linux containers differ from %base-file-systems in that | 292 | ;; File systems for Linux containers differ from %base-file-systems in that |
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 880236861eb..c161526d772 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm | |||
| @@ -349,7 +349,7 @@ Use Alt-F2 for documentation. | |||
| 349 | parted ddrescue | 349 | parted ddrescue |
| 350 | grub ;mostly so xrefs to its manual work | 350 | grub ;mostly so xrefs to its manual work |
| 351 | cryptsetup | 351 | cryptsetup |
| 352 | wireless-tools iw wpa-supplicant-light iproute | 352 | wireless-tools iw wpa-supplicant-minimal iproute |
| 353 | ;; XXX: We used to have GNU fdisk here, but as of version | 353 | ;; XXX: We used to have GNU fdisk here, but as of version |
| 354 | ;; 2.0.0a, that pulls Guile 1.8, which takes unreasonable | 354 | ;; 2.0.0a, that pulls Guile 1.8, which takes unreasonable |
| 355 | ;; space; furthermore util-linux's fdisk is already | 355 | ;; space; furthermore util-linux's fdisk is already |
diff --git a/gnu/system/locale.scm b/gnu/system/locale.scm index be9abcb81dc..393dd42354a 100644 --- a/gnu/system/locale.scm +++ b/gnu/system/locale.scm | |||
| @@ -83,6 +83,8 @@ | |||
| 83 | (letrec-syntax ((utf8-locale (syntax-rules () | 83 | (letrec-syntax ((utf8-locale (syntax-rules () |
| 84 | ((_ name*) | 84 | ((_ name*) |
| 85 | (locale-definition | 85 | (locale-definition |
| 86 | ;; Note: We choose "utf8", which is the | ||
| 87 | ;; "normalized codeset". | ||
| 86 | (name (string-append name* ".utf8")) | 88 | (name (string-append name* ".utf8")) |
| 87 | (source name*) | 89 | (source name*) |
| 88 | (charset "UTF-8"))))) | 90 | (charset "UTF-8"))))) |
