factor: trim using lists

[factor.git] / extra / web-services / github / github.factor

diff --git a/extra/web-services/github/github.factor b/extra/web-services/github/github.factor
index 09cfa16485f33f6c7a815687dd392f1d354bbc79..9061ab5dad2fc156cb18a032441c24f96154d36b 100644 (file)
--- a/extra/web-services/github/github.factor
+++ b/extra/web-services/github/github.factor
@@ -1,33 +1,37 @@
 ! Copyright (C) 2017 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs cli.git concurrency.combinators
-concurrency.semaphores formatting fry http.client io
-io.directories json.reader kernel locals math namespaces
-sequences ;
+USING: assocs cli.git formatting http.client io.pathnames
+json.reader kernel math namespaces sequences ;
 IN: web-services.github
 
 SYMBOL: github-username
 SYMBOL: github-token
 
-:: get-organization-repositories-with-credentials ( organization username token -- seq )
+! type is orgs, users
+:: get-repositories-with-credentials ( type name username token -- seq )
     0 [ dup ] [
         1 + dup
-        [ username token organization ] dip
-        "https://%s:%s@api.github.com/orgs/%s/repos?per_page=100&page=%d" sprintf http-get nip json>
+        [ username token type name ] dip
+        "https://%s:%s@api.github.com/%s/%s/repos?per_page=100&page=%d" sprintf http-get nip json>
         dup empty? [ 2drop f f ] [ ] if
     ] produce nip concat ;
 
-: get-organization-repositories ( organization -- seq )
+: get-repositories ( type name -- seq )
     github-username get
     github-token get
-    get-organization-repositories-with-credentials ;
+    get-repositories-with-credentials ;
 
-: sync-organization-with-credentials ( directory organization username token -- )
-    get-organization-repositories-with-credentials
+: sync-github-org-or-user ( directory type name -- )
+    get-repositories
     [ "ssh_url" of ] map sync-repositories ;
 
-: sync-organization ( directory organization -- )
-    github-username get
-    github-token get
-    sync-organization-with-credentials ;
+: sync-github-org ( directory name -- ) "orgs" swap sync-github-org-or-user ;
+: sync-github-user ( directory name -- ) "users" swap sync-github-org-or-user ;
+
+: github-git-uri ( user/org project -- uri ) [ "git@github.com" ] 2dip "/" glue ":" glue ;
+: github-ssh-uri ( user/org project -- uri ) [ "https://github.com" ] 2dip 3append-path ;
+: github-git-clone-as ( user/org project name -- process ) [ github-git-uri ] dip git-clone-as ;
+: github-ssh-clone-as ( user/org project name -- process ) [ github-ssh-uri ] dip git-clone-as ;
+: github-git-clone ( user/org project -- process ) dup github-git-clone-as ;
+: github-ssh-clone ( user/org project -- process ) dup github-ssh-clone-as ;