diff options
Diffstat (limited to 'guix.scm')
| l---------[-rw-r--r--] | guix.scm | 111 |
1 files changed, 1 insertions, 110 deletions
@@ -1,110 +1 @@ -;;; guix.scm -- Build recipe for GNU Guix. -;;; -;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org> -;;; -;;; This file is part of Skribilo. -;;; -;;; Skribilo 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. -;;; -;;; Skribilo 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 Skribilo. If not, see <http://www.gnu.org/licenses/>. - -(use-modules (gnu) (guix) - (guix profiles) - (guix build-system gnu) - ((guix git-download) #:select (git-predicate)) - (guix licenses) - (srfi srfi-1)) - -(define S specification->package) - -(define skribilo - (package - (name "skribilo") - (version "0.0-git") - (source (local-file "." "skribilo-checkout" - #:recursive? #t - #:select? - (git-predicate (current-source-directory)))) - (build-system gnu-build-system) - (arguments - '(#:phases (modify-phases %standard-phases - (add-after 'unpack 'make-po-files-writable - (lambda _ - (for-each make-file-writable (find-files "po")) - #t))))) - (native-inputs - `(("pkg-config" ,(S "pkg-config")) - ("autoconf" ,(S "autoconf")) - ("automake" ,(S "automake")) - ("gettext" ,(S "gettext")) - ("git" ,(S "git-minimal")))) ;for version numbers - (inputs - `(("guile" ,(S "guile")) - ("imagemagick" ,(S "imagemagick")) ;'convert' - ("ghostscript" ,(S "ghostscript")) ;'ps2pdf' - ("ploticus" ,(S "ploticus")) - ("lout" ,(S "lout")))) - - ;; The 'skribilo' command needs them, and for people using Skribilo as a - ;; library, these inputs are needed as well. - (propagated-inputs - `(("guile-reader" ,(S "guile-reader")) - ("guile-lib" ,(S "guile-lib")))) - - (home-page "https://www.nongnu.org/skribilo/") - (synopsis "Document production tool written in Guile Scheme") - (description - "Skribilo is a free document production tool that takes a structured -document representation as its input and renders that document in a variety of -output formats: HTML and Info for on-line browsing, and Lout and LaTeX for -high-quality hard copies. - -The input document can use Skribilo's markup language to provide information -about the document's structure, which is similar to HTML or LaTeX and does not -require expertise. Alternatively, it can use a simpler, “markup-less” format -that borrows from Emacs' outline mode and from other conventions used in -emails, Usenet and text. - -Lastly, Skribilo provides Guile Scheme APIs.") - (license gpl3+))) - -(define with-guile-2.0 - (package-input-rewriting/spec `(("guile" . ,(const (S "guile@2.0")))) - #:deep? #f)) - -(define with-guile-2.2 - (package-input-rewriting/spec `(("guile" . ,(const (S "guile@2.2")))) - #:deep? #f)) - -(define skribilo/guile-2.2 - (package - (inherit (with-guile-2.2 skribilo)) - (name "guile2.2-skribilo") - ;; Arrange to not trigger a rebuild of Automake & co. - (inputs `(("guile" ,(S "guile@2.2")) - ,@(alist-delete "guile" (package-inputs skribilo)))) - (native-inputs (package-native-inputs skribilo)))) - -(define skribilo/guile-2.0 - (package - (inherit (with-guile-2.0 skribilo)) - (name "guile2.0-skribilo") - (inputs `(("guile" ,(S "guile@2.0")) - ,@(alist-delete "guile" (package-inputs skribilo)))) - (native-inputs (package-native-inputs skribilo)))) - -(packages->manifest (list skribilo/guile-2.0 - skribilo/guile-2.2 - skribilo)) - -;; Comment the following line to build all the variants. -skribilo +.guix/skribilo-package.scm
\ No newline at end of file |