@@ -229,27 +229,27 @@ this doc:
229229 +$ move (pair bone card)
230230 +$ card
231231 $% [%diff sub-result]
232− [%them wire (unit hiss)]
233− [%hiss wire [$~ $~] %httr [%hiss hiss]]
232+ [%them wire (unit hiss:eyre)]
233+ [%hiss wire [%~ %~] %httr [%hiss hiss:eyre]]
234234 ==
235235 ::
236236 :: Types of results we produce to subscribers.
237237 ::
238238 +$ sub-result
239− $% [$arch arch]
240− [$gh-issue issue:gh]
241− [$gh-list-issues (list issue:gh)]
242− [$gh-issues issues:gh]
243− [$gh-issue-comment issue-comment:gh]
244− [$json json]
245− [$null $~]
239+ $% [%arch arch]
240+ [%gh-issue issue:gh]
241+ [%gh-list-issues (list issue:gh)]
242+ [%gh-issues issues:gh]
243+ [%gh-issue-comment issue-comment:gh]
244+ [%json json]
245+ [%null %~]
246246 ==
247247 ::
248248 :: Types of webhooks we expect.
249249 ::
250250 +$ hook-response
251− $% [$gh-issues issues:gh]
252− [$gh-issue-comment issue-comment:gh]
251+ $% [%gh-issues issues:gh]
252+ [%gh-issue-comment issue-comment:gh]
253253 ==
254254 --
255255=+ connector=(connector move sub-result) :: Set up connector library
@@ -280,28 +280,28 @@ this doc:
280280 (malt (turn issues |=(issue:gh [(rsh 3 2 (scot %ui number)) ~])))
281281 --
282282 :~ ^- place :: /
283− :* guard=$~
283+ :* guard=,%~
284284 read-x=read-null
285285 read-y=(read-static %issues ~)
286286 sigh-x=sigh-strange
287287 sigh-y=sigh-strange
288288 ==
289289 ^- place :: /issues
290− :* guard=[$issues $~]
290+ :* guard=,[%issues %~]
291291 read-x=read-null
292292 read-y=(read-static %mine %by-repo ~)
293293 sigh-x=sigh-strange
294294 sigh-y=sigh-strange
295295 ==
296296 ^- place :: /issues/mine
297− :* guard=[$issues $mine $~]
297+ :* guard=,[%issues %mine %~]
298298 read-x=(read-get /issues)
299299 read-y=(read-get /issues)
300300 sigh-x=sigh-list-issues-x
301301 sigh-y=sigh-list-issues-y
302302 ==
303303 ^- place :: /issues/by-repo
304− :* guard=[$issues $by-repo $~]
304+ :* guard=,[%issues %by-repo %~]
305305 read-x=read-null
306306 ^= read-y
307307 |= pax=path
@@ -313,7 +313,7 @@ this doc:
313313 sigh-y=sigh-strange
314314 ==
315315 ^- place :: /issues/by-repo/<user>
316− :* guard=[$issues $by-repo @t $~]
316+ :* guard=,[%issues %by-repo @t %~]
317317 read-x=read-null
318318 read-y=|=(pax=path (get /users/[-.+>.pax]/repos))
319319 sigh-x=sigh-strange
@@ -324,14 +324,14 @@ this doc:
324324 [~ (malt (turn repos |=(repository:gh [name ~])))]
325325 ==
326326 ^- place :: /issues/by-repo/<user>/<repo>
327− :* guard=[$issues $by-repo @t @t $~]
327+ :* guard=,[%issues %by-repo @t @t %~]
328328 read-x=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
329329 read-y=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
330330 sigh-x=sigh-list-issues-x
331331 sigh-y=sigh-list-issues-y
332332 ==
333333 ^- place :: /issues/by-repo/<user>/<repo>
334− :* guard=[$issues $by-repo @t @t @t $~]
334+ :* guard=,[%issues %by-repo @t @t @t %~]
335335 ^= read-x
336336 |=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues/[-.+>+>.pax]))
337337 ::
@@ -355,7 +355,7 @@ this doc:
355355++ peer-scry
356356 |= pax=path
357357 ^- [(list move) _+>.$]
358− ?> ?=([care *] pax)
358+ ?> ?=([care:clay *] pax)
359359 :_ +>.$ :_ ~
360360 (read:connector ost.hid (places %read pax) i.pax t.pax)
361361::
@@ -363,9 +363,9 @@ this doc:
363363:: produce the result (as JSON) to whoever sent the request.
364364::
365365++ sigh-httr
366− |= [way=wire res=httr]
366+ |= [way=wire res=httr:eyre]
367367 ^- [(list move) _+>.$]
368− ?. ?=([$read care @ *] way)
368+ ?. ?=([%read care:clay @ *] way)
369369 ~& res=res
370370 [~ +>.$]
371371 =* style i.way
@@ -422,7 +422,7 @@ this doc:
422422 [(flop mow) +>.$]
423423 ::
424424 ++ send-hiss :: Send a hiss
425− |= hiz=hiss
425+ |= hiz=hiss:eyre
426426 ^+ +>
427427 =+ wir=`wire`[%x %listen pax]
428428 +>.$(mow [[ost.hid %hiss wir `~ %httr [%hiss hiz]] mow])
@@ -458,14 +458,14 @@ this doc:
458458 :* %+ scan
459459 =+ [(trip i.pax) (trip i.t.pax)]
460460 "https://api.github.com/repos/{-<}/{->}/hooks"
461− auri:epur
461+ auri:de-purl:html
462462 %post ~ ~
463− %- taco %- crip %- pojo %- jobe :~
463+ %- as-octs:mimes:html %- crip %- en-json:html %- pairs:enjs:format :~
464464 name+s+%web
465465 active+b+&
466466 events+a+~[s+event] ::(turn `(list ,@t)`t.t.pax |=(a=@t s=a))
467467 :- %config
468− %- jobe :~
468+ %- pairs:enjs:format :~
469469 =+ =+ clean-event
470470 "http://107.170.195.5:8443/~/to/gh/gh-{-}.json?anon&wire=/"
471471 [%url s+(crip -)]
@@ -502,7 +502,7 @@ this doc:
502502 [~ +>.$]
503503 :: ~& response=response
504504 :_ +>.$
505− %+ turn (~(tap in listeners.u.hook-data))
505+ %+ turn ~(tap in listeners.u.hook-data)
506506 |= ost=bone
507507 [ost %diff response]
508508--