Custom json

This commit is contained in:
ronreg-ribdev 2020-05-21 03:30:07 -07:00
parent 505451955d
commit eb29d57496

View File

@ -100,8 +100,8 @@
?+ site.url not-found:gen ?+ site.url not-found:gen
[%'~bartinfo' %css %index ~] (css-response:gen style) [%'~bartinfo' %css %index ~] (css-response:gen style)
[%'~bartinfo' %js %tile ~] (js-response:gen tile-js) [%'~bartinfo' %js %tile ~] (js-response:gen tile-js)
[%'~bartinfo' %js %tileman ~] (js-response:gen tile-js)
[%'~bartinfo' %js %index ~] (js-response:gen script) [%'~bartinfo' %js %index ~] (js-response:gen script)
[%'~bartinfo' %js %bogus ~] (js-response:gen (json-to-octs (bogus-json)))
:: ::
[%'~bartinfo' %img @t *] [%'~bartinfo' %img @t *]
=/ name=@t i.t.t.site.url =/ name=@t i.t.t.site.url
@ -112,5 +112,11 @@
:: ::
[%'~bartinfo' *] (html-response:gen index) [%'~bartinfo' *] (html-response:gen index)
== ==
++ bogus-json
|= ~
^- json
%- pairs:enjs:format
:~ success+b+%.n
==
:: ::
-- --