From 25a45fb222e42812132013b5ad8acc23ab04fb4c Mon Sep 17 00:00:00 2001
From: William Carroll <wpcarro@gmail.com>
Date: Sat, 27 Jun 2020 14:06:59 +0100
Subject: [PATCH] Add export script for groceries

At this point, I may be taking this idea too far, but what the heck?
---
 scratch/groceries.txt       | 43 -------------------------------
 scratch/groceries/export.hs | 11 ++++++++
 scratch/groceries/list.txt  | 50 +++++++++++++++++++++++++++++++++++++
 scratch/groceries/shell.nix |  8 ++++++
 4 files changed, 69 insertions(+), 43 deletions(-)
 delete mode 100644 scratch/groceries.txt
 create mode 100644 scratch/groceries/export.hs
 create mode 100644 scratch/groceries/list.txt
 create mode 100644 scratch/groceries/shell.nix

diff --git a/scratch/groceries.txt b/scratch/groceries.txt
deleted file mode 100644
index 78cc90b91..000000000
--- a/scratch/groceries.txt
+++ /dev/null
@@ -1,43 +0,0 @@
-- 1x coconut milk
-- 5x tortellini
-- 1x coconut oil
-- 1x sour cream
-- 1x jar Weiner Wurstel
-- 1x Ketchup
-- 1x Ketchup
-- 2x red wine
-- 3x white wine
-- 1x bacon bits
-- 2x brocoli
-- 1x olive oil
-- 3x egg cartons (10x each)
-- 2x butter
-- 1x flour
-- 1x bratwurst (4x)
-- 2x Tabasco
-- 1x parmesan
-- 1x almonds -- need more
-- 1x walnuts
-- 1x lettuce
-- 1x fleischwurst
-- 1x GF bread
-- 1x gouda -- need more
-- 1x tomatoes
-- 1x shallots (10x)
-- 1x garlic
-- 1x ham for asparagus
-- 1x pilsner beer (6x)
-- 1x basil plant
-- 1x bleu cheese
-- 1x senf
-- 1x zucchini
-- 1x lemons (3x) -- need more
-- 2x coffee
-- 1x coffee filters
-- 2x tomato sauce
-- 2x avocado
-- 1x pesto
-- 1x linguini pasta
-- 1x green beans
-- 1x white asparagus (10x)
-- 1x hollandaise sauce
diff --git a/scratch/groceries/export.hs b/scratch/groceries/export.hs
new file mode 100644
index 000000000..5e2cce223
--- /dev/null
+++ b/scratch/groceries/export.hs
@@ -0,0 +1,11 @@
+module Main where
+
+import Data.Function ((&))
+import qualified Data.List as L
+
+-- | Run this to export the grocery list.
+main :: IO ()
+main = do
+  x <- readFile "./list.txt"
+  x & lines & filter (not . L.isPrefixOf "- 0x") & unlines & putStrLn
+  pure ()
diff --git a/scratch/groceries/list.txt b/scratch/groceries/list.txt
new file mode 100644
index 000000000..0db547d95
--- /dev/null
+++ b/scratch/groceries/list.txt
@@ -0,0 +1,50 @@
+- 0x coconut milk
+- 4x tortellini / ravioli
+- 0x coconut oil
+- 1x sour cream
+- 0x jar Weiner Wurstel
+- 0x Ketchup
+- 0x red wine
+- 2x white wine
+- 1x bacon bits
+- 1x brocoli
+- 1x spagel (10x)
+- 1x green asparagus
+- 0x olive oil
+- 1x egg cartons (10x each)
+- 0x butter
+- 0x flour
+- 1x bratwurst (4x)
+- 0x Tabasco
+- 1x parmesan
+- 2x almonds
+- 0x walnuts
+- 1x lettuce
+- 1x fleischwurst
+- 0x GF bread
+- 2x gouda
+- 1x mystery cheese
+- 1x tomatoes
+- 0x shallots (10x)
+- 0x garlic
+- 0x ham for asparagus
+- 1x beer (6x)
+- 0x basil plant
+- 0x senf
+- 0x zucchini
+- 3x lemons (3x)
+- 0x coffee
+- 0x coffee filters
+- 0x tomato sauce
+- 0x avocado
+- 0x pesto
+- 0x linguini pasta
+- 0x green beans
+- 0x hollandaise sauce
+- 1x bug spray
+- 1x 30 SPF sun screen
+- 1x tiki torch
+- 1x dish soap
+- 1x paper towels (6x)
+- 1x Brita
+- 1x Lindt chocolate
diff --git a/scratch/groceries/shell.nix b/scratch/groceries/shell.nix
new file mode 100644
index 000000000..c62b86e12
--- /dev/null
+++ b/scratch/groceries/shell.nix
@@ -0,0 +1,8 @@
+let
+  pkgs = import <unstable> {};
+in pkgs.mkShell {
+  buildInputs = with pkgs; [
+    (haskellPackages.ghcWithPackages (hpkgs: with hpkgs; [
+    ]))
+  ];
+}