From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David AGBO Newsgroups: gmane.emacs.help Subject: Re: Install font for emacs 24.x Date: Thu, 04 Jul 2013 14:47:17 +0200 Message-ID: <51D56ED5.9040204@kernix.com> References: <51D43520.3070307@kernix.com> <17546877-FCE0-4DFB-B80B-8350BE59E833@Web.DE> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1372942062 25986 80.91.229.3 (4 Jul 2013 12:47:42 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 4 Jul 2013 12:47:42 +0000 (UTC) Cc: help-gnu-emacs@gnu.org To: Peter Dyballa Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Jul 04 14:47:43 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 1Uuiwn-0002uG-PD for geh-help-gnu-emacs@m.gmane.org; Thu, 04 Jul 2013 14:47:41 +0200 Original-Received: from localhost ([::1]:37946 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Uuiwn-0001sJ-3T for geh-help-gnu-emacs@m.gmane.org; Thu, 04 Jul 2013 08:47:41 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50414) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuiwV-0001lO-PZ for help-gnu-emacs@gnu.org; Thu, 04 Jul 2013 08:47:27 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UuiwS-0000xL-5d for help-gnu-emacs@gnu.org; Thu, 04 Jul 2013 08:47:23 -0400 Original-Received: from s32.kernix.net ([217.174.198.32]:39710) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UuiwR-0000wt-U4 for help-gnu-emacs@gnu.org; Thu, 04 Jul 2013 08:47:20 -0400 Original-Received: from [192.168.0.56] (kernix-completel [92.103.81.138]) (authenticated bits=0) by s32.kernix.net (8.13.8/8.13.8) with ESMTP id r64ClIwg020069 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Thu, 4 Jul 2013 14:47:18 +0200 User-Agent: Mozilla/5.0 (X11; Linux i686 on x86_64; rv:17.0) Gecko/17.0 Thunderbird/17.0 In-Reply-To: <17546877-FCE0-4DFB-B80B-8350BE59E833@Web.DE> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x (no timestamps) [generic] X-Received-From: 217.174.198.32 X-Content-Filtered-By: Mailman/MimeDel 2.1.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:91933 Archived-At: Thanks for your help Peter, The font is visible with fc-list, I've installed it this way : $> mkdir -p /usr/share/fonts/truetype/custom $> wget=20 "http://cloud.github.com/downloads/andreberg/Meslo-Font/Meslo%20LG%20DZ%2= 0v1.0.zip"=20 $> unzip Meslo\ LG\ DZ\ v1.0 $> mv Meslo\ LG\ DZ\ v1.0/*.ttf /usr/share/fonts/truetype/custom $> fc-cache -f -v I'll try the function and tell you. Le 03/07/2013 19:15, Peter Dyballa a =E9crit : > Am 03.07.2013 um 16:28 schrieb David AGBO: > >> Is there a directive to include at build time, or a new parameter in t= he configuration file, or anything else? > Is your font visible fc-list/fc-match, i.e., is it part of the libfontc= onfig 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 li= st 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 > %-/\_// > (*)(*) > >