add vttclean overlay

Author: idrisr

flake.nix

@@ -42,6 +42,7 @@
           seder = callPackage ./packages/seder.nix { };
           srtcpy = callPackage ./packages/srtcpy.nix { };
           transcribe = callPackage ./packages/transcribe.nix { };
+          vttclean = haskell.packages.ghc965.callCabal2nix "" ./vttclean { };
         };
 
     in {

vttclean/Main.hs

@@ -0,0 +1,56 @@
+{-# OPTIONS_GHC -Wno-name-shadowing #-}
+
+module Main where
+
+import qualified Control.Foldl as Fold
+import Data.Char
+import Data.Text.IO
+import Options.Applicative
+import Turtle hiding (header)
+import Prelude hiding (putStrLn)
+
+main :: IO ()
+main = do
+    file <- execParser parserInfo
+    sh $ do
+        t <- shellThing . runFile $ file
+        liftIO . putStrLn $ t
+
+shellThing :: FilePath -> Shell Text
+shellThing f = do
+    lines <- fold (cleanFile f) Fold.list
+    pure . linesToText $ lines
+
+cleanFile :: FilePath -> Shell Line
+cleanFile f = uniq . grep keepLines $ input f
+
+keepLines :: Pattern String
+keepLines = satisfy isLetter >> some keepChars
+
+keepChars :: Pattern Char
+keepChars = satisfy f
+  where
+    f c = isLetter c || isSpace c || c == '\''
+
+-------------------------------------------------------------
+-- CLI Parser
+newtype FileInput = File {runFile :: FilePath}
+
+parserInfo :: ParserInfo FileInput
+parserInfo =
+    info
+        (cliParser <**> helper)
+        ( fullDesc
+            <> progDesc "print parsed vtt output"
+            <> header "basic parser for youtube vtt files"
+        )
+
+cliParser :: Parser FileInput
+cliParser =
+    File
+        <$> strOption
+            ( long "file"
+                <> metavar "file"
+                <> help "vtt input file"
+                <> short 'f'
+            )

vttclean/vttclean.cabal

@@ -0,0 +1,20 @@
+cabal-version: 3.0
+name:          vttclean
+version:       0.1.0.0
+license:       MIT
+build-type:    Simple
+
+common warnings
+  ghc-options:        -Wall
+  default-language:   Haskell2010
+  default-extensions: NoStarIsType
+
+executable vttclean
+  import:        warnings
+  main-is:       Main.hs
+  build-depends:
+    , base                  ^>=4.18.2.1
+    , foldl
+    , optparse-applicative
+    , text
+    , turtle