Custom font on the console

Custom font on the console

[Cristiano Fagnoli]

Hi to all,

I just started to use guix system, and i'm trying to get used to it; very
first start.

I always use the text console on laptop so i have a little problem setting
a custom font for the console considering the display resolution is
1920x1080 and the default characters are very small to see.

I already read a previuos similar question on this mailing list and i
copied the piece of code for changing the font in the system configuration.

But when i reconfigure i get error and i cannot proceed further.

my config.scm is detailed below and the specific lines of code that gives
error (invalid field specifier) are delimited by the comment " COPIED FROM
MAILING LIST SUGGESTION"

Thank you in advance
- Cristiano



;######### Config.scm

;; This is an operating system configuration generated
;; by the graphical installer.

; da web
(use-modules
 (gnu)
 (ice-9 match))

(use-service-modules desktop networking ssh xorg)



(operating-system
  (locale "en_US.utf8")
  (timezone "Europe/Rome")
  (keyboard-layout (keyboard-layout "it"))
  (host-name "rawmat.net")
  (users (cons* (user-account
                  (name "cris")
                  (comment "")
                  (group "users")
                  (home-directory "/home/cris")
                  (supplementary-groups
                    '("wheel" "netdev" "audio" "video")))
                %base-user-accounts))
  (packages
    (append
      (list (specification->package "nss-certs"))
      %base-packages))


  ;; COPIED FROM MAILING LIST SUGGESTION
  (modify-services %desktop-services
(console-font-service-type configuration =>
   (map
    (match-lambda
     (("tty1" . f)
      `("tty1" . ,(file-append
   font-terminus
   "/share/consolefonts/ter-128n.psf.gz")))
     ((tty . font) `(,tty . ,font))) configuration)))
  ;; COPIED FROM MAILING LIST SUGGESTION


  (services
   (append
    (list (service network-manager-service-type)
          (service wpa-supplicant-service-type))
    %base-services))




  (bootloader
    (bootloader-configuration
      (bootloader grub-bootloader)
      (target "/dev/sda")
      (keyboard-layout keyboard-layout)
      (theme (grub-theme
     (inherit (grub-theme))
     (gfxmode '("1920x1080" "1024x768" "auto"))))))
  (initrd-modules
    (append '("mptspi") %base-initrd-modules))
  (swap-devices
    (list (uuid "12e1e1d2-eb5c-41de-9de9-17846f24c3a4")))
  (file-systems
    (cons* (file-system
             (mount-point "/")
             (device
               (uuid "ec1a963a-ec2a-4df2-8c24-81b92777ba48"
                     'ext4))
             (type "ext4"))
           %base-file-systems)))