From 6a43e15603fae243c30ca22f7be9d6473760eb36 Mon Sep 17 00:00:00 2001
From: Mattias Andrée <maandree@operamail.com>
Date: Thu, 11 Dec 2014 04:34:43 +0100
Subject: define help-functions inside assumption-clauses
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Mattias Andrée <maandree@operamail.com>
---
 res/keyboard/layout/common/keypad | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'res/keyboard/layout/common/keypad')

diff --git a/res/keyboard/layout/common/keypad b/res/keyboard/layout/common/keypad
index b4f1b2a..61fa74e 100644
--- a/res/keyboard/layout/common/keypad
+++ b/res/keyboard/layout/common/keypad
@@ -1,3 +1,15 @@
+assumption
+  function digit/1
+    \add(\1 "0")
+  end function
+  function comma/0
+    ","
+  end function
+  function altcomma/0
+    "."
+  end function
+end assumption
+
 <num keypad home> : "\digit(7)"
 <num keypad up> : "\digit(8)"
 <num keypad pgup> : "\digit(9)"
-- 
cgit v1.2.3-70-g09d2