Browse Source

clean up and add src directory

pull/1/head
Wesley Kerfoot 6 years ago
parent
commit
3ae6043119
  1. 0
      src/bolt.rkt
  2. 0
      src/directory.rkt
  3. 0
      src/shell_env.rkt
  4. 31
      test.rkt

0
bolt.rkt → src/bolt.rkt

0
directory.rkt → src/directory.rkt

0
shell_env.rkt → src/shell_env.rkt

31
test.rkt

@ -1,31 +0,0 @@
#! /usr/bin/env racket
#lang racket
(require bolt)
(define linode
(remote
#:host "linode"
#:user "wes"
#:key "/home/wes/.ssh/id_rsa.key"))
(define (test)
(with-cwd "gforth"
(exec "sudo whoami")
(with-cwd "src"
(pwd)
(ls)
(with-cwd "gforth-0.7.3"
(ls))))
(pwd)
(exec "cat /etc/passwd")
(become "http" (ls)))
; This is based on an entry in ~/.ssh/config
(with-host linode
(become "root"
(become "http"
(pwd)
(exec "ls /etc"))
(pwd))
(pwd))
Loading…
Cancel
Save