Making the core fonts work

Making the core fonts work

[Ivan Kozlov]

Hello.

You should know that it is currently non-trivial to make the X.org server use fonts from a profile. You basically have to manually sift through the font files and find their ‘dirname’. The ‘fonts-dir’ union directories that Guix generates and installs into profiles have been useless since forever and in fact only get in the way; this is because the X.org server will not follow symbolic links to font files.

I was reading the Xserver(1) man page and noticed that it supports ‘font catalogue’ directories. They should contain symbolic links to actual font directories that will be added to the font path. This should allow a very nice solution.

Something like this:

(define (fontpath-file manifest)
  (define build
    #~(begin
        (use-modules (srfi srfi-1) (srfi srfi-26) (guix build utils))
        (let* ((top-font-dirs (filter file-exists?
                                      (map (cut string-append <>
                                                "/share/fonts")
                                           '#$(manifest-inputs manifest))))
               (font-dirs (append-map (lambda (dir)
                                        (find-files dir
                                                    (lambda (file stat)
                                                      (and (eq? 'directory (stat:type stat))
                                                           (file-exists? (string-append file "/fonts.dir"))))
                                                    #:directories? #t)) top-font-dirs)))
          (mkdir #$output)
          (chdir #$output)
          (if (null? font-dirs)
              (exit #t)
              (for-each (lambda (dir pri)
                          (symlink dir (string-append (basename dir) ":pri=" pri)))
                        font-dirs
                        (map number->string (iota (length font-dirs) 1)))))))
  (gexp->derivation "fontpath.d" build
                    #:modules '((guix build utils)
                                (srfi srfi-1)
                                (srfi srfi-26))
                    #:local-build? #t
                    #:substitutable? #f
                    #:properties
                    `((type . profile-hook)
                      (hook . fontpath-dir))))

This should be installed somewhere in the profile. Then you set the font path to "catalogue:$HOME/.guix-profile/share/fontpath.d" and everything works like a charm.

I am unqualified to make the actual patch that would add this functionality into Guix.

Re: Making the core fonts work

[Pierre Neidhardt]

[-- Attachment #1: Type: text/plain, Size: 180 bytes --]

Thanks for sharing!

We recently had a discussion about this in bug 38498.
Your insight may prove useful to fix it for good! :)

-- 
Pierre Neidhardt
https://ambrevar.xyz/

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]