* gnu/packages/java-graphics.scm (java-flatlaf)[arguments]: Add link options. Change-Id: I2306e7ea4c2ca9f0f20eeca107b09fa41304a8df
		
			
				
	
	
		
			357 lines
		
	
	
	
		
			16 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			357 lines
		
	
	
	
		
			16 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2019, 2024 Ricardo Wurmus <rekado@elephly.net>
 | |
| ;;; Copyright © 2023 Frank Pursel <frank.pursel@gmail.com>
 | |
| ;;;
 | |
| ;;; 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 java-graphics)
 | |
|   #:use-module ((guix licenses) #:prefix license:)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix gexp)
 | |
|   #:use-module (guix git-download)
 | |
|   #:use-module (guix modules)
 | |
|   #:use-module (guix utils)
 | |
|   #:use-module (guix build-system ant)
 | |
|   #:use-module (guix build utils)
 | |
|   #:use-module (gnu packages)
 | |
|   #:use-module (gnu packages bash)
 | |
|   #:use-module (gnu packages batik)
 | |
|   #:use-module (gnu packages java)
 | |
|   #:use-module (gnu packages java-xml)
 | |
|   #:use-module (gnu packages xml)
 | |
|   #:use-module (gnu packages xorg)
 | |
|   #:use-module (ice-9 match))
 | |
| 
 | |
| (define-public ditaa
 | |
|   (package
 | |
|     (name "ditaa")
 | |
|     (version "0.11.0")
 | |
|     (source (origin
 | |
|               (method git-fetch)
 | |
|               (uri (git-reference
 | |
|                     (url "https://github.com/stathissideris/ditaa")
 | |
|                     (commit (string-append "v" version))))
 | |
|               (file-name (git-file-name name version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1y3g17wp1wvb05m56pp25avww2njpgh0gk0jsbsf25scj7hyyj26"))
 | |
|               (modules '((guix build utils)))
 | |
|               (snippet '(begin
 | |
|                           (format #t "~%~a~%"
 | |
|                                   "Finding and removing embedded jars.")
 | |
|                           (for-each (lambda (jarf)
 | |
|                                       (delete-file jarf)
 | |
|                                       (format #t "Deleted: ~a~%" jarf))
 | |
|                                     (find-files "." "\\.jar$"))))))
 | |
|     (build-system ant-build-system)
 | |
|     (inputs (list bash-minimal))
 | |
|     (native-inputs (list
 | |
|                     java-commons-cli
 | |
|                     java-jericho-html
 | |
|                     java-junit
 | |
|                     java-libbatik
 | |
|                     java-w3c-svg))
 | |
|     (arguments
 | |
|      `(#:build-target "release-all"
 | |
|        #:phases (modify-phases %standard-phases
 | |
|                   ;; Ant's buildfile and build tree need to be modified
 | |
|                   ;; to provide access to the guix builds of the
 | |
|                   ;; batik and the java-commons-cli
 | |
|                   ;; jar files.  Also some of the source requires java7.
 | |
|                   (add-before 'build 'build-prep
 | |
|                     (lambda* (#:key inputs outputs #:allow-other-keys)
 | |
|                       (let* ((batik-jar
 | |
|                               (search-input-file
 | |
|                                inputs
 | |
|                                "share/java/batik.jar"))
 | |
|                              (commons-cli-jar
 | |
|                               (search-input-file
 | |
|                                inputs
 | |
|                                "lib/m2/commons-cli/commons-cli/1.4/commons-cli-1.4.jar")))
 | |
|                         (mkdir-p "lib")
 | |
|                         (copy-file batik-jar "./lib/batik.jar")
 | |
|                         (copy-file commons-cli-jar "./lib/commons-cli.jar"))
 | |
|                       (with-directory-excursion "build"
 | |
|                         (substitute* "release.xml"
 | |
|                           (("source=\"1.6\"")
 | |
|                            "source=\"7\"")
 | |
|                           (("<file name=\"commons-cli-1.2.jar\"/>")
 | |
|                            (string-append "<file name=\"commons-cli.jar\"/>"
 | |
|                                           "\n" "<file name=\"batik.jar\"/>"))))))
 | |
|                   (replace 'build
 | |
|                     (lambda* _
 | |
|                       (setenv "ANT_OPTS"
 | |
|                               (string-append "-Dversion.string="
 | |
|                                              ,version))
 | |
|                       (with-directory-excursion "build"
 | |
|                         (invoke "ant" "-f" "release.xml" "release-jar"))))
 | |
|                   (replace 'check
 | |
|                     (lambda* (#:key tests? #:allow-other-keys)
 | |
|                       (if tests?
 | |
|                           (begin
 | |
|                             (setenv "ANT_OPTS"
 | |
|                                     (string-append "-Dversion.string="
 | |
|                                                    ,version))
 | |
|                             (mkdir-p "tests/testlib")
 | |
|                             (with-directory-excursion "build"
 | |
|                               (invoke "ant" "-f" "release.xml"
 | |
|                                       "generate-test-images")
 | |
|                               (invoke "ant" "test"))) #f)))
 | |
|                   (replace 'install
 | |
|                     (lambda* (#:key inputs outputs #:allow-other-keys)
 | |
|                       (let* ((out (assoc-ref outputs "out"))
 | |
|                              (lib (string-append out "/lib"))
 | |
|                              (bin (string-append out "/bin"))
 | |
|                              (bash (search-input-file inputs "bin/bash"))
 | |
|                              (java (search-input-file inputs "bin/java"))
 | |
|                              (jre (search-input-directory inputs "jre"))
 | |
|                              (ditaa (string-append out "/bin/ditaa"))
 | |
|                              (jar-name (string-append ,name
 | |
|                                                       ,version ".jar")))
 | |
|                         (with-directory-excursion "releases"
 | |
|                           (install-file jar-name lib))
 | |
|                         (mkdir-p bin)
 | |
|                         (with-output-to-file ditaa
 | |
|                           (lambda _
 | |
|                             (format #t
 | |
|                                     "#!~a~%JAVA_HOME=~a ~a -jar ~a/~a $@~%"
 | |
|                                     bash
 | |
|                                     jre
 | |
|                                     java
 | |
|                                     lib
 | |
|                                     jar-name)))
 | |
|                         (chmod ditaa #o755))))
 | |
|                   (add-after 'install 'install-docs
 | |
|                     (lambda* (#:key outputs #:allow-other-keys)
 | |
|                       (let ((doc (string-append (assoc-ref outputs "out")
 | |
|                                                 "/share/doc/")))
 | |
|                         (for-each (lambda (filen)
 | |
|                                     (install-file filen doc))
 | |
|                                   (find-files "." ".*README\\.md"))))))))
 | |
|     (home-page "https://github.com/stathissideris/ditaa")
 | |
|     (synopsis "Create graphics from ascii art")
 | |
|     (description
 | |
|      "ditaa is a small command-line utility that converts diagrams drawn using
 | |
| ascii art drawings that contain characters that resemble lines like @samp{|}
 | |
| @samp{/} @samp{-}), into proper bitmap graphics.")
 | |
|     (license license:lgpl3)))
 | |
| 
 | |
| (define-public java-flatlaf
 | |
|   (package
 | |
|     (name "java-flatlaf")
 | |
|     (version "3.4.1")
 | |
|     (source (origin
 | |
|               (method git-fetch)
 | |
|               (uri (git-reference
 | |
|                     (url "https://github.com/JFormDesigner/FlatLaf")
 | |
|                     (commit version)))
 | |
|               (file-name (git-file-name name version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1qr7g8s5m89q5k31mnxk18lflz3l2hid4i055mim3b0m4vjs40pi"))
 | |
|               (modules '((guix build utils)))
 | |
|               (snippet
 | |
|                '(for-each
 | |
|                  delete-file
 | |
|                  (find-files "flatlaf-core/src/main/resources/com/formdev/flatlaf/natives/"
 | |
|                              ".*")))))
 | |
|     (build-system ant-build-system)
 | |
|     (arguments
 | |
|      (list
 | |
|       #:tests? #false                   ;XXX requires junit5
 | |
|       #:jar-name "flatlaf.jar"
 | |
|       #:source-dir '(list "flatlaf-core/src/main/java")
 | |
|       #:test-dir '(list "flatlaf-core/src/test")
 | |
|       #:phases
 | |
|       #~(modify-phases %standard-phases
 | |
|           (add-before 'configure 'build-native-code
 | |
|             (lambda* (#:key inputs #:allow-other-keys)
 | |
|               (let* ((jdk (assoc-ref inputs "jdk"))
 | |
|                      (suffix #$(match (%current-system)
 | |
|                                  ("i686-linux" "i686")
 | |
|                                  ("armhf-linux" "armhf")
 | |
|                                  ("aarch64-linux" "aarch64")
 | |
|                                  ("x86_64-linux" "x86_64")
 | |
|                                  (_ "generic")))
 | |
|                      (lib #$(match (%current-system)
 | |
|                               ("i686-linux"
 | |
|                                "/lib/i386")
 | |
|                               ("x86_64-linux"
 | |
|                                "/lib/amd64")
 | |
|                               ("armhf-linux"
 | |
|                                "/lib/arm")
 | |
|                               ("aarch64-linux"
 | |
|                                "/lib/aarch64")
 | |
|                               ("powerpc-linux"
 | |
|                                "/lib/ppc")
 | |
|                               ;; We need a catch-all, dropping
 | |
|                               ;; '-linux' works in most cases.
 | |
|                               (_
 | |
|                                (string-append
 | |
|                                 "/lib/"
 | |
|                                 (string-drop-right
 | |
|                                  (%current-system) 6)))))
 | |
|                      (filename
 | |
|                       (string-append "libflatlaf-linux-" suffix ".so"))
 | |
|                      (target-dir
 | |
|                       (string-append (getcwd)
 | |
|                                      "/flatlaf-core/src/main/resources/com/formdev/flatlaf/natives")))
 | |
|                 (with-directory-excursion "flatlaf-natives/flatlaf-natives-linux/"
 | |
|                   (invoke "gcc" "-shared" "-O3" "-fPIC"
 | |
|                           "src/main/cpp/ApiVersion.cpp"
 | |
|                           "src/main/cpp/X11WmUtils.cpp"
 | |
|                           "-Isrc/main/headers"
 | |
|                           "-ljawt"
 | |
|                           (string-append "-L" jdk lib)
 | |
|                           (string-append "-I" jdk "/include")
 | |
|                           (string-append "-I" jdk "/include/linux")
 | |
|                           "-o" filename)
 | |
|                   (install-file filename target-dir)))))
 | |
|           (add-before 'build 'copy-resources
 | |
|             (lambda _
 | |
|               (copy-recursively "flatlaf-core/src/main/resources"
 | |
|                                 "build/classes"))))))
 | |
|     (inputs (list libx11 libxt))
 | |
|     (home-page "https://www.formdev.com/flatlaf/")
 | |
|     (synopsis "Flat Look and Feel for Java Swing applications")
 | |
|     (description "FlatLaf is a cross-platform Look and Feel for Java Swing
 | |
| desktop applications.  It looks almost flat (no shadows or gradients), clean,
 | |
| simple and elegant.  FlatLaf comes with Light, Dark, IntelliJ and Darcula
 | |
| themes, scales on HiDPI displays and runs on Java 8 or newer.
 | |
| 
 | |
| The look is heavily inspired by Darcula and IntelliJ themes from IntelliJ IDEA
 | |
| 2019.2+ and uses almost the same colors and icons.")
 | |
|     (license license:asl2.0)))
 | |
| 
 | |
| (define-public java-flatlaf-intellij-themes
 | |
|   (package
 | |
|     (inherit java-flatlaf)
 | |
|     (name "java-flatlaf-intellij-themes")
 | |
|     (arguments
 | |
|      (list
 | |
|       #:tests? #false                   ;there are none
 | |
|       #:jar-name "flatlaf-intellij-themes.jar"
 | |
|       #:source-dir '(list "flatlaf-intellij-themes/src/main/java")
 | |
|       #:phases
 | |
|       #~(modify-phases %standard-phases
 | |
|           (add-before 'build 'copy-resources
 | |
|             (lambda _
 | |
|               (copy-recursively "flatlaf-intellij-themes/src/main/resources"
 | |
|                                 "build/classes"))))))
 | |
|     (inputs (list java-flatlaf))
 | |
|     (synopsis "FlatLaf addon with popular themes")
 | |
|     (description "This addon for FlatLaf bundles many popular third party
 | |
| themes from JetBrains Plugins Repository into a JAR and provides Java classes
 | |
| to use them.")))
 | |
| 
 | |
| (define-public java-piccolo2d-core
 | |
|   (package
 | |
|     (name "java-piccolo2d-core")
 | |
|     (version "3.0.1")
 | |
|     (source (origin
 | |
|               (method git-fetch)
 | |
|               (uri (git-reference
 | |
|                     (url "https://github.com/piccolo2d/piccolo2d.java")
 | |
|                     (commit (string-append "piccolo2d-complete-" version))))
 | |
|               (file-name (git-file-name name version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "1k6gw643k83516lcw04mgac2yi75phdrng44pz9xk6hz066ip21s"))))
 | |
|     (build-system ant-build-system)
 | |
|     (arguments
 | |
|      `(#:jar-name "piccolo2d-core.jar"
 | |
|        #:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (add-after 'unpack 'chdir
 | |
|            (lambda _ (chdir "core") #t)))))
 | |
|     (inputs
 | |
|      (list java-junit))
 | |
|     (home-page "http://piccolo2d.org")
 | |
|     (synopsis "Structured 2D graphics framework")
 | |
|     (description "Piccolo2D is a framework (in the Jazz ZUI tradition) to
 | |
| create robust, full-featured graphical applications in Java, with features
 | |
| such as zooming and multiple representation.  This package provides the core
 | |
| libraries.")
 | |
|     (license license:bsd-3)))
 | |
| 
 | |
| (define-public java-piccolo2d-extras
 | |
|   (package (inherit java-piccolo2d-core)
 | |
|     (name "java-piccolo2d-extras")
 | |
|     (arguments
 | |
|      `(#:jar-name "piccolo2d-extras.jar"
 | |
|        #:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (add-after 'unpack 'chdir
 | |
|            (lambda _ (chdir "extras") #t))
 | |
|          (add-after 'chdir 'remove-failing-test
 | |
|            (lambda _
 | |
|              ;; TODO: These both fail with "Unable to convolve src image"
 | |
|              (delete-file "src/test/java/org/piccolo2d/extras/nodes/PShadowTest.java")
 | |
|              (delete-file "src/test/java/org/piccolo2d/extras/util/ShadowUtilsTest.java")
 | |
|              #t))
 | |
|          (add-before 'check 'start-xorg-server
 | |
|            (lambda* (#:key inputs #:allow-other-keys)
 | |
|              ;; The test suite requires a running X server.
 | |
|              (system "Xvfb :1 -screen 0 640x480x24 &")
 | |
|              (setenv "DISPLAY" ":1")
 | |
|              #t)))))
 | |
|     (inputs
 | |
|      (list java-piccolo2d-core java-junit))
 | |
|     (native-inputs
 | |
|      (list xorg-server)) ; for tests
 | |
|     (description "Piccolo2D is a framework (in the Jazz ZUI tradition) to
 | |
| create robust, full-featured graphical applications in Java, with features
 | |
| such as zooming and multiple representation.  This package provides additional
 | |
| features not found in the core libraries.")))
 | |
| 
 | |
| (define-public java-marlin-renderer
 | |
|   (package
 | |
|     (name "java-marlin-renderer")
 | |
|     (version "0.9.4.8")
 | |
|     (source (origin
 | |
|               (method git-fetch)
 | |
|               (uri (git-reference
 | |
|                     (url "https://github.com/bourgesl/marlin-renderer")
 | |
|                     (commit (string-append "v" (string-map (match-lambda
 | |
|                                                              (#\. #\_)
 | |
|                                                              (c c))
 | |
|                                                            version)))))
 | |
|               (file-name (git-file-name name version))
 | |
|               (sha256
 | |
|                (base32
 | |
|                 "0gcqp9iq0j5n08gdssh8gp0daj3n5zrx0dll1l4ljhbj2b9jm9ym"))))
 | |
|     (build-system ant-build-system)
 | |
|     (arguments
 | |
|      (list
 | |
|       #:jar-name "marlin.jar"
 | |
|       #:test-include '(list "src/test/java/RunJUnitTest.java")
 | |
|       #:phases
 | |
|       '(modify-phases %standard-phases
 | |
|          (add-before 'build 'copy-resources
 | |
|            (lambda _
 | |
|              (copy-recursively "src/main/resources" "build/classes"))))))
 | |
|     (inputs
 | |
|      (list java-hamcrest-core java-junit))
 | |
|     (home-page "https://github.com/bourgesl/marlin-renderer/")
 | |
|     (synopsis "Rendering engine")
 | |
|     (description "Marlin is a Java2D @code{RenderingEngine} optimized for
 | |
| performance (improved memory usage and footprint, better multi-threading) and
 | |
| better visual quality based on OpenJDK's @code{pisces} implementation.  It
 | |
| handles shape rendering (@code{Graphics2D} @code{draw(Shape)} /
 | |
| @code{fill(Shape)} with stroke and dash attributes.")
 | |
|     ;; With Classpath Exception
 | |
|     (license license:gpl2)))
 |