Option-string builder

klutometis · Dec 30, 2012 · 8d04bb9 · 8d04bb9
1 parent f54bcdb
commit 8d04bb9
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/animation-core.scm b/animation-core.scm
@@ -53,3 +53,8 @@ depth-first-search on a graph; outputting an animation frame every step."
                        -ovc lavc
                        -o ,animation))))
     (values next-frame finalize)))
+
+(define (option-string options)
+  (string-join
+   (map (match-lambda ((key . value) (format "~a=~a" key value))) options)
+   ":"))