mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-21 07:28:30 +03:00
Twitter psals, rash poja/xmlp, di:jo millisecond unix date
This commit is contained in:
parent
4ab1885fe4
commit
18c0f91a5e
@ -4628,9 +4628,8 @@
|
||||
$(hel t.hel, hev t.hev, rag (done %| [i.hel ~] [i.hev ~]))
|
||||
--
|
||||
++ nude :: tree change
|
||||
|= [a=* b=*]
|
||||
^- [p=upas q=upas]
|
||||
=< [p=(tred a b) q=(tred b a)]
|
||||
=< |= [a=* b=*] ^- [p=upas q=upas]
|
||||
[p=(tred a b) q=(tred b a)]
|
||||
|%
|
||||
++ axes :: locs of nouns
|
||||
|= [a=@ b=*] ^- (map ,* axis)
|
||||
|
@ -443,7 +443,7 @@
|
||||
::
|
||||
++ unt :: UGT to UTC time
|
||||
|= a=@
|
||||
(div (sub a ~1970.1.1) (bex 64))
|
||||
(div (sub a ~1970.1.1) ~s1)
|
||||
::
|
||||
++ yu :: UTC format constants
|
||||
|%
|
||||
@ -501,10 +501,10 @@
|
||||
$(a +.a)
|
||||
==
|
||||
::
|
||||
++ poja !: :: parse JSON
|
||||
++ poja :: parse JSON
|
||||
=< |=(a=cord (rush a apex))
|
||||
|%
|
||||
++ apex ;~(pose abox obox) :: JSON object
|
||||
++ valu :: JSON value
|
||||
++ apex :: JSON value
|
||||
%+ knee *json |. ~+
|
||||
;~ pfix spac
|
||||
;~ pose
|
||||
@ -516,10 +516,11 @@
|
||||
obox
|
||||
==
|
||||
==
|
||||
++ tops ;~(pose abox obox) :: JSON strict
|
||||
:: JSON arrays
|
||||
++ abox (stag %a (ifix [sel (ws ser)] (more (ws com) valu)))
|
||||
++ abox (stag %a (ifix [sel (ws ser)] (more (ws com) apex)))
|
||||
:: JSON objects
|
||||
++ pair ;~(plug ;~(sfix (ws stri) (ws col)) valu)
|
||||
++ pair ;~(plug ;~(sfix (ws stri) (ws col)) apex)
|
||||
++ obje (ifix [(ws kel) (ws ker)] (more (ws com) pair))
|
||||
++ obox (stag %o (cook mo obje))
|
||||
:: JSON booleans
|
||||
@ -650,6 +651,12 @@
|
||||
?. ?=([%s *] jon) ~
|
||||
(bind (stud (trip p.jon)) |=(a=date (year a)))
|
||||
::
|
||||
++ di :: millisecond date
|
||||
|= jon=json
|
||||
%+ bind (ni jon)
|
||||
|= a=@u ^- @da
|
||||
(add ~1970.1.1 (div (mul ~s1 a) 1.000))
|
||||
::
|
||||
++ mu :: true unit
|
||||
|* wit=fist
|
||||
|= jon=json
|
||||
@ -663,7 +670,7 @@
|
||||
++ ni :: number as integer
|
||||
|= jon=json
|
||||
?. ?=([%n *] jon) ~
|
||||
(slaw %ui (cat 3 '0i' p.jon))
|
||||
(rush p.jon dem)
|
||||
::
|
||||
++ no :: number as cord
|
||||
|= jon=json
|
||||
@ -903,6 +910,7 @@
|
||||
`_tam`?~(att bod [' ' (xmla att bod)])
|
||||
::
|
||||
++ xmlp :: xml parser
|
||||
=< |=(a=cord (rush a apex))
|
||||
|%
|
||||
++ apex
|
||||
=+ spa=;~(pose comt whit)
|
||||
@ -2144,10 +2152,12 @@
|
||||
--
|
||||
::
|
||||
++ epur :: url/header parser
|
||||
=< |=(a=cord (rush a apex))
|
||||
|%
|
||||
++ apat :: 2396 abs_path
|
||||
%+ cook deft
|
||||
(ifix [fas ;~(pose fas (easy ~))] (more fas smeg))
|
||||
++ apex auri
|
||||
++ auri
|
||||
%+ cook
|
||||
|= a=purl
|
||||
|
@ -3,9 +3,9 @@
|
||||
:::: /hook/hymn/front/twit/app
|
||||
::
|
||||
/? 314 :: need urbit 314
|
||||
/= urbit /:/===/lib/urb:/hymn/ :: urbit library (js)
|
||||
/= style /:/%%%/style:/hymn/ :: stylesheet (css)
|
||||
/= application /:/%%%/app:/hymn/ :: application (js)
|
||||
/= urbit /:/===/lib/urb:/psal/ :: urbit library (js)
|
||||
/= style /:/%%%/style:/psal/ :: stylesheet (css)
|
||||
/= application /:/%%%/app:/psal/ :: application (js)
|
||||
!:
|
||||
:::: content
|
||||
::
|
||||
|
Loading…
Reference in New Issue
Block a user