ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 23:47:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

refactor into generators

Browse Source
This commit is contained in:
Philip C Monk 2016-03-24 19:55:10 -04:00
parent 3e85a67267
commit 402361d9c5
6 changed files with 60 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
app/pipe.hoon
View File

@ -13,28 +13,38 @@
|= arg/*
^- {(list move) _+>.$}
?: ?=($list arg)
%- %- slog
%+ turn (~(tap in connections))
|= {app/term source/path station/knot}
leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}"
[~ +>.$]
(poke-pipe-list ~)
=+ ((soft {$cancel app/term source/path station/knot}) arg)
?^ -
?. (~(has in connections) [app.u source.u station.u])
%- %- slog :~
leaf+"no connection:"
leaf+"{(trip app.u)}{<`path`source.u>} ---> {(trip station.u)}"
==
[~ +>.$]
%- %- slog :~
leaf+"canceling:"
leaf+"{(trip app.u)}{<`path`source.u>} ---> {(trip station.u)}"
==
[~ +>.$(connections (~(del in connections) [app.u source.u station.u]))]
(poke-pipe-cancel app.u source.u station.u)
=+ ((hard {app/term source/path station/knot}) arg)
(poke-pipe-arg app source station)
(poke-pipe-connect app source station)
::
++ poke-pipe-arg
++ poke-pipe-list
|= $~
^- {(list move) _+>.$}
%- %- slog
%+ turn (~(tap in connections))
|= {app/term source/path station/knot}
leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}"
[~ +>.$]
::
++ poke-pipe-cancel
|= {app/term source/path station/knot}
^- {(list move) _+>.$}
?. (~(has in connections) [app source station])
%- %- slog :~
leaf+"no connection:"
leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}"
==
[~ +>.$]
%- %- slog :~
leaf+"canceling:"
leaf+"{(trip app)}{<`path`source>} ---> {(trip station)}"
==
[~ +>.$(connections (~(del in connections) [app source station]))]
::
++ poke-pipe-connect
|= {app/term source/path station/knot}
^- {(list move) _+>.$}
:_ +>.$(connections (~(put in connections) [app source station]))

6
gen/pipe/cancel.hoon Normal file
View File

@ -0,0 +1,6 @@
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{{app/term source/path station/knot $~} $~}
==
[%pipe-cancel app source station]

6
gen/pipe/connect.hoon Normal file
View File

@ -0,0 +1,6 @@
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{{app/term source/path station/knot $~} $~}
==
[%pipe-connect app source station]

6
gen/pipe/list.hoon Normal file
View File

@ -0,0 +1,6 @@
!:
:- %say
|= $: {now/@da eny/@uvI bec/beak}
{$~ $~}
==
[%pipe-list ~]

10
mar/gh/issue-comment.hoon
View File

@ -9,9 +9,13 @@
:_ ~
:* %api %github
login.sender.issue-comment
(end 3 64 body.comment.issue-comment)
body.comment.issue-comment
(need (epur url.comment.issue-comment))
=- [- - (need (epur url.comment.issue-comment))]
;: (cury cat 3)
'on issue #'
`@t`(rsh 3 2 (scot %ui number.issue.issue-comment))
': '
body.comment.issue-comment
==
==
--
++ grab

14
mar/gh/issues.hoon
View File

@ -14,7 +14,7 @@
$assigned
;: (cury cat 3)
'assigned issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
' to '
login.assignee.action.issues
' ('
@ -25,7 +25,7 @@
$unassigned
;: (cury cat 3)
'unassigned issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
' from '
login.assignee.action.issues
' ('
@ -36,7 +36,7 @@
$labeled
;: (cury cat 3)
'labeled issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
' as '
name.label.action.issues
' ('
@ -47,7 +47,7 @@
$unlabeled
;: (cury cat 3)
'unlabeled issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
' as '
name.label.action.issues
' ('
@ -58,7 +58,7 @@
$opened
;: (cury cat 3)
'opened issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
': '
title.issue.issues
==
@ -66,7 +66,7 @@
$closed
;: (cury cat 3)
'closed issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
': '
title.issue.issues
==
@ -74,7 +74,7 @@
$reopened
;: (cury cat 3)
'reopened issue #'
(scot %ud number.issue.issues)
(rsh 3 2 (scot %ui number.issue.issues))
': '
title.issue.issues
==