all repos — min @ 3291b82eb49fb6268c8d8a7da27e207413c91eb2

A small but practical concatenative programming language.

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
#!/usr/bin/env min

"_helpers" load 
'helpers import

env /ssh-host :host
env /ssh-min-dir :min-dir
"cd " min-dir suffix :min-cd

(
  "export PATH=~/bin:~/.nimble/bin:$PATH"
  min-cd
) :init

; Module symbols
{}
(
  "ssh" required
  "ssh - h3rald ($#)" (host) =% notice
  ( 
    init
    "min run h3rald:update"
    "min run h3rald:build"
  ) => "; " join :cmds
  "ssh $# \"$#\"" (host cmds) =% !!
) %h3rald
(
  "ssh" required
  "ssh - build ($#)" (host) =% notice
  ( 
    init
    "git pull"
    "nifty upgrade"
    "min run build" 
    "min run build:guide"
    "min run build:site"
  ) => "; " join :cmds
  "ssh $# \"$#\"" (host cmds) =% !!
) %build
+ssh-tasks