amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add ggg.

Browse source 
* gnu/packages/image.scm (ggg): New variable.

Signed-off-by: jgart <jgart@dismail.de>
This commit is contained in:
Josep Bigorra 2025-06-24 15:01:11 +02:00 • committed by jgart
parent 31164bc488
commit d1a04765ba
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35
1 changed files with 60 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

60
gnu/packages/image.scm
View file

@ -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")