1
0
Fork 0
nixos-config/system/git.nix
2020-05-16 18:08:50 +02:00

63 lines
2 KiB
Nix

{ config, pkgs, lib, ... }:
let
inherit (import ../lib) writeHaskellScript haskellList;
me = config.m-0.private.me;
update-command = [
"${pkgs.systemd}/bin/systemctl"
"restart"
"test-and-update.service"
"--no-block"
];
post-update = writeHaskellScript {
name = "post-update";
bins = [ pkgs.git ];
imports = [
"System.Environment (lookupEnv)"
"System.Directory (withCurrentDirectory)"
];
} ''
checkout :: String -> IO FilePath
checkout path = do
(decodeUtf8 -> repoDir) <- mktemp "-d" |> captureTrim
git "clone" path repoDir
pure repoDir
main = do
mirrorMay <- lookupEnv "GL_OPTION_MIRROR"
whenJust mirrorMay $ \mirror -> do
say [i|Forwarding push to #{mirror}|]
git "push" "--all" "-f" mirror
deployMay <- lookupEnv "GL_OPTION_WEB_DEPLOY"
whenJust deployMay $ \deploy -> do
(maybe [] (\x -> ["-f","default.nix",x]) -> target) <- lookupEnv "GL_OPTION_WEB_DEPLOY_NIX_TARGET"
(decodeUtf8 -> path) <- pwd |> captureTrim
say [i|Deploying build to /var/www/#{deploy}|]
bracket (checkout path) (rm "-rf") $ \repoDir -> withCurrentDirectory repoDir $ nix_build "-o" ([i|/var/www/#{deploy}|] :: String) target
say "Done"
testFlag <- lookupEnv "GL_OPTION_TEST"
whenJust testFlag $ \_ -> do
say "Triggering (an async) system update."
exe "sudo" ${haskellList update-command};
'';
in {
systemd.tmpfiles.rules = let cfg = config.services.gitolite;
in lib.mkAfter
[ "z ${cfg.dataDir}/.ssh/id_ed25519 0600 ${cfg.user} ${cfg.group} - -" ];
users.users.git.linger =
true; # Frequent restarting of the systemd-user-unit leads to errors
security.sudo.extraRules = [{
commands = [{
command = builtins.concatStringsSep " " update-command;
options = [ "NOPASSWD" ];
}];
users = [ "git" ];
}];
services.gitolite = {
enable = true;
user = "git";
adminPubkey = builtins.elemAt me.keys 0;
commonHooks = [ "${post-update}/bin/post-update" ];
};
}