hmp3-ng 2.12.0 → 2.12.1
raw patch · 5 files changed
+11/−11 lines, 5 files
Files
- Config.hs +3/−3
- Core.hs +1/−1
- Style.hs +4/−4
- UI.hs +1/−1
- hmp3-ng.cabal +2/−2
Config.hs view
@@ -30,7 +30,7 @@ , cursors = Style black cyan , combined = Style brightwhite cyan , warnings = Style red defaultbg- , modal = Style black white+ , modals = Style black white , blockcursor= Style black red , progress = Style cyan white } @@ -50,7 +50,7 @@ , cursors = Style black cyan , combined = Style black cyan , warnings = Style brightwhite red- , modal = Style black cyan+ , modals = Style black cyan , blockcursor= Style black darkred , progress = Style cyan white } @@ -62,7 +62,7 @@ ,cursors = Style reversefg reversebg ,combined = Style reversefg reversebg ,warnings = Style reversefg reversebg- ,modal = Style reversefg reversebg+ ,modals = Style reversefg reversebg ,blockcursor = Style reversefg reversebg ,progress = Style reversefg reversebg }
Core.hs view
@@ -648,7 +648,7 @@ b <- doesFileExist f if b then do str' <- readFile f- str <- let (old, new) = ("hmp3_helpscreen", "hmp3_modal") in+ str <- let (old, new) = ("hmp3_helpscreen", "hmp3_modals") in if old `isInfixOf` str' then do warnA $ old ++ " is now " ++ new ++ " in ~/.hmp3"
Style.hs view
@@ -35,7 +35,7 @@ -- for an item in the ui data UIStyle = UIStyle { window :: !Style -- default window colour- , modal :: !Style -- help screen+ , modals :: !Style -- help screen , titlebar :: !Style -- titlebar of window , selected :: !Style -- currently playing track , cursors :: !Style -- the scrolling cursor line@@ -150,7 +150,7 @@ -- initcolours :: UIStyle -> IO () initcolours sty = do- let ls = [modal sty, warnings sty, window sty, + let ls = [modals sty, warnings sty, window sty, selected sty, titlebar sty, progress sty, blockcursor sty, cursors sty, combined sty ] (Style fg bg) = progress sty -- bonus style@@ -309,7 +309,7 @@ -- data Config = Config { hmp3_window :: (String,String)- , hmp3_modal :: (String,String)+ , hmp3_modals :: (String,String) , hmp3_titlebar :: (String,String) , hmp3_selected :: (String,String) , hmp3_cursors :: (String,String)@@ -326,7 +326,7 @@ buildStyle :: Config -> UIStyle buildStyle bs = UIStyle { window = f $ hmp3_window bs- , modal = f $ hmp3_modal bs+ , modals = f $ hmp3_modals bs , titlebar = f $ hmp3_titlebar bs , selected = f $ hmp3_selected bs , cursors = f $ hmp3_cursors bs
UI.hs view
@@ -588,7 +588,7 @@ -- renderModal :: forall me. ModalElement me => HState -> Size -> IO () renderModal st (Size h w) = do- whenJust (drawModal @me (modal $ config st) w st) \(mw, modal') -> do+ whenJust (drawModal @me (modals $ config st) w st) \(mw, modal') -> do let hoffset = max 0 $ (w - mw) `div` 2 mlines = min h $ length modal' voffset = (h - mlines) `div` 2
hmp3-ng.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7e011cbec8ee4d43dd59e9069cbbf60c01ab0526f525032386a642899e629a25+-- hash: ed921d75498f5adab5e40868233e64732bc07148abdfb6a0dca0415ae6ae9124 name: hmp3-ng-version: 2.12.0+version: 2.12.1 synopsis: A 2019 fork of an ncurses mp3 player written in Haskell description: An mp3 player with a curses frontend. Playlists are populated by passing file and directory names on the command line, and saved to the