Getting started with tekuti

[Neil Jerram]

Hey Andy,

I'm just trying to get started with tekuti, but am hitting problems 
which look like they're associated with having no content yet.  I've 
appended a transcript below - can you see what's wrong?

Thanks - Neil


address@hidden:~/SW/tekuti$ ./env src/tekuti
;;; note: source file /home/neil/SW/tekuti/tekuti/git.scm
;;;       newer than compiled /home/neil/SW/tekuti/tekuti/git.go
;;; found fresh local cache at 
/home/neil/.cache/guile/ccache/2.2-LE-8-3.9/home/neil/SW/tekuti/tekuti/git.scm.go
;;; note: source file /home/neil/SW/tekuti/tekuti/util.scm
;;;       newer than compiled /home/neil/SW/tekuti/tekuti/util.go
;;; found fresh local cache at 
/home/neil/.cache/guile/ccache/2.2-LE-8-3.9/home/neil/SW/tekuti/tekuti/util.scm.go
;;; note: source file /home/neil/SW/tekuti/tekuti/web.scm
;;;       newer than compiled /home/neil/SW/tekuti/tekuti/web.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;;       or pass the --no-auto-compile argument to disable.
;;; compiling /home/neil/SW/tekuti/tekuti/web.scm
;;; note: source file /home/neil/SW/tekuti/tekuti/post.scm
;;;       newer than compiled /home/neil/SW/tekuti/tekuti/post.go
;;; found fresh local cache at 
/home/neil/.cache/guile/ccache/2.2-LE-8-3.9/home/neil/SW/tekuti/tekuti/post.scm.go
;;; compiled 
/home/neil/.cache/guile/ccache/2.2-LE-8-3.9/home/neil/SW/tekuti/tekuti/web.scm.go

;;; (reading-index)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" "refs/heads/index"))
fatal: ambiguous argument 'refs/heads/index': unknown revision or path 
not in the working tree.
Use '--' to separate paths from revisions, like this:
'git <command> [<revision>...] -- [<file>...]'

;;; (start-clock)

;;; (start-clock)

;;; (posts)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (stop-clock 0.005752)

;;; (start-clock)

;;; (posts-by-date)

;;; (stop-clock 4.4999999999999996e-5)

;;; (start-clock)

;;; (tags)

;;; (latest-posts ((posts-by-date) (posts . #<hash-table 563b0667eba0 
0/31>) (master . "7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd")))

;;; (filter-mapn ())

;;; (stop-clock 1.75e-4)

;;; (start-clock)

;;; (legit-comments)

;;; (computing-legit)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (done #<hash-table 563b0667ea40 0/31>)

;;; (stop-clock 0.0056549999999999994)

;;; (start-clock)

;;; (bogus-comments)

;;; (computing-bogus)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "cat-file" "commit" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd"))

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" #f))
In tekuti/index.scm:
   113:28 10 (_)
In tekuti/util.scm:
    187:5  9 (with-time-debugging* #<procedure 563b06776740 at 
tekuti/index.s…>)
In srfi/srfi-1.scm:
   466:18  8 (fold #<procedure 563b06776700 at tekuti/index.scm:55:9 
(spec i…> …)
In tekuti/index.scm:
    58:25  7 (_ _ ((legit-comments . #<hash-table 563b0667ea40 0/31>) 
(. #) …))
In tekuti/util.scm:
    187:5  6 (with-time-debugging* #<procedure 563b06777de0 at 
tekuti/index.s…>)
In tekuti/comment.scm:
    206:2  5 (compute-bogus-comments _ _)
In tekuti/git.scm:
   339:16  4 (fold-commits #<procedure 563b06777db0 at 
tekuti/comment.scm:20…> …)
   174:24  3 (git-rev-parse #f)
    92:15  2 (run _ _ _)
In ice-9/popen.scm:
    64:22  1 (open-pipe* "r" _ . _)
In unknown file:
           0 (open-process "r" "git" "--bare" "rev-parse" #f)
ERROR: Wrong type (expecting string): #f

;;; (stop-clock 0.05782799999999999)

;;; (stop-clock 0.06981599999999999)

;;; (handler ())

;;; (start-clock)

;;; (start-clock)

;;; (posts)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (stop-clock 0.026757)

;;; (start-clock)

;;; (posts-by-date)

;;; (stop-clock 3.6e-5)

;;; (start-clock)

;;; (tags)

;;; (latest-posts ((posts-by-date) (posts . #<hash-table 563b064787a0 
0/31>) (master . "7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd")))

;;; (filter-mapn ())

;;; (stop-clock 3.59e-4)

;;; (start-clock)

;;; (legit-comments)

;;; (computing-legit)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (done #<hash-table 563b06478640 0/31>)

;;; (stop-clock 0.006625)

;;; (start-clock)

;;; (bogus-comments)

;;; (computing-bogus)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "cat-file" "commit" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd"))

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" #f))
In tekuti/index.scm:
   113:28 10 (_)
In tekuti/util.scm:
    187:5  9 (with-time-debugging* #<procedure 563b0642fc20 at 
tekuti/index.s…>)
In srfi/srfi-1.scm:
   466:18  8 (fold #<procedure 563b0642fbe0 at tekuti/index.scm:55:9 
(spec i…> …)
In tekuti/index.scm:
    58:25  7 (_ _ ((legit-comments . #<hash-table 563b06478640 0/31>) 
(. #) …))
In tekuti/util.scm:
    187:5  6 (with-time-debugging* #<procedure 563b0667fcc0 at 
tekuti/index.s…>)
In tekuti/comment.scm:
    206:2  5 (compute-bogus-comments _ _)
In tekuti/git.scm:
   339:16  4 (fold-commits #<procedure 563b0667fc90 at 
tekuti/comment.scm:20…> …)
   174:24  3 (git-rev-parse #f)
    92:15  2 (run _ _ _)
In ice-9/popen.scm:
    64:22  1 (open-pipe* "r" _ . _)
In unknown file:
           0 (open-process "r" "git" "--bare" "rev-parse" #f)
ERROR: Wrong type (expecting string): #f

;;; (stop-clock 0.044223)

;;; (stop-clock 0.078508)

;;; (latest-posts ())

;;; (filter-mapn #f)
In tekuti/web.scm:
    82:26  2 (handler #<<request> method: GET uri: #<<uri> scheme: http 
user…> …)
In tekuti/page.scm:
   192:20  1 (page-index _ _ ())
In tekuti/util.scm:
   166:25  0 (filter-mapn #<procedure 563b0648dfc0 at 
tekuti/post.scm:233:3 …> …)
ERROR: In procedure car: Wrong type argument in position 1 (expecting 
pair): #f

;;; (handler ())

;;; (start-clock)

;;; (start-clock)

;;; (posts)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (stop-clock 0.007265)

;;; (start-clock)

;;; (posts-by-date)

;;; (stop-clock 3.9e-5)

;;; (start-clock)

;;; (tags)

;;; (latest-posts ((posts-by-date) (posts . #<hash-table 563b05f398a0 
0/31>) (master . "7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd")))

;;; (filter-mapn ())

;;; (stop-clock 3.84e-4)

;;; (start-clock)

;;; (legit-comments)

;;; (computing-legit)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (done #<hash-table 563b05f395e0 0/31>)

;;; (stop-clock 0.0073279999999999994)

;;; (start-clock)

;;; (bogus-comments)

;;; (computing-bogus)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "cat-file" "commit" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd"))

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" #f))
In tekuti/index.scm:
   113:28 10 (_)
In tekuti/util.scm:
    187:5  9 (with-time-debugging* #<procedure 563b05f38cc0 at 
tekuti/index.s…>)
In srfi/srfi-1.scm:
   466:18  8 (fold #<procedure 563b05f38c80 at tekuti/index.scm:55:9 
(spec i…> …)
In tekuti/index.scm:
    58:25  7 (_ _ ((legit-comments . #<hash-table 563b05f395e0 0/31>) 
(. #) …))
In tekuti/util.scm:
    187:5  6 (with-time-debugging* #<procedure 563b066aeab0 at 
tekuti/index.s…>)
In tekuti/comment.scm:
    206:2  5 (compute-bogus-comments _ _)
In tekuti/git.scm:
   339:16  4 (fold-commits #<procedure 563b066aea80 at 
tekuti/comment.scm:20…> …)
   174:24  3 (git-rev-parse #f)
    92:15  2 (run _ _ _)
In ice-9/popen.scm:
    64:22  1 (open-pipe* "r" _ . _)
In unknown file:
           0 (open-process "r" "git" "--bare" "rev-parse" #f)
ERROR: Wrong type (expecting string): #f

;;; (stop-clock 0.038446999999999995)

;;; (stop-clock 0.054012)

;;; (start-clock)

;;; (start-clock)

;;; (posts)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (stop-clock 0.006633999999999999)

;;; (start-clock)

;;; (posts-by-date)

;;; (stop-clock 3.7e-5)

;;; (start-clock)

;;; (tags)

;;; (latest-posts ((posts-by-date) (posts . #<hash-table 563b06642600 
0/31>) (master . "7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd")))

;;; (filter-mapn ())

;;; (stop-clock 3.55e-4)

;;; (start-clock)

;;; (legit-comments)

;;; (computing-legit)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (done #<hash-table 563b066424a0 0/31>)

;;; (stop-clock 0.006411)

;;; (start-clock)

;;; (bogus-comments)

;;; (computing-bogus)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "cat-file" "commit" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd"))

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" #f))
In tekuti/index.scm:
   113:28 10 (_)
In tekuti/util.scm:
    187:5  9 (with-time-debugging* #<procedure 563b0691e8c0 at 
tekuti/index.s…>)
In srfi/srfi-1.scm:
   466:18  8 (fold #<procedure 563b0691e880 at tekuti/index.scm:55:9 
(spec i…> …)
In tekuti/index.scm:
    58:25  7 (_ _ ((legit-comments . #<hash-table 563b066424a0 0/31>) 
(. #) …))
In tekuti/util.scm:
    187:5  6 (with-time-debugging* #<procedure 563b06923ea0 at 
tekuti/index.s…>)
In tekuti/comment.scm:
    206:2  5 (compute-bogus-comments _ _)
In tekuti/git.scm:
   339:16  4 (fold-commits #<procedure 563b06923e70 at 
tekuti/comment.scm:20…> …)
   174:24  3 (git-rev-parse #f)
    92:15  2 (run _ _ _)
In ice-9/popen.scm:
    64:22  1 (open-pipe* "r" _ . _)
In unknown file:
           0 (open-process "r" "git" "--bare" "rev-parse" #f)
ERROR: Wrong type (expecting string): #f

;;; (stop-clock 0.052416)

;;; (stop-clock 0.066341)

;;; (handler ((cache)))

;;; (start-clock)

;;; (start-clock)

;;; (posts)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (stop-clock 0.01015)

;;; (start-clock)

;;; (posts-by-date)

;;; (stop-clock 3.6e-5)

;;; (start-clock)

;;; (tags)

;;; (latest-posts ((posts-by-date) (posts . #<hash-table 563b064767e0 
0/31>) (master . "7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd")))

;;; (filter-mapn ())

;;; (stop-clock 3.57e-4)

;;; (start-clock)

;;; (legit-comments)

;;; (computing-legit)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "ls-tree" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd" "."))

;;; (done #<hash-table 563b06476680 0/31>)

;;; (stop-clock 0.00756)

;;; (start-clock)

;;; (bogus-comments)

;;; (computing-bogus)

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "cat-file" "commit" 
"7e5d0ddb26c73c0602e8fdf24c1fd90eb9e35efd"))

;;; (pwd "/home/neil/blog.git")

;;; (run (() #f "git" "--bare" "rev-parse" #f))
In tekuti/index.scm:
   113:28 10 (_)
In tekuti/util.scm:
    187:5  9 (with-time-debugging* #<procedure 563b06478d40 at 
tekuti/index.s…>)
In srfi/srfi-1.scm:
   466:18  8 (fold #<procedure 563b06478d00 at tekuti/index.scm:55:9 
(spec i…> …)
In tekuti/index.scm:
    58:25  7 (_ _ ((legit-comments . #<hash-table 563b06476680 0/31>) 
(. #) …))
In tekuti/util.scm:
    187:5  6 (with-time-debugging* #<procedure 563b06167a20 at 
tekuti/index.s…>)
In tekuti/comment.scm:
    206:2  5 (compute-bogus-comments _ _)
In tekuti/git.scm:
   339:16  4 (fold-commits #<procedure 563b061679f0 at 
tekuti/comment.scm:20…> …)
   174:24  3 (git-rev-parse #f)
    92:15  2 (run _ _ _)
In ice-9/popen.scm:
    64:22  1 (open-pipe* "r" _ . _)
In unknown file:
           0 (open-process "r" "git" "--bare" "rev-parse" #f)
ERROR: Wrong type (expecting string): #f

;;; (stop-clock 0.038342999999999995)

;;; (stop-clock 0.056891)

;;; (latest-posts ((cache)))

;;; (filter-mapn #f)
In tekuti/web.scm:
    82:26  2 (handler #<<request> method: GET uri: #<<uri> scheme: http 
user…> …)
In tekuti/page.scm:
    81:12  1 (_)
In tekuti/util.scm:
   166:25  0 (filter-mapn #<procedure 563b062f9840 at 
tekuti/post.scm:233:3 …> …)
ERROR: In procedure car: Wrong type argument in position 1 (expecting 
pair): #f