xawtv: no font found

[Dmitry Nikolaev]

Hello. I wrote a package file for Xawtv. It builds, but not runs.

$ xawtv
xawtv: Relink `/gnu/store/88wvqp60hbrdvbp0xsqad5c6njjfshcw-libpng-1.6.28/lib/libpng16.so.16' with `/gnu/store/ybpgv1v7606xw7mafda66w10hiynpiw2-glibc-2.25/lib/libpthread.so.0' for IFUNC symbol `longjmp'
xawtv: Relink `/gnu/store/2sq8w3x8glbjlfn22im6nwwycmbdlzws-freetype-2.7.1/lib/libfreetype.so.6' with `/gnu/store/ybpgv1v7606xw7mafda66w10hiynpiw2-glibc-2.25/lib/libpthread.so.0' for IFUNC symbol `longjmp'
This is xawtv-3.103, running on Linux/x86_64 (4.11.12)
vid-open-auto: using grabber/webcam device /dev/video0
Warning: Unable to load any usable ISO8859 font
Warning: Missing charsets in String to FontSet conversion
Error: Aborting: no font found

What should I do to solve this issue? How to tell xawtv about any usable font?

xlsfonts shows plenty of ISO8859 fonts

$ xlsfonts | grep iso8859 | wc -l
1016

By the way. I have same issue with xfontsel programm:

$ xfontsel
Warning: Unable to load any usable ISO8859 font
Warning: Missing charsets in String to FontSet conversion
Error: Aborting: no font found

Here is my xawtv.scm:

(define-module (xawtv)
  #:use-module (guix licenses)
  #:use-module (gnu packages)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages image)
  #:use-module (gnu packages video)
  #:use-module (gnu packages base)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages fontutils)
  #:use-module (guix build-system gnu)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix gexp))

(define-public xawtv
  (package
   (name "xawtv")
   (version "3.103")
   (source (origin
            (method url-fetch)
            (uri (string-append "https://linuxtv.org/downloads/xawtv/xawtv-"
                                version ".tar.bz2"))
            (sha256
             (base32
              "0lnxr3xip80g0rz7h6n14n9d1qy0cm56h0g1hsyr982rbldskwrc"))))
   (arguments
    `(#:phases
      (modify-phases %standard-phases
                     (add-before 'configure 'pre-configure
                                 (lambda _
                                   ;; Don't change the ownership of any file at this time.
                                   (substitute* '("Makefile.in")
                                                ((" -o root") ""))
                                   (substitute* '("configure")
                                                (("/usr/lib/X11") (string-append  %output "/usr/lib/X11")))
                                   #t)))
      #:configure-flags (list "--enable-xft")
      #:tests? #f)) ;no check target
   (build-system gnu-build-system)
   (inputs
    `(("ncurses" ,ncurses)
      ("libjpeg", libjpeg)
      ("alsa-lib" ,alsa-lib)
      ("v4l-utils" ,v4l-utils)
      ("glibc" ,glibc)
      ("libx11" ,libx11)
      ("libxt" ,libxt)
      ("libxaw" ,libxaw)
      ("libxmu" ,libxmu)
      ("libxpm" ,libxpm)
      ("libxext" ,libxext)
      ("libxv" ,libxv)
      ("perl" ,perl)
      ("fontconfig" ,fontconfig)))
   (synopsis "Watch television at the PC")
   (description "Watch television or webcam at the PC")
   (home-page "https://linuxtv.org/")
   (license gpl2)))

Dmitry Nikolaev