;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Copyright © 2025 mstenek <mstenek@disroot.org>

(define-module (nongnu packages julia)
  #:use-module (guix build utils)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (nonguix build-system binary)
  #:use-module ((guix licenses) #:prefix license:))

(define-public julia
  (package
    (name "julia")
    (version "1.11.5")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://julialang-s3.julialang.org/bin/linux/x64/1.11/julia-" version "-linux-x86_64.tar.gz"))
       (sha256
        (base32 "174gzs477spix9pkf0bzvk58k8srq1c3gqd0a41cq812cj68fgkj"))))
    (supported-systems '("x86_64-linux"))
    (build-system binary-build-system)
    (arguments
     (list
      #:validate-runpath? #f
      #:patchelf-plan #~`(("bin/julia")
                          ("libexec/julia/7z")
                          ("libexec/julia/dsymutil")
                          ("libexec/julia/lld"))
      #:phases
      `(modify-phases
           %standard-phases
         (add-after
             'install 'make-wrapper
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (bin (string-append out "/bin"))
                    (program "julia"))
               (with-directory-excursion bin
                 (wrap-program program
                   `("JULIA_LOAD_PATH" ":" prefix
                     ("" "$JULIA_LOAD_PATH"))
                   `("JULIA_DEPOT_PATH" ":" prefix
                     ("" "$JULIA_DEPOT_PATH"))))))))))
    (synopsis "High-performance dynamic language for technical computing")
    (home-page "https://www.julialang.org")
    (description
     "Julia is a high-level, high-performance dynamic programming language for
technical computing, with syntax that is familiar to users of other technicalv
computing environments.  It provides a sophisticated compiler, distributed
parallel execution, numerical accuracy, and an extensive mathematical function
library.")
    (license license:expat)))