Rampant/make.rkt

(module BuildScript racket
    
    (require file/zip)
    (require json)
        
    ;(define modFolder "C:/Users/veden/AppData/Roaming/Factorio/mods/")
    ;(define zipModFolder "C:/Program Files/Factorio_0.14.1/mods/")
    (define modFolder "/home/veden/.factorio/mods/")
    (define zipModFolder "/data/games/factorio14.18/mods/")
    (define configuration (call-with-input-file "info.json"
                            (lambda (port)
                              (string->jsexpr (port->string port)))))
    (define packageName (string-append (string-replace (hash-ref configuration 'name) " " "_")
                                       "_" 
                                       (hash-ref configuration 'version)))
    
    (define (makeZip folder)
      (let ((packagePath (string->path (string-append folder
                                                      packageName
                                                      ".zip"))))
        (when (file-exists? packagePath)
          (delete-file packagePath)))
      (zip (string-append folder
                          packageName 
                          ".zip")
           #:path-prefix packageName
           (string->path "info.json")
           (string->path "control.lua")
           (string->path "config.lua")
           (string->path "data.lua")
           (string->path "LICENSE.md")
           (string->path "tests.lua")
           ;             (string->path "setupUtils.lua")
           (string->path "README.md")
           ; (string->path "setup.lua")
           (string->path "NOTICE")
           (string->path "libs")
           (string->path "locale")
           (string->path "graphics")
           (string->path "prototypes")))
    
    
    ;(current-directory "..")
    (define (copyFile fileName modFolder)
      (copy-file (string->path fileName)
                 (string->path (string-append modFolder
                                              packageName
                                              "/"
                                              fileName))))
    
    (define (copyDirectory directoryName modFolder)
      (copy-directory/files (string->path directoryName)
                            (string->path (string-append modFolder
                                                         packageName
                                                         "/"
                                                         directoryName))))
    
    (define (copyFiles modFolder)
      (let ((packagePath (string->path (string-append modFolder
                                                      packageName))))
        (when (directory-exists? packagePath)
          (delete-directory/files packagePath))
        (sleep 0.1)
        (make-directory packagePath)
        (copyFile "control.lua" modFolder)
        (copyFile "config.lua" modFolder)
        (copyFile "info.json" modFolder)
        ;           (copyFile "setupUtils.lua" modFolder)
        (copyFile "data.lua" modFolder)
        (copyFile "tests.lua" modFolder)
        (copyDirectory "libs" modFolder)
        (copyDirectory "locale" modFolder)
        (copyDirectory "graphics" modFolder)
        (copyDirectory "prototypes" modFolder)))
    
    ;;(copyFiles modFolder)
    ;;    (copyFiles zipModFolder)
    (makeZip modFolder)
    ;;(makeZip zipModFolder)
    )