You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.1 KiB
65 lines
1.1 KiB
#lang racket
|
|
|
|
(require remote-shell/ssh)
|
|
|
|
(define cwd
|
|
(make-parameter "~"))
|
|
|
|
(define host
|
|
(make-parameter #f))
|
|
|
|
(define user
|
|
(make-parameter #f))
|
|
|
|
(define commands
|
|
(make-parameter #f))
|
|
|
|
(define-syntax-rule
|
|
(plan expr ...)
|
|
(parameterize
|
|
([commands (list)])
|
|
(begin expr ...)))
|
|
|
|
(define-syntax-rule
|
|
(with-cwd dir expr ...)
|
|
(parameterize
|
|
([cwd (format "~a/~a" (cwd) dir)])
|
|
(begin expr ...)))
|
|
|
|
(define-syntax-rule
|
|
(with-host remote expr ...)
|
|
(parameterize
|
|
([host remote])
|
|
(begin expr ...)))
|
|
|
|
(define-syntax-rule
|
|
(become username expr ...)
|
|
(parameterize
|
|
([user username])
|
|
(begin expr ...)))
|
|
|
|
(define (as-user cmd)
|
|
(if
|
|
(user)
|
|
(format "sudo -u ~a sh -c \"~a\""
|
|
(user)
|
|
cmd)
|
|
cmd))
|
|
|
|
(define (exec cmd)
|
|
(displayln
|
|
(format "on ~a:" (remote-host (host))))
|
|
(ssh (host)
|
|
(as-user
|
|
(string-append
|
|
(format "cd ~a && "
|
|
(cwd))
|
|
cmd))))
|
|
|
|
(define ((make-cmd cmd)) (exec cmd))
|
|
|
|
(define ls (make-cmd "ls"))
|
|
(define pwd (make-cmd "pwd"))
|
|
|
|
(provide
|
|
(all-defined-out) remote)
|
|
|