ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-11 04:48:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

Twitter psals, rash poja/xmlp, di:jo millisecond unix date

Browse Source
This commit is contained in:
Anton Dyudin 2014-10-28 16:13:02 -07:00 committed by Anton Dyudin
parent 4ab1885fe4
commit 18c0f91a5e
3 changed files with 22 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/hoon.hoon
View File

@ -4628,9 +4628,8 @@
$(hel t.hel, hev t.hev, rag (done %| [i.hel ~] [i.hev ~])) $(hel t.hel, hev t.hev, rag (done %| [i.hel ~] [i.hev ~]))
-- --
++ nude :: tree change ++ nude :: tree change
|= [a=* b=*] =< |= [a=* b=*] ^- [p=upas q=upas]
^- [p=upas q=upas] [p=(tred a b) q=(tred b a)]
=< [p=(tred a b) q=(tred b a)]
|% |%
++ axes :: locs of nouns ++ axes :: locs of nouns
|= [a=@ b=*] ^- (map ,* axis) |= [a=@ b=*] ^- (map ,* axis)

24
arvo/zuse.hoon
View File

@ -443,7 +443,7 @@
:: ::
++ unt :: UGT to UTC time ++ unt :: UGT to UTC time
|= a=@ |= a=@
(div (sub a ~1970.1.1) (bex 64)) (div (sub a ~1970.1.1) ~s1)
:: ::
++ yu :: UTC format constants ++ yu :: UTC format constants
|% |%
@ -501,10 +501,10 @@
$(a +.a) $(a +.a)
== ==
:: ::
++ poja !: :: parse JSON ++ poja :: parse JSON
=< |=(a=cord (rush a apex))
|% |%
++ apex ;~(pose abox obox) :: JSON object ++ apex :: JSON value
++ valu :: JSON value
%+ knee *json |. ~+ %+ knee *json |. ~+
;~ pfix spac ;~ pfix spac
;~ pose ;~ pose
@ -516,10 +516,11 @@
obox obox
== ==
== ==
++ tops ;~(pose abox obox) :: JSON strict
:: JSON arrays :: 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 :: 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)) ++ obje (ifix [(ws kel) (ws ker)] (more (ws com) pair))
++ obox (stag %o (cook mo obje)) ++ obox (stag %o (cook mo obje))
:: JSON booleans :: JSON booleans
@ -650,6 +651,12 @@
?. ?=([%s *] jon) ~ ?. ?=([%s *] jon) ~
(bind (stud (trip p.jon)) |=(a=date (year a))) (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 ++ mu :: true unit
|* wit=fist |* wit=fist
|= jon=json |= jon=json
@ -663,7 +670,7 @@
++ ni :: number as integer ++ ni :: number as integer
|= jon=json |= jon=json
?. ?=([%n *] jon) ~ ?. ?=([%n *] jon) ~
(slaw %ui (cat 3 '0i' p.jon)) (rush p.jon dem)
:: ::
++ no :: number as cord ++ no :: number as cord
|= jon=json |= jon=json
@ -903,6 +910,7 @@
`_tam`?~(att bod [' ' (xmla att bod)]) `_tam`?~(att bod [' ' (xmla att bod)])
:: ::
++ xmlp :: xml parser ++ xmlp :: xml parser
=< |=(a=cord (rush a apex))
|% |%
++ apex ++ apex
=+ spa=;~(pose comt whit) =+ spa=;~(pose comt whit)
@ -2144,10 +2152,12 @@
-- --
:: ::
++ epur :: url/header parser ++ epur :: url/header parser
=< |=(a=cord (rush a apex))
|% |%
++ apat :: 2396 abs_path ++ apat :: 2396 abs_path
%+ cook deft %+ cook deft
(ifix [fas ;~(pose fas (easy ~))] (more fas smeg)) (ifix [fas ;~(pose fas (easy ~))] (more fas smeg))
++ apex auri
++ auri ++ auri
%+ cook %+ cook
|= a=purl |= a=purl

6
main/app/twit/front/hymn.hook
View File

@ -3,9 +3,9 @@
:::: /hook/hymn/front/twit/app :::: /hook/hymn/front/twit/app
:: ::
/? 314 :: need urbit 314 /? 314 :: need urbit 314
/= urbit /:/===/lib/urb:/hymn/ :: urbit library (js) /= urbit /:/===/lib/urb:/psal/ :: urbit library (js)
/= style /:/%%%/style:/hymn/ :: stylesheet (css) /= style /:/%%%/style:/psal/ :: stylesheet (css)
/= application /:/%%%/app:/hymn/ :: application (js) /= application /:/%%%/app:/psal/ :: application (js)
!: !:
:::: content :::: content
:: ::