handle copying files

bolt.rkt

@@ -5,7 +5,8 @@
 (define (strip-first-line st)
   (string-join
    (cdr
-    (string-split st "\n"))))
+    (string-split st "\n"))
+   "\n"))
 
 (define cwd
   (make-parameter "~"))
@@ -76,6 +77,18 @@
             (bytes->string/utf-8 output)))]
     [output output]))
 
+(define (copy-file source dest)
+  (displayln
+    (format "Copying file to ~a:" (remote-host (host))))
+  (scp
+    (host)
+    source
+    (format "~a@~a:~a" (user) (remote-host (host)) dest)
+    #:mode 'result))
+
+
+; TODO copy directories by gzipping them up somehow
+
 (define ((make-cmd cmd)) (exec cmd))
 
 (define ls (make-cmd "ls"))

doc/bolt/stamp.sxref

@@ -1 +1 @@
-("f7c4c2295c53d7e662ba4d803aa99e517b2ad0f3dded01a3f73681ebb1f34a01d7abc54cb40575c8" "cffc520df8c71fbcf032bd9484bbd5e083e1eea3a39f82aa67381598121c046838efb79ea4422363" "d8d3930e051fde87175bb0f52680184b782e2377")
+("f7c4c2295c53d7e662ba4d803aa99e517b2ad0f3c5772ebc856486c25b608e65faa6f21acdf5b6f3" "cffc520df8c71fbcf032bd9484bbd5e083e1eea3a39f82aa67381598121c046838efb79ea4422363" "d8d3930e051fde87175bb0f52680184b782e2377")