diff --git a/users/sterni/blërg/blërg.bqn b/users/sterni/blërg/blërg.bqn
index ce32e9939..6cbb79991 100755
--- a/users/sterni/blërg/blërg.bqn
+++ b/users/sterni/blërg/blërg.bqn
@@ -52,8 +52,10 @@ MailNotesBackend ← {𝕊 mailDir:
th ← ⍉⟨≠ms,≠headerNames⟩⥊headerNames Hdrs ms
dh ← Dates ms
ah ← (("com.apple.mail-note"⊸≡⊑)˘/⊢) ⍉th∾dh≍ms
- {𝕊 ·‿id‿title‿date‿path:
- ⟨AsciiDown id, title, date, {"execline-cd"‿𝕩‿"mshow"‿"-x"‿path ⋄ R "mn2html"‿path}⟩
+ {𝕊 ·‿uuid‿title‿time‿path:
+ title ⇐ ⋄ time ⇐
+ id ⇐ AsciiDown uuid
+ Render ⇐ {"execline-cd"‿𝕩‿"mshow"‿"-x"‿path ⋄ R "mn2html"‿path}
}˘ ah
}
}
@@ -70,11 +72,11 @@ RenderPage ← {
"‿𝕨‿"
"‿𝕩
}
-WriteEntry ← {outDir 𝕊 id‿title‿·‿renderEntry:
- entryDir ← MkDirP outDir •file.At id
- (entryDir •file.At "index.html") •file.Chars title RenderPage RenderEntry entryDir
+WriteEntry ← {outDir 𝕊 entry:
+ entryDir ← MkDirP outDir •file.At entry.id
+ (entryDir •file.At "index.html") •file.Chars entry.title RenderPage entry.Render entryDir
# TODO(sterni): urlencode
- ""∾title∾""
+ ""∾entry.title∾""
}
# Main
@@ -87,10 +89,10 @@ mailDir‿outDir ← {
}
m ← MailNotesBackend mailDir
-entries ← ((⍒ 2⊸⊑˘)⊏⊢) m.Entries @
+entries ← (<"time") ((⍒∘(•ns.Get˜¨))⊏⊢) m.Entries @
title ← "blërg"
MkDirP outDir
-entryIndex ← (< outDir⊸WriteEntry)˘ entries
+entryIndex ← outDir⊸WriteEntry¨ entries
(outDir •file.At "index.html") •file.Chars title RenderPage ∾""