From 1bc93078cc5c2801236a5a6f57bb56ae5081a844 Mon Sep 17 00:00:00 2001
From: troido <troido@hotmail.com>
Date: Thu, 4 Jan 2018 14:05:06 +0100
Subject: no quotes necessary anymore in keybindings keys. Added some macros

---
 asciifarm/client/inputhandling.hy |  2 +-
 asciifarm/client/keymacros.hy     | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

(limited to 'asciifarm/client')

diff --git a/asciifarm/client/inputhandling.hy b/asciifarm/client/inputhandling.hy
index dbe5dd4..64b67e7 100644
--- a/asciifarm/client/inputhandling.hy
+++ b/asciifarm/client/inputhandling.hy
@@ -13,7 +13,7 @@
     (defn readCommands [self commandsstring]
         (setv self.commands
             (dict-comp 
-                (eval key)
+                (str key)
                 (
                     (eval `(do
                         (require [asciifarm.client.keymacros [*]])
diff --git a/asciifarm/client/keymacros.hy b/asciifarm/client/keymacros.hy
index b39ef5e..65e2993 100644
--- a/asciifarm/client/keymacros.hy
+++ b/asciifarm/client/keymacros.hy
@@ -6,6 +6,18 @@
 (defmacro inp [action]
     `(send ["input" ~action]))
 
+(defmacro move [dir]
+    `(inp ["move" ~dir]))
+
+(defmacro say [text]
+    `(inp ["say" ~text]))
+
+(defmacro log [text]
+    `(self.client.log ~text))
+
+(defmacro chat [text]
+    `(send ["chat" ~text]))
+
 (defmacro doall [actions]
     `(for [action ~actions] (action)))
 
-- 
cgit