mirror of https://codeberg.org/anemofilia/zero
158 lines
4.4 KiB
Scheme
158 lines
4.4 KiB
Scheme
(define-module (buer file-systems)
|
|
#:use-module (gnu system file-systems)
|
|
|
|
#:export (partition:guix
|
|
persistent-directories
|
|
persistent-files
|
|
volumes))
|
|
|
|
;;; reminder: Send a patch to guix to make file-system-options and
|
|
;;; privileged-program-capabitilities receive a list-of-strings
|
|
|
|
(define partition:guix
|
|
(file-system-label "guix"))
|
|
|
|
(define volumes
|
|
(list #|base|#
|
|
%immutable-store
|
|
%pseudo-terminal-file-system
|
|
%shared-memory-file-system
|
|
|
|
#|boot|#
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/boot")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "subvol=@boot,~
|
|
discard=async,~
|
|
ssd")))
|
|
|
|
#|run|#
|
|
(file-system
|
|
(device "none")
|
|
(type "tmpfs")
|
|
(mount-point "/run")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(options "mode=0755"))
|
|
|
|
#|tmp|#
|
|
(file-system
|
|
(device "none")
|
|
(type "tmpfs")
|
|
(mount-point "/tmp")
|
|
(check? #f)
|
|
(needed-for-boot? #f))
|
|
|
|
#|root|#
|
|
(file-system
|
|
(device "none")
|
|
(type "tmpfs")
|
|
(mount-point "/")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(options "mode=0755"))
|
|
|
|
#|gnu|#
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/gnu/persist")
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "subvol=@gnu/persist,~
|
|
ssd")))
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/gnu/store")
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "compress=zstd,~
|
|
subvol=@gnu/store,~
|
|
ssd")))
|
|
|
|
#|var|#
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/var/guix")
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "compress=zstd,~
|
|
subvol=@var/guix,~
|
|
ssd")))
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/var/lib")
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "compress=zstd,~
|
|
subvol=@var/lib,~
|
|
ssd")))
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/var/log")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(flags '(no-atime))
|
|
(options (format #f "compress=zstd,~
|
|
subvol=@var/log,~
|
|
ssd")))
|
|
(file-system
|
|
(device "none")
|
|
(type "tmpfs")
|
|
(mount-point "/var/run")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(options "mode=0755"))
|
|
|
|
#|swap|#
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/swap")
|
|
(check? #f)
|
|
(needed-for-boot? #t)
|
|
(options (format #f "subvol=@swap,~
|
|
discard=async,~
|
|
ssd")))
|
|
|
|
#|home|#
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/root")
|
|
(flags '(no-atime))
|
|
(options (format #f "subvol=@root,~
|
|
discard=async,~
|
|
ssd")))
|
|
(file-system
|
|
(device partition:guix)
|
|
(type "btrfs")
|
|
(mount-point "/home")
|
|
(flags '(no-atime))
|
|
(options (format #f "subvol=@home,~
|
|
discard=async,~
|
|
ssd")))))
|
|
|
|
(define persistent-directories
|
|
(map (lambda (filename)
|
|
(file-system
|
|
(mount-point filename)
|
|
(device (string-append "/gnu/persist" mount-point))
|
|
(type "none")
|
|
(check? #f)
|
|
(flags '(no-atime bind-mount))))
|
|
`("/etc/guix"
|
|
"/etc/ssh")))
|
|
|
|
(define persistent-files
|
|
(list "/etc/machine-id"
|
|
"/etc/wpa-supplicant.conf"))
|