From f8b93d1f7150f6122ecf145936b9ac1abf413e2b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 30 Sep 2020 10:57:09 +0200
Subject: kmein config: add reply action

---
 config/kmein.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'config')

diff --git a/config/kmein.hs b/config/kmein.hs
index 294bc3b..6377056 100644
--- a/config/kmein.hs
+++ b/config/kmein.hs
@@ -95,6 +95,10 @@ saveAttachment q
         )
   | otherwise = return (Nothing, q { flashMessage = SGR [38,5,9] $ Plain "Cursor not on attachment." })
 
+
+reply :: State -> IO State
+reply q = q <$ runCommand "i3-sensible-terminal -e $EDITOR -c 'read !mail-reply'"
+
 myKeymap :: String -> State -> IO State
 myKeymap "h" = closeFold
 myKeymap "l" = openFold
@@ -111,6 +115,7 @@ myKeymap "\ESC[D" = moveTreeRight 10 -- right
 
 myKeymap "r" = notmuchSearch
 
+myKeymap "R" = reply
 myKeymap "S" = fmap snd . saveAttachment
 myKeymap "o" = saveAttachment >=> \case
   (Nothing, q') -> return q'
-- 
cgit v1.2.3