(use-modules ((guix licenses) #:prefix license:))
(use-modules (guix packages))
(use-modules (guix build-system gnu))
(use-modules (guix git-download))
(use-modules (guix download))

(use-modules (gnu packages gcc))
(use-modules (gnu packages qt))
(use-modules (gnu packages networking))
(use-modules (gnu packages gtk))
(use-modules (gnu packages gl))
(use-modules (gnu packages image))
(use-modules (gnu packages xorg))

(package
  (name "gr")
  (version "0.39.0")
  (source (origin
	    (method git-fetch)
	    (uri (git-reference
		  (url (string-append
			"https://github.com/jheinen/" name))
		  (commit (string-append "v" version))))
	    (file-name (git-file-name name version))
	    (sha256
	     (base32
	      "1wii7iaqnp6j4dg80v35czsm7yrgl10wrdhigr7x2sjhlz6qjr2r"))
	    (modules '((guix build utils)))))
  (build-system gnu-build-system)
  (arguments
   '(#:parallel-build? #f
     #:phases
     (modify-phases %standard-phases
		    (delete 'configure)
		    (delete 'check)
		    (delete 'validate-runpath)
		    ;; prerequisites: $(THIRDPARTYINCDIR)/include/zmq.h
		    (add-before 'build 'fix-zeromq
		    		(lambda _
		    		  (substitute* "lib/gks/Makefile"
					       (("targets: prerequisites libGKS.a libGKS.so demo gksm plugins gksqt") "targets: libGKS.a libGKS.so demo gksm plugins gksqt"))
				  (substitute* "lib/gr/Makefile"
					       (("	\\@make -C ../gks install")
						""))
				  (substitute* "Makefile"
					       (("install: default") "install:"))
				  (substitute* "lib/Preflight"
					       (("x11path=\"/usr/X11\"")
						(string-append
						 "x11path=\""
						 (assoc-ref %build-inputs "x11")
						 "\""
						 )))
		    		  #t)
)
		    ;; (add-after 'install 'install-gksqt
		    ;; 	       (lambda _
		    ;; 		 (install-file "libs/gks/qt/gksqt"
		    ;; 			       (string-append
		    ;; 				(assoc-ref %outputs "out")
		    ;; 				"/bin/"))
		    ;; 		 #t))
		    )
     #:make-flags
     (list
      ;; gks doesn't get built
      "DIRS= lib/gr lib/gr3 lib/gks"
      "CC=gcc"
      (string-append "GRDIR=" (assoc-ref %outputs "out"))
      )))
  (inputs
   `(("gcc" ,gcc-8)
     ("qt" ,qtbase)
     ("zmq" ,zeromq)
     ("czmq" ,czmq)
     ("cairo" ,cairo)
     ("glfw" ,glfw)
     ("libtiff" ,libtiff)
     ("x11" ,libx11)
     ("xt" ,libxt)
     ))
  (home-page "http://gr-framework.org")
  (synopsis "")
  (description "")
  (license license:expat))