Set note time when the path begin with a timestamp

This change simplifies timeline creation by setting the date metadata
from the filename when it begins with `YYYY-MM-DD`.

emanote/CHANGELOG.md

@@ -24,6 +24,7 @@
   - Lua filters: filter paths will now be looked up in all layers now.
   - Live server now uses Tailwind 3 ([\#503](https://github.com/srid/emanote/pull/503))
   - Enable auto identifier for org files ([\#502](https://github.com/srid/emanote/pull/502))
+  - Support date metadata from the filename when it begins with YYYY-MM-DD ([\#552](https://github.com/srid/emanote/pull/552)).
 - Bug fixes:
   - Emanote no longer crashes when run on an empty directory ([\#487](https://github.com/srid/emanote/issues/487))
   - Stork search fixes

emanote/src/Emanote/Model/Note.hs

@@ -39,6 +39,10 @@ import Text.Pandoc.Scripting (ScriptingEngine)
 import Text.Pandoc.Walk qualified as W
 import UnliftIO.Directory (doesPathExist)
 
+import Data.Char (isDigit)
+import System.FilePath (takeFileName)
+import Text.Parsec qualified as P
+
 data Feed = Feed
   { _feedEnable :: Bool
   , _feedTitle :: Maybe Text
@@ -316,7 +320,19 @@ parseNote scriptingEngine pluginBaseDir r src@(_, fp) s = do
         parseNoteMarkdown scriptingEngine pluginBaseDir fp s
       R.LMLRoute_Org _ -> do
         parseNoteOrg s
-  pure $ mkNoteWith r (Just src) doc meta errs
+  let metaWithDateFromPath = case P.parse dateParser mempty (takeFileName fp) of
+        Left _ -> meta
+        Right date -> SData.modifyAeson (pure "date") (Just . fromMaybe (Aeson.String date)) meta
+  pure $ mkNoteWith r (Just src) doc metaWithDateFromPath errs
+ where
+   dateParser = do
+     year <- replicateM 4 P.digit
+     _ <- P.char '-'
+     month <- replicateM 2 P.digit
+     _ <- P.char '-'
+     day <- replicateM 2 P.digit
+     _ <- P.satisfy (not . isDigit)
+     pure $ T.pack $ mconcat [year, "-", month, "-", day]
 
 parseNoteOrg :: (MonadWriter [Text] m) => Text -> m (Pandoc, Aeson.Value)
 parseNoteOrg s =