Work on member web static file generator.

src/web-static.scm

@@ -29,12 +29,16 @@
  web-static
  (
   gen-web-static-member
+  gen-web-static
   )
 
  (import scheme
 	 (chicken base)
 	 (chicken format)
-	 member-record)
+	 (chicken string)
+	 member-record
+	 utils
+	 configuration)
 
  ;; Generate all the files in current directory, should be wrapped in
  ;; something like with-current-directory.
@@ -53,6 +57,22 @@
 	   (when (not (null? lines))
 	     (print (car lines))
 	     (loop (cdr lines))))))
+     (with-output-to-file (sprintf "~A.log" nick)
+       (lambda ()
+	 (let loop ((lines
+		     (get-process-output-lines
+		      (sprintf "git -C \"~A\" log \"~A\""
+			       (string-translate* (*members-directory*)
+						  '(("\"" "\\\"")))
+			       (member-file-name mr)
+			       ))))
+	   (when (not (null? lines))
+	     (print (car lines))
+	     (loop (cdr lines))))))
      ))
 
+ ;; Generates all member files in given directory
+ (define (gen-web-static mb dir)
+   #f)
+
  )