From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Peter Dyballa Newsgroups: gmane.emacs.help Subject: Re: Install font for emacs 24.x Date: Wed, 3 Jul 2013 19:15:37 +0200 Message-ID: <17546877-FCE0-4DFB-B80B-8350BE59E833@Web.DE> References: <51D43520.3070307@kernix.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 (Apple Message framework v1085) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1372871758 14546 80.91.229.3 (3 Jul 2013 17:15:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 3 Jul 2013 17:15:58 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: David AGBO Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jul 03 19:15:57 2013 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UuQeq-0007iz-4X for geh-help-gnu-emacs@m.gmane.org; Wed, 03 Jul 2013 19:15:56 +0200 Original-Received: from localhost ([::1]:40578 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuQep-0005D4-El for geh-help-gnu-emacs@m.gmane.org; Wed, 03 Jul 2013 13:15:55 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58143) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuQec-0005Cc-8G for help-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:15:43 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UuQeb-0004UD-1m for help-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:15:42 -0400 Original-Received: from mout.web.de ([212.227.15.14]:53941) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuQea-0004Tm-P5 for help-gnu-emacs@gnu.org; Wed, 03 Jul 2013 13:15:40 -0400 Original-Received: from sumac.fritz.box ([88.153.241.211]) by smtp.web.de (mrweb102) with ESMTPA (Nemesis) id 0M3k8j-1U3ygq2J29-00rGWN; Wed, 03 Jul 2013 19:15:37 +0200 In-Reply-To: <51D43520.3070307@kernix.com> X-Mailer: Apple Mail (2.1085) X-Provags-ID: V03:K0:2CYpcWo3N6Yr5ksuPyVKSS+ilJLpSZnOweS7ZqLI3ai0rxNMJl2 n1f4dXXtVTDPWqmPf5BISER+lwIHEU/QBSgEzgDPvYPFBd3j+ePu/hnGUkj/1OkBKMRa3Xc wBKfQwq0V6oi7oVSzCoL0LPu6mFi3DvKzm7hyvlW2/4FAlL7wfQ/zMWPrnlK6fScwdgcb6U MkgrE9GdxZjbrGOAK9a2Q== X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-Received-From: 212.227.15.14 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:91918 Archived-At: 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?=20 (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 %-/\_// (*)(*)