fontsets

[Peter Dyballa]

Hello!

Last night I had no dream -- at least I can only remember the one from  
this morning. But -- I had success!

For a GNU Emacs running under X11 it works to creates fontsets like  
these:

        (create-fontset-from-fontset-spec
         "-*-lucida sans  
typewriter-medium-r-normal-*-11-*-*-*-*-*-fontset- 
lucida_sans_typewriter_11,
          latin-iso8859-1:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-1,
          latin-iso8859-2:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-2,
          latin-iso8859-3:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-3,
          latin-iso8859-4:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-4,
          latin-iso8859-5:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-5,
          latin-iso8859-8:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-8,
          latin-iso8859-9:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-9,
         latin-iso8859-10:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-10,
         latin-iso8859-11:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-11,
         latin-iso8859-13:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-13,
         latin-iso8859-15:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-15,
               iso10646-1:-*-lucida sans  
typewriter-medium-r-*-11-*-iso10646-1" t 'noerror)
;
        (create-fontset-from-fontset-spec
         "-*-lucida sans  
typewriter-medium-r-normal-*-0-*-*-*-*-*-fontset- 
lucida_sans_typewriter_110,
          latin-iso8859-1:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-1,
          latin-iso8859-2:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-2,
          latin-iso8859-3:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-3,
          latin-iso8859-4:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-4,
          latin-iso8859-5:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-5,
          latin-iso8859-8:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-8,
          latin-iso8859-9:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-9,
         latin-iso8859-10:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-10,
         latin-iso8859-11:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-11,
         latin-iso8859-13:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-13,
         latin-iso8859-15:-*-lucida sans  
typewriter-medium-r-*-11-*-iso8859-15,
               iso10646-1:-*-lucida sans  
typewriter-medium-r-*-11-*-iso10646-1" t 'noerror)
;
        (create-fontset-from-fontset-spec
         "-*-bitstream vera sans  
mono-medium-r-normal-*-12-*-*-*-*-*-fontset-vera_sans_mono_12,
          latin-iso8859-1:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-1,
          latin-iso8859-2:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-2,
          latin-iso8859-3:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-3,
          latin-iso8859-4:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-4,
          latin-iso8859-9:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-9,
         latin-iso8859-10:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-10,
         latin-iso8859-13:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-13,
         latin-iso8859-14:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-14,
         latin-iso8859-15:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-15" t 'noerror)
;
        (create-fontset-from-fontset-spec
         "-*-bitstream vera sans  
mono-medium-r-normal-*-0-*-*-*-*-*-fontset-vera_sans_mono_120,
          latin-iso8859-1:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-1,
          latin-iso8859-2:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-2,
          latin-iso8859-3:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-3,
          latin-iso8859-4:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-4,
          latin-iso8859-9:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-9,
         latin-iso8859-10:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-10,
         latin-iso8859-13:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-13,
         latin-iso8859-14:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-14,
         latin-iso8859-15:-*-bitstream vera sans  
mono-medium-r-*-12-*-iso8859-15" t 'noerror)
;;

They are based on TT or PS fonts, so they're scalable from its nature,  
and this obviously works in GNU Emacs too. And there is a difference  
whether you use the scalable size 0 or the scaled size 11 or 12 in the  
fontset-spec. I then decided to create files with the usable fonts and  
fontsets like

(if (string= "x" window-system)
    (progn
      (message "Sind in X11")
      (load "site-fonts-x11.el" t t t)
      (load "site-fontsets-x11.el" t t t)
))

and checked that the carbonized Emacsen return "mac" as their  
window-system, so it's easy to create a switch in .emacs to set up both  
worlds, files with x11 or with aqua in the name.

I still have some problems in the representation of UTF-8 filenames and  
even in the characters inside a buffer of a file that is sufficiently  
described to be

;;; -*- mode: Emacs-Lisp; coding: iso-8859-15-unix; -*-

or

;;; -*- mode: Text; coding: iso-8859-15; -*-

for some fontsets.

I'll try to investigate whether it works in a carbonized Emacs too and  
whether (and how!) it's possible to create a hierarchic menu for fonts  
and fontsets for to see a reasonable choice instead of a pop-up window  
that is a few screens high ...

--
Greetings

  Pete