Hi Fulbert,
Fulbert <fulb...@bluewin.ch> writes:
> For this to work though, I just had to correct a typo : add a `comma`
> (to _unquote_, if I'm not wrong) before the `(file-append …`.
> So, for reference :
> ----
> ;; At the top of the file
> (use-modules
> ...
> (ice-9 match))
>
> ;; Replace %desktop-services with this:
> (modify-services %desktop-services
> (console-font-service-type configuration =>
> (map
> (match-lambda
> (("tty3" . f)
> `("tty3" . ,(file-append
> font-terminus
> "/share/consolefonts/ter-128n.psf.gz")))
> ((tty . font) `(,tty . ,font))) configuration)))
> ----
Ah, good catch. HTH!
- John
