M build.rkt => build.rkt +4 -1
@@ 45,6 45,8 @@
(list app-exe-file)))
(define (make-distribution-file)
+ (when (file-exists? dist-file)
+ (delete-file dist-file))
(bundle-directory
dist-file
dist-dir
@@ 62,4 64,5 @@
(printf " done.")(newline)(flush-output (current-output-port))
(printf "Creating distribution file...")(flush-output (current-output-port))
(make-distribution-file)
- (printf " done.")(newline)(flush-output (current-output-port)))
+ (printf " done.")(newline)(flush-output (current-output-port))
+ (printf (format "Dist file: ~a~nDist folder: ~a" dist-file dist-dir)))
M info.rkt => info.rkt +1 -1
@@ 3,7 3,7 @@
(define collection "fafi")
(define version "0.12")
-(define pkg-desc "A graphical gemini browser")
+(define pkg-desc "A graphical smol web browser")
(define pkg-authors '("Andre Alves Garzia"))
(define deps '("base" "gui-lib" "net-lib" "markdown" "xexpr-path"))