瀏覽代碼

Build with the latest version of vty

master
Peter J. Jones 2 年之前
父節點
當前提交
98950bd69c
簽署人: Peter Jones <pjones@devalot.com> GPG 金鑰 ID: 9DAFAA8D01941E49
共有 2 個檔案被更改,包括 2 行新增3 行删除
  1. 1
    1
      clockdown.cabal
  2. 1
    2
      src/Clockdown/UI/Term/Binding.hs

+ 1
- 1
clockdown.cabal 查看文件

@@ -60,7 +60,7 @@ library
, text >= 0.11 && < 1.3
, time >= 1.5 && < 1.6
, transformers >= 0.4 && < 0.5
, vty >= 5.2 && < 5.5
, vty >= 5.2 && < 6.0

--------------------------------------------------------------------------------
executable clockdown

+ 1
- 2
src/Clockdown/UI/Term/Binding.hs 查看文件

@@ -39,9 +39,8 @@ fixupKeys e = e
--------------------------------------------------------------------------------
-- | Convert Vty events into Clockdown bindings.
convertVtyEvent :: V.Event -> Maybe ([KeyModifier], KeyCode)
convertVtyEvent (V.EvMouse{}) = Nothing
convertVtyEvent (V.EvResize{}) = Nothing
convertVtyEvent (V.EvKey key ms) = (,) (map convertMod ms) <$> convertKey key
convertVtyEvent _ = Nothing

--------------------------------------------------------------------------------
convertMod :: V.Modifier -> KeyModifier

Loading…
取消
儲存