From 5db216b4effb38ef9da6f3f0c36ca2318710fc50 Mon Sep 17 00:00:00 2001
From: sterni <sternenseemann@systemli.org>
Date: Mon, 6 Jan 2025 17:14:26 +0100
Subject: [PATCH] =?UTF-8?q?refactor(sterni/bl=C3=ABrg):=20use=20namespaces?=
 =?UTF-8?q?=20for=20entries?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The array listing was pretty nice for debugging, but having arrays where
every element has a different meaning as an interface between different
parts of the code is not great. Refactoring will be less frustrating if
we just store everything using a key-value scheme in namespaces.

Change-Id: I806fea247b6f996dbdd93df24f3fdb762340f043
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13017
Autosubmit: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
---
 users/sterni/blërg/blërg.bqn | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

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 ← {
 <h1>"‿𝕨‿"</h1>"‿𝕩
 }
 
-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
-  "<li><a href="""∾id∾""">"∾title∾"</a></li>"
+  "<li><a href="""∾entry.id∾""">"∾entry.title∾"</a></li>"
 }
 
 # 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 ∾"<ul>"∾entryIndex∾"</ul>"