no

code-current/get-current-scripts.rkt

@@ -61,16 +61,19 @@
 (define (handle-rows dir rows)
   (for-each 
     (lambda (row)
-       (let ((id (vector-ref row 0))
-             (name (vector-ref row 1))
-             (description (vector-ref row 2))
-             (value_script (vector-ref row 3))
-             (mk-name (lambda (name ext) (build-path dir 
-                                            (string-append (string-replace name "/" "-") "." ext))))
-            )
+       (let* ((id (vector-ref row 0))
+              (name (vector-ref row 1))
+              (description (vector-ref row 2))
+              (value_script (vector-ref row 3))
+              (re #px"[/><]")
+              (mk-name (lambda (name ext) (build-path dir 
+                                            (string-append 
+                                               (regexp-replace* name re "_") "." ext))))
+              )
   
           (displayln (format "making ~a / ~a" dir name))
           (to-file (mk-name name "id") id)
+          (to-file (mk-name name "name") name)
           (to-file (mk-name name "js") value_script)
           (to-file (mk-name name "descr") description)
          ))