1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
{ depot, pkgs, lib, ... }:
let
bins = depot.nix.getBins pkgs.stow [ "stow" ]
// depot.nix.getBins pkgs.coreutils [ "mkdir" "ln" "printenv" "rm" ]
// depot.nix.getBins pkgs.xe [ "xe" ]
// depot.nix.getBins pkgs.lr [ "lr" ]
// depot.nix.getBins pkgs.nix [ "nix-store" ]
;
# run stow to populate the target directory with the given stow package, read from stowDir.
# Bear in mind that `stowDirOriginPath` should always be semantically bound to the given `stowDir`, otherwise stow might become rather confused.
runStow = {
# “stow package” to stow (see manpage)
stowPackage,
# “target directory” to stow in (see manpage)
targetDir,
# The “stow directory” (see manpage), containing “stow packages” (see manpage)
stowDir,
# representative directory for the stowDir in the file system, against which stow will create relative links.
# ATTN: this is always overwritten with the contents of `stowDir`! You shouldn’t re-use the same `stowDirOriginPath` for different `stowDir`s, otherwise there might be surprises.
stowDirOriginPath,
}: depot.nix.writeExecline "stow-${stowPackage}" {} [
# first, create a temporary stow directory to use as source
# (stow will use it to determine the origin of files)
"if" [ bins.mkdir "-p" stowDirOriginPath ]
# remove old symlinks
"if" [
"pipeline" [
bins.lr "-0" "-t" "depth == 1 && type == l" stowDirOriginPath
]
bins.xe "-0" bins.rm
]
# create an indirect gc root so our config is not cleaned under our asses by a garbage collect
"if" [
bins.nix-store
"--realise"
"--indirect"
"--add-root" "${stowDirOriginPath}/.nix-stowdir-gc-root"
stowDir
]
# populate with new stow targets
"if" [
"elglob" "-w0" "stowPackages" "${stowDir}/*"
bins.ln "--force" "-st" stowDirOriginPath "$stowPackages"
]
# stow always looks for $HOME/.stowrc to read more arguments
"export" "HOME" "/homeless-shelter"
bins.stow
# always run restow for now; this does more stat but will remove stale links
"--restow"
"--dir" stowDirOriginPath
"--target" targetDir
stowPackage
];
# create a stow dir from a list of drv paths and a stow package name.
makeStowDir =
(with depot.nix.yants;
defun
[ (list (struct {
originalDir = drv;
stowPackage = string;
}))
drv
] )
(dirs:
depot.nix.runExecline "make-stow-dir" {
stdin = lib.pipe dirs [
(map depot.users.Profpatsch.netencode.gen.dwim)
depot.users.Profpatsch.netstring.toNetstringList
];
} [
"importas" "out" "out"
"if" [ bins.mkdir "-p" "$out" ]
"forstdin" "-d" "" "-o" "0" "line"
"pipeline" [
depot.users.Profpatsch.execline.print-one-env "line"
]
depot.users.Profpatsch.netencode.record-splice-env
"importas" "-ui" "originalDir" "originalDir"
"importas" "-ui" "stowPackage" "stowPackage"
bins.ln "-sT" "$originalDir" "\${out}/\${stowPackage}"
]);
in
# TODO: temp
lib.pipe {} [
(_: makeStowDir [{
stowPackage = "hello";
originalDir = pkgs.hello;
}])
(d: runStow {
stowDir = d;
stowPackage = "hello";
targetDir = "/home/philip/tmp/stowed";
stowDirOriginPath = "/home/philip/tmp/stowOrigin";
})
]
|
