tasks/ssh.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
#!/usr/bin/env min ".env.yml" fread from-yaml :env "min.yml" fread from-yaml :config env /ssh-host :host env /ssh-h3rald-dir :h3rald-dir env /ssh-min-dir :min-dir "Min_DeveloperGuide.htm" :guide-file "$#/assets/min/$#" (h3rald-dir guide-file) =% :h3rald-guide "cd " min-dir suffix :min-cd "cd " h3rald-dir suffix :h3rald-cd ; Helpers ( :prog (prog which "" ==) ("$# is not available" (prog) =% error 1 exit) when ) :required {} ( "ssh" required "ssh - build ($#)" (host) =% notice "cp $# $#" (guide-file h3rald-guide) =% :cp-guide ( "export PATH=~/bin:~/.nimble/bin:$PATH" min-cd cp-guide h3rald-cd "git pull" "hastysite build" ) => "; " join :cmds "ssh $# \"$#\"" (host cmds) =% !! ) %h3rald ( "ssh" required "ssh - build ($#)" (host) =% notice ( "export PATH=~/bin:~/.nimble/bin:$PATH" min-cd "git pull" "nifty upgrade" "min run build" "min run build:guide" "min run build:site" ) => "; " join :cmds "ssh $# \"$#\"" (host cmds) =% !! ) %build +ssh-tasks |