summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--config/kmein.hs68
1 files changed, 51 insertions, 17 deletions
diff --git a/config/kmein.hs b/config/kmein.hs
index f5d9849..37b5474 100644
--- a/config/kmein.hs
+++ b/config/kmein.hs
@@ -1,15 +1,17 @@
-{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Main (main) where
import Action
-import Blessings.String
import Core
+import State
+
+import Blessings.String
+import Control.Monad
import Data.Maybe
import Scanner
-import State
+import System.Posix.Signals
import Text.Hyphenation
import Text.LineBreak
import TreeView
@@ -17,33 +19,66 @@ import qualified Data.Tree as Tree
import qualified Data.Tree.Zipper as Z
import qualified Notmuch.Message as Notmuch
+{- notmuch's special tags are:
+
+ synchonised to maildir: draft flagged passed replied unread
+ automatic: attachment signed encrypted
+ cli default tags: unread inbox deleted spam
+
+ref: https://notmuchmail.org/special-tags/
+-}
+
main :: IO ()
main =
mainWithState emptyState
{ keymap = myKeymap
, mousemap = myMousemap
+ , colorConfig = (colorConfig emptyState)
+ { tagMap =
+ [ ("deleted", SGR [38,5,088])
+ , ("flagged", SGR [38,5,226])
+ , ("draft", SGR [38,5,63])
+ , ("spam", SGR [38,5,202])
+ ]
+ }
+ , tagSymbols =
+ [ ("flagged", "*")
+ , ("attachment", "📎")
+ ]
}
myKeymap :: String -> State -> IO State
-myKeymap "a" = toggleTagAtCursor "inbox"
-myKeymap "s" = toggleTagAtCursor "unread"
-myKeymap "&" = toggleTagAtCursor "killed"
-myKeymap "*" = toggleTagAtCursor "star"
+myKeymap "h" = closeFold
+myKeymap "l" = openFold
+myKeymap "\n" = toggleFold
+
+myKeymap "g" = moveCursorUp 150
+myKeymap "G" = moveCursorDown 150
myKeymap "k" = moveCursorUp 1
myKeymap "j" = moveCursorDown 1
+myKeymap "\ESC[A" = moveCursorDown 1
+myKeymap "\ESC[B" = moveCursorUp 1
+myKeymap "\ESC[C" = moveTreeLeft 10 -- left
+myKeymap "\ESC[D" = moveTreeRight 10 -- right
+
+myKeymap "q" = \q -> q <$ raiseSignal sigINT
+
+myKeymap "*" = toggleTagAtCursor "flagged"
+myKeymap "a" = toggleTagAtCursor "inbox" -- mnemonic: Archive
+myKeymap "s" = toggleTagAtCursor "unread" -- mnemonic: Seen
+myKeymap "d" = toggleTagAtCursor "deleted"
+myKeymap "!" = toggleTagAtCursor "spam"
+
+myKeymap "N" = moveCursorUpToPrevUnread
+myKeymap "n" = moveCursorDownToNextUnread
+
myKeymap "K" = moveTreeDown 1
myKeymap "J" = moveTreeUp 1
-myKeymap "\ESC[A" = moveCursorUp 1
-myKeymap "\ESC[B" = moveCursorDown 1
myKeymap "\ESC[a" = moveTreeDown 1
myKeymap "\ESC[b" = moveTreeUp 1
-myKeymap "\ESC[c" = moveTreeLeft 1 -- S-Right
-myKeymap "\ESC[d" = moveTreeRight 1 -- S-Left
myKeymap "\ESC[5~" = \q -> moveTreeDown (screenHeight q `div` 2) q -- PgUp
myKeymap "\ESC[6~" = \q -> moveTreeUp (screenHeight q `div` 2) q -- PgDn
-myKeymap "\n" = toggleFold
myKeymap "\ESC[Z" = moveCursorUpToPrevUnread -- S-Tab
-myKeymap "\t" = moveCursorDownToNextUnread
myKeymap "\DEL" = moveToParent -- backspace
myKeymap "=" = \q@State{..} ->
let cursor' = case Z.label cursor of
@@ -69,8 +104,7 @@ myKeymap "=" = \q@State{..} ->
insert a =
Z.prevSpace . Z.insert (Tree.Node a [])
- hy s =
- breakStringLn bf s
+ hy = breakStringLn bf
where
shy = '\173'
hyp = Just german_1996
@@ -85,7 +119,7 @@ myKeymap "\ESC[12~" = \q@State{..} ->
return q { flashMessage =
Plain $
show $
- maybe Nothing (Just . Notmuch.messageFilename) $
+ fmap Notmuch.messageFilename $
getMessage $
Z.label cursor
}
@@ -99,7 +133,7 @@ myKeymap s = displayKey s
myMousemap :: Scan -> State -> IO State
myMousemap ScanMouse{mouseButton=1,mouseY=y} = defaultMouse1Click y
-myMousemap ScanMouse{mouseButton=3,mouseY=y} = \q -> defaultMouse1Click y q >>= toggleFold
+myMousemap ScanMouse{mouseButton=3,mouseY=y} = defaultMouse1Click y >=> toggleFold
myMousemap ScanMouse{mouseButton=4} = moveTreeDown 3
myMousemap ScanMouse{mouseButton=5} = moveTreeUp 3
myMousemap ScanMouse{mouseButton=0} = return