diff options
| author | Josep Bigorra <jjbigorra@gmail.com> | 2025-06-24 15:01:11 +0200 |
|---|---|---|
| committer | jgart <jgart@dismail.de> | 2025-06-24 14:14:56 -0400 |
| commit | d1a04765babcc5a87f86f1db4362d5e6675b9929 (patch) | |
| tree | 7fe1734b378270678a5a48f3c41d15a06124623b /gnu/packages/image.scm | |
| parent | 31164bc488dd0fd3ff9c308e893e78b5c6677b6a (diff) | |
gnu: Add ggg.
* gnu/packages/image.scm (ggg): New variable.
Signed-off-by: jgart <jgart@dismail.de>
Diffstat (limited to 'gnu/packages/image.scm')
| -rw-r--r-- | gnu/packages/image.scm | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm index 7ed8a8d4f5..dac4100119 100644 --- a/gnu/packages/image.scm +++ b/gnu/packages/image.scm @@ -39,6 +39,7 @@ ;;; Copyright © 2023-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2023, 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;;; Copyright © 2024 chris <chris@bumblehead.com> +;;; Copyright © 2025 Josep Bigorra <jjbigorra@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -80,6 +81,7 @@ #:use-module (gnu packages gnome) #:use-module (gnu packages graphics) #:use-module (gnu packages gtk) + #:use-module (gnu packages guile) #:use-module (gnu packages imagemagick) #:use-module (gnu packages lua) #:use-module (gnu packages man) @@ -113,6 +115,7 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system cmake) #:use-module (guix build-system copy) + #:use-module (guix build-system guile) #:use-module (guix build-system meson) #:use-module (guix build-system python) #:use-module (guix build-system qt) @@ -1364,6 +1367,63 @@ graphics image formats like PNG, BMP, JPEG, TIFF and others.") (license license:gpl2+) (home-page "https://freeimage.sourceforge.io/"))) +(define-public ggg + (package + (name "ggg") + (version "0.3.6") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://codeberg.org/jjba23/ggg.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0dyqb6p7dyx29nyv1qscin1q5wr0p0kakc4zirvkr1ark0wmslf2")))) + (arguments + `(#:source-directory "src" + #:phases (modify-phases %standard-phases + (add-before 'build 'remove-guix.scm + (lambda _ + (delete-file "guix.scm"))) + (add-before 'build 'remove-dist + (lambda _ + (delete-file-recursively "dist"))) + (add-before 'build 'install-program-files + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") + "/bin")) + (share (string-append (assoc-ref outputs "out") + "/share"))) + (mkdir-p (string-append share "/scripts")) + (mkdir-p (string-append share "/resources")) + (install-file "resources/help.txt" + (string-append share + "/resources/help.txt")) + (copy-recursively "resources/svg-paths" + (string-append share + "/resources/svg-paths")) + (install-file "scripts/ggg" bin) + (install-file "scripts/log.sh" + (string-append share "/scripts/")) + (chmod (string-append bin "/ggg") #o755))))))) + (build-system guile-build-system) + (native-inputs (list guile-3.0)) + (inputs (list guile-3.0)) + (synopsis + "GGG is a SVG image generator for project and web badges") + (description + "GGG (Guile Glyph Generator) is a command-line utility +that allows you to generate pretty images/badges which can be used for +your projects, announcing tech used, sponsoring and appreciating +other projects, distinguishing versions of things supported, etc. + +GGG is highly configurable, reads Scheme files where you define your tasks, +and supports badges between one and three parts. It leverages SVG generation +from Lisp and S-expressions, building pixel perfect badges.") + (home-page "https://codeberg.org/jjba23/ggg") + (license license:agpl3+))) + (define-public vigra (package (name "vigra") |