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 ++++++++++++
 res/keyboard/mods/invert_keypad   |  6 ++++++
 res/keyboard/mods/zero_before_one |  9 +++++++++
 res/keyboard/mods/zero_to_nine    |  6 ++++++
 4 files changed, 33 insertions(+)

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)"
diff --git a/res/keyboard/mods/invert_keypad b/res/keyboard/mods/invert_keypad
index a31064d..83e283d 100644
--- a/res/keyboard/mods/invert_keypad
+++ b/res/keyboard/mods/invert_keypad
@@ -1,3 +1,9 @@
+assumption
+  function digit/1
+    \add(\1 "0")
+  end function
+end assumption
+
 <num keypad home> : "\digit(1)"
 <num keypad up> : "\digit(2)"
 <num keypad pgup> : "\digit(3)"
diff --git a/res/keyboard/mods/zero_before_one b/res/keyboard/mods/zero_before_one
index 1563e85..5dbe22e 100644
--- a/res/keyboard/mods/zero_before_one
+++ b/res/keyboard/mods/zero_before_one
@@ -1,3 +1,12 @@
+assumption
+  function digit/1
+    \add(\1 "0")
+  end function
+  function before_one/0
+    "§"
+  end function
+end assumption
+
 <letter \before_one()> : "\digit(0)"
 <letter \digit(0)> : "\before_one()"
 
diff --git a/res/keyboard/mods/zero_to_nine b/res/keyboard/mods/zero_to_nine
index d3d6e86..7248fe8 100644
--- a/res/keyboard/mods/zero_to_nine
+++ b/res/keyboard/mods/zero_to_nine
@@ -1,3 +1,9 @@
+assumption
+  function digit/1
+    \add(\1 "0")
+  end function
+end assumption
+
 <letter \digit(1)> : "\digit(0)"
 <letter \digit(2)> : "\digit(1)"
 <letter \digit(3)> : "\digit(2)"
-- 
cgit v1.2.3-70-g09d2