git.fiddlerwoaroof.com
Browse code

ops: setting up docker

Ed Langley authored on 30/08/2019 07:00:49
Showing 2 changed files
1 1
new file mode 100644
... ...
@@ -0,0 +1,7 @@
1
+FROM fiddlerwoaroof/sbcl-static:1.5.6
2
+
3
+COPY build /build
4
+
5
+RUN /usr/local/bin/sbcl --load /build/build.lisp
6
+
7
+ENTRYPOINT ["/usr/local/bin/sbcl"]
0 8
new file mode 100644
... ...
@@ -0,0 +1,17 @@
1
+#.(progn (ql:quickload :legit)
2
+         nil)
3
+
4
+(defun clone-github-repo (user repo)
5
+  (let ((result-dir (merge-pathnames (make-pathname :directory (list :relative
6
+                                                                     "quicklisp" "local-projects"
7
+                                                                     repo)
8
+                                                    :defaults #p"/")
9
+                                     (user-homedir-pathname))))
10
+    (legit:git-clone (format nil "https://github.com/~a/~a.git" user repo)
11
+                     :directory result-dir)))
12
+
13
+(clone-github-repo "fukamachi" "lack")
14
+(clone-github-repo "fiddlerwoaroof" "data-lens")
15
+(clone-github-repo "fiddlerwoaroof" "cl-todo-backend")
16
+
17
+(ql:quickload :todo-backend)