rasa-ext-status-bar 0.1.0.0 → 0.1.1

raw patch · 2 files changed

+37/−37 lines, 2 filesdep +yi-ropedep −textdep ~basedep ~data-defaultdep ~lensPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies added: yi-rope

Dependencies removed: text

Dependency ranges changed: base, data-default, lens, rasa

API changes (from Hackage documentation)

- Rasa.Ext.StatusBar: StatusBar :: [Text] -> [Text] -> [Text] -> StatusBar

+ Rasa.Ext.StatusBar: StatusBar :: [YiString] -> [YiString] -> [YiString] -> StatusBar

- Rasa.Ext.StatusBar: [_center] :: StatusBar -> [Text]

+ Rasa.Ext.StatusBar: [_center] :: StatusBar -> [YiString]

- Rasa.Ext.StatusBar: [_left] :: StatusBar -> [Text]

+ Rasa.Ext.StatusBar: [_left] :: StatusBar -> [YiString]

- Rasa.Ext.StatusBar: [_right] :: StatusBar -> [Text]

+ Rasa.Ext.StatusBar: [_right] :: StatusBar -> [YiString]

- Rasa.Ext.StatusBar: center :: Lens' StatusBar [Text]

+ Rasa.Ext.StatusBar: center :: Lens' StatusBar [YiString]

- Rasa.Ext.StatusBar: centerStatus :: Text -> BufAction ()

+ Rasa.Ext.StatusBar: centerStatus :: YiString -> BufAction ()

- Rasa.Ext.StatusBar: left :: Lens' StatusBar [Text]

+ Rasa.Ext.StatusBar: left :: Lens' StatusBar [YiString]

- Rasa.Ext.StatusBar: leftStatus :: Text -> BufAction ()

+ Rasa.Ext.StatusBar: leftStatus :: YiString -> BufAction ()

- Rasa.Ext.StatusBar: right :: Lens' StatusBar [Text]

+ Rasa.Ext.StatusBar: right :: Lens' StatusBar [YiString]

- Rasa.Ext.StatusBar: rightStatus :: Text -> BufAction ()

+ Rasa.Ext.StatusBar: rightStatus :: YiString -> BufAction ()

rasa-ext-status-bar.cabal view

@@ -1,32 +1,32 @@-name:                rasa-ext-status-bar-version:             0.1.0.0-synopsis:            Rasa Ext for populating status-bar-description:         Rasa Ext for populating status-status-bar-homepage:            https://github.com/ChrisPenner/rasa/-license:             MIT-license-file:        LICENSE-author:              Chris Penner-maintainer:          christopher.penner@gmail.com-copyright:           2016 Chris Penner-category:            Extension-build-type:          Simple--- extra-source-files:-cabal-version:       >=1.10--library-  hs-source-dirs:      src-  exposed-modules:-                       Rasa.Ext.StatusBar+name: rasa-ext-status-bar+version: 0.1.1+cabal-version: >=1.10+build-type: Simple+license: MIT+license-file: LICENSE+copyright: 2016 Chris Penner+maintainer: christopher.penner@gmail.com+homepage: https://github.com/ChrisPenner/rasa/+synopsis: Rasa Ext for populating status-bar+description:+    Rasa Ext for populating status-status-bar+category: Extension+author: Chris Penner -  build-depends:       base >= 4.7 && < 5-                     , rasa-                     , data-default-                     , lens-                     , text-  default-language:    Haskell2010+source-repository head+    type: git+    location: https://github.com/ChrisPenner/rasa -  ghc-options:         -Wall+library+    exposed-modules:+        Rasa.Ext.StatusBar+    build-depends:+        base >=4.8 && <5,+        rasa >=0.1.4 && <0.2,+        data-default >=0.7.1.1 && <0.8,+        lens ==4.14.*,+        yi-rope >=0.7.0.2 && <0.8+    default-language: Haskell2010+    hs-source-dirs: src+    ghc-options: -Wall -source-repository head-  type:     git-  location: https://github.com/ChrisPenner/rasa

src/Rasa/Ext/StatusBar.hs view

@@ -16,14 +16,14 @@ import Data.Typeable import Data.Default -import qualified Data.Text as T+import qualified Yi.Rope as Y  import Rasa.Ext  data StatusBar = StatusBar-  { _left :: [T.Text]-  , _center :: [T.Text]-  , _right :: [T.Text]+  { _left :: [Y.YiString]+  , _center :: [Y.YiString]+  , _right :: [Y.YiString]   } deriving (Typeable, Show, Eq)  makeLenses ''StatusBar@@ -36,7 +36,7 @@     }  statusBar :: Scheduler ()-statusBar = beforeEvent $ bufDo clearStatus+statusBar = beforeEvent $ buffersDo_ clearStatus  clearStatus :: BufAction () clearStatus = do@@ -44,11 +44,11 @@   bufExt.center .= []   bufExt.right .= [] -leftStatus :: T.Text -> BufAction ()+leftStatus :: Y.YiString -> BufAction () leftStatus txt = bufExt.left %= (txt:) -centerStatus :: T.Text -> BufAction ()+centerStatus :: Y.YiString -> BufAction () centerStatus txt = bufExt.center %= (txt:) -rightStatus :: T.Text -> BufAction ()+rightStatus :: Y.YiString -> BufAction () rightStatus txt = bufExt.right %= (txt:)