From: Peter Dyballa <Peter_Dyballa@Web.DE>
To: David AGBO <dagbo@kernix.com>
Cc: help-gnu-emacs@gnu.org
Subject: Re: Install font for emacs 24.x
Date: Wed, 3 Jul 2013 19:15:37 +0200 [thread overview]
Message-ID: <17546877-FCE0-4DFB-B80B-8350BE59E833@Web.DE> (raw)
In-Reply-To: <51D43520.3070307@kernix.com>
Am 03.07.2013 um 16:28 schrieb David AGBO:
> Is there a directive to include at build time, or a new parameter in the configuration file, or anything else?
Is your font visible fc-list/fc-match, i.e., is it part of the libfontconfig based fonts service? Or is the X server providing the font? Is this function (by Miles Bader) showing your font? Is it showing a complete list of fonts?
(defun list-fonts-display (&optional matching)
"Display a list of font-families available via font-config, in a new buffer.
If the optional argument MATCHING is non-nil, only font families
matching that regexp are displayed; interactively, a prefix
argument will prompt for the regexp.
The name of each font family is displayed using that family, as
well as in the default font (to handle the case where a font
cannot be used to display its own name)."
(interactive
(list
(and current-prefix-arg
(read-string "Display font families matching regexp: "))))
(let (families)
(with-temp-buffer
(shell-command "fc-list : family" t)
(goto-char (point-min))
(while (not (eobp))
(let ((fam (buffer-substring (line-beginning-position)
(line-end-position))))
(when (or (null matching) (string-match matching fam))
(push fam families)))
(forward-line)))
(setq families
(sort families
(lambda (x y) (string-lessp (downcase x) (downcase y)))))
(let ((buf (get-buffer-create "*Font Families*")))
(with-current-buffer buf
(erase-buffer)
(dolist (family families)
;; We need to pick one of the comma-separated names to
;; actually use the font; choose the longest one because some
;; fonts have ambiguous general names as well as specific
;; ones.
(let ((family-name
(car (sort (split-string family ",")
(lambda (x y) (> (length x) (length y))))))
(nice-family (replace-regexp-in-string "," ", " family)))
(insert (concat (propertize nice-family
'face (list :family family-name))
" (" nice-family ")"))
(newline)))
(goto-char (point-min)))
(display-buffer buf))))
--
Greetings
Pete 0
%-/\_//
(*)(*)
next prev parent reply other threads:[~2013-07-03 17:15 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-07-03 14:28 Install font for emacs 24.x David AGBO
2013-07-03 17:15 ` Peter Dyballa [this message]
2013-07-04 12:47 ` David AGBO
2013-07-08 10:33 ` David AGBO
2013-07-08 10:44 ` Peter Dyballa
2013-07-08 12:24 ` David AGBO
2013-07-08 12:36 ` Peter Dyballa
2013-07-08 13:19 ` David AGBO
2013-07-08 13:46 ` Peter Dyballa
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=17546877-FCE0-4DFB-B80B-8350BE59E833@Web.DE \
--to=peter_dyballa@web.de \
--cc=dagbo@kernix.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).