WIP nap music

projects/nap/ideas.txt

@@ -0,0 +1,2 @@
+program that helps you cobble together journal entries retroactively using your texts and message history from that day. and calendar etc
+music player that youtubeDLs the songs you like, and will play songs by artists you like

projects/nap/src/nap/Archive.kiss

@@ -24,6 +24,17 @@
             (system.checkEntryInOrOut this e))
         e))
 
+(defmethod saveEntry [:Entry e]
+    (File.saveContent
+        (Path.join [archiveDir "entries" (e.id.withExtension "json")])
+        (Json.stringify e))
+        
+    // TODO save its components? but it's not obvious how, because it only knows the string keys of them.
+    // Better yet, retrieving components with mutable access should be done through a
+    // (withComponent...) macro that serializes the component after the block is done.
+    // 
+    )
+
 (defun :Entry _newEntry []
     (object
         id (Uuid.v4)

projects/nap/src/nap/components/Dates.hx

@@ -0,0 +1,3 @@
+package nap.components;
+
+typedef Tags = Map<String, Date>;

projects/nap/src/nap/components/StringComponents.hx

@@ -0,0 +1,4 @@
+package nap.components;
+
+typedef Name = String;
+typedef Author = String;

projects/nap/tools/nap-music/build.hxml

@@ -0,0 +1,5 @@
+-lib kiss
+-lib nap
+-cp src
+--main Main
+--interp

projects/nap/tools/nap-music/src/Main.hx

@@ -0,0 +1,8 @@
+package;
+
+import kiss.Kiss;
+import kiss.Prelude;
+import nap.Archive;
+
+@:build(kiss.Kiss.build())
+class Main {}

projects/nap/tools/nap-music/src/Main.kiss

@@ -0,0 +1,2 @@
+(defun :Void main []
+    (print "Hello world!"))