tvl-depot/scratch/groceries/export.hs

23 lines
486 B
Haskell
Raw Normal View History

module Main where
import qualified Data.List as L
(|>) :: a -> (a -> b) -> b
x |> f = f x
-- | Ignore items with zero quantity (i.e. "0x") and comments (i.e. "#")
isUndesirableOutput :: String -> Bool
isUndesirableOutput x =
(L.isPrefixOf "- 0x" x) || (L.isPrefixOf "#" x)
-- | Run this to export the grocery list.
main :: IO ()
main = do
content <- readFile "./list.org"
content
|> lines
|> filter (not . isUndesirableOutput)
|> unlines
|> putStrLn
pure ()