rasa-ext-views 0.1.4 → 0.1.5

raw patch · 6 files changed

+30/−30 lines, 6 filesdep ~rasaPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: rasa

API changes (from Hackage documentation)

Files

• rasa-ext-views.cabal +2/−2
• src/Rasa/Ext/Views.hs +2/−2
• src/Rasa/Ext/Views/Internal/Actions.hs +16/−16
• src/Rasa/Ext/Views/Internal/LineNumbers.hs +1/−1
• src/Rasa/Ext/Views/Internal/Views.hs +8/−8
• src/Rasa/Ext/Views/Internal/Widgets.hs +1/−1

@@ -1,5 +1,5 @@ name: rasa-ext-views-version: 0.1.4+version: 0.1.5 cabal-version: >=1.10 build-type: Simple license: GPL-3@@ -30,7 +30,7 @@         Rasa.Ext.Views.Internal.StatusBar     build-depends:         base >=4.8 && <5,-        rasa >=0.1.10 && <0.2,+        rasa >=0.1.11 && <0.2,         lens ==4.14.*,         data-default >=0.7.1.1 && <0.8,         bifunctors >=5.4.1 && <5.5,

@@ -19,7 +19,7 @@   , BiTreeF(..)  -  -- * Provided Actions+  -- * ProvidedApps   , A.rotate   , A.closeInactive   , A.focusViewLeft@@ -74,7 +74,7 @@ import Rasa.Ext.Views.Internal.Actions as A  -- | Main export from the views extension, add this to your rasa config.-viewports :: Action ()+viewports :: App () viewports = do   onBufAdded_ A.addSplit   lineNumbers

@@ -27,41 +27,41 @@ import Data.List  -- | Flip all Horizontal splits to Vertical ones and vice versa.-rotate :: Action ()+rotate :: App () rotate = V.overWindows V.rotate  -- | Move focus from any viewports one viewport to the left-focusViewLeft :: Action ()+focusViewLeft :: App () focusViewLeft = V.overWindows V.focusViewLeft  -- | Move focus from any viewports one viewport to the right-focusViewRight :: Action ()+focusViewRight :: App () focusViewRight = V.overWindows V.focusViewRight  -- | Move focus from any viewports one viewport above-focusViewAbove :: Action ()+focusViewAbove :: App () focusViewAbove = V.overWindows V.focusViewAbove  -- | Move focus from any viewports one viewport below-focusViewBelow :: Action ()+focusViewBelow :: App () focusViewBelow = V.overWindows V.focusViewBelow  -- | Close all inactive viewports-closeInactive :: Action ()+closeInactive :: App () closeInactive = do   mWindows <- V.getViews   V.setViews $ mWindows >>= V.closeBy (not . view V.active)  -- | Split active views horizontally-hSplit :: Action ()+hSplit :: App () hSplit = V.overWindows V.hSplit  -- | Split active views vertically-vSplit :: Action ()+vSplit :: App () vSplit = V.overWindows V.vSplit  -- | Add a new split at the top level in the given direction containing the given buffer.-addSplit :: BufAdded -> Action ()+addSplit :: BufAdded -> App () addSplit (BufAdded bRef) = do   mWin <- V.getViews   case mWin of@@ -69,7 +69,7 @@     Just win -> V.setViews . Just $ V.addSplit V.Vert (V.BufView bRef) win  -- | Select the next buffer in any active viewports-nextBuf :: Action ()+nextBuf :: App () nextBuf = V.traverseViews next   where     next vw@@ -82,7 +82,7 @@     getNextBufRef v = return v  -- | Select the previous buffer in any active viewports-prevBuf :: Action ()+prevBuf :: App () prevBuf = V.traverseViews prev   where     prev vw@@ -95,7 +95,7 @@     getPrevBufRef v = return v  -- | Get bufRefs for all buffers that are selected in at least one viewport-focusedBufs :: Action [BufRef]+focusedBufs :: App [BufRef] focusedBufs = do   mWindows <- V.getViews   case mWindows of@@ -106,20 +106,20 @@ -- | Returns whether the current buffer is focused in at least one view. isFocused :: BufAction Bool isFocused = do-  inFocus <- liftAction focusedBufs+  inFocus <- liftApp focusedBufs   br <- getBufRef   return $ br `elem` inFocus  -- | Run a bufAction over all focused buffers and return any results.-focusDo :: BufAction a -> Action [a]+focusDo :: BufAction a -> App [a] focusDo bufAct = do   bufRefs <- focusedBufs   catMaybes <$> mapM (`bufDo` bufAct) bufRefs  -- | 'focusDo' with a void return-focusDo_ :: BufAction a -> Action ()+focusDo_ :: BufAction a -> App () focusDo_ = void . focusDo  -- | Scrolls each focused viewport by the given amount.-scrollBy :: Int -> Action ()+scrollBy :: Int -> App () scrollBy amt = V.overWindows $ V.scrollBy amt

@@ -35,7 +35,7 @@   LineNumbers b <- getBufExt   return b -lineNumbers :: Action ()+lineNumbers :: App () lineNumbers = onEveryNewBuffer_ . addLeftBar $ do   enabled <- checkLineNumbers   if enabled

@@ -124,20 +124,20 @@   def = Views Nothing  -- | Gets the stored views-getViews :: Action (Maybe Window)+getViews :: App (Maybe Window) getViews = do-  Views mWin <- getExt+  Views mWin <- use stateLens   return mWin  -- | Sets the stored views-setViews :: Maybe Window -> Action ()-setViews = setExt . Views+setViews :: Maybe Window -> App ()+setViews v = stateLens .= Views v  -- | Run function over stored windows-overWindows :: (Window -> Window) -> Action ()+overWindows :: (Window -> Window) -> App () overWindows f = do-  Views mWin <- getExt-  setExt . Views $ fmap f mWin+  Views mWin <- use stateLens+  stateLens .= (Views $ fmap f mWin)  -- | Flip all Horizontal splits to Vertical ones and vice versa. rotate :: Window -> Window@@ -253,7 +253,7 @@     scroll = max 0 . (+ amt)  -- | Alters views by a given function.-traverseViews :: (View -> Action View) -> Action ()+traverseViews :: (View -> App View) -> App () traverseViews f = do   mWin <- getViews   mResult <- sequence $ traverse f <$> mWin

@@ -44,7 +44,7 @@     Widgets (a<>a') (b<>b') (c<>c') (d<>d')  class HasWidgets r where-  computeWidgets :: r -> Action Widgets+  computeWidgets :: r -> App Widgets  -- | This represents types which can provide a set of widgets instance HasWidgets View where