blob: 87d73c03fbceaae5130a7630ea3c78a7f6f72c19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Main (main) where
import Blessings.String.WCWidth
import Data.Default
import Data.Maybe
import Data.Tree qualified as Tree
import Data.Tree.Zipper qualified as Z
import Much.API qualified
import Much.Action
import Much.Core
import Much.State
import Much.TreeView
import Notmuch.Message qualified as Notmuch
import Scanner
import System.Environment (getEnv)
import System.IO.Unsafe (unsafePerformIO)
import Text.Hyphenation
import Text.LineBreak
scrollLines :: Int
scrollLines =
if unsafePerformIO (getEnv "TOUCHSCREEN") == "1" then
1
else
3
main :: IO ()
main =
mainWithState def
{ apiConfig = def
{ Much.API.socketPath = "/home/tv/tmp/much/warp.sock"
}
, keymap = myKeymap
, mousemap = myMousemap
}
myKeymap :: String -> State -> IO State
myKeymap "a" = toggleTagAtCursor "inbox"
myKeymap "s" = toggleTagAtCursor "unread"
myKeymap "g" = toggleTagAtCursor "killed"
myKeymap "f" = toggleTagAtCursor "star"
myKeymap "&" = toggleTagAtCursor "killed"
myKeymap "*" = toggleTagAtCursor "star"
myKeymap "k" = moveCursorUp 1
myKeymap "j" = moveCursorDown 1
myKeymap "K" = moveTreeDown 1
myKeymap "J" = moveTreeUp 1
myKeymap "H" = moveTreeRight 8
myKeymap "L" = moveTreeLeft 8
myKeymap "\ESC[A" = moveCursorUp 1
myKeymap "\ESC[B" = moveCursorDown 1
myKeymap "\ESC[a" = moveTreeDown 1
myKeymap "\ESC[b" = moveTreeUp 1
myKeymap "\ESC[c" = moveTreeLeft 8 -- S-Right
myKeymap "\ESC[d" = moveTreeRight 8 -- 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
-- TODO wrap/unwrap to separate module
myKeymap "=" = \q@State{..} ->
let cursor' = case Z.label cursor of
TVMessageLine a b c s ->
wrap (TVMessageLine a b c) cursor s
_ -> cursor
in return q { cursor = cursor' }
where
--unwrap = error "WIP"
-- 1. get current id (must be TVMessageLine)
-- 2. find first adjoined TVMessageLine with same id
-- 3. find last adjoined TVMessageLine with same id
-- 4. join lines (with space?)
wrap ctor loc s =
fromMaybe (error "die hard") $
Z.nextTree $
foldr (insert . ctor)
(Z.delete loc)
$ hy s
insert a =
Z.prevSpace . Z.insert (Tree.Node a [])
hy s =
breakStringLn bf s
where
shy = '\173'
hyp = Just german_1996
bf = BreakFormat 80 8 shy hyp
-- <F1>
myKeymap "\ESC[11~" = \q@State{..} ->
return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor }
-- <F2>
myKeymap "\ESC[12~" = \q@State{..} ->
return q { flashMessage =
Plain $
show $
maybe Nothing (Just . Notmuch.messageFilename) $
getMessage $
Z.label cursor
}
-- TODO Stuff Vim sends after exit (also there is more...)
myKeymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
myKeymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
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=4} = moveTreeDown scrollLines
myMousemap ScanMouse{mouseButton=5} = moveTreeUp scrollLines
myMousemap ScanMouse{mouseButton=0} = return
myMousemap info = displayMouse info
|
