git.iko.soy/urbit.org
on master help sign in
fixed api app in gall/api
f4a57c1joshuareagan
docs/tutorials/gall/api.udon+26−26
compare with master
unifiedsplit
@@ -229,27 +229,27 @@ this doc:
229 +$ move (pair bone card)
229 +$ move (pair bone card)
230 +$ card
230 +$ card
231 $% [%diff sub-result]
231 $% [%diff sub-result]
232− [%them wire (unit hiss)]
232+ [%them wire (unit hiss:eyre)]
233− [%hiss wire [$~ $~] %httr [%hiss hiss]]
233+ [%hiss wire [%~ %~] %httr [%hiss hiss:eyre]]
234 ==
234 ==
235 ::
235 ::
236 :: Types of results we produce to subscribers.
236 :: Types of results we produce to subscribers.
237 ::
237 ::
238 +$ sub-result
238 +$ sub-result
239− $% [$arch arch]
239+ $% [%arch arch]
240− [$gh-issue issue:gh]
240+ [%gh-issue issue:gh]
241− [$gh-list-issues (list issue:gh)]
241+ [%gh-list-issues (list issue:gh)]
242− [$gh-issues issues:gh]
242+ [%gh-issues issues:gh]
243− [$gh-issue-comment issue-comment:gh]
243+ [%gh-issue-comment issue-comment:gh]
244− [$json json]
244+ [%json json]
245− [$null $~]
245+ [%null %~]
246 ==
246 ==
247 ::
247 ::
248 :: Types of webhooks we expect.
248 :: Types of webhooks we expect.
249 ::
249 ::
250 +$ hook-response
250 +$ hook-response
251− $% [$gh-issues issues:gh]
251+ $% [%gh-issues issues:gh]
252− [$gh-issue-comment issue-comment:gh]
252+ [%gh-issue-comment issue-comment:gh]
253 ==
253 ==
254 --
254 --
255=+ connector=(connector move sub-result) :: Set up connector library
255=+ connector=(connector move sub-result) :: Set up connector library
@@ -280,28 +280,28 @@ this doc:
280 (malt (turn issues |=(issue:gh [(rsh 3 2 (scot %ui number)) ~])))
280 (malt (turn issues |=(issue:gh [(rsh 3 2 (scot %ui number)) ~])))
281 --
281 --
282 :~ ^- place :: /
282 :~ ^- place :: /
283− :* guard=$~
283+ :* guard=,%~
284 read-x=read-null
284 read-x=read-null
285 read-y=(read-static %issues ~)
285 read-y=(read-static %issues ~)
286 sigh-x=sigh-strange
286 sigh-x=sigh-strange
287 sigh-y=sigh-strange
287 sigh-y=sigh-strange
288 ==
288 ==
289 ^- place :: /issues
289 ^- place :: /issues
290− :* guard=[$issues $~]
290+ :* guard=,[%issues %~]
291 read-x=read-null
291 read-x=read-null
292 read-y=(read-static %mine %by-repo ~)
292 read-y=(read-static %mine %by-repo ~)
293 sigh-x=sigh-strange
293 sigh-x=sigh-strange
294 sigh-y=sigh-strange
294 sigh-y=sigh-strange
295 ==
295 ==
296 ^- place :: /issues/mine
296 ^- place :: /issues/mine
297− :* guard=[$issues $mine $~]
297+ :* guard=,[%issues %mine %~]
298 read-x=(read-get /issues)
298 read-x=(read-get /issues)
299 read-y=(read-get /issues)
299 read-y=(read-get /issues)
300 sigh-x=sigh-list-issues-x
300 sigh-x=sigh-list-issues-x
301 sigh-y=sigh-list-issues-y
301 sigh-y=sigh-list-issues-y
302 ==
302 ==
303 ^- place :: /issues/by-repo
303 ^- place :: /issues/by-repo
304− :* guard=[$issues $by-repo $~]
304+ :* guard=,[%issues %by-repo %~]
305 read-x=read-null
305 read-x=read-null
306 ^= read-y
306 ^= read-y
307 |= pax=path
307 |= pax=path
@@ -313,7 +313,7 @@ this doc:
313 sigh-y=sigh-strange
313 sigh-y=sigh-strange
314 ==
314 ==
315 ^- place :: /issues/by-repo/<user>
315 ^- place :: /issues/by-repo/<user>
316− :* guard=[$issues $by-repo @t $~]
316+ :* guard=,[%issues %by-repo @t %~]
317 read-x=read-null
317 read-x=read-null
318 read-y=|=(pax=path (get /users/[-.+>.pax]/repos))
318 read-y=|=(pax=path (get /users/[-.+>.pax]/repos))
319 sigh-x=sigh-strange
319 sigh-x=sigh-strange
@@ -324,14 +324,14 @@ this doc:
324 [~ (malt (turn repos |=(repository:gh [name ~])))]
324 [~ (malt (turn repos |=(repository:gh [name ~])))]
325 ==
325 ==
326 ^- place :: /issues/by-repo/<user>/<repo>
326 ^- place :: /issues/by-repo/<user>/<repo>
327− :* guard=[$issues $by-repo @t @t $~]
327+ :* guard=,[%issues %by-repo @t @t %~]
328 read-x=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
328 read-x=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
329 read-y=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
329 read-y=|=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues))
330 sigh-x=sigh-list-issues-x
330 sigh-x=sigh-list-issues-x
331 sigh-y=sigh-list-issues-y
331 sigh-y=sigh-list-issues-y
332 ==
332 ==
333 ^- place :: /issues/by-repo/<user>/<repo>
333 ^- place :: /issues/by-repo/<user>/<repo>
334− :* guard=[$issues $by-repo @t @t @t $~]
334+ :* guard=,[%issues %by-repo @t @t @t %~]
335 ^= read-x
335 ^= read-x
336 |=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues/[-.+>+>.pax]))
336 |=(pax=path (get /repos/[-.+>.pax]/[-.+>+.pax]/issues/[-.+>+>.pax]))
337 ::
337 ::
@@ -355,7 +355,7 @@ this doc:
355++ peer-scry
355++ peer-scry
356 |= pax=path
356 |= pax=path
357 ^- [(list move) _+>.$]
357 ^- [(list move) _+>.$]
358− ?> ?=([care *] pax)
358+ ?> ?=([care:clay *] pax)
359 :_ +>.$ :_ ~
359 :_ +>.$ :_ ~
360 (read:connector ost.hid (places %read pax) i.pax t.pax)
360 (read:connector ost.hid (places %read pax) i.pax t.pax)
361::
361::
@@ -363,9 +363,9 @@ this doc:
363:: produce the result (as JSON) to whoever sent the request.
363:: produce the result (as JSON) to whoever sent the request.
364::
364::
365++ sigh-httr
365++ sigh-httr
366− |= [way=wire res=httr]
366+ |= [way=wire res=httr:eyre]
367 ^- [(list move) _+>.$]
367 ^- [(list move) _+>.$]
368− ?. ?=([$read care @ *] way)
368+ ?. ?=([%read care:clay @ *] way)
369 ~& res=res
369 ~& res=res
370 [~ +>.$]
370 [~ +>.$]
371 =* style i.way
371 =* style i.way
@@ -422,7 +422,7 @@ this doc:
422 [(flop mow) +>.$]
422 [(flop mow) +>.$]
423 ::
423 ::
424 ++ send-hiss :: Send a hiss
424 ++ send-hiss :: Send a hiss
425− |= hiz=hiss
425+ |= hiz=hiss:eyre
426 ^+ +>
426 ^+ +>
427 =+ wir=`wire`[%x %listen pax]
427 =+ wir=`wire`[%x %listen pax]
428 +>.$(mow [[ost.hid %hiss wir `~ %httr [%hiss hiz]] mow])
428 +>.$(mow [[ost.hid %hiss wir `~ %httr [%hiss hiz]] mow])
@@ -458,14 +458,14 @@ this doc:
458 :* %+ scan
458 :* %+ scan
459 =+ [(trip i.pax) (trip i.t.pax)]
459 =+ [(trip i.pax) (trip i.t.pax)]
460 "https://api.github.com/repos/{-<}/{->}/hooks"
460 "https://api.github.com/repos/{-<}/{->}/hooks"
461− auri:epur
461+ auri:de-purl:html
462 %post ~ ~
462 %post ~ ~
463− %- taco %- crip %- pojo %- jobe :~
463+ %- as-octs:mimes:html %- crip %- en-json:html %- pairs:enjs:format :~
464 name+s+%web
464 name+s+%web
465 active+b+&
465 active+b+&
466 events+a+~[s+event] ::(turn `(list ,@t)`t.t.pax |=(a=@t s=a))
466 events+a+~[s+event] ::(turn `(list ,@t)`t.t.pax |=(a=@t s=a))
467 :- %config
467 :- %config
468− %- jobe :~
468+ %- pairs:enjs:format :~
469 =+ =+ clean-event
469 =+ =+ clean-event
470 "http://107.170.195.5:8443/~/to/gh/gh-{-}.json?anon&wire=/"
470 "http://107.170.195.5:8443/~/to/gh/gh-{-}.json?anon&wire=/"
471 [%url s+(crip -)]
471 [%url s+(crip -)]
@@ -502,7 +502,7 @@ this doc:
502 [~ +>.$]
502 [~ +>.$]
503 :: ~& response=response
503 :: ~& response=response
504 :_ +>.$
504 :_ +>.$
505− %+ turn (~(tap in listeners.u.hook-data))
505+ %+ turn ~(tap in listeners.u.hook-data)
506 |= ost=bone
506 |= ost=bone
507 [ost %diff response]
507 [ost %diff response]
508--
508--