From 1a084d2293bc9dd3ca2a2dbceba7a87137f17e37 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 4 Jul 2018 18:33:37 -0500 Subject: [PATCH] webservices.github: Add more commands needed for zealot. --- extra/web-services/github/github.factor | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/extra/web-services/github/github.factor b/extra/web-services/github/github.factor index 09cfa16485..4fe79a700c 100644 --- a/extra/web-services/github/github.factor +++ b/extra/web-services/github/github.factor @@ -1,9 +1,7 @@ ! 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 locals math namespaces sequences ; IN: web-services.github SYMBOL: github-username @@ -31,3 +29,10 @@ SYMBOL: github-token github-token get 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 ; +