| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | |
| 9 | |
| 10 | |
| 11 | |
| 12 | |
| 13 | |
| 14 | |
| 15 | |
| 16 | |
| 17 | |
| 18 | |
| 19 |
|
| 20 | (define-module (gnu packages diagram)
|
| 21 | #:use-module (guix packages)
|
| 22 | #:use-module (guix build-system gnu)
|
| 23 | #:use-module (guix download)
|
| 24 | #:use-module (guix git-download)
|
| 25 | #:use-module (guix gexp)
|
| 26 | #:use-module (guix utils)
|
| 27 | #:use-module ((guix licenses) #:prefix license:))
|
| 28 |
|
| 29 | (define-public pikchr
|
| 30 | (let ((commit "a7f1c35bc0448daf")
|
| 31 | (revision "1")) |
| 32 | (package
|
| 33 | (name "pikchr")
|
| 34 | |
| 35 | (version (string-append revision "-" (string-take commit 5)))
|
| 36 | (source (origin
|
| 37 | (method url-fetch)
|
| 38 | (uri (string-append "https://pikchr.org/home/tarball/" commit
|
| 39 | "/pikchr.tar.gz"))
|
| 40 | (file-name (string-append "pikchr-" version ".tar.gz"))
|
| 41 | (sha256
|
| 42 | (base32
|
| 43 | "06sx7mc6g79i8gvqczl1mlky9z6r23nbpmmlypjziiiv1mmmc9ad"))))
|
| 44 | (build-system gnu-build-system)
|
| 45 | (arguments
|
| 46 | (list #:tests? #f |
| 47 | #:make-flags #~(list (string-append "CC=" #$(cc-for-target)))
|
| 48 | #:phases
|
| 49 | #~(modify-phases %standard-phases
|
| 50 | (delete 'bootstrap)
|
| 51 | (delete 'configure)
|
| 52 | (replace 'install
|
| 53 | (lambda* (#:key outputs #:allow-other-keys)
|
| 54 | (let* ((out (assoc-ref outputs "out"))
|
| 55 | (bin (string-append out "/bin")))
|
| 56 | (install-file "pikchr" bin)))))))
|
| 57 | (home-page "https://pikchr.org")
|
| 58 | (synopsis "Markup language for diagrams in technical documentation")
|
| 59 | (description
|
| 60 | "Pikchr (pronounced @emph{picture}) is a PIC-like markup language for
|
| 61 | diagrams in technical documentation. Pikchr is designed to be embedded in
|
| 62 | fenced code blocks of Markdown or similar mechanisms of other documentation
|
| 63 | markup languages.")
|
| 64 | (license license:bsd-0))))
|
| 65 |
|
| 66 | (define-public dpic
|
| 67 | (let ((commit "1354b63eb7120e5d0d40855c18d69e413a636ef2")
|
| 68 | (revision "0"))
|
| 69 | (package
|
| 70 | (name "dpic")
|
| 71 | (version (git-version "2025.08.01" revision commit))
|
| 72 | (home-page "https://gitlab.com/aplevich/dpic")
|
| 73 | (source
|
| 74 | (origin
|
| 75 | (method git-fetch)
|
| 76 | (uri (git-reference
|
| 77 | (url (string-append home-page ".git"))
|
| 78 | (commit commit)))
|
| 79 | (file-name (git-file-name name version))
|
| 80 | (sha256
|
| 81 | (base32 "00r4dqwmlbpbb7kshprp9n29cmb8vxy345xqpzlba6bnw5vrgpv9"))))
|
| 82 | (build-system gnu-build-system)
|
| 83 | (arguments
|
| 84 | (list
|
| 85 | #:tests? #f
|
| 86 | #:make-flags
|
| 87 | #~(list (string-append "CC=" #$(cc-for-target))
|
| 88 | (string-append "DESTDIR=" #$output))))
|
| 89 | (synopsis "Implementation of the pic language")
|
| 90 | (description
|
| 91 | "Dpic is an implementation of the pic \"little language\" for creating
|
| 92 | line drawings and illustrations for documents, web pages, and other
|
| 93 | uses.")
|
| 94 | (license (list license:bsd-2 license:cc-by3.0 license:lppl1.3c)))))
|