Re: Emacs master: different (ugly) font in org-mode [Windows, macOS]

[Protesilaos Stavrou <info@protesilaos.com>]

On 2021-10-04, 21:11 +0200, Angelo Graziosi <angelo.g0@libero.it> wrote:

>> Il 02/10/2021 06:47 Protesilaos Stavrou ha scritto:
>> 
>>  
>> On 2021-10-01, 23:40 +0200, Angelo Graziosi wrote:
>> 
>> > I use JetBrains Mono font in Emacs and in today build from master, the
>> > Org documents display a different ugly (in my opinion) font. See the
>> > fields
>
> [... 34 lines elided]
>
>> This must be because in Org 9.5 those constructs inherit from the
>> 'variable-pitch' face.  The idea behind that is to make the buffer
>> preserve spacing sensitive elements while using M-x variable-pitch-mode.
>> 
>> Please try using something like this:
>> 
>>     (set-face-attribute 'fixed-pitch nil
>>                         :family (face-attribute 'default :family)
>>                         :height (face-attribute 'default :height))
>> 
>
> Just for completeness,
>
> It seems I need those settings only on Windows (10 pro 64) and macOS
> (10.13.6) because on GNU/Linux (with Monospaced font) I do not see the
> issue: those fields ("#+language:", "#+options:" etc.) are rendered
> with the same font! On Windows and macOS, instead, they are rendered
> differently (and ugly!).. On Windows I tried other fonts (Lucida
> Console, Cascadia Code) but with the same ugly results. On macOS the
> font is 'Monaco'.

That may then be due to the default definition of the 'fixed-pitch'
face, which does not find a decent fallback font on all platforms.
Perhaps something like the following specification would be better, but
I have no means of testing it and do not know what the default/generic
monospaced fonts are on other platforms:

    (defface fixed-pitch
      '((((type w32))
         :family "What is the default on MS-Windows?")
        (((type ns))
         :family "What is the default on GNUstep or Macintosh Cocoa?")
        (t :family "Monospace"))
      "The basic fixed-pitch face."
      :group 'basic-faces)

The diff, for those interested:

     lisp/faces.el | 6 +++++-
     1 file changed, 5 insertions(+), 1 deletion(-)

    diff --git a/lisp/faces.el b/lisp/faces.el
    index 7b96d938c5..f1644add12 100644
    --- a/lisp/faces.el
    +++ b/lisp/faces.el
    @@ -2357,7 +2357,11 @@ (defface underline
       :group 'basic-faces)

     (defface fixed-pitch
    -  '((t :family "Monospace"))
    +  '((((type w32))
    +     :family "What is the default on MS-Windows?")
    +    (((type ns))
    +     :family "What is the default on GNUstep or Macintosh Cocoa?")
    +    (t :family "Monospace"))
       "The basic fixed-pitch face."
       :group 'basic-faces)
 
All the best,
Protesilaos

-- 
Protesilaos Stavrou
https://protesilaos.com