From db1304d9183f3018d1729ef6ce91644f11159382 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Fri, 22 Feb 2013 00:31:48 +0100
Subject: added some default function key macros

---
 lib/Makefile.am |  2 +-
 lib/fnkeys.tes  | 28 ++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 1 deletion(-)
 create mode 100644 lib/fnkeys.tes

(limited to 'lib')

diff --git a/lib/Makefile.am b/lib/Makefile.am
index 89c5e94..1fba206 100644
--- a/lib/Makefile.am
+++ b/lib/Makefile.am
@@ -1,2 +1,2 @@
 
-dist_scitecopath_DATA = lexer.tes
+dist_scitecopath_DATA = lexer.tes fnkeys.tes
diff --git a/lib/fnkeys.tes b/lib/fnkeys.tes
new file mode 100644
index 0000000..fb7678c
--- /dev/null
+++ b/lib/fnkeys.tes
@@ -0,0 +1,28 @@
+! Define some default function key macros !
+
+! edit command line to move <n> chars, updating existing move ops !
+@#c{{U.c
+  <-A-("=%.n|-A-)"=-%.n|0''">-D1;'-D>
+  .">
+    -A-)"= -S(\U.v .,Z-2D 0A-C"=2DQ.v|2D-Q.v'%.c | I(Q.c '
+  | I(Q.c '
+  "> Q.c\IC) | -Q.c\IR) '
+}}
+
+! go <n> pages of lines down !
+@#p{
+  U.c (ESLINESONSCREEN)*Q.cL
+}
+
+! Function key macros !
+@{DC}{}
+@{HOME}{(-(.-(0L.))M#c}
+@{END}{(-(.-(:L"S.-1|Z'))M#c}
+@{NPAGE}{(-(.-(M#p.))M#c}
+@{PPAGE}{(-(.-(-M#p.))M#c}
+@{LEFT}{(-M#c}
+@{SLEFT}{(-(.--W.)M#c}
+@{RIGHT}{(M#c}
+@{SRIGHT}{(-(.-W.)M#c}
+@{UP}{(-(.-B.)M#c}
+@{DOWN}{(-(.-L.)M#c}
-- 
cgit v1.2.3