pgdl 7.3 → 7.4

raw patch · 4 files changed

+20/−5 lines, 4 files

Files

pgdl.cabal +1/−1
src/AskScene.hs +10/−4
src/Main.hs +3/−0
src/PlayVid.hs +6/−0

pgdl.cabal view

@@ -1,6 +1,6 @@  name:                pgdl-version:             7.3+version:             7.4 license:             PublicDomain license-file:        LICENSE author:              sifmelcara

src/AskScene.hs view

@@ -12,6 +12,7 @@                          , playHand :: Handlers AskScene                          , downHand :: Handlers AskScene                          , quitHand :: Handlers AskScene+                         , remvHand :: Handlers AskScene                          }  newAskScene :: IO (AskScene, Widget FocusGroup)@@ -19,19 +20,21 @@     playB <- newButton "No"     downB <- newButton "Yes"     quitB <- newButton "Quit"-    buttonBox <- (mkwIO playB) <++> (mkwIO downB) <++> (mkwIO quitB)+    remvB <- newButton "Remov"+    buttonBox <- (mkwIO playB) <++> (mkwIO downB) <++> (mkwIO quitB) <++> (mkwIO remvB)     b <- do         bx <- (plainText "    Download it again?") <--> (return buttonBox)         setBoxSpacing bx 1         withPadding (padAll 1) bx     fg <- newFocusGroup-    mapM_ (addToFocusGroup fg . buttonWidget) [playB, downB, quitB]+    mapM_ (addToFocusGroup fg . buttonWidget) [playB, downB, quitB, remvB]     ui <- withBorderedLabel "File Exists!" =<< bordered b-    [phs, dhs, qhs] <- replicateM 3 newHandlers+    [phs, dhs, qhs, rhs] <- replicateM 4 newHandlers     let sce = AskScene { sceneWidget = ui                        , playHand = phs                        , downHand = dhs                        , quitHand = qhs+                       , remvHand = rhs                        }     onButtonPressed playB $ \_ ->          fireEvent sce (return . playHand) sce@@ -39,6 +42,8 @@         fireEvent sce (return . downHand) sce     onButtonPressed quitB $ \_ ->          fireEvent sce (return . quitHand) sce+    onButtonPressed remvB $ \_ ->+        fireEvent sce (return . remvHand) sce     setFocusGroupNextKey fg KRight []     setFocusGroupPrevKey fg KLeft []     return (sce, fg)@@ -53,5 +58,6 @@ onSceQuit :: AskScene -> Handler AskScene -> IO () onSceQuit = addHandler (return . quitHand) -+onSceRemv :: AskScene -> Handler AskScene -> IO()+onSceRemv = addHandler (return . remvHand)

src/Main.hs view

@@ -62,6 +62,9 @@         Just (_, (itm, _)) <- getSelected lst         playVid itm     onSceQuit dlg $ const exitSuccess+    onSceRemv dlg $ \_ -> do+        Just (_, (itm, _)) <- getSelected lst+        removeVid itm     ifsfg <- newFocusGroup     onKeyPressed ifsfg $ \_ key _ -> case key of         KLeft -> chgls >> return True

src/PlayVid.hs view

@@ -56,6 +56,12 @@         addq s = "\"" ++ s ++ "\""          +removeVid :: Video -> IO ()+removeVid vid = do+    localDir <- getLocaldir+    removeFile $ localDir </> vn+    exitSuccess+    where vn = T.unpack . vidName $ vid