mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 05:22:27 +03:00
marks: fixup
Many of the marks were broken, and staticizing the marks revealed this. This makes them build.
This commit is contained in:
parent
a0146f4a44
commit
f5ce79da9d
@ -6,7 +6,7 @@
|
||||
=, html
|
||||
|_ own=manx
|
||||
::
|
||||
++ grad %mime
|
||||
++ grad %noun
|
||||
++ grow :: convert to
|
||||
|%
|
||||
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
|
||||
|
@ -6,7 +6,7 @@
|
||||
=, format
|
||||
|_ txt=cord
|
||||
::
|
||||
++ grad %mime
|
||||
++ grad %noun
|
||||
++ grab :: convert from
|
||||
|%
|
||||
++ noun @t :: clam from %noun
|
||||
|
@ -6,7 +6,7 @@
|
||||
=, html
|
||||
|_ own=manx
|
||||
::
|
||||
++ grad %mime
|
||||
++ grad %noun
|
||||
++ grow :: convert to
|
||||
|%
|
||||
++ html (crip (en-xml own)) :: convert to %html
|
||||
|
@ -4,7 +4,7 @@
|
||||
++ grad %noun
|
||||
++ grab
|
||||
|%
|
||||
++ noun not
|
||||
++ noun all:notification
|
||||
++ json
|
||||
|= jon=^json
|
||||
(notification:dejs:lsp-json jon)
|
||||
|
@ -8,7 +8,7 @@
|
||||
--
|
||||
++ grab
|
||||
|%
|
||||
++ noun req
|
||||
++ noun all:request
|
||||
++ json
|
||||
|= jon=^json
|
||||
(request:dejs:lsp-json jon)
|
||||
|
@ -15,7 +15,7 @@
|
||||
++ mime
|
||||
|= (pair mite octs)
|
||||
=+ o=(pair ,* ,*) :: ,*)
|
||||
=+ (,[boot-ova=* kernel-ova=(list o) userspace-ova=(list o)] (cue q.q))
|
||||
=+ (,[%pill nam=term boot-ova=(list) kernel-ova=(list o) userspace-ova=(list o)] (cue q.q))
|
||||
=/ convert
|
||||
|= ova=(list o)
|
||||
^- (list unix-event)
|
||||
@ -30,7 +30,7 @@
|
||||
:: =/ boot-ova (convert boot-ova)
|
||||
=/ kernel-ova (convert kernel-ova)
|
||||
=/ userspace-ova (convert userspace-ova)
|
||||
[boot-ova kernel-ova userspace-ova]
|
||||
[%pill nam boot-ova kernel-ova userspace-ova]
|
||||
--
|
||||
++ grad %mime
|
||||
--
|
||||
|
@ -43,7 +43,7 @@
|
||||
::
|
||||
=, mimes:html
|
||||
|_ [hed=marl tal=marl]
|
||||
++ grad %mime
|
||||
++ grad %noun
|
||||
::
|
||||
++ grow :: convert to
|
||||
|%
|
||||
@ -55,6 +55,7 @@
|
||||
++ html (crip (en-xml hymn)) :: convert to %html
|
||||
++ mime [/text/html (as-octs html)] :: convert to %mime
|
||||
--
|
||||
++ noun [hed tal]
|
||||
--
|
||||
++ grab |% :: convert from
|
||||
++ noun ,[marl marl] :: clam from %noun
|
||||
|
@ -6,7 +6,7 @@
|
||||
=, html
|
||||
|_ own=manx
|
||||
::
|
||||
++ grad %mime
|
||||
++ grad %noun
|
||||
++ grow :: convert to
|
||||
|%
|
||||
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
|
||||
|
@ -701,6 +701,8 @@
|
||||
(compose-casts a !<(mark p.jum) b)
|
||||
?: ?=(%& -.rab)
|
||||
(compose-casts a !<(mark p.rab) b)
|
||||
?: ?=(%noun b)
|
||||
:_(nub !>(|=(* +<)))
|
||||
~|(no-cast-from+[a b] !!)
|
||||
::
|
||||
++ compose-casts
|
||||
|
@ -74,13 +74,15 @@
|
||||
=. next-timer ~
|
||||
=. this
|
||||
%- emit-aqua-events
|
||||
?^ error
|
||||
:: Should pass through errors to aqua, but doesn't
|
||||
::
|
||||
%- (slog leaf+'aqua-behn: timer failed' u.error)
|
||||
~
|
||||
:_ ~
|
||||
^- aqua-event
|
||||
:+ %event who
|
||||
:- //behn/0v1n.2m9vh
|
||||
?~ error
|
||||
[%wake ~]
|
||||
[%crud %fail u.error]
|
||||
[//behn/0v1n.2m9vh [%wake ~]]
|
||||
..abet-pe
|
||||
--
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user