hmp3-ng 2.17.2 → 2.17.3

raw patch · 2 files changed

+8/−5 lines, 2 files

Files

Keymap.hs +7/−4
hmp3-ng.cabal +1/−1

Keymap.hs view

@@ -142,9 +142,13 @@     zipp                      -> zipp  search_del :: LexerS-search_del = char (unkey KeyDC) `meta` \_ -> updateSearch \case-    Zipper _ back (pv:rest) -> Zipper pv back rest-    Zipper _ back _         -> Zipper "" back []+search_del = char (unkey KeyDC) `meta` \_ sst -> let+    (r, sst', ml) = flip updateSearch sst \case+        Zipper _ back (pv:rest) -> Zipper pv back rest+        Zipper _ back _         -> Zipper "" back []+    newhist = let Zipper cur _ _ = schZipper $ schSpec sst+              in filter (/=cur) $ schHist sst+    in (r, sst'{schHist = newhist}, ml)  search_esc :: LexerS search_esc = char '\ESC' `meta`@@ -198,7 +202,6 @@  -- "Key"s seem to be inscrutable and incomparable. -- So, add an orphan instance to help translate to chars.- deriving stock instance Ord Key  charToKey :: Char -> Key

hmp3-ng.cabal view

@@ -1,7 +1,7 @@ cabal-version: 2.2  name:           hmp3-ng-version:        2.17.2+version:        2.17.3 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.  'h' displays