From 33f3751e8228086c577e6d38c9b6bcbce9febfea Mon Sep 17 00:00:00 2001
From: "Christopher R. Nelson" <christopher.nelson@languidnights.com>
Date: Mon, 19 Jun 2023 13:03:52 -0400
Subject: feat: add next, new, and consume functions

---
 reading-heap.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'reading-heap.scm')

diff --git a/reading-heap.scm b/reading-heap.scm
index 48ad8eb..a7e3044 100755
--- a/reading-heap.scm
+++ b/reading-heap.scm
@@ -67,6 +67,8 @@
 	     (priorities (map media-priority media))
 	     (heap (fold heap-insert 'E priorities media)))
 	(server-setup (option-ref options 'service-socket))
-	(rh-receive heap)))))
+	(rh-receive heap
+		    (option-ref options 'media-library)
+		    (string-append (option-ref options 'media-library) "/archive/"))))))
 
 (main (command-line))
-- 
cgit v1.2.3