added some default function key macros

3 files changed, 34 insertions, 1 deletions

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}
diff --git a/teco.ini b/teco.ini
index 817607c..142ad69 100644
--- a/teco.ini
+++ b/teco.ini
@@ -6,6 +6,11 @@ EQ0Q{$SCITECOPATH}/lexer.tes
 }
 ED#32ED
 
+! Keyboard macros !
+[.m EQ.mQ{$SCITECOPATH}/fnkeys.tes M.m ].m
+! Uncomment to enable default keyboard macros !
+! ED#64ED !
+
 ! margins !
 [.w
   33ESTEXTWIDTH9U.w