mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 23:47:35 +03:00
refactor into generators
This commit is contained in:
parent
3e85a67267
commit
402361d9c5
@ -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
6
gen/pipe/cancel.hoon
Normal 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
6
gen/pipe/connect.hoon
Normal 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
6
gen/pipe/list.hoon
Normal file
@ -0,0 +1,6 @@
|
||||
!:
|
||||
:- %say
|
||||
|= $: {now/@da eny/@uvI bec/beak}
|
||||
{$~ $~}
|
||||
==
|
||||
[%pipe-list ~]
|
@ -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,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
|
||||
==
|
||||
|
Loading…
Reference in New Issue
Block a user