slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: basic manual integration

Browse Source
This commit is contained in:
Simon Michael 2016-06-20 11:09:12 -07:00
parent 76519be8f9
commit 7a4c45aa4a
1 changed files with 56 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
hledger-ui/Hledger/UI/UIUtils.hs
View File

@ -8,17 +8,24 @@ where
import Brick import Brick
import Brick.Widgets.Border import Brick.Widgets.Border
import Brick.Widgets.Border.Style import Brick.Widgets.Border.Style
import Brick.Widgets.Center
import Brick.Widgets.Dialog import Brick.Widgets.Dialog
import Brick.Widgets.Edit import Brick.Widgets.Edit
import Data.List import Data.List
import Data.Monoid import Data.Monoid
import Graphics.Vty import Graphics.Vty
import Lens.Micro.Platform import Lens.Micro.Platform
import System.Process
import Hledger import Hledger
import Hledger.UI.UITypes import Hledger.UI.UITypes
import Hledger.UI.UIState import Hledger.UI.UIState
runInfo = runCommand "hledger-ui --info" >>= waitForProcess
runMan = runCommand "hledger-ui --man" >>= waitForProcess
runHelp = runCommand "hledger-ui --help | less" >>= waitForProcess
-- ui -- ui
-- | Draw the help dialog, called when help mode is active. -- | Draw the help dialog, called when help mode is active.
@ -29,39 +36,52 @@ helpDialog =
render $ render $
renderDialog (dialog "help" (Just "Help (h/ESC to close)") Nothing (c^.availWidthL - 2)) $ -- (Just (0,[("ok",())])) renderDialog (dialog "help" (Just "Help (h/ESC to close)") Nothing (c^.availWidthL - 2)) $ -- (Just (0,[("ok",())]))
padTopBottom 1 $ padLeftRight 1 $ padTopBottom 1 $ padLeftRight 1 $
hBox [ vBox [
(padLeftRight 1 $ hBox [
vBox [ padLeftRight 1 $
str "MISC" vBox [
,renderKey ("h", "toggle help") str "MISC"
,renderKey ("a", "add transaction") ,renderKey ("h", "toggle help")
,renderKey ("E", "open editor") ,renderKey ("a", "add transaction")
,renderKey ("g", "reload data") ,renderKey ("E", "open editor")
,renderKey ("q", "quit") ,renderKey ("g", "reload data")
,str " " ,renderKey ("q", "quit")
,str "NAVIGATION" ,str " "
,renderKey ("UP/DOWN/PGUP/PGDN/HOME/END", "") ,str "NAVIGATION"
,str " move selection" ,renderKey ("UP/DOWN/PGUP/PGDN/HOME/END", "")
,renderKey ("RIGHT/ENTER", "drill down") ,str " move selection"
,renderKey ("LEFT", "previous screen") ,renderKey ("RIGHT/ENTER", "drill down")
,renderKey ("ESC", "cancel / reset") ,renderKey ("LEFT", "previous screen")
,renderKey ("ESC", "cancel / reset")
]
,padLeftRight 1 $
vBox [
str "FILTERING"
,renderKey ("/", "set a filter query")
,renderKey ("C", "toggle cleared filter")
,renderKey ("U", "toggle uncleared filter")
,renderKey ("R", "toggle real filter")
,renderKey ("Z", "toggle nonzero filter")
,renderKey ("F", "toggle flat/exclusive mode")
,renderKey ("DEL/BS", "remove filters")
,str "accounts screen:"
,renderKey ("-+0123456789", "set depth limit")
]
]
,vBox [
str " "
,hCenter $ padLeftRight 1 $
hCenter (str "MANUAL")
<=>
hCenter (hBox [
renderKey ("t", "text")
,str " "
,renderKey ("m", "man page")
,str " "
,renderKey ("i", "info")
])
] ]
) ]
,(padLeftRight 1 $
vBox [
str "FILTERING"
,renderKey ("/", "set a filter query")
,renderKey ("C", "toggle cleared filter")
,renderKey ("U", "toggle uncleared filter")
,renderKey ("R", "toggle real filter")
,renderKey ("Z", "toggle nonzero filter")
,renderKey ("F", "toggle flat/exclusive mode")
,renderKey ("DEL/BS", "remove filters")
,str "accounts screen:"
,renderKey ("-+0123456789", "set depth limit")
]
)
]
where where
renderKey (key,desc) = withAttr (borderAttr <> "keys") (str key) <+> str " " <+> str desc renderKey (key,desc) = withAttr (borderAttr <> "keys") (str key) <+> str " " <+> str desc
@ -69,7 +89,10 @@ helpDialog =
helpHandle :: UIState -> Event -> EventM (Next UIState) helpHandle :: UIState -> Event -> EventM (Next UIState)
helpHandle ui ev = helpHandle ui ev =
case ev of case ev of
EvKey k [] | k `elem` [KEsc, KChar 'h'] -> continue $ setMode Normal ui EvKey k [] | k `elem` [KEsc, KChar 'h', KChar '?'] -> continue $ setMode Normal ui
EvKey (KChar 't') [] -> suspendAndResume $ runHelp >> return (setMode Normal ui)
EvKey (KChar 'm') [] -> suspendAndResume $ runMan >> return (setMode Normal ui)
EvKey (KChar 'i') [] -> suspendAndResume $ runInfo >> return (setMode Normal ui)
_ -> continue ui _ -> continue ui
-- | Draw the minibuffer. -- | Draw the minibuffer.