diff --git a/FranzCross/auto-update.rkt b/FranzCross/auto-update.rkt index 4cf679c..5810c49 100644 --- a/FranzCross/auto-update.rkt +++ b/FranzCross/auto-update.rkt @@ -2,7 +2,6 @@ (require franz/auto-updater franz/release - franz/version (prefix-in http: net/http-easy) net/sendurl racket/class @@ -12,7 +11,8 @@ "common.rkt" "mixin.rkt" "preference.rkt" - "thread.rkt") + "thread.rkt" + "version.rkt") (provide start-auto-updater @@ -39,7 +39,7 @@ (make-auto-updater do-update-available #:arch (system-arch) - #:version franz-version + #:version franz-cross-version #:frequency (and check-for-updates? check-interval)))) (when (and check-for-updates? check-now?) (thread* @@ -241,7 +241,7 @@ port->string) (make-Release #:arch (system-arch) - #:version franz-version + #:version franz-cross-version #:mac-url "https://franz.defn.io/releases/Franz%201.0.0006.universal.dmg" #:linux-url #f #:windows-url #f)))) diff --git a/FranzCross/info.rkt b/FranzCross/info.rkt index c1ab1bf..1c740db 100644 --- a/FranzCross/info.rkt +++ b/FranzCross/info.rkt @@ -1,5 +1,8 @@ #lang info +(define version "1.4") +(define build-number 1) + (define collection "FranzCross") (define deps '("base" "buid" diff --git a/FranzCross/version.rkt b/FranzCross/version.rkt new file mode 100644 index 0000000..82e439c --- /dev/null +++ b/FranzCross/version.rkt @@ -0,0 +1,22 @@ +#lang racket/base + +(require (for-syntax racket/base + racket/format + setup/getinfo)) + +(provide + franz-cross-version) + +(begin-for-syntax + (define (info-ref id) + ((get-info '("FranzCross")) id))) + +(define-syntax (get-version stx) + (datum->syntax stx (format "~a.~a" + (info-ref 'version) + (~r #:min-width 4 + #:pad-string "0" + (info-ref 'build-number))))) + +(define franz-cross-version + (get-version))