From f19bc4e0cc33841d16f6d965f3b5df748aab163b Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 6 Oct 2022 22:37:12 +0100
Subject: Add hs files

---
 src/Zettel.hs | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 src/Zettel.hs

(limited to 'src/Zettel.hs')

diff --git a/src/Zettel.hs b/src/Zettel.hs
new file mode 100644
index 0000000..5c07af9
--- /dev/null
+++ b/src/Zettel.hs
@@ -0,0 +1,38 @@
+module Zettel where
+
+newtype ZettelId = ZettelId
+  { -- | The ZettelId is just Text, however, it should also be possible to convert
+    -- it to a list of the ID split up into it's parts.
+    unZettelId :: Text
+  }
+  deriving (Show, Eq, Ord)
+
+instance IsString ZettelId where
+  fromString = ZettelId . fromString
+
+instance ToString ZettelId where
+  toString = toString . unZettelId
+
+instance Semigroup ZettelId where
+  ZettelId a <> ZettelId b = ZettelId $ a <> b
+
+instance Monoid ZettelId where
+  mempty = ZettelId mempty
+
+data Zettel = Zettel
+  { -- | The ID that is assigned to the Zettel.
+    zettelId :: !ZettelId,
+    -- | The title of the Zettel, which should also be present in the body, however,
+    -- this is useful to gather metadata about the Zettel.
+    zettelTitle :: !Text,
+    -- | The text body of the Zettel, which is stored as a Pandoc document to make it
+    -- easy to export to other documents.
+    zettelBody :: Pandoc
+  }
+  deriving (Show, Eq)
+
+instance Semigroup Zettel where
+  Zettel a b c <> Zettel _ _ c' = Zettel a b $ c <> c'
+
+instance Monoid Zettel where
+  mempty = Zettel mempty mempty mempty
-- 
cgit