html.nix/utils.nix

let
  inherit (builtins) isAttrs isList map any concatMap concatStringsSep listToAttrs genList;

  mapAttrsToList = f: attrs: map (name: f name attrs.${name}) (builtins.attrNames attrs);
in
  {
    inherit mapAttrsToList;

    recursiveAttrPaths = set: let
      flattenIfHasList = x:
        if (isList x) && (any isList x)
        then concatMap flattenIfHasList x
        else [x];

      recurse = path: set: let
        g = name: value:
          if isAttrs value
          then recurse (path ++ [name]) value
          else path ++ [name];
      in
        mapAttrsToList g set;
    in
      flattenIfHasList (recurse [] set);

    concatStrings = concatStringsSep "";
    genAttrs = f: names:
      listToAttrs (map (n: {
          name = n;
          value = f n;
        })
        names);

    range = first: last:
      if first > last
      then []
      else genList (n: first + n) (last - first + 1);
  }
  // builtins