various fixes, new post support

* tekuti/comment.scm (make-new-comment): Better commit log for comments.

* tekuti/git.scm (munge-tree): Fix when creating multiple files in a new
  directory.

* tekuti/page-helpers.scm (with-authentication): Resurrect, this got lost
  somehow, in that past time place.
  (post-editing-form): Frobate a bit.
  (admin-post-link): Fix.

* tekuti/page.scm (page-admin): Frobate.
  (page-admin-post): Fix for recent change in post-from-key.
  (page-admin-new-post): Sortof works, needs some fixage.

* tekuti/post.scm (make-new-post): Implement, yay

* tekuti/util.scm (timestamp->date): New function

* tekuti/web.scm (*status-names*): add 303

1 files changed, 7 insertions, 5 deletions

diff --git a/tekuti/git.scm b/tekuti/git.scm
index d154f7c..7bc174c 100644
--- a/tekuti/git.scm
+++ b/tekuti/git.scm
@@ -31,7 +31,8 @@
   #:use-module (tekuti config)
   #:use-module (scheme kwargs)
   #:use-module (match-bind)
-  #:use-module ((srfi srfi-1) #:select (filter-map partition))
+  #:use-module ((srfi srfi-1) #:select (filter-map partition
+                                        delete-duplicates))
   #:use-module (srfi srfi-11) ; let-values
   #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-35)
@@ -235,10 +236,11 @@
                                (filter-map level-down dchange))
                    'tree)))
           (else dent)))
-       (append (filter-map (lambda (x)
-                             (and (not (assoc (caar x) dents))
-                                  (list (caar x) #f 'tree)))
-                           dadd)
+       (append (delete-duplicates
+                (filter-map (lambda (x)
+                              (and (not (assoc (caar x) dents))
+                                   (list (caar x) #f 'tree)))
+                            dadd))
                dents))))))
     
 (define (parse-commit commit)