@@ -27,10 +27,11 @@
 
 ;; ~~~ Provides ~~~
 
 (provide spell-of-summoning!
          crystalize-article!
+         crystalize-series!
          article-plain-title
          list/articles
          list/articles+notes
          listing<>-short/articles
          listing<>-full/articles
@@ -403,6 +404,16 @@
             (hash-ref series-metas 'noun-plural "")
             (hash-ref series-metas 'noun-singular ""))))
   (define sql$-insert (make-insert-rows-query 'series table_series-fields series-values))
   (displayln sql$-insert)
   (query! sql$-insert))
-  
+
+;; Save the current article to the `series` table of the SQLite cache
+;; Should be called from a template for series pages
+(define (crystalize-series!)
+  (define series-row
+    (list (path->string (here-output-path))
+          (hash-ref (current-metas) 'title)
+          (hash-ref (current-metas) 'published "")
+          (hash-ref (current-metas) 'noun-plural "")
+          (hash-ref (current-metas) 'noun-singular "")))
+  (apply query! (make-insert/replace-query 'series table_series-fields) series-row))