;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>

;;;

;;; SPDX-License-Identifier: GPL-3.0-or-later

(define-module (cogd packages fonts))

(use-modules (guix packages)

             (guix hg-download)

             (guix build-system font)

             (guix build utils)

             ((guix licenses) #:prefix license:)

             (guix gexp)

             (gnu packages base)

             (gnu packages fontutils)

             (gnu packages python))

(define-public font-opengost

  (package

    (name "font-opengost")

    (version "0.3")

    ;; The repository is not available since 2020, but archived on

    ;; SWH, which allows guix to perform the resurrection ritual.

    (source

     (origin

       (method hg-fetch)

       (uri (hg-reference (url "https://bitbucket.org/fat_angel/opengostfont")

                          (changeset version)))

       (file-name (hg-file-name name version))

       (sha256

        (base32 "03sqpjdc78mxlcx9lngrwjxqlqblnk0mjc6yi2y4xwzml0s8habi"))))

    (build-system font-build-system)

    (arguments

     (list

      #:phases #~(modify-phases %standard-phases

                   (add-before 'install 'build

                     (lambda _

                       (invoke "2to3" "-w" "genfonts.py")

                       (invoke "make"))))))

    (native-inputs (list coreutils fontforge gnu-make python-wrapper))

    (home-page (string-append

                "https://archive.softwareheritage.org/browse/origin/directory/"

                "?origin_url=https://bitbucket.org/fat_angel/opengostfont"))

    (synopsis "Open-source Russian GOST fonts")

    (description

     "Open-source version of the fonts by Russian standard GOST 2.304-81

\"Letters for drawings\".")

    (license license:silofl1.1)))