steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

webservices.github: Add more commands needed for zealot.

elevate-erg
Doug Coleman 2018-07-04 18:33:37 -05:00
parent 725bbf9e45
commit 1a084d2293
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/web-services/github/github.factor
View File

@ -1,9 +1,7 @@
! Copyright (C) 2017 Doug Coleman. ! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs cli.git concurrency.combinators USING: assocs cli.git formatting http.client io.pathnames
concurrency.semaphores formatting fry http.client io json.reader kernel locals math namespaces sequences ;
io.directories json.reader kernel locals math namespaces
sequences ;
IN: web-services.github IN: web-services.github
SYMBOL: github-username SYMBOL: github-username
@ -31,3 +29,10 @@ SYMBOL: github-token
github-token get github-token get
sync-organization-with-credentials ; sync-organization-with-credentials ;
: github-git-uri ( user project -- uri ) [ "git@github.com" ] 2dip "/" glue ":" glue ;
: github-ssh-uri ( user project -- uri ) [ "https://github.com" ] 2dip 3append-path ;
: github-git-clone-as ( user project name -- process ) [ github-git-uri ] dip git-clone-as ;
: github-ssh-clone-as ( user project name -- process ) [ github-ssh-uri ] dip git-clone-as ;
: github-git-clone ( user project -- process ) dup github-git-clone-as ;
: github-ssh-clone ( user project -- process ) dup github-ssh-clone-as ;