transfered /@ to "include by date", /& now "cast to mark"

This commit is contained in:
Anton Dyudin 2016-02-01 15:54:16 -08:00
parent a86b7ccc43
commit a2081a7482
10 changed files with 41 additions and 19 deletions

View File

@ -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))

View File

@ -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
View File

@ -0,0 +1,8 @@
::
:::: /hoon/core/elem/mar
::
/? 314
|_ own=manx
::
++ grow |% ++ elem own :: alias
-- --

View File

@ -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)))

View File

@ -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}");)
--

View File

@ -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
View File

@ -0,0 +1,5 @@
/% /,
/web/modules /|(/!elem/ /elem/)
/ /elem/
==
`manx`-.-

View File

@ -1,5 +1,5 @@
/- tree-include
/| /tree-combine/
/:/===/web/404:/tree-combine/
/:/===/web/404:/tree-combine/ :: XX merge into tree-elem?
==
`tree-include`-<

View File

@ -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/
== ==
::
::::

View File

@ -1,4 +1,4 @@
/= all /; flop /^ (list (pair time ,*)) /& /mime/
/= all /; flop /^ (list (pair time ,*)) /@ /mime/
;html
;head:title:"Pastebin"
;body