From d6991df61643a8730f771efbebf0059ad086e6f3 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Thu, 2 Apr 2026 05:55:52 +0200
Subject: app: map SS3-style F1/F2

---
 app/much.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/app/much.hs b/app/much.hs
index aba074c..7f9ff4e 100644
--- a/app/much.hs
+++ b/app/much.hs
@@ -98,10 +98,12 @@ myKeymap "=" = \q@State{..} ->
         bf = BreakFormat 80 8 shy hyp
 
 -- <F1>
+myKeymap "\ESCOP" = myKeymap "\ESC[11~"
 myKeymap "\ESC[11~" = \q@State{..} ->
     return q { flashMessage = fromString $ show $ treeViewId $ Z.label cursor }
 
 -- <F2>
+myKeymap "\ESCOQ" = myKeymap "\ESC[12~"
 myKeymap "\ESC[12~" = \q@State{..} ->
     return q { flashMessage =
                   fromString $
-- 
cgit v1.2.3