nix-writers: init submodule

This commit is contained in:
tv 2018-06-19 21:23:35 +02:00
parent c19baeee13
commit 1665703c45
26 changed files with 38 additions and 336 deletions

3
.gitmodules vendored Normal file
View File

@ -0,0 +1,3 @@
[submodule "submodules/nix-writers"]
path = submodules/nix-writers
url = http://cgit.krebsco.de/nix-writers

View File

@ -1,5 +1,5 @@
{ pkgs, ... }: { pkgs, ... }:
pkgs.writeHaskell "xmonad-jeschli" { pkgs.writeHaskellPackage "xmonad-jeschli" {
executables.xmonad = { executables.xmonad = {
extra-depends = [ extra-depends = [
"containers" "containers"

View File

@ -7,6 +7,7 @@ host@{ name, secure ? false, override ? {} }: let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in

View File

@ -484,7 +484,7 @@ let
reponames = rules: sort lessThan (unique (map (x: x.repo.name) rules)); reponames = rules: sort lessThan (unique (map (x: x.repo.name) rules));
# TODO use `writeOut` # TODO use pkgs.write (from nix-writers)
scriptFarm = scriptFarm =
farm-name: scripts: farm-name: scripts:
let let

View File

@ -120,7 +120,7 @@ rec {
url-title = (buildSimpleReaktorPlugin "url-title" { url-title = (buildSimpleReaktorPlugin "url-title" {
pattern = "^.*(?P<args>http[s]?://(?:[a-zA-Z]|[0-9]|[$-_@.&+]|[!*\(\),]|(?:%[0-9a-fA-F][0-9a-fA-F]))+).*$$"; pattern = "^.*(?P<args>http[s]?://(?:[a-zA-Z]|[0-9]|[$-_@.&+]|[!*\(\),]|(?:%[0-9a-fA-F][0-9a-fA-F]))+).*$$";
path = with pkgs; [ curl perl ]; path = with pkgs; [ curl perl ];
script = pkgs.writePython3 [ "beautifulsoup4" "lxml" ] "url-title" '' script = pkgs.writePython3 "url-title" [ "beautifulsoup4" "lxml" ] ''
import sys import sys
import urllib.request import urllib.request
from bs4 import BeautifulSoup from bs4 import BeautifulSoup

View File

@ -1,6 +1,6 @@
{ pass, writeOut, writeDash, ... }: { pass, write, writeDash, ... }:
writeOut "brain" { write "brain" {
"/bin/brain".link = writeDash "brain" '' "/bin/brain".link = writeDash "brain" ''
PASSWORD_STORE_DIR=$HOME/brain \ PASSWORD_STORE_DIR=$HOME/brain \
exec ${pass}/bin/pass $@ exec ${pass}/bin/pass $@

View File

@ -225,6 +225,6 @@
in in
pkgs.writeOut "stockholm" (lib.mapAttrs' (name: link: pkgs.write "stockholm" (lib.mapAttrs' (name: link:
lib.nameValuePair "/bin/${name}" { inherit link; } lib.nameValuePair "/bin/${name}" { inherit link; }
) cmds) ) cmds)

View File

@ -1,318 +0,0 @@
pkgs: oldpkgs:
with import <stockholm/lib>;
{
execve = name: { filename, argv ? null, envp ? {}, destination ? "" }: let
in pkgs.writeC name { inherit destination; } /* c */ ''
#include <unistd.h>
static char *const filename = ${toC filename};
${if argv == null
then /* Propagate arguments */ /* c */ ''
#define MAIN_ARGS int argc, char **argv
''
else /* Provide fixed arguments */ /* c */ ''
#define MAIN_ARGS void
static char *const argv[] = ${toC (argv ++ [null])};
''}
static char *const envp[] = ${toC (
mapAttrsToList (k: v: "${k}=${v}") envp ++ [null]
)};
int main (MAIN_ARGS) {
execve(filename, argv, envp);
return -1;
}
'';
execveBin = name: cfg:
pkgs.execve name (cfg // { destination = "/bin/${name}"; });
makeScriptWriter = { interpreter, check ? null }: name: text:
assert (with types; either absolute-pathname filename).check name;
pkgs.writeOut (baseNameOf name) {
${optionalString (types.absolute-pathname.check name) name} = {
inherit check;
executable = true;
text = "#! ${interpreter}\n${text}";
};
};
writeBash = name: text:
assert (with types; either absolute-pathname filename).check name;
pkgs.writeOut (baseNameOf name) {
${optionalString (types.absolute-pathname.check name) name} = {
executable = true;
text = "#! ${pkgs.bash}/bin/bash\n${text}";
};
};
writeBashBin = name:
assert types.filename.check name;
pkgs.writeBash "/bin/${name}";
writeC = name: { destination ? "" }: text: pkgs.runCommand name {
inherit text;
passAsFile = [ "text" ];
} /* sh */ ''
PATH=${makeBinPath (with pkgs; [
# TODO remove if everyone migrated to 18.03
(if hasAttr "binutils-unwrapped" pkgs then binutils-unwrapped else binutils)
coreutils
gcc
])}
exe=$out${destination}
mkdir -p "$(dirname "$exe")"
gcc -O -Wall -o "$exe" -x c "$textPath"
strip --strip-unneeded "$exe"
'';
writeDash = pkgs.makeScriptWriter {
interpreter = "${pkgs.dash}/bin/dash";
};
writeDashBin = name:
assert types.filename.check name;
pkgs.writeDash "/bin/${name}";
writeEximConfig = name: text: pkgs.runCommand name {
inherit text;
passAsFile = [ "text" ];
} /* sh */ ''
# TODO validate exim config even with config.nix.useChroot == true
# currently doing so will fail because "user exim was not found"
#${pkgs.exim}/bin/exim -C "$textPath" -bV >/dev/null
mv "$textPath" $out
'';
writeOut = name: specs0:
let
writers.link =
{ path
, link
}:
assert path == "" || types.absolute-pathname.check path;
assert types.package.check link;
{
install = /* sh */ ''
${optionalString (path != "") /* sh */ ''
${pkgs.coreutils}/bin/mkdir -p $out${dirOf path}
''}
${pkgs.coreutils}/bin/ln -s ${link} $out${path}
'';
};
writers.text =
{ path
, check ? null
, executable ? false
, mode ? if executable then "0755" else "0644"
, text
}:
assert path == "" || types.absolute-pathname.check path;
assert types.bool.check executable;
assert types.file-mode.check mode;
rec {
var = "file_${hashString "sha1" path}";
val = text;
install = /* sh */ ''
${optionalString (check != null) /* sh */ ''
${check} ''$${var}Path
''}
${pkgs.coreutils}/bin/install \
-m ${mode} \
-D \
''$${var}Path $out${path}
'';
};
write = spec: writers.${spec.type} (removeAttrs spec ["type"]);
specs =
mapAttrsToList
(path: spec: let
known-types = [ "link" "text" ];
found-types = attrNames (getAttrs known-types spec);
type = assert length found-types == 1; head found-types;
in spec // { inherit path type; })
specs0;
files = map write specs;
filevars = genAttrs' (filter (hasAttr "var") files)
(spec: nameValuePair spec.var spec.val);
env = filevars // { passAsFile = attrNames filevars; };
in
# Use a subshell because <nixpkgs/stdenv/generic/setup.sh>'s genericBuild
# sources (or evaluates) the buildCommand and we don't want to modify its
# shell. In particular, exitHandler breaks in multiple ways with set -u.
pkgs.runCommand name env /* sh */ ''
(
set -efu
${concatMapStringsSep "\n" (getAttr "install") files}
)
'';
writeHaskell =
k:
let
k' = parseDrvName k;
name = k'.name;
version = if k'.version != "" then k'.version else "0";
in
{ base-depends ? ["base"]
, executables ? {}
, ghc-options ? ["-Wall" "-O3" "-threaded" "-rtsopts"]
, haskellPackages ? pkgs.haskellPackages
, library ? null
, license ? "WTFPL"
}:
let
isExecutable = executables != {};
isLibrary = library != null;
cabal-file = pkgs.writeText "${name}-${version}.cabal" /* cabal */ ''
build-type: Simple
cabal-version: >= 1.2
name: ${name}
version: ${version}
${concatStringsSep "\n" (mapAttrsToList exe-section executables)}
${optionalString isLibrary (lib-section library)}
'';
exe-install =
exe-name:
{ file ? pkgs.writeText "${name}-${exe-name}.hs" text
, relpath ? "${exe-name}.hs"
, text
, ... }:
if types.filename.check exe-name
then /* sh */ "install -D ${file} $out/${relpath}"
else throw "argument exe-name is not a ${types.filename.name}";
exe-section =
exe-name:
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, file ? pkgs.writeText "${name}-${exe-name}.hs" text
, relpath ? "${exe-name}.hs"
, text
, ... }: /* cabal */ ''
executable ${exe-name}
build-depends: ${concatStringsSep "," build-depends}
ghc-options: ${toString ghc-options}
main-is: ${relpath}
'';
get-depends =
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, ...
}:
build-depends;
lib-install =
{ exposed-modules
, ... }:
concatStringsSep "\n" (mapAttrsToList mod-install exposed-modules);
lib-section =
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, exposed-modules
, ... }: /* cabal */ ''
library
build-depends: ${concatStringsSep "," build-depends}
ghc-options: ${toString ghc-options}
exposed-modules: ${concatStringsSep "," (attrNames exposed-modules)}
'';
mod-install =
mod-name:
{ file ? pkgs.writeText "${name}-${mod-name}.hs" text
, relpath ? "${replaceStrings ["."] ["/"] mod-name}.hs"
, text
, ... }:
if types.haskell.modid.check mod-name
then /* sh */ "install -D ${file} $out/${relpath}"
else throw "argument mod-name is not a ${types.haskell.modid.name}";
in
haskellPackages.mkDerivation {
inherit isExecutable isLibrary license version;
executableHaskellDepends =
attrVals
(concatMap get-depends (attrValues executables))
haskellPackages;
libraryHaskellDepends =
attrVals
(optionals isLibrary (get-depends library))
haskellPackages;
pname = name;
src = pkgs.runCommand "${name}-${version}-src" {} /* sh */ ''
install -D ${cabal-file} $out/${cabal-file.name}
${optionalString isLibrary (lib-install library)}
${concatStringsSep "\n" (mapAttrsToList exe-install executables)}
'';
};
writeJq = name: text:
assert (with types; either absolute-pathname filename).check name;
pkgs.writeOut (baseNameOf name) {
${optionalString (types.absolute-pathname.check name) name} = {
check = pkgs.writeDash "jqcheck.sh" ''
exec ${pkgs.jq}/bin/jq -f "$1" < /dev/null
'';
inherit text;
};
};
writeJSON = name: value: pkgs.runCommand name {
json = toJSON value;
passAsFile = [ "json" ];
} /* sh */ ''
${pkgs.jq}/bin/jq . "$jsonPath" > "$out"
'';
writeNixFromCabal =
trace (toString [
"The function `writeNixFromCabal` has been deprecated in favour of"
"`writeHaskell`."
])
(name: path: pkgs.runCommand name {} /* sh */ ''
${pkgs.cabal2nix}/bin/cabal2nix ${path} > $out
'');
writePython2 = deps:
let
py = pkgs.python2.withPackages(ps: attrVals deps ps);
in
pkgs.makeScriptWriter {
interpreter = "${py}/bin/python";
check = pkgs.writeDash "python2check.sh" ''
exec ${pkgs.python2Packages.flake8}/bin/flake8 --show-source "$1"
'';
};
writePython2Bin = d: name:
pkgs.writePython2 d "/bin/${name}";
writePython3 = deps:
let
py = pkgs.python3.withPackages(ps: attrVals deps ps);
in
pkgs.makeScriptWriter {
interpreter = "${py}/bin/python";
check = pkgs.writeDash "python3check.sh" ''
exec ${pkgs.python3Packages.flake8}/bin/flake8 --show-source "$1"
'';
};
writePython3Bin = d: name:
pkgs.writePython3 d "/bin/${name}";
writeSed = pkgs.makeScriptWriter {
interpreter = "${pkgs.gnused}/bin/sed -f";
};
}

View File

@ -3,6 +3,10 @@ with import <stockholm/lib>;
{ {
imports = [ imports = [
./3modules ./3modules
{
nixpkgs.config.packageOverrides =
import ../submodules/nix-writers/pkgs pkgs;
}
]; ];
nixpkgs.config.packageOverrides = import ./5pkgs pkgs; nixpkgs.config.packageOverrides = import ./5pkgs pkgs;
} }

View File

@ -7,6 +7,7 @@ host@{ name, secure ? false, override ? {} }: let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in

View File

@ -326,7 +326,7 @@ in {
name = "mc"; name = "mc";
paths = [ paths = [
(pkgs.writeDashBin "mc" '' (pkgs.writeDashBin "mc" ''
export MC_DATADIR=${pkgs.writeOut "mc-ext" { export MC_DATADIR=${pkgs.write "mc-ext" {
"/mc.ext".link = mcExt; "/mc.ext".link = mcExt;
"/sfs.ini".text = ""; "/sfs.ini".text = "";
}}; }};

View File

@ -65,7 +65,7 @@ with import <stockholm/lib>;
}) })
(buildSimpleReaktorPlugin "random-unicorn-porn" { (buildSimpleReaktorPlugin "random-unicorn-porn" {
pattern = "^!rup$$"; pattern = "^!rup$$";
script = pkgs.writePython2 [] "rup" '' script = pkgs.writePython2 "rup" [] ''
t1 = """ t1 = """
_. _.
;=',_ () ;=',_ ()

View File

@ -45,7 +45,7 @@
"pwstore-fast" "pwstore-fast"
"bytestring" "bytestring"
]; ];
body = pkgs.writeHaskell "passwords" { body = pkgs.writeHaskellPackage "passwords" {
executables.verify_pam = { executables.verify_pam = {
extra-depends = deps; extra-depends = deps;
text = '' text = ''

View File

@ -44,7 +44,7 @@ with import <stockholm/lib>;
wm = mkOption { wm = mkOption {
#TODO find type #TODO find type
type = types.string; type = types.string;
default = "${pkgs.writeHaskell "xephyrify-xmonad" { default = "${pkgs.writeHaskellPackage "xephyrify-xmonad" {
executables.xmonad = { executables.xmonad = {
extra-depends = [ extra-depends = [
"containers" "containers"

View File

@ -1,5 +1,5 @@
{ config, pkgs, ... }: { config, pkgs, ... }:
pkgs.writeHaskell "xmonad-lass" { pkgs.writeHaskellPackage "xmonad-lass" {
executables.xmonad = { executables.xmonad = {
extra-depends = [ extra-depends = [
"containers" "containers"

View File

@ -1,6 +1,6 @@
{ pass, writeOut, writeDash, ... }: { pass, write, writeDash, ... }:
writeOut "dsco-pass" { write "dsco-pass" {
"/bin/dpass".link = writeDash "dpass" '' "/bin/dpass".link = writeDash "dpass" ''
PASSWORD_STORE_DIR=$HOME/.dpasswordstore \ PASSWORD_STORE_DIR=$HOME/.dpasswordstore \
exec ${pass}/bin/pass $@ exec ${pass}/bin/pass $@

View File

@ -1,8 +1,8 @@
{ writeDashBin, writeHaskell, coreutils, xorg, virtualgl, ... }: { writeDashBin, writeHaskellPackage, coreutils, xorg, virtualgl, ... }:
let let
xephyrify-xmonad = writeHaskell "xephyrify-xmonad" { xephyrify-xmonad = writeHaskellPackage "xephyrify-xmonad" {
executables.xmonad = { executables.xmonad = {
extra-depends = [ extra-depends = [
"containers" "containers"

View File

@ -7,6 +7,7 @@ host@{ name, secure ? false, override ? {} }: let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in

View File

@ -20,6 +20,7 @@ let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
# TODO: automate updating of this ref + cherry-picks # TODO: automate updating of this ref + cherry-picks

View File

@ -7,6 +7,7 @@ host@{ name, override ? {} }: let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in

View File

@ -7,6 +7,7 @@ host@{ name, secure ? false }: let
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in

View File

@ -1,6 +1,11 @@
let let
lib = import ./lib; lib = import ./lib;
pkgs = import <nixpkgs> { overlays = [(import ./krebs/5pkgs)]; }; pkgs = import <nixpkgs> {
overlays = [
(import ./krebs/5pkgs)
(import ./submodules/nix-writers/pkgs)
];
};
in pkgs.stdenv.mkDerivation { in pkgs.stdenv.mkDerivation {
name = "stockholm"; name = "stockholm";

@ -0,0 +1 @@
Subproject commit 4d0829328e885a6d7163b513998a975e60dd0a72

View File

@ -111,7 +111,7 @@ let {
command! -n=0 -bar ShowSyntax :call ShowSyntax() command! -n=0 -bar ShowSyntax :call ShowSyntax()
''; '';
}))) })))
((rtp: rtp // { inherit rtp; }) (pkgs.writeOut "vim-tv" { ((rtp: rtp // { inherit rtp; }) (pkgs.write "vim-tv" {
"/syntax/haskell.vim".text = /* vim */ '' "/syntax/haskell.vim".text = /* vim */ ''
syn region String start=+\[[[:alnum:]]*|+ end=+|]+ syn region String start=+\[[[:alnum:]]*|+ end=+|]+

View File

@ -1,5 +1,5 @@
{ pkgs, ... }: { pkgs, ... }:
pkgs.writeHaskell "xmonad-tv" { pkgs.writeHaskellPackage "xmonad-tv" {
executables.xmonad = { executables.xmonad = {
extra-depends = [ extra-depends = [
"containers" "containers"

View File

@ -9,6 +9,7 @@ with import <stockholm/lib>;
pkgs = import <nixpkgs> { pkgs = import <nixpkgs> {
overlays = map import [ overlays = map import [
<stockholm/krebs/5pkgs> <stockholm/krebs/5pkgs>
<stockholm/submodules/nix-writers/pkgs>
]; ];
}; };
in in