guix.scm

;; guix.scm --- GNU Guix package recipe    -*- coding: utf-8 -*-
;;
;; Copyright (C) 2022-2026 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;
;; Author: Artyom V. Poptsov <poptsov.artyom@gmail.com>
;; Created: 17 November 2022
;;
;; This program 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.
;;
;; The program 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 the program.  If not, see <http://www.gnu.org/licenses/>.


;;; Commentary:
;;
;; GNU Guix development package. To use as the basis for a development
;; environment, run:
;;
;;  guix shell -D -f ./guix.scm
;;
;; In the new shell, run:
;;
;;  make
;;
;;; Code:


(use-modules (guix gexp)
             (guix packages)
             (guix licenses)
             (guix git-download)
             (guix build-system gnu)
             (gnu packages autotools)
             (gnu packages base)
             (gnu packages bash)
             (gnu packages tex)
             (gnu packages texlive)
             (gnu packages inkscape)
             (gnu packages fonts)
             (gnu packages perl)
             (gnu packages python-xyz)
             (gnu packages python-build)
             (gnu packages version-control)
             (gnu packages fontutils)
             (gnu packages music))


(define %source-dir (dirname (current-filename)))


(define-public book-sparc
  (package
   (name "book-sparc")
   (version "git")
   (source (local-file %source-dir
                       #:recursive? #t
                       #:select? (git-predicate %source-dir)))
   (build-system gnu-build-system)
   (native-inputs
    (list autoconf
          automake
          bash-minimal
          fontconfig
          git
          inkscape
          lilypond
          perl
          python-pygments
          (texlive-local-tree
           (list texlive-acronym
                 texlive-adjustbox
                 texlive-biblatex
                 texlive-bibtex
                 texlive-bibtexperllibs
                 texlive-bigfoot
                 texlive-chngcntr
                 texlive-circuitikz
                 texlive-collection-langcyrillic
                 texlive-csquotes
                 texlive-fancyvrb
                 texlive-fontspec
                 texlive-framed
                 texlive-glossaries
                 texlive-glossaries-english
                 texlive-glossaries-extra
                 texlive-koma-script
                 texlive-libkpathsea
                 texlive-lilyglyphs
                 texlive-lineno
                 texlive-minted
                 texlive-multirow
                 texlive-pgf
                 texlive-pgfplots
                 texlive-subfiles
                 texlive-svg
                 texlive-t1utils
                 texlive-textpos
                 texlive-tikz-timing
                 texlive-transparent
                 texlive-trimspaces
                 texlive-upquote
                 texlive-xetex
                 texlive-xstring))
          which))
   (inputs (list font-liberation))
   (arguments
    (list #:tests? #f                   ; no tests
          #:phases #~(modify-phases %standard-phases
                       (add-before 'build 'configure-environment
                         (lambda* (#:key inputs make-flags parallel-build? #:allow-other-keys)
                           (use-modules (ice-9 regex)
                                        (srfi srfi-1))
                           (let* ((src (assoc-ref inputs "source"))
                                  (rx  (make-regexp "/gnu/store/(.*)-SPARC"))
                                  (src-hash (match:substring (regexp-exec rx src) 1))
                                  (random-seed
                                   (fold (lambda (ch prev)
                                           (+ (char->integer ch)
                                              prev))
                                         0
                                         (string->list src-hash))))
                             (setenv "RANDOMSEED" (number->string random-seed))
                             (setenv "REPRODUCIBILITY" "yes"))))
                       (replace 'install
                         (lambda _
                           (let ((doc-dir (string-append #$output
                                                         "/share/doc/sparc/")))
                             (mkdir-p doc-dir)
                             (copy-file "sparc.ru.pdf"
                                        (string-append doc-dir
                                                       "sparc.ru.pdf"))
                             (copy-file "sparc.en.pdf"
                                        (string-append doc-dir
                                                       "sparc.en.pdf"))))))))
   (home-page "https://github.com/artyom-poptsov/SPARC")
   (synopsis "Book on combining art and technology")
   (description
    "Science, Programming, Art and Radioelectronics Club (SPARC) is a book that
explains how to combine the topics mentioned in the title to build projects.  The
book can be used to teach programming classes in colleges and to organize
workshops in hackerspaces or other community-driven spaces.  Currently the book
is available in Russian and English.")
   (license cc-by-sa4.0)))

book-sparc

;;; guix.scm ends here.