From 9dcfb66c99909d1b51a76bdaf75ddbdb030fe270 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 14 Jun 2021 10:39:17 -0400
Subject: Move commands and add ns function

---
 Biz/Bild/ShellHook.sh | 57 ++++-----------------------------------------------
 1 file changed, 4 insertions(+), 53 deletions(-)

(limited to 'Biz/Bild')

diff --git a/Biz/Bild/ShellHook.sh b/Biz/Bild/ShellHook.sh
index c996dee..59786e4 100644
--- a/Biz/Bild/ShellHook.sh
+++ b/Biz/Bild/ShellHook.sh
@@ -14,10 +14,10 @@ function help() {
 }
 
 # color codes for use with printf
-RED='\033[0;31m'
-GRN='\033[0;32m'
-YEL='\033[0;33m'
-NC='\033[0m' # No Color
+export RED='\033[0;31m'
+export GRN='\033[0;32m'
+export YEL='\033[0;33m'
+export NC='\033[0m' # No Color
 
 alias runghc="runghc --ghc-arg=-i$BIZ_ROOT"
 
@@ -31,65 +31,16 @@ ln -s $BIZ_ROOT/Biz/Ide/post-checkout $BIZ_ROOT/.git/hooks/post-checkout
 ln -s $BIZ_ROOT/Biz/Ide/post-merge $BIZ_ROOT/.git/hooks/post-merge
 ln -s $BIZ_ROOT/Biz/Lint.py $BIZ_ROOT/.git/hooks/pre-commit
 
-function bild() {
-  timeout 5m runghc Biz.Bild $@
-}
-
 function deps() {
   niv --sources-file $BIZ_ROOT/Biz/Bild/Sources.json $@
 }
 
 alias ghci="ghci -i$BIZ_ROOT -ghci-script $BIZ_ROOT/.ghci"
 
-function lint {
-    runghc Biz.Lint $@
-}
-
 function pie() {
   runghc Biz.Pie $@
 }
 
-# TODO: convert to haskell, see:
-# - https://github.com/awakesecurity/nix-deploy/blob/master/src/Main.hs
-# - http://www.haskellforall.com/2018/08/nixos-in-production.html
-function push() {
-  prefix=$(echo $PWD | sed -e "s|^$BIZ_ROOT/*||g")
-  if [[ "$prefix" == "" ]]
-  then
-    target="$1"
-  else
-    target="$prefix.$1"
-  fi
-  what=$(realpath "$BIZ_ROOT/_/nix/$target")
-  # hack: get the domain from the activation script. there does not seem
-  # to be a way to get it from nix-instantiate
-  where=$(rg -r '$2' -e '(domainname ")(.*)(")' "$what/activate")
-  nix copy --to ssh://root@$where $what
-  ssh root@$where $what/bin/switch-to-configuration switch
-  ssh root@$where nix-env --profile /nix/var/nix/profiles/system --set $what
-  printf "${GRN}good:  push:  $target${NC}"
-}
-
-# TODO: convert to haskell
-function ship() {
-  stuff=(${@})
-  if [[ ${#stuff[@]} -eq 0 ]]
-  then
-    stuff=(
-      Biz/Cloud.nix
-      Biz/Dev.nix
-      Biz/Que/Prod.nix
-      # Hero/Prod.nix # disabled bc herocomcis.app domain is broken
-    )
-  fi
-  lint \
-    && bild --test ${stuff[@]} \
-    && for thing in ${stuff[@]}
-       do
-         push $thing
-       done
-}
-
 function run-sentry() {
   urls=(
     http://que.run
-- 
cgit v1.2.3