Re: :family and :height in set-face-attribute

[Heime <heimeborgia@protonmail.com>]

Sent with Proton Mail secure email.

On Monday, June 24th, 2024 at 12:54 PM, Eli Zaretskii <eliz@gnu.org> wrote:

> > Date: Mon, 24 Jun 2024 10:32:25 +0000
> > From: Heime heimeborgia@protonmail.com
> > 
> > I have the following command working
> > 
> > (buffer-face-mode-invoke
> > `(:family ,face-family :height ,(string-to-number face-height)) t)
> > 
> > But this one does not
> > 
> > (set-face-attribute 'default nil
> > :family face-family :height (string-to-number face-height))
> 
> 
> Works for me. But since you haven't shown the values of face-family
> and face-height, it's hard to tell whether I reproduced what you do.

This is it

(defvar monatt nil
  "A boolean variable that is true by default.")

(defun monfont (face-family face-height)

  (interactive

    (list

      (let ( (cseq '("Wargames" "URW Chancery L" "Century Schoolbook L" "Bold Oblique")) )

        (completing-read " Family Name: " cseq nil t "Bold Oblique"))


      (let ( (hseq '("340" "300" "260" "220" "180")) )

        (completing-read " Face Height: " hseq nil t "180")) ))

  (if monatt

      (buffer-face-mode-invoke

        `(:family ,face-family :height ,(string-to-number face-height)) t)

    (set-face-attribute 'default nil

      :family face-family :height (string-to-number face-height)) ))