mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-11 04:48:00 +03:00
transfered /@ to "include by date", /& now "cast to mark"
This commit is contained in:
parent
a86b7ccc43
commit
a2081a7482
@ -677,10 +677,10 @@
|
||||
(stag %fan ;~(pfix dot fan:read))
|
||||
(stag %for ;~(pfix com for:read))
|
||||
(stag %hel ;~(pfix cen day:read))
|
||||
(stag %hub ;~(pfix pat day:read))
|
||||
(stag %lin ;~(pfix pam lin:read))
|
||||
(stag %man ;~(pfix tar man:read))
|
||||
(stag %nap ;~(pfix cab day:read))
|
||||
(stag %now ;~(pfix pam day:read))
|
||||
(stag %now ;~(pfix pat day:read))
|
||||
(stag %saw ;~(pfix sem saw:read))
|
||||
(stag %see ;~(pfix col see:read))
|
||||
(stag %sic ;~(pfix ket sic:read))
|
||||
@ -721,6 +721,12 @@
|
||||
%+ rail fail
|
||||
=- ;~(sfix (star -) gap duz)
|
||||
;~(pfix gap fas ;~(plug hath day))
|
||||
::
|
||||
++ lin
|
||||
%+ rail
|
||||
;~(plug (plus ;~(sfix sym pam)) day)
|
||||
=+ (cook |=(a=term [a ~]) sym)
|
||||
;~(pfix gap ;~(plug - day))
|
||||
::
|
||||
++ man
|
||||
%+ rail fail
|
||||
@ -1455,9 +1461,13 @@
|
||||
$(p.hon t.p.hon)
|
||||
::
|
||||
%hel $(hon p.hon, lit |)
|
||||
%hub
|
||||
%+ cope (chad cof bax %ud p.hon)
|
||||
(flux |=(a=vase noun/a))
|
||||
%lin
|
||||
%+ cope $(hon q.hon)
|
||||
|= [cof=cafe cay=cage] ^- (bolt cage)
|
||||
?~ p.hon (fine cof cay)
|
||||
%+ cope $(p.hon t.p.hon)
|
||||
|= [cof=cafe cay=cage]
|
||||
(cope (make cof %cast i.p.hon `cay) furl)
|
||||
::
|
||||
%man
|
||||
%- cope :_ (flux |=(a=vase noun/a))
|
||||
|
@ -2493,15 +2493,14 @@
|
||||
$% [%ape p=twig] :: /~ twig by hand
|
||||
[%arg p=twig] :: /$ argument
|
||||
[%alt p=(list horn)] :: /| options
|
||||
:: [%day p=horn] :: list by @dr
|
||||
[%dub p=term q=horn] :: /= apply face
|
||||
[%fan p=(list horn)] :: /. list
|
||||
[%for p=(list (pair path:spur horn))] :: /, switch by path
|
||||
[%hel p=horn] :: /% propagate args
|
||||
[%hub p=horn] :: /@ list by @ud
|
||||
[%lin p=(list mark) q=horn] :: /& translates
|
||||
[%man p=(map span horn)] :: /* hetero map
|
||||
[%nap p=horn] :: /_ homo map
|
||||
[%now p=horn] :: /& list by @da
|
||||
[%now p=horn] :: /@ list by @da
|
||||
[%saw p=twig q=horn] :: /; operate on
|
||||
[%see p=beam q=horn] :: /: relative to
|
||||
[%sic p=tile q=horn] :: /^ cast
|
||||
|
8
mar/tree/elem.hoon
Normal file
8
mar/tree/elem.hoon
Normal file
@ -0,0 +1,8 @@
|
||||
::
|
||||
:::: /hoon/core/elem/mar
|
||||
::
|
||||
/? 314
|
||||
|_ own=manx
|
||||
::
|
||||
++ grow |% ++ elem own :: alias
|
||||
-- --
|
@ -1,3 +1,3 @@
|
||||
/= all /; flop /^ (list (pair time ,*)) /& /mime/
|
||||
/= all /; flop /^ (list (pair time ,*)) /@ /mime/
|
||||
^- json
|
||||
?~(all ~ (joba %u s/(scot %da p.i.all)))
|
||||
|
@ -6,7 +6,7 @@
|
||||
/= mez
|
||||
/; pojo
|
||||
/; |=(a=(list ,[@ p=json]) =.(a (flop a) ?~(a [%a ~] p.i.a)))
|
||||
/& /json/
|
||||
/@ /json/
|
||||
|%
|
||||
++ cdnj |=(a=tape ;script(src "//cdnjs.cloudflare.com/ajax/libs/{a}");)
|
||||
--
|
||||
|
@ -1,9 +1,9 @@
|
||||
/+ tree, react
|
||||
/= mime /mime/
|
||||
/= body /elem/
|
||||
/= snip /snip/
|
||||
/= meta /front/
|
||||
/= sect /index/
|
||||
/= body /tree-elem/
|
||||
/= sect /tree-index/
|
||||
/= snip /&snip&elem&/tree-elem/
|
||||
/= meta /&front&elem&/tree-elem/
|
||||
!:
|
||||
^- tree-include
|
||||
=+ rj=react-to-json:react
|
||||
|
5
ren/tree/elem.hoon
Normal file
5
ren/tree/elem.hoon
Normal file
@ -0,0 +1,5 @@
|
||||
/% /,
|
||||
/web/modules /|(/!elem/ /elem/)
|
||||
/ /elem/
|
||||
==
|
||||
`manx`-.-
|
@ -1,5 +1,5 @@
|
||||
/- tree-include
|
||||
/| /tree-combine/
|
||||
/:/===/web/404:/tree-combine/
|
||||
/:/===/web/404:/tree-combine/ :: XX merge into tree-elem?
|
||||
==
|
||||
`tree-include`-<
|
||||
|
@ -1,12 +1,12 @@
|
||||
/+ tree
|
||||
/, /
|
||||
/; (getall:tree /h1/h2/h3/h4/h5/h6) /elem/
|
||||
/; (getall:tree /h1/h2/h3/h4/h5/h6) /tree-elem/
|
||||
::
|
||||
/pub/docs/dev/hoon/runes
|
||||
/; |= [tip=marl sub=(map span marl) ~]
|
||||
(zing `(list marl)`[tip (turn (~(tap by sub)) tail)])
|
||||
/. /; (getall:tree %h1 ~) /elem/
|
||||
/_ /; (getall:tree %h1 ~) /elem/
|
||||
/. /; (getall:tree %h1 ~) /tree-elem/
|
||||
/_ /; (getall:tree %h1 ~) /tree-elem/
|
||||
== ==
|
||||
::
|
||||
::::
|
@ -1,4 +1,4 @@
|
||||
/= all /; flop /^ (list (pair time ,*)) /& /mime/
|
||||
/= all /; flop /^ (list (pair time ,*)) /@ /mime/
|
||||
;html
|
||||
;head:title:"Pastebin"
|
||||
;body
|
||||
|
Loading…
Reference in New Issue
Block a user