fixed chat with functional publishing changes

This commit is contained in:
pcmonk 2014-07-07 11:18:10 -07:00
parent 996ed44e9d
commit 5edc4de136
10 changed files with 127 additions and 1 deletions

View File

@ -9,8 +9,11 @@ actions:
@ send message in third person (irc /me)
# evaluate expression (ex: "#(add 2 2)")
list vessels:
other:
= show ships in current station
\\ 5 show recent backlog (last n messages)
\\ ~m5 show recent backlog (using @dr syntax)
\\ ~2014.07.04 show recent backlog (using @da syntax)
command-line parameters:
[%tower ~hoclur-bicrel] select haus server (default: ticketing ship)

View File

@ -0,0 +1,4 @@
$% [%in p=[p=@p q=@t]]
[%out q=[p=@p q=@t]]
==

View File

@ -0,0 +1 @@
(list ,[p=@p q=@t])

View File

@ -0,0 +1,14 @@
=< zing
|%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zing
$% [%backlog p=path q=?(%da %dr %ud) r=@]
[%hola p=path]
[%mess p=path q=mess]
==
--

View File

@ -0,0 +1,23 @@
=> |%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zing
$% [%backlog p=path q=?(%da %dr %ud) r=@]
[%hola p=path]
[%mess p=path q=mess]
==
--
|= zig=zing
^- manx
;html
;head
;title: Zing!
==
;body
;p: {<zig>}
==
==

View File

@ -0,0 +1,12 @@
=< zong
|%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zong
$% [%mess p=@da q=ship r=mess]
==
--

View File

@ -0,0 +1,21 @@
=> |%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zong
$% [%mess p=@da q=ship r=mess]
==
--
|= zog=zong
^- manx
;html
;head
;title: Zong!
==
;body
;p: {<zog>}
==
==

View File

@ -0,0 +1,13 @@
!:
=< (list zong)
|%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zong
$% [%mess p=@da q=ship r=mess]
==
--

View File

@ -0,0 +1,21 @@
=> |%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zong
$% [%mess p=@da q=ship r=mess]
==
--
|= zos=(list zong)
^- manx
;html
;head
;title: Zongs!
==
;body
;p: {<zos>}
==
==

View File

@ -0,0 +1,14 @@
=> |%
++ mess :: message
$% [%do p=@t] :: act
[%exp p=@t q=tank] :: code
[%say p=@t] :: speak
==
++ zong
$% [%mess p=@da q=ship r=mess]
==
--
|= zos=(list zong)
^- json
[%s (crip <zos>)]