marks: fixup

Many of the marks were broken, and staticizing the marks revealed this.
This makes them build.
This commit is contained in:
Philip Monk 2021-03-04 19:21:34 -08:00
parent a0146f4a44
commit f5ce79da9d
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
10 changed files with 18 additions and 13 deletions

View File

@ -6,7 +6,7 @@
=, html
|_ own=manx
::
++ grad %mime
++ grad %noun
++ grow :: convert to
|%
++ hymn ;html:(head body:"+{own}") :: convert to %hymn

View File

@ -6,7 +6,7 @@
=, format
|_ txt=cord
::
++ grad %mime
++ grad %noun
++ grab :: convert from
|%
++ noun @t :: clam from %noun

View File

@ -6,7 +6,7 @@
=, html
|_ own=manx
::
++ grad %mime
++ grad %noun
++ grow :: convert to
|%
++ html (crip (en-xml own)) :: convert to %html

View File

@ -4,7 +4,7 @@
++ grad %noun
++ grab
|%
++ noun not
++ noun all:notification
++ json
|= jon=^json
(notification:dejs:lsp-json jon)

View File

@ -8,7 +8,7 @@
--
++ grab
|%
++ noun req
++ noun all:request
++ json
|= jon=^json
(request:dejs:lsp-json jon)

View File

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

View File

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

View File

@ -6,7 +6,7 @@
=, html
|_ own=manx
::
++ grad %mime
++ grad %noun
++ grow :: convert to
|%
++ hymn ;html:(head body:"+{own}") :: convert to %hymn

View File

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

View File

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