Fix search history deletion.

Author: galenhuntington

Keymap.hs

@@ -142,9 +142,13 @@ search_down = char (unkey KeyDown) `meta` \_ -> updateSearch \case
     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`

hmp3-ng.cabal

@@ -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