#lang scheme/gui
(require "packer.ss")

 ;(define path (current-directory);(get-directory "" #f  #f null))
  (define file (string->path "/home/stephen/projects/projects-project/packer/packer.ss"))
    ;(get-file "select the main file" #f (current-directory) "packer.ss" #f null '(("Scheme file" "*.ss;*.scm"))))
 
(define path (create-planet-info file)) ; → path
(make-planet-archive path) ; → path-string?