logo: scheme: accept any name

1 files changed, 26 insertions, 32 deletions

diff --git a/logo/elenq.scm b/logo/elenq.scm
index c3ec13d..e8bd947 100644
--- a/logo/elenq.scm
+++ b/logo/elenq.scm
@@ -6,37 +6,31 @@
   (number->string (exact->inexact x)))
 
 (define (elenq-logo sub size rotation-deg)
-  `(svg
-     (@ (width   ,(num (* size)))
-        (height  ,(num (* size (/ 10 22))))
-        (viewBox ,(string-join (list (num (* size 22 -1/2))
-                                     (num (+ (* -1.4 size) (* size 10 -1/2)))
-                                     (num (* size 22))
-                                     (num (* size 10)))
-                               " ")))
-     (g (@ (id "elenq-logo")
-        (transform
-          ,(string-append
-            "scale(" (num size)  ")"
-            "rotate (" (num rotation-deg) ")")))
-     (g (@ (transform "scale(0.33333)"))
-        (text (@ (x 0)
-                 (y 0)
-                 (style "font-size: 30; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle"))
-              "ElenQ")
-        (text (@ (x 0)
-                 (y 8)
-                 (style "font-size: 10; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle;"))
-              ,sub)))))
-
-(define (elenq-technology size rotation)
-  (sxml->xml (elenq-logo "TECHNOLOGY" size rotation)))
-(define (elenq-publishing size rotation)
-  (sxml->xml (elenq-logo "PUBLISHING" size rotation)))
+  (sxml->xml
+    `(svg
+       (@ (width   ,(num (* size)))
+          (height  ,(num (* size (/ 10 22))))
+          (viewBox ,(string-join (list (num (* size 22 -1/2))
+                                       (num (+ (* -1.4 size) (* size 10 -1/2)))
+                                       (num (* size 22))
+                                       (num (* size 10)))
+                                 " ")))
+       (g (@ (id "elenq-logo")
+             (transform
+               ,(string-append
+                  "scale(" (num size)  ")"
+                  "rotate (" (num rotation-deg) ")")))
+          (g (@ (transform "scale(0.33333)"))
+             (text (@ (x 0)
+                      (y 0)
+                      (style "font-size: 30; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle"))
+                   "ElenQ")
+             (text (@ (x 0)
+                      (y 8)
+                      (style "font-size: 10; line-height: 1.25; font-family: armata; stroke: none; text-anchor: middle;"))
+                   ,sub))))))
 
 (match (command-line)
-  ((name "tech") (elenq-technology 100 0))
-  ((name "pub")  (elenq-publishing 100 0))
-  ((name . any)  (format (current-error-port)
-                         "USAGE: ~a tech|pub\n" name)
-                 (exit 1)))
+  ((name text) (elenq-logo (string-upcase text) 100 0))
+  (_           (format (current-error-port) "USAGE: elenq.scm NAME\n" )
+               (exit 1)))