utdemir/nix-tree
1
1
Fork 0
mirror of https://github.com/utdemir/nix-tree.git synced 2024-09-11 14:55:44 +03:00
Code Issues Projects Releases Wiki Activity

Add horizontal scrolling on why-depends window

Browse Source 
The implementation is not ideal, since scrolling is boundless; but
at least it makes viewing long dependency chains somehow possible.

closes #18
This commit is contained in:
Utku Demir 2021-03-11 22:50:17 +13:00
parent bb38851c25
commit dd0d11c2aa
No known key found for this signature in database
GPG Key ID: F3F8629C3E0BF60B
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -3,6 +3,7 @@
## Unreleased
* feat: Support non standard Nix store locations
* feat: Horizontal scrolling on why-depends window
## 0.1.5

18
src/App.hs
View File

@ -25,6 +25,7 @@ data Widgets
| WidgetNextPane
| WidgetWhyDepends
| WidgetSearch
| WidgetWhyDependsViewport
deriving (Show, Eq, Ord)
data Modal s
@ -190,7 +191,8 @@ app =
B.halt s
(B.VtyEvent (V.EvKey (V.KChar '?') []), Nothing) ->
B.continue s {aeOpenModal = Just ModalHelp}
(B.VtyEvent (V.EvKey (V.KChar 'w') []), Nothing) ->
(B.VtyEvent (V.EvKey (V.KChar 'w') []), Nothing) -> do
B.hScrollToBeginning (B.viewportScroll WidgetWhyDependsViewport)
B.continue $ showWhyDepends s
(B.VtyEvent (V.EvKey (V.KChar '/') []), Nothing) ->
B.continue $ showAndUpdateSearch "" "" s
@ -221,12 +223,20 @@ app =
(B.VtyEvent (V.EvKey k []), Just (ModalWhyDepends _))
| k `elem` [V.KChar 'q', V.KEsc] ->
B.continue s {aeOpenModal = Nothing}
(B.VtyEvent (V.EvKey k []), Just (ModalWhyDepends _))
| k `elem` [V.KChar 'h', V.KLeft] -> do
B.hScrollBy (B.viewportScroll WidgetWhyDependsViewport) (-1)
B.continue s
(B.VtyEvent (V.EvKey k []), Just (ModalWhyDepends l))
| k `elem` [V.KChar 'j', V.KDown, V.KChar '\t'] ->
B.continue s {aeOpenModal = Just $ ModalWhyDepends (B.listMoveDown l)}
(B.VtyEvent (V.EvKey k []), Just (ModalWhyDepends l))
| k `elem` [V.KChar 'k', V.KUp, V.KBackTab] ->
B.continue s {aeOpenModal = Just $ ModalWhyDepends (B.listMoveUp l)}
(B.VtyEvent (V.EvKey k []), Just (ModalWhyDepends _))
| k `elem` [V.KChar 'l', V.KRight] -> do
B.hScrollBy (B.viewportScroll WidgetWhyDependsViewport) 1
B.continue s
(B.VtyEvent (V.EvKey V.KPageUp []), Just (ModalWhyDepends l)) ->
B.listMovePageUp l >>= \l' ->
B.continue s {aeOpenModal = Just $ ModalWhyDepends l'}
@ -377,7 +387,11 @@ renderWhyDependsModal ::
B.GenericList Widgets Seq (NonEmpty (Path s)) ->
B.Widget Widgets
renderWhyDependsModal l =
renderModal "why-depends" (B.renderList renderDepends True l)
B.renderList renderDepends True l
& B.hLimitPercent 100 -- This limit seems pointless, but otherwise render list takes infinite
-- amount of horizontal space and 'viewport' below complains.
& B.viewport WidgetWhyDependsViewport B.Horizontal
& renderModal "why-depends"
where
renderDepends _ =
B.txt . pathsToText