Browse code
ops: setting up docker
Ed Langley authored on 30/08/2019 07:00:49
Showing 2 changed files
Showing 2 changed files
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) |