+ (list
+ ""
+ (conc "-----= Recent Commits [" branch "] =-----"))
+ (map (lambda (commit)
+ (list
+ 1
+ (conc (if (equal? branch commit) "*" "")
+ (car (git "show" "-s" "--format=%s (%ar)" commit)))
+ (conc "browse-git.scm|" repo "|" commit "|" path "|tree")))
+ commits)