;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2021, 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2021 jgart <jgart@dismail.de>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages racket)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix gexp)
  #:use-module (guix build-system gnu)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (ice-9 match)
  #:use-module (ice-9 regex)
  #:use-module (ice-9 exceptions)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages chez-and-racket-bootstrap)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages image)
  #:use-module (gnu packages libedit)
  #:use-module (gnu packages libffi)
  #:use-module (gnu packages multiprecision)
  #:use-module (gnu packages sqlite)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages xorg)
  #:use-module ((guix licenses)
                #:prefix license:))

(define-public racket-minimal
  (package
    (name "racket-minimal")
    (version %racket-version)
    (source %racket-origin)
    ;; For cross-compilation, Matthew Flatt recommends reusing
    ;; as much of `raco cross` as possible. So, put that off until
    ;; we have a build system for Racket packages.
    (inputs (list openssl sqlite (racket-vm-for-system)))
    (build-system gnu-build-system)
    (arguments
     ;; Here and for the `racket` package, we're using #:configure-flags
     ;; to pass flags for `make-installation-layer.rkt` and #:make-flags
     ;; to pass arguments for `raco pkg install`
     (list
      #:configure-flags
      #~`("--tethered"
          "--extra-foreign-lib-search-dirs"
          ,(format #f "~s"
                   (list #$(file-append (this-package-input "openssl") "/lib")
                         #$(file-append (this-package-input "sqlite") "/lib"))))
      #:make-flags #~`("racket-lib")
      #:tests? #f ;; packaged separately
      #:modules '((guix build gnu-build-system)
                  (guix build utils)
                  (ice-9 match))
      #:phases
      #~(modify-phases %standard-phases
          (replace 'configure
            (lambda* (#:key inputs configure-flags make-flags
                            #:allow-other-keys)
              (let* ((vm-dir (search-input-directory inputs "opt/racket-vm"))
                     (racket (string-append vm-dir "/bin/racket")))
                (apply invoke
                       racket
                       #$make-installation-layer.rkt
                       `(,@(cond
                            ((false-if-exception
                              (search-input-file
                               inputs "etc/racket/config.rktd"))
                             => (lambda (file)
                                  `("--parent"
                                    ,(dirname (dirname (dirname file))))))
                            (else
                             '()))
                         ,@configure-flags
                         ,vm-dir
                         ,#$output))
                (invoke racket
                        "--config" (string-append #$output "/etc/racket")
                        "-l" "raco" "setup"
                        "--no-user"))))
          (replace 'build
            (lambda* (#:key inputs #:allow-other-keys)
              (mkdir-p (string-append #$output "/lib/racket/pkgs"))
              (for-each (lambda (name)
                          (copy-recursively
                           (string-append "pkgs/" name)
                           (string-append #$output "/lib/racket/pkgs/" name)))
                        '("base" "racket-lib"))))
          (replace 'install
            (lambda* (#:key inputs make-flags #:allow-other-keys)
              (let ((racket
                     (search-input-file inputs "/opt/racket-vm/bin/racket")))
                (unless (null? make-flags)
                  (invoke racket
                          "-l-"
                          "pkg/dirs-catalog"
                          "--link"
                          "local-catalog"
                          (string-append #$output "/lib/racket/pkgs"))
                  (apply invoke
                         racket
                         "--config" (string-append #$output "/etc/racket")
                         "-l" "raco"
                         "pkg" "install"
                         "--installation"
                         "--auto"
                         "--catalog" "local-catalog"
                         make-flags))))))))
    (home-page "https://racket-lang.org")
    (synopsis "Racket without bundled packages such as DrRacket")
    (description
     "Racket is a general-purpose programming language in the Scheme family,
with a large set of libraries and a compiler based on Chez Scheme.  Racket is
also a platform for language-oriented programming, from small domain-specific
languages to complete language implementations.

The ``minimal Racket'' distribution includes just enough of Racket for you to
use @command{raco pkg} to install more.  Bundled packages, such as the
DrRacket IDE, are not included.")
    ;; https://download.racket-lang.org/license.html
    ;; The LGPL components are only used by Racket BC.
    (license (list license:asl2.0 license:expat))))

(define-public racket
  (package
    (inherit racket-minimal)
    (name "racket")
    (source #f)
    (inputs
     (list cairo
           fontconfig
           glib
           glu
           gmp
           gtk+ ;; propagates gdk-pixbuf+svg
           libjpeg-turbo
           libpng
           libx11 ;; ?? wayland ??
           mesa
           mpfr
           pango
           unixodbc
           libedit ;; TODO reconsider in light of expeditor and readline-gpl
           racket-minimal ;; <-- TODO non-tethered layer
           (racket-vm-for-system)))
    (arguments
     (substitute-keyword-arguments (package-arguments racket-minimal)
       ((#:configure-flags _ '())
        #~`("--tethered"
            "--extra-foreign-lib-search-dirs"
            ,(format #f "~s"
                     '(#$@(map (lambda (name)
                                 (cond
                                  ((this-package-input name)
                                   => (cut file-append <> "/lib"))
                                  (else
                                   (raise-exception
                                    (make-exception
                                     (make-assertion-failure)
                                     (make-exception-with-message
                                      "missing input to the 'racket' package")
                                     (make-exception-with-irritants
                                      (list name)))))))
                               '("cairo"
                                 "fontconfig-minimal" ;; aka fontconfig
                                 "glib"
                                 "glu"
                                 "gmp"
                                 "gtk+"
                                 "libjpeg-turbo"
                                 "libpng"
                                 "libx11"
                                 "mesa"
                                 "mpfr"
                                 "pango"
                                 "unixodbc"
                                 "libedit"))))))
       ((#:make-flags _ '())
        #~`("main-distribution"))
       ((#:phases parent-phases #~%standard-phases)
        #~(modify-phases #$parent-phases
            (delete 'unpack)
            (replace 'build
              (lambda args
                (mkdir-p (string-append #$output "/lib/racket/pkgs"))
                (for-each
                 (match-lambda
                   ((name src)
                    (copy-recursively
                     src
                     (string-append #$output "/lib/racket/pkgs/" name))))
                 '(#$@main-distribution-packages))))))))
    (synopsis "Programmable programming language in the Scheme family")
    (description
     "Racket is a general-purpose programming language in the Scheme family,
with a large set of libraries and a compiler based on Chez Scheme.  Racket is
also a platform for language-oriented programming, from small domain-specific
languages to complete language implementations.

The main Racket distribution comes with many bundled packages, including the
DrRacket IDE, libraries for GUI and web programming, and implementations of
languages such as Typed Racket, R5RS and R6RS Scheme, Algol 60, and Datalog.")))

(define make-installation-layer.rkt
  (scheme-file
   "make-installation-layer.rkt"
   `(module
     make-installation-layer racket/base
     (require racket/cmdline
              racket/match
              racket/file
              racket/port
              racket/list
              racket/pretty)
     (define (build-path-string . args)
       (path->string (apply build-path args)))
     (define rx:racket
       ;; Guile's reader doesn't support #rx"racket"
       (regexp "racket"))
     (define tethered? #f)
     (define parent #f)
     (define extra-foreign-lib-search-dirs '())
     (define-values [vm-dir prefix]
       (command-line
        #:once-each
        [("--tethered") "create a tethered layer"
         (set! tethered? #t)]
        [("--parent") dir "path of parent layer, if any"
         (set! parent dir)]
        [("--extra-foreign-lib-search-dirs") dir-list
         "foreign library directories, as a list of strings in `read` syntax"
         (set! extra-foreign-lib-search-dirs
               (call-with-input-string dir-list read))]
        #:args (vm-dir prefix)
        (values vm-dir prefix)))
     (let* ([config
             (for/fold
              ([config (file->value
                        (if parent
                            (build-path parent "etc/racket/config.rktd")
                            (build-path vm-dir "etc/config.rktd")))])
              ([spec
                (in-list
                 '((lib-dir lib-search-dirs "lib/racket" "lib")
                   (share-dir share-search-dirs "share/racket" "share")
                   (links-file links-search-files
                               "lib/racket/links.rktd"
                               "share/links.rktd")
                   (pkgs-dir pkgs-search-dirs "lib/racket/pkgs" "share/pkgs")
                   ;; Partial workaround for:
                   ;; https://github.com/racket/racket/issues/4133
                   #;(bin-dir bin-search-dirs "bin" "bin")
                   (bin-dir bin-search-dirs
                            "lib/racket/bogus-untethered-bin"
                            "bin")
                   (man-dir man-search-dirs "share/man" "share/man")
                   (doc-dir doc-search-dirs "share/doc/racket" "doc")
                   (include-dir include-search-dirs
                                "include/racket"
                                "include")))])
              (match-define (list main-key search-key pth vm-pth) spec)
              (hash-set*
               config
               main-key
               (build-path-string prefix pth)
               search-key
               (list* #f
                      (hash-ref config
                                main-key
                                (lambda ()
                                  (if parent
                                      (build-path-string parent pth)
                                      (build-path-string vm-dir vm-pth))))
                      (filter values (hash-ref config search-key null)))))]
            [config
             (hash-update config
                          'lib-search-dirs
                          (lambda (dirs)
                            ;; add after other layers, but before older
                            ;; foreign lib search directories
                            (define-values [rkt old-foreign-dirs]
                              (partition (lambda (pth)
                                           (or (not pth)
                                               (regexp-match? rx:racket pth)))
                                         dirs))
                            (append rkt
                                    extra-foreign-lib-search-dirs
                                    old-foreign-dirs)))]
            [config
             (hash-set* config
                        'apps-dir
                        (build-path-string prefix "share/applications")
                        'absolute-installation? #t
                        ;; Let Guix coexist with other installation
                        ;; methods without clobbering user-specific packages.
                        ;; This could be set in various places, but doing
                        ;; it here is convienient, at least until we support
                        ;; cross-compilation.
                        'installation-name
                        (string-append (version)
                                       "-guix"
                                       (match (system-type 'gc)
                                         ['cgc "-cgc"]
                                         ;; workaroung Guile reader/printer:
                                         ['|3m| "-bc"]
                                         [_ ""])))]
            [config
             (cond
              [tethered?
               ;; Partial workaround for:
               ;; https://github.com/racket/racket/issues/4133
               #;(define bin-dir (hash-ref config 'bin-dir))
               (define bin-dir (build-path-string prefix "bin"))
               (hash-set* config
                          'config-tethered-apps-dir (hash-ref config 'apps-dir)
                          'config-tethered-console-bin-dir bin-dir
                          'config-tethered-gui-bin-dir bin-dir)]
              [else
               config])])
       (define new-config-pth
         (build-path prefix "etc/racket/config.rktd"))
       (make-parent-directory* new-config-pth)
       (call-with-output-file*
        new-config-pth
        (lambda (out)
          (pretty-write config out)))))))

(define-public main-distribution-packages
  (let ((%racket-commit (string-append "v" %racket-version)))
    (append-map
     (match-lambda
       ((source . pkgs)
        (map (match-lambda
               ((? string? name)
                (list name (file-append source (string-append "/" name))))
               ((name ".")
                (list name source))
               ((name rel-path)
                (list name (file-append source (string-append "/" rel-path)))))
             pkgs)))
     `((,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/2d")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1zzcz5qyjv7syi41vb8jkxjp1rqgj61zbsdrg0nlc4qy9qsafzgr"))
           (file-name
            (git-file-name "racket-2d" %racket-version)))
        "2d" "2d-doc" "2d-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/algol60")
                 (commit %racket-commit)))
           (sha256 (base32
                    "09kj6asypmc24n29w0izc9p0q8hpga2hpkchsypfwn5c8zpvihlx"))
           (file-name
            (git-file-name "racket-algol60" %racket-version)))
        ("algol60" "."))
       (,%racket-origin
        ("at-exp-lib" "pkgs/at-exp-lib")
        ("compiler" "pkgs/compiler")
        ("compiler-lib" "pkgs/compiler-lib")
        ("net" "pkgs/net")
        ("net-doc" "pkgs/net-doc")
        ("net-lib" "pkgs/net-lib")
        ("racket-doc" "pkgs/racket-doc")
        ("racket-index" "pkgs/racket-index")
        ("sandbox-lib" "pkgs/sandbox-lib")
        ("zo-lib" "pkgs/zo-lib"))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/cext-lib")
                 (commit %racket-commit)))
           (sha256 (base32
                    "00w38jpv88fpl4pgj6ndnysvn0s21rjvj0xhznay80msan0vc341"))
           (file-name (git-file-name "racket-cext-lib" %racket-version)))
        "cext-lib" "dynext-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/class-iop")
                 (commit %racket-commit)))
           (sha256 (base32
                    "08z57q83cr7wnh6g8ah3hdhmsmf9zp1jfs7yvxv188l3hzvygy5l"))
           (file-name (git-file-name "racket-class-iop" %racket-version)))
        "class-iop-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/compatibility")
                 (commit "37f11132cdad7ef27386b68383d073f275d67c31")))
           (sha256 (base32
                    "0bfqwscjpyi325br5pa6g62g9c8lq18a80zp5g3d2qzn3n3mi6x0"))
           (file-name (git-file-name "racket-compatibility" %racket-version)))
        "compatibility" "compatibility-doc" "compatibility-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/contract-profile")
                 (commit "95d980a076126b8e4e4284e912f2a7d9d3ab6860")))
           (sha256 (base32
                    "1xm2z8g0dpv5d9h2sg680vx1a8ix9gbsdpxxb8qv1w7akp73paj3"))
           (file-name
            (git-file-name "racket-contract-profile" %racket-version)))
        ("contract-profile" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/data")
                 (commit "e32d012b394e32e102e8a9adfcc885bb0541ab51")))
           (sha256 (base32
                    "10iabgrk9alaggvksnyb0hdq7f1p30pq6pq2bcakvhzpxwiv1f55"))
           (file-name (git-file-name "racket-data" %racket-version)))
        "data" "data-doc" "data-enumerate-lib" "data-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/datalog")
                 (commit "7d160a86451af8298093d07674a2eb0e1a0161a4")))
           (sha256 (base32
                    "0n5j5gnqh7g31mvgx19ggl18hirzbvq2r189lbngmnrmbc7b73fp"))
           (file-name (git-file-name "racket-datalog" %racket-version)))
        ("datalog" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/db")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1n02ja0yj3mjjhmz0yv04yfhyvrsznbljn8bjviyfxnm4xf9rcc5"))
           (file-name (git-file-name "racket-db" %racket-version)))
        "db" "db-doc" "db-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/deinprogramm")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1is6fapgv6rxfjz47nh6qf3kh7y7sjdinakaxqffi46gf1al8prd"))
           (file-name (git-file-name "racket-deinprogramm" %racket-version)))
        "deinprogramm" "deinprogramm-signature")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/distributed-places")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1dajpkj9balqcpv6cdk9hwjz592h1vq8rrx5vncariiac4vbdpa0"))
           (file-name
            (git-file-name "racket-distributed-places" %racket-version)))
        "distributed-places" "distributed-places-doc" "distributed-places-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/draw")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1xgjfbh70hqw67z88iqqajg98d04qwbzn6im2wj47rs28jxlm9ly"))
           (file-name (git-file-name "racket-draw" %racket-version)))
        "draw" "draw-doc" "draw-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/drracket")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0m3l4an3nq2ycd1h287s1az2v2zprjbzd8if2x7d5r71vaj4i00c"))
           (file-name (git-file-name "racket-drracket" %racket-version)))
        "drracket"
        "drracket-plugin-lib"
        "drracket-tool"
        "drracket-tool-doc"
        "drracket-tool-lib"
        "drracket-tool-text-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/ds-store")
                 (commit "949ca63dd00522b3ab8aec2d71c543ece8266872")))
           (sha256 (base32
                    "0ajr27kipp4dr1qlisaghsb3h7lhhjwrfw2r79b5myczsa1mp661"))
           (file-name (git-file-name "racket-ds-store" %racket-version)))
        "ds-store" "ds-store-doc" "ds-store-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/eli-tester")
                 (commit "036e07d43a1f478ea1750881d5591d983ce1ffaf")))
           (sha256 (base32
                    "0icx6wn14gjm8kdmq1jppqgq87sxkras4qb5xmdr6wigxafhjqyk"))
           (file-name (git-file-name "racket-eli-tester" %racket-version)))
        ("eli-tester"  "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/eopl")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1fmiixj6rxsgzwvgva8lvrvv0gl49v2405mp3s0i7ipis5c4n27s"))
           (file-name (git-file-name "racket-eopl" %racket-version)))
        ("eopl" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/errortrace")
                 (commit %racket-commit)))
           (sha256 (base32
                    "14m7rhaxngj36070iw15am434hm438pfgmwjfsiqhsglz4pcxhip"))
           (file-name (git-file-name "racket-errortrace"
                                     (package-version (racket-vm-for-system)))))
        "errortrace" "errortrace-doc" "errortrace-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/expeditor")
                 (commit %racket-commit)))
           (sha256 (base32
                    "07djzxs6307l51mcsk3yr2g4g47ayxa3878g7sf5xhqdr4hd9vxf"))
           (file-name (git-file-name "racket-expeditor" %racket-version)))
        "expeditor" "expeditor-doc" "expeditor-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/frtime")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0ydz2yn8vvv6z7brwlswcyx0f31a6y6d443i89rysfvd2xkhpfd5"))
           (file-name (git-file-name "racket-frtime" %racket-version)))
        ("frtime" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/future-visualizer")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1758qq769m0r14xf64sl2ix2l9z340kvapar0j7s5kdg42lmvnhm"))
           (file-name
            (git-file-name "racket-future-visualizer" %racket-version)))
        "future-visualizer" "future-visualizer-pict" "future-visualizer-typed")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/games")

                 (commit %racket-commit)))
           (sha256 (base32
                    "0kpn3izlx1ccd0pj0dnvmnrhny51b85xy418a7psj70lz8j8415d"))
           (file-name (git-file-name "racket-games" %racket-version)))
        ("games" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/gui")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1x33jgrx3r32k7hgwr591z3xqv1m2r5nc4km2fnxv0ak2xa0j3gj"))
           (patches
            ;; remove in Racket 8.5
            ;; see https://github.com/racket/racket/issues/4133
            (search-patches "racket-gui-tethered-launcher-backport.patch"))
           (file-name (git-file-name "racket-gui" %racket-version)))
        "gui" "gui-doc" "gui-lib" "tex-table")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/gui-pkg-manager")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1ji9448d723nklqvycwdswj0ni28sabrncag14f9mx47did5myb5"))
           (file-name
            (git-file-name "racket-gui-pkg-manager" %racket-version)))
        "gui-pkg-manager-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/htdp")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0r4ykybcpr10y2db9rlza9pr0xh58nd7ac389mjcxp8g386hgihl"))
           (file-name (git-file-name "racket-htdp" %racket-version)))
        "htdp" "htdp-doc" "htdp-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/html")
                 (commit %racket-commit)))
           (sha256 (base32
                    "18n1jnjgzfknc8nv8dppi85nb8q08gqdwkg6hfjk08x0p00anx2x"))
           (file-name (git-file-name "racket-html" %racket-version)))
        "html" "html-doc" "html-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/icons")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1s5a6j11fg3fdr6b7vm2q7q178d7q8b8igy73bs211r27qrd1gg7"))
           (file-name (git-file-name "racket-icons" %racket-version)))
        ("icons" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/images")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0rpjxqw34bq5m08kh1ldl1mr7s9z1lyydxxcyzb292kqh9qiqvfl"))
           (file-name (git-file-name "racket-images" %racket-version)))
        "images" "images-doc" "images-gui-lib" "images-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/lazy")
                 (commit %racket-commit)))
           (sha256 (base32
                    "176ylzgbdsbmqknpihaz519afq71pyjkv1h87j5v8jfbpbddyfsf"))
           (file-name (git-file-name "racket-lazy" %racket-version)))
        ("lazy" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/macro-debugger")
                 (commit %racket-commit)))
           (sha256 (base32
                    "14hyrwbkffr61fk44l02xb47bhv5zccw0ymaa9kxld86hvyqhqbm"))
           (file-name (git-file-name "racket-macro-debugger" %racket-version)))
        "macro-debugger" "macro-debugger-text-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/main-distribution")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0m2n9s32s8a4a2gn4ywrm9l8jycdm5ayi5w9kh5wchhrrw7qzq7y"))
           (file-name
            (git-file-name "racket-main-distribution" %racket-version)))
        ("main-distribution" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/make")
                 (commit %racket-commit)))
           (sha256 (base32
                    "10852fj30bz5r46c3d99s37fkgy5yh44gb01j29sf3kxnhi0g2sa"))
           (file-name (git-file-name "racket-make" %racket-version)))
        ("make" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/math")
                 (commit %racket-commit)))
           (sha256 (base32
                    "02sqbnvxvmvslk33b44fx4v93zafcvhva0cx8z21jqbl5wp217ac"))
           (file-name (git-file-name "racket-math" %racket-version)))
        "math" "math-doc" "math-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/mysterx")
                 (commit %racket-commit)))
           (sha256 (base32
                    "11p9jzrafw0hizhl0cs4sxx7rv281185q8hryic2rpk0kzjdyr48"))
           (file-name (git-file-name "racket-mysterx" %racket-version)))
        ("mysterx" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/mzcom")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0rc9pfj7gwm5azghqvcibz6si1x5s2v8mr2yngk7ssq9gzfbi6a4"))
           (file-name (git-file-name "racket-mzcom" %racket-version)))
        ("mzcom" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/mzscheme")
                 (commit %racket-commit)))
           (sha256 (base32
                    "192c52zi726h5wjamxrhivjw2waq1im0zpyxhbrkrxknm8x84bs9"))
           (file-name (git-file-name "racket-mzscheme" %racket-version)))
        "mzscheme" "mzscheme-doc" "mzscheme-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/RenaissanceBug/racket-cookies")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0k0hifxhywl5c3hjcaiizc098dpyk001d981p572gly116yvjxc1"))
           (file-name
            (git-file-name "RenaissanceBug-racket-cookies" %racket-version)))
        "net-cookies" "net-cookies-doc" "net-cookies-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/stamourv/optimization-coach")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0b27sw48d7rhz0hin88c7rbr9vpg1c23sn82nd4jkmq54h6gasr1"))
           (file-name
            (git-file-name "stamourv-optimization-coach" %racket-version)))
        ("optimization-coach" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/option-contract")
                 (commit %racket-commit)))
           (sha256 (base32
                    "026b7n5l0c3024nymshz8zp1yhn493rdzgpflzfd52hj7awafqhk"))
           (file-name
            (git-file-name "racket-option-contract" %racket-version)))
        "option-contract" "option-contract-doc" "option-contract-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/parser-tools")
                 (commit %racket-commit)))
           (sha256 (base32
                    "08pvz4zramirzm3j64hbhjm0mmh5zfy37iv4s3vmq0rj49cr8fl3"))
           (file-name (git-file-name "racket-parser-tools" %racket-version)))
        "parser-tools" "parser-tools-doc" "parser-tools-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/pconvert")
                 (commit %racket-commit)))
           (sha256 (base32
                    "00czi0p399mmyrvxyrs5kniizpkqfxyz2ncxqi2jy79a7wk79pb1"))
           (file-name (git-file-name "racket-pconvert" %racket-version)))
        "pconvert-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/pict")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0g1iwdr6qh1xb0crhj96830vjjnbds409xbpqn7j5sh0ksy6vr5x"))
           (file-name (git-file-name "racket-pict" %racket-version)))
        "pict" "pict-doc" "pict-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/pict-snip")
                 (commit %racket-commit)))
           (sha256 (base32
                    "081nwiy4a0n4f7xws16hqbhf0j3kz5alizndi3nnyr3chm4kng6x"))
           (file-name (git-file-name "racket-pict-snip" %racket-version)))
        "pict-snip" "pict-snip-doc" "pict-snip-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/picturing-programs")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1g6xr39hx1j03gb3d4dljm3v91xcj2gfpq3dgy5xvplzr6cmmxgr"))
           (file-name
            (git-file-name "racket-picturing-programs" %racket-version)))
        ("picturing-programs" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/plai")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0i983sh0r0zm2ng4j44m5aw9669kh5fhp91bzpc9jm280rfcqvyl"))
           (file-name (git-file-name "racket-plai" %racket-version)))
        "plai" "plai-doc" "plai-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/planet")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0r2yqrzrmdjjyr14k6hhlzc5kzrcx3583m1s02mhrcmpfw0s85w9"))
           (file-name (git-file-name "racket-planet" %racket-version)))
        "planet" "planet-doc" "planet-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/plot")
                 (commit %racket-commit)))
           (sha256 (base32
                    "07kq32si34ybcwz8idxxcrzssg8diyrp1nfgkcj0mmvr45321zm7"))
           (file-name (git-file-name "racket-plot" %racket-version)))
        "plot" "plot-compat" "plot-doc" "plot-gui-lib" "plot-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/preprocessor")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1p5aid58ifnjy4xl0ysh85cq39k25661v975jrpk182z3k5621mg"))
           (file-name (git-file-name "racket-preprocessor" %racket-version)))
        ("preprocessor" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/profile")
                 (commit %racket-commit)))
           (sha256 (base32
                    "179i86lyby29nywz60l4vnadi02w8b12h7501nm5h5g4pq9jjmbb"))
           (file-name (git-file-name "racket-profile" %racket-version)))
        "profile" "profile-doc" "profile-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/Metaxal/quickscript")
                 (commit %racket-commit)))
           (sha256 (base32
                    "100g3yqhbjdq06b6l6d72ywsw29awgy8crqg33wj7h12xq07nzcr"))
           (file-name (git-file-name "Metaxal-quickscript" %racket-version)))
        ("quickscript" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/r5rs")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1g3cysj7z88r38vkzvi8g2fb2hn4yg1fdhy5smxw303jxgl3inp6"))
           (file-name (git-file-name "racket-r5rs" %racket-version)))
        "r5rs" "r5rs-doc" "r5rs-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/r6rs")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0b1ymzdp10r0flw2acbidjsh5ma1pm5hy54jss37sxf89z3xbvm4"))
           (file-name (git-file-name "racket-r6rs" %racket-version)))
        "r6rs" "r6rs-doc" "r6rs-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/jeapostrophe/racket-cheat")
                 (commit %racket-commit)))
           (sha256 (base32
                    "06wcj558rzkbl2bwkmikyspya9v1f4iwlzwnwxpkc33h2xapwabr"))
           (file-name
            (git-file-name "jeapostrophe-racket-cheat" %racket-version)))
        ("racket-cheat" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/racklog")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1rgrvwy3kr9b9w5cghsffiv3ly00yfvvzr5xaaw83g1w7yin0mnb"))
           (file-name (git-file-name "racket-racklog" %racket-version)))
        ("racklog" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/rackunit")
                 (commit %racket-commit)))
           (sha256 (base32
                    "057z31rja6h3nabh5b2xgwfrzmlm6h1cv1qcgf3xfy4g2q5dqn5p"))
           (file-name (git-file-name "racket-rackunit" %racket-version)))
        "rackunit"
        "rackunit-doc"
        "rackunit-gui"
        "rackunit-lib"
        "rackunit-plugin-lib"
        "rackunit-typed"
        "schemeunit"
        "testing-util-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/readline")
                 (commit %racket-commit)))
           (sha256 (base32
                    "13kbcn2wchv82d709mw3r8n37bk8iwq0y4kpvm9dbzx0w2pxkfwn"))
           (file-name (git-file-name "racket-readline" %racket-version)))
        "readline" "readline-doc" "readline-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/realm")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0hxcgla08iack54j8v40fj51811chpy66ym2zq76zb52c7kzn0hi"))
           (file-name (git-file-name "racket-realm" %racket-version)))
        ("realm" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/redex")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0vlgxbnbgrlihk1hh5zd6hsc4566ldi4q76f87z5vai54dxkwy2f"))
           (file-name (git-file-name "racket-redex" %racket-version)))
        "redex"
        "redex-benchmark"
        "redex-doc"
        "redex-examples"
        "redex-gui-lib"
        "redex-lib"
        "redex-pict-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/sasl")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0ibh4wb4gn8pggx6gkv4vk4d6rwzn5nrvjibhvkzhaynf6lhb824"))
           (file-name (git-file-name "racket-sasl" %racket-version)))
        "sasl" "sasl-doc" "sasl-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/scheme-lib")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0pcf0y8rp4qyjhaz5ww5sr5diq0wpcdfrrnask7zapyklzx1jx8x"))
           (file-name (git-file-name "racket-scheme-lib" %racket-version)))
        ("scheme-lib" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/scribble")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0rgvnsykrxkah6s5fw1vyp9lxsb4z9w6hgwk5j6wbwjp2gsfczbm"))
           (file-name (git-file-name "racket-scribble" %racket-version)))
        "scribble"
        "scribble-doc"
        "scribble-html-lib"
        "scribble-lib"
        "scribble-text-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/serialize-cstruct-lib")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1rq3n1fa7ldjwx3lrh9ybhig7jlsw1crpzyklbzp3xqdw6jymfnz"))
           (file-name
            (git-file-name "racket-serialize-cstruct-lib" %racket-version)))
        ("serialize-cstruct-lib" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/sgl")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0nkymhdyjrwi5h199j4w5zh7y3x3ai42gsiwxzh0hy7yqrqqg9zv"))
           (file-name (git-file-name "racket-sgl" %racket-version)))
        ("sgl" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/shell-completion")
                 (commit %racket-commit)))
           (sha256 (base32
                    "04m144gy2mp4fiq6rcbf12wjr8mws8k9scfhg9lc38vqppp4lxsj"))
           (file-name
            (git-file-name "racket-shell-completion" %racket-version)))
        ("shell-completion" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/simple-tree-text-markup")
                 (commit %racket-commit)))
           (sha256 (base32
                    "0fyd9gfz6bnv0m1901wv5mnhc05rm8hw9i6ddrqx33hs6qsg2zqr"))
           (file-name
            (git-file-name "racket-simple-tree-text-markup" %racket-version)))
        "simple-tree-text-markup"
        "simple-tree-text-markup-doc"
        "simple-tree-text-markup-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/slatex")
                 (commit "47e1d3e3e33d826bc2b26f9e8998eb235b23a9a5")))
           (sha256 (base32
                    "0pkm2isbbdk63slrbsxcql7rr0wdrw5kapw1xq4ps5k8dhlzv8x0"))
           (file-name (git-file-name "racket-slatex" %racket-version)))
        ("slatex" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/slideshow")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1znv1i2d0610hhy71q932xy7wka00q3q50in1xfnk8ibg7nzkagm"))
           (file-name (git-file-name "racket-slideshow" %racket-version)))
        "slideshow" "slideshow-doc" "slideshow-exe" "slideshow-lib"
        "slideshow-plugin")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/snip")
                 (commit %racket-commit)))
           (sha256 (base32
                    "01r9wc5xr3q3n4yyif6j0a37rgdzmpslxn05k13ksik73b3wj6hj"))
           (file-name (git-file-name "racket-snip" %racket-version)))
        "snip" "snip-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/typed-racket")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1462kj9yswsxbnw71casylzlvhd7cxrml2v9j7rcsnn9hmrqx4vv"))
           (file-name (git-file-name "racket-typed-racket" %racket-version)))
        "source-syntax"
        "typed-racket"
        "typed-racket-compatibility"
        "typed-racket-doc"
        "typed-racket-lib"
        "typed-racket-more")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/srfi")
                 ;; Includes an FSDG fix: return to %racket-commit in 8.5.
                 ;; See <https://github.com/racket/srfi/pull/15>.
                 (commit "7243029b135741ce08ae30f877e2f49a2a460b22")))
           (sha256 (base32
                    "0aqbcdv2dfc2xnk0h6zfi56p7bpwqji8s88qds3d03hhh9k28gvn"))
           ;; Use the relevant version for srfi-doc and srfi-lib,
           ;; since we're using a newer commit than the v8.4 tag.
           (file-name (git-file-name "racket-srfi" "1.1")))
        "srfi" "srfi-doc" "srfi-lib" "srfi-lite-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/string-constants")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1qizjq4n0hzdgdcjjpr94464gsywpsk2g9mnvwzqr7dcqbrsfvn6"))
           (file-name
            (git-file-name "racket-string-constants" %racket-version)))
        "string-constants" "string-constants-doc" "string-constants-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/swindle")
                 (commit %racket-commit)))
           (sha256 (base32
                    "164gdsphjzdl2vv7zxz7dfk9jwax8njpmim6sidm8qz8a8589y67"))
           (file-name (git-file-name "racket-swindle" %racket-version)))
        ("swindle" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/syntax-color")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1vf2fc3qvx8a1igi7swsg8gaqhx786sa0vqxd18xhbsidfgb5ywp"))
           (file-name (git-file-name "racket-syntax-color" %racket-version)))
        "syntax-color" "syntax-color-doc" "syntax-color-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/trace")
                 (commit %racket-commit)))
           (sha256 (base32
                    "070ihla5j796hdarn5wxdwn4xj0xnkm50shgh49jy994mribvhia"))
           (file-name (git-file-name "racket-trace" %racket-version)))
        ("trace" "."))
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/unix-socket")
                 (commit %racket-commit)))
           (sha256 (base32
                    "02dfwas5ynbpyz74w9kwb4wgb37y5wys7svrlmir8k0n9ph9vq0y"))
           (file-name (git-file-name "racket-unix-socket" %racket-version)))
        "unix-socket" "unix-socket-doc" "unix-socket-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/web-server")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1zgb6jl7zx6258ljs8f3lvryrq5n5zpd71dqzr698m92kw3x2pkn"))
           (file-name (git-file-name "racket-web-server" %racket-version)))
        "web-server" "web-server-doc" "web-server-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/wxme")
                 (commit %racket-commit)))
           (sha256 (base32
                    "1qp5gr9gqsakiq3alw6m4yyv5vw4i3hp4y4nhq8vl2nkjmirvn0b"))
           (file-name (git-file-name "racket-wxme" %racket-version)))
        "wxme" "wxme-lib")
       (,(origin
           (method git-fetch)
           (uri (git-reference
                 (url "https://github.com/racket/xrepl")
                 (commit %racket-commit)))
           (sha256 (base32
                    "12zjgsy5zqm3fck3ihg4a70wj56s2cnnjyb4jlfi5nnsfqyrnxg3"))
           (file-name (git-file-name "racket-xrepl" %racket-version)))
        "xrepl" "xrepl-doc" "xrepl-lib")))))