44 lines
1.5 KiB
Nix
44 lines
1.5 KiB
Nix
{
|
|
lib,
|
|
self,
|
|
...
|
|
}: let
|
|
inherit (builtins) attrValues readDir pathExists concatLists;
|
|
inherit (lib.attrsets) mapAttrsToList filterAttrs nameValuePair;
|
|
inherit (lib.strings) hasPrefix hasSuffix removeSuffix;
|
|
inherit (lib.trivial) id;
|
|
inherit (self.attrs) mapFilterAttrs;
|
|
in rec {
|
|
mapModules = dir: fn:
|
|
mapFilterAttrs (n: v: v != null && !(hasPrefix "_" n)) (n: v: let
|
|
path = "${toString dir}/${n}";
|
|
in
|
|
if v == "directory" && pathExists "${path}/default.nix"
|
|
then nameValuePair n (fn path)
|
|
else if v == "regular" && n != "default.nix" && hasSuffix ".nix" n
|
|
then nameValuePair (removeSuffix ".nix" n) (fn path)
|
|
else nameValuePair "" null) (readDir dir);
|
|
|
|
mapModules' = dir: fn: attrValues (mapModules dir fn);
|
|
|
|
mapModulesRec = dir: fn:
|
|
mapFilterAttrs (n: v: v != null && !(hasPrefix "_" n)) (n: v: let
|
|
path = "${toString dir}/${n}";
|
|
in
|
|
if v == "directory"
|
|
then nameValuePair n (mapModulesRec path fn)
|
|
else if v == "regular" && n != "default.nix" && hasSuffix ".nix" n
|
|
then nameValuePair (removeSuffix ".nix" n) (fn path)
|
|
else nameValuePair "" null) (readDir dir);
|
|
|
|
mapModulesRec' = dir: fn: let
|
|
dirs =
|
|
mapAttrsToList (k: _: "${dir}/${k}")
|
|
(filterAttrs (n: v: v == "directory" && !(hasPrefix "_" n))
|
|
(readDir dir));
|
|
files = attrValues (mapModules dir id);
|
|
paths = files ++ concatLists (map (d: mapModulesRec' d id) dirs);
|
|
in
|
|
map fn paths;
|
|
}
|