nix-community/disko
1
1
Fork 0
mirror of https://github.com/nix-community/disko.git synced 2024-08-15 01:10:28 +03:00
Code Issues Packages Projects Releases Wiki Activity

lib.body.*: don't require initial (unused) state

Browse Source
This commit is contained in:
lassulus 2018-07-31 22:08:44 +02:00
parent 9cbf541974
commit 348d4f164f
2 changed files with 36 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
example/default.nix
View File

@ -3,7 +3,7 @@
with import ../lib;
{
config = config "/dev/sda" (import ./config.nix);
create = create "/dev/sda" (import ./config.nix);
mount = mount "/dev/sda" (import ./config.nix);
config = config (import ./config.nix);
create = create (import ./config.nix);
mount = mount (import ./config.nix);
}

59
lib/default.nix
View File

@ -3,11 +3,13 @@ with builtins;
let {
body.config = q: x: config.${x.type} q x;
body.create = q: x: create.${x.type} q x;
body.mount = q: x: mount.${x.type} q x;
body.config = config-f {};
body.create = create-f {};
body.mount = mount-f {};
config-f = q: x: config.${x.type} q x;
config.filesystem = q: x: {
fileSystems.${x.mountpoint} = {
device = q.device;
@ -16,48 +18,50 @@ let {
};
config.devices = q: x:
foldl' mergeAttrs {} (mapAttrsToList (name: body.config { device = "/dev/${name}"; }) x.content);
foldl' mergeAttrs {} (mapAttrsToList (name: config-f { device = "/dev/${name}"; }) x.content);
config.luks = q: x: {
boot.initrd.luks.devices.${x.name}.device = q.device;
} // body.config { device = "/dev/mapper/${x.name}"; } x.content;
} // config-f { device = "/dev/mapper/${x.name}"; } x.content;
config.lv = q: x:
body.config { device = "/dev/${q.vgname}/${q.name}"; } x.content;
config-f { device = "/dev/${q.vgname}/${q.name}"; } x.content;
config.lvm = q: x:
foldl' mergeAttrs {} (mapAttrsToList (name: body.config { inherit name; vgname = x.name; }) x.lvs);
foldl' mergeAttrs {} (mapAttrsToList (name: config-f { inherit name; vgname = x.name; }) x.lvs);
config.partition = q: x:
body.config { device = q.device + toString q.index; } x.content;
config-f { device = q.device + toString q.index; } x.content;
config.table = q: x:
foldl' mergeAttrs {} (imap (index: body.config (q // { inherit index; })) x.partitions);
foldl' mergeAttrs {} (imap (index: config-f (q // { inherit index; })) x.partitions);
create-f = q: x: create.${x.type} q x;
create.filesystem = q: x: ''
mkfs.${x.format} ${q.device}
'';
create.devices = q: x: ''
${concatStrings (mapAttrsToList (name: body.create { device = "/dev/${name}"; }) x.content)}
${concatStrings (mapAttrsToList (name: create-f { device = "/dev/${name}"; }) x.content)}
'';
create.luks = q: x: ''
cryptsetup -q luksFormat ${q.device} ${x.keyfile} ${toString (x.extraArgs or [])}
cryptsetup luksOpen ${q.device} ${x.name} --key-file ${x.keyfile}
${body.create { device = "/dev/mapper/${x.name}"; } x.content}
${create-f { device = "/dev/mapper/${x.name}"; } x.content}
'';
create.lv = q: x: ''
lvcreate -L ${x.size} -n ${q.name} ${q.vgname}
${body.create { device = "/dev/${q.vgname}/${q.name}"; } x.content}
${create-f { device = "/dev/${q.vgname}/${q.name}"; } x.content}
'';
create.lvm = q: x: ''
pvcreate ${q.device}
vgcreate ${x.name} ${q.device}
${concatStrings (mapAttrsToList (name: body.create { inherit name; vgname = x.name; }) x.lvs)}
${concatStrings (mapAttrsToList (name: create-f { inherit name; vgname = x.name; }) x.lvs)}
'';
create.partition = q: x: ''
@ -65,23 +69,26 @@ let {
${optionalString (x.bootable or false) ''
parted -s ${q.device} set ${toString q.index} boot on
''}
${body.create { device = q.device + toString q.index; } x.content}
${create-f { device = q.device + toString q.index; } x.content}
'';
create.table = q: x: ''
parted -s ${q.device} mklabel ${x.format}
${concatStrings (imap (index: body.create (q // { inherit index; })) x.partitions)}
${concatStrings (imap (index: create-f (q // { inherit index; })) x.partitions)}
'';
mount-f = q: x: mount.${x.type} q x;
mount.filesystem = q: x: {
fs.${x.mountpoint} = ''
mkdir -p ${x.mountpoint}
mount ${q.device} ${x.mountpoint}
'';
};
fs.${x.mountpoint} = ''
mkdir -p ${x.mountpoint}
mount ${q.device} ${x.mountpoint}
'';
};
mount.devices = q: x: let
z = foldl' recursiveUpdate {} (mapAttrsToList (name: body.mount { device = "/dev/${name}"; }) x.content);
z = foldl' recursiveUpdate {} (mapAttrsToList (name: mount-f { device = "/dev/${name}"; }) x.content);
# attrValues returns values sorted by name. This is important, because it
# ensures that "/" is processed before "/foo" etc.
in ''
@ -92,27 +99,27 @@ let {
mount.luks = q: x: (
recursiveUpdate
(body.mount { device = "/dev/mapper/${x.name}"; } x.content)
(mount-f { device = "/dev/mapper/${x.name}"; } x.content)
{luks.${q.device} = ''
cryptsetup luksOpen ${q.device} ${x.name} --key-file ${x.keyfile}
'';}
);
mount.lv = q: x:
body.mount { device = "/dev/${q.vgname}/${q.name}"; } x.content;
mount-f { device = "/dev/${q.vgname}/${q.name}"; } x.content;
mount.lvm = q: x: (
recursiveUpdate
(foldl' recursiveUpdate {} (mapAttrsToList (name: body.mount { inherit name; vgname = x.name; }) x.lvs))
(foldl' recursiveUpdate {} (mapAttrsToList (name: mount-f { inherit name; vgname = x.name; }) x.lvs))
{lvm.${q.device} = ''
vgchange -a y
'';}
);
mount.partition = q: x:
body.mount { device = q.device + toString q.index; } x.content;
mount-f { device = q.device + toString q.index; } x.content;
mount.table = q: x:
foldl' recursiveUpdate {} (imap (index: body.mount (q // { inherit index; })) x.partitions);
foldl' recursiveUpdate {} (imap (index: mount-f (q // { inherit index; })) x.partitions);
}