Deal with duplicate inline (and meta) tags

neuron/src/lib/Neuron/Zettelkasten/Zettel/Parser.hs

@@ -9,7 +9,9 @@
 module Neuron.Zettelkasten.Zettel.Parser where
 
 import Control.Monad.Writer
+import Data.List (nub)
 import Data.Some
+import Data.TagTree (Tag)
 import qualified Data.Text as T
 import Data.Time.DateMayTime (mkDateMayTime)
 import Neuron.Reader.Type
@@ -48,10 +50,8 @@ parseZettel format zreader fn zid s = do
             ZettelCustomID _ -> Meta.date =<< meta
           unlisted = fromMaybe False $ Meta.unlisted =<< meta
           (queries, errors) = runWriter $ extractQueries doc
-          queryTags = flip mapMaybe queries $ \case
-            Some (ZettelQuery_TagZettel tag) -> Just tag
-            _ -> Nothing
-          tags = metaTags <> queryTags -- TODO: Use Set
+          queryTags = getInlineTag `mapMaybe` queries
+          tags = nub $ metaTags <> queryTags
        in Right $ Zettel zid format fn title titleInBody tags date unlisted queries errors doc
   where
     -- Extract all (valid) queries from the Pandoc document
@@ -65,6 +65,10 @@ parseZettel format zreader fn zid s = do
               pure Nothing
             Right v ->
               pure v
+    getInlineTag :: Some ZettelQuery -> Maybe Tag
+    getInlineTag = \case
+      Some (ZettelQuery_TagZettel tag) -> Just tag
+      _ -> Nothing
     takeInitial =
       (<> " ...") . T.take 18