Flexible daily note parser

Resolves #395
srid · Dec 11, 2022 · 465a22b · 465a22b
1 parent d2a6423
commit 465a22b
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -6,6 +6,8 @@
   - Reduce Emanote's Nix runtime closure size
 - UI
   - Add source map for Stork [\#391](https://github.com/EmaApps/emanote/pull/391)
+- Features
+  - Timeline backlinks recognize flexible daily notes suffixed with arbitrary string [\#395](https://github.com/EmaApps/emanote/issues/395)
 - Misc
   - Ignore toplevel `flake.{nix,lock}` by default.
   - Remove deprecated `_emanote-bin/compile-css` script

diff --git a/emanote.cabal b/emanote.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               emanote
-version:            1.0.1.3
+version:            1.0.1.4
 license:            AGPL-3.0-only
 copyright:          2022 Sridhar Ratnakumar
 maintainer:         srid@srid.ca

diff --git a/src/Emanote/Model/Calendar.hs b/src/Emanote/Model/Calendar.hs
@@ -42,5 +42,9 @@ parseRouteDay =
       void $ M.string "-"
       -- Day
       day <- asInt =<< replicateM 2 M.digitChar
+      -- Optional suffix (ignored)
+      void $ optional $ do
+        void $ M.oneOf ['-', '_', ' ']
+        void M.takeRest
       maybe (fail "Not a date") pure $
         fromGregorianValid year (fromInteger month) (fromInteger day)