launch: fixed mark conversions and added files

This commit is contained in:
Logan Allen 2020-05-20 20:45:18 -04:00
parent e859ec4520
commit 34fc7b7f30
8 changed files with 9 additions and 10 deletions

View File

Before

Width:  |  Height:  |  Size: 4.7 KiB

After

Width:  |  Height:  |  Size: 4.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.7 KiB

View File

@ -31,17 +31,18 @@
%_ new-state
tiles
%- ~(gas by *tiles:store)
%+ turn `(list term)`[%chat %publish %link %dojo %weather %clock ~]
%+ turn `(list term)`[%chat %publish %links %weather %clock %dojo ~]
|= =term
:- term
^- tile:store
?+ term [[%custom ~] %.y]
%chat [[%basic 'Chat' '/~landscape/img/Chat.png' '/~chat'] %.y]
%links [[%basic 'Links' '/~landscape/img/Links.png' '/~link'] %.y]
%links [[%basic 'Links' '/~landscape/img/Links.png' '/~links'] %.y]
%dojo [[%basic 'Dojo' '/~landscape/img/Dojo.png' '/~dojo'] %.y]
%publish
[[%basic 'Publish' '/~landscape/img/Publish.png' '/~publish'] %.y]
==
tile-ordering [%chat %publish %links %weather %clock %dojo ~]
==
[~ this(state [%4 new-state])]
::
@ -57,17 +58,18 @@
%_ new-state
tiles
%- ~(gas by *tiles:store)
%+ turn `(list term)`[%chat %publish %link %dojo %weather %clock ~]
%+ turn `(list term)`[%chat %publish %links %weather %clock %dojo ~]
|= =term
:- term
^- tile:store
?+ term [[%custom ~] %.y]
%chat [[%basic 'Chat' '/~landscape/img/Chat.png' '/~chat'] %.y]
%links [[%basic 'Links' '/~landscape/img/Links.png' '/~link'] %.y]
%links [[%basic 'Links' '/~landscape/img/Links.png' '/~links'] %.y]
%dojo [[%basic 'Dojo' '/~landscape/img/Dojo.png' '/~dojo'] %.y]
%publish
[[%basic 'Publish' '/~landscape/img/Publish.png' '/~publish'] %.y]
==
tile-ordering [%chat %publish %links %weather %clock %dojo ~]
==
:_ this(state [%4 new-state])
:- [%pass / %arvo %e %disconnect [~ /]]

View File

@ -26,10 +26,10 @@
%change-order [%'changeOrder' (terms tile-ordering.upd)]
%change-first-time [%'changeFirstTime' b+first-time.upd]
%change-is-shown
:- %change-is-shown
:- %'changeIsShown'
%- pairs
:~ [%name s+name.upd]
[%is-shown b+is-shown.upd]
[%'isShown' b+is-shown.upd]
==
::
%initial

View File

@ -1,10 +1,8 @@
/+ *launch-store
::
|_ act=action
::
++ grab
|%
++ noun action
++ json dejs:action
++ json action:dejs
--
--

View File

@ -9,5 +9,4 @@
|%
++ noun update
--
::
--