(define-module (termsyn2)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build utils)
  #:use-module (guix build-system font)
  #:use-module (guix licenses))

(define-public font-termsyn2
  (package
    (name "font-termsyn2")
    (version "1.8.7")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "mirror://sourceforge/termsyn/termsyn-" version ".tar.gz"))
       (sha256
        (base32 "15vsmc3nmzl0pkgdpr2993da7p38fiw2rvcg01pwldzmpqrmkpn6"))))
    (build-system font-build-system)
    (arguments
     `(#:modules
       ((srfi srfi-26)
	,@%font-build-system-modules)
       #:phases
       (modify-phases %standard-phases
	 (replace 'install
	   (let* ((out (assoc-ref %outputs "out"))
		  (source (getcwd))
		  (fonts (string-append out "/share/fonts"))
		  (consolefonts (string-append out "/share/kbd/consolefonts")))
	     (for-each (cut install-file <> fonts)
		       (find-files source "\\.(pcf)$"))
	     (for-each (cut install-file <> consolefonts)
		       (find-files source "\\.(psfu)$"))
	     #t)))))
    (synopsis "Hello, Guix world: An example custom Guix package")
    (description
     "GNU Hello prints the message \"Hello, world!\" and then exits.  It
     serves as an example of standard GNU coding practices.  As such, it supports
     command-line arguments, multiple languages, and so on.")
    (home-page "https://www.gnu.org/software/hello/")
    (license gpl3+)))