gnu: Add julia-gr.

* gnu/packages/julia-xyz.scm (julia-gr-0.41.0): New variable.

gnu/packages/julia-xyz.scm

@@ -22,6 +22,7 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages graphics)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages tls))
 
@@ -1369,3 +1370,48 @@ patterns like @code{nth}, @code{takenth}, @code{groupby}.")
     (description "Geometry primitives and operations building up on
 FixedSizeArrays.")
     (license license:expat)))
+
+(define-public julia-gr
+  (package
+    (name "julia-gr")
+    (version "0.41.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/jheinen/GR.jl")
+             (commit (string-append "v" version))))
+       (file-name "GR")
+       (sha256
+        (base32 "0ciklxny3g3j87z00xf2hlshiy7h5zbdcf9fpwhb8xy6qci61rd1"))))
+    (propagated-inputs `(("gr" ,gr)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'precompile 'build-deps
+           (lambda*
+               (#:key outputs source inputs #:allow-other-keys)
+             (substitute*
+                 (string-append (assoc-ref outputs "out")
+                                "/share/julia/packages/"
+                                (strip-store-file-name source) "/src/GR.jl")
+               (("const libGR = \"libGR.so\"")
+                (string-append "const libGR = \""
+                               (assoc-ref inputs "gr")
+                               "/lib/libGR.so\""))
+               (("const libGR3 = \"libGR3.so\"")
+                (string-append "const libGR3 = \""
+                               (assoc-ref inputs "gr")
+                               "/lib/libGR3.so\""))
+               ((" = grdir")
+                (string-append " = \""
+                               (assoc-ref inputs "gr")
+                               "\"")))
+             #t)))))
+    (build-system julia-build-system)
+    (home-page "https://github.com/jheinen/GR.jl")
+    (synopsis "Plotting for Julia based on GR, a framework for visualisation
+applications")
+    (description "This Julia package provides an interface to the GR
+visualization framework.")
+    (license license:expat)))