hold metadata in memory instead of in git

tekuti/categories.scm

@@ -41,21 +41,5 @@
      posts)
     hash))
 
-(define (build-categories-tree master posts)
-  (if (null? posts)
-      #f
-      (let* ((hash (compute-categories posts))
-             (tree (make-tree (hash-map->list
-                               (lambda (k v) (cons k (make-tree v)))
-                               hash)))
-             (ts (commit-utc-timestamp master))
-             (env (list "GIT_COMMMITTER=tekuti"
-                        ;; this quoting is a hack
-                        (format #f "'GIT_COMMITTER_DATE=~a +0000'" ts)
-                        (format #f "'GIT_AUTHOR_DATE=~a +0000'" ts))))
-        (string-trim-both
-         (git/input+env "categories\n" env "commit-tree" tree
-                        "-p" master))))) ;; FIXME: keep history?
-
 (define (reindex-categories master)
-  (build-categories-tree master (all-published-posts master)))
+  (compute-categories (all-published-posts master)))

tekuti/comment.scm

@@ -43,13 +43,13 @@
 (debug-enable 'backtrace)
 
 (define *comment-spec*
-  `((timestamp ,string->number)))
+  `((timestamp . ,string->number)))
 (define (comment-from-tree encoded-name sha1)
   (acons 'encoded-name encoded-name
          (parse-metadata (string-append sha1 ":" "metadata") *comment-spec*)))
 
 (define (comment-timestamp comment-alist)
-  (or (assq-ref x 'timestamp) #f))
+  (or (assq-ref comment-alist 'timestamp) #f))
 
 (define (build-comment-skeleton comments)
   (fold (lambda (sha1 parent)

tekuti/git.scm

@@ -99,13 +99,13 @@
                "^(.+) tree (.+)\t(.+)$" (_ mode object name)
                (cons name object)))
 
-(define (parse-metadata treeish . specs)
+(define (parse-metadata treeish specs)
   (filter
    identity
    (match-lines (git "cat-file" "blob" treeish)
                 "^([^: ]+): +(.*)$" (_ k v)
                 (let* ((k (string->symbol k))
-                       (parse (assq-ref k specs)))
+                       (parse (assq-ref specs k)))
                   (if parse
                       (catch 'parse-error
                              (lambda ()

tekuti/mod-lisp.scm

@@ -97,5 +97,6 @@
               (sockaddr (cdr pair)))
          (receive
           (cookie index) (maybe-reindex old-cookie old-index)
+          (pk cookie index)
           (connection-received (car pair) (cdr pair) index handle-request)
           (lp cookie index)))))))

tekuti/post.scm

@@ -40,14 +40,14 @@
   (equal? (assq-ref post-alist 'status) "published"))
 
 (define (post-timestamp post-alist)
-  (or (assq-ref x 'timestamp) #f))
+  (or (assq-ref post-alist 'timestamp) #f))
 
 (define (post-categories post-alist)
-  (or (assq-ref x 'categories) '()))
+  (or (assq-ref post-alist 'categories) '()))
 
 (define *post-spec*
-  `((timestamp ,string->number)
-    (categories ,(lambda (v) (map string-trim-both (string-split v #\,))))))
+  `((timestamp . ,string->number)
+    (categories . ,(lambda (v) (map string-trim-both (string-split v #\,))))))
 
 (define (post-from-tree encoded-name sha1)
   (acons 'url encoded-name
@@ -72,21 +72,5 @@
    comment-timestamp
    <))
 
-(define (build-post-skeleton master posts)
-  (fold (lambda (sha1 parent)
-          (let* ((ts (post-timestamp sha1))
-                 (comments (build-comment-skeleton (post-comments sha1)))
-                 (env (list "GIT_COMMMITTER=tekuti"
-                            ;; this quoting is a hack
-                            (format #f "'GIT_COMMITTER_DATE=~a +0100'" ts)
-                            (format #f "'GIT_AUTHOR_DATE=~a +0100'" ts))))
-            (string-trim-both
-             (git* `("commit-tree" ,sha1
-                     ,@(if parent (list "-p" parent) '())
-                     ,@(if comments (list "-p" comments) '()))
-                   #:input "post\n" #:env env))))
-        #f
-        (map cdr posts)))
-
 (define (reindex-posts master)
-  (build-post-skeleton master (all-published-posts master)))
+  (all-published-posts master))