urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

most of the issues porcelain finished

Browse Source
This commit is contained in:
Philip C Monk 2016-04-05 20:51:59 -04:00
parent c66fe58402
commit 3668997ebe
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
app/gh.hoon
View File

@ -27,6 +27,7 @@
++ move (pair bone card) ++ move (pair bone card)
++ sub-result ++ sub-result
$% {$arch arch} $% {$arch arch}
{$gh-issue issue:gh}
{$gh-list-issues (list issue:gh)} {$gh-list-issues (list issue:gh)}
{$gh-issues issues:gh} {$gh-issues issues:gh}
{$gh-issue-comment issue-comment:gh} {$gh-issue-comment issue-comment:gh}
@ -53,28 +54,28 @@
|= wir/wire |= wir/wire
=< =<
^- (list place) ^- (list place)
:~ ^- place :~ ^- place :: /
:* guard=$~ :* guard=$~
read-x=read-null read-x=read-null
read-y=(read-static %issues ~) read-y=(read-static %issues ~)
sigh-x=sigh-strange sigh-x=sigh-strange
sigh-y=sigh-strange sigh-y=sigh-strange
== ==
^- place ^- place :: /issues
:* guard={$issues $~} :* guard={$issues $~}
read-x=read-null read-x=read-null
read-y=(read-static %mine %by-repo ~) read-y=(read-static %mine %by-repo ~)
sigh-x=sigh-strange sigh-x=sigh-strange
sigh-y=sigh-strange sigh-y=sigh-strange
== ==
^- place ^- place :: /issues/mine
:* guard={$issues $mine $~} :* guard={$issues $mine $~}
read-x=(read-get /issues) read-x=(read-get /issues)
read-y=(read-get /issues) read-y=(read-get /issues)
sigh-x=sigh-list-issues-x sigh-x=sigh-list-issues-x
sigh-y=sigh-list-issues-y sigh-y=sigh-list-issues-y
== ==
^- place ^- place :: /issues/by-repo
:* guard={$issues $by-repo $~} :* guard={$issues $by-repo $~}
read-x=read-null read-x=read-null
^= read-y ^= read-y
@ -86,7 +87,7 @@
sigh-x=sigh-strange sigh-x=sigh-strange
sigh-y=sigh-strange sigh-y=sigh-strange
== ==
^- place ^- place :: /issues/by-repo/<user>
:* guard={$issues $by-repo @t $~} :* guard={$issues $by-repo @t $~}
read-x=read-null read-x=read-null
read-y=|=(pax/path (get /users/[-.+>.pax]/repos)) read-y=|=(pax/path (get /users/[-.+>.pax]/repos))
@ -98,13 +99,27 @@
:- `(shax (jam repos)) :- `(shax (jam repos))
(malt (turn repos |=(repository:gh [name ~]))) (malt (turn repos |=(repository:gh [name ~])))
== ==
^- place ^- place :: /issues/by-repo/<user>/<repo>
:* guard={$issues $by-repo @t @t $~} :* guard={$issues $by-repo @t @t $~}
read-x=|=(pax/path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues)) read-x=|=(pax/path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
read-y=|=(pax/path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues)) read-y=|=(pax/path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
sigh-x=sigh-list-issues-x sigh-x=sigh-list-issues-x
sigh-y=sigh-list-issues-y sigh-y=sigh-list-issues-y
== ==
^- place :: /issues/by-repo/<user>/<repo>
:* guard={$issues $by-repo @t @t @t $~}
^= read-x
|=(pax/path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues/[-.+>+>.pax]))
::
read-y=read-null
^= sigh-x
|= jon/json
%+ bind (issue:gh-parse jon)
|= issue/issue:gh
gh-issue+issue
::
sigh-y=sigh-strange
==
== ==
=> =>
|% :: generic helpers (should be library) |% :: generic helpers (should be library)