Running script, graph put in requested file location

graphgif.scm

@@ -24,24 +24,6 @@
     ((10 . 40) (0 2 4) ,white)
     ((40 . 40) (1 2 3) ,white)))
 
-(define-syntax-rule
-  (for x n stmt ...)
-  (let loop ([x 0]
-	     [lst '()])
-    (if (< x n)
-	(loop (1+ x)
-	      (cons lst (stmt i)))
-	lst)))
-
-(define large-web
-  (let ([lst '()])
-    (do (i (1+ i))
-	((> i 10))
-      (do (j (1+ j))
-	  ((> j 10))
-	(set! lst (cons `((,i . ,j)
-  			  ,(map ))))))))
-
 (define (edge-painter cr graph)
   (lambda (node)
     (cairo-set-source cr black)
@@ -84,7 +66,7 @@
     surface))
 
 (define my-surface (draw-abstract-graph more-complex-graph))
-(cairo-surface-write-to-png my-surface "graph.png")
+(cairo-surface-write-to-png my-surface (cadr (command-line)))
 (cairo-surface-destroy my-surface)
 
 ;; Local Variables:

run.sh

@@ -0,0 +1,9 @@
+#!/usr/bin/bash
+
+GRAPH_FILE=/tmp/graph.png
+
+set -e
+
+guile graphgif.scm $GRAPH_FILE
+feh $GRAPH_FILE
+rm $GRAPH_FILE