From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Barton Subject: Re: Using Variable Width Fonts for org-mode and Fixed Width forTabless Date: Wed, 02 Oct 2013 09:28:20 +0100 Message-ID: <524BD924.1010300@wilkesley.net> References: <52443BF4.5070609@wilkesley.net> Reply-To: ian@manor-farm.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:58695) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VRHnI-00062N-Oa for emacs-orgmode@gnu.org; Wed, 02 Oct 2013 04:28:33 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VRHnD-00026r-PE for emacs-orgmode@gnu.org; Wed, 02 Oct 2013 04:28:28 -0400 Received: from mail2.wilkesley.net ([109.74.196.44]:40327 helo=li40-130.members.linode.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VRHnD-00026c-Fu for emacs-orgmode@gnu.org; Wed, 02 Oct 2013 04:28:23 -0400 Received: from scamper2.bantercat.co.uk (unknown [46.33.134.31]) (Authenticated sender: lists@wilkesley.net) by li40-130.members.linode.com (Postfix) with ESMTPSA id 8304FA8004 for ; Wed, 2 Oct 2013 09:28:21 +0100 (BST) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org On 27/09/13 08:19, Alan Schmitt wrote: > Hi Ian, > > lists@wilkesley.net writes: > >> I am struggling to get this to work. In my init files I have: >> >> (set-default-font "DejaVu Serif Italic") >> >> I have followed the advice on StackOverflow >> http://stackoverflow.com/questions/3758139/variable-pitch-for-org-mode-fixed-pitch-for-tables >> and customized my Init file to include: >> >> (set-face-attribute 'org-table nil :inherit 'fixed-pitch) >> >> However, table formatting is still screwed up. C-u C-x = shows >> >> xft:-unknown-IM FELL DW >> Pica-normal-italic-normal-*-15-*-*-*-*-0-iso10646-1 (#x29) >> >> Character code properties: customize what to show >> name: LATIN CAPITAL LETTER F >> general-category: Lu (Letter, Uppercase) >> decomposition: (70) ('F') >> >> There are text properties here: >> face org-table >> fontified t >> line-prefix [Show] >> wrap-prefix [Show] >> >> I have tried setting the font for org-table using Emacs Customize >> Interface, but without any success. Ideally I want tables to use a >> monospace font like Inconsolata or DejaVu mono. Can anyone provide an >> example of how to set org-table to use a specified fixed width font. > > I've played a little with this, and here is what I have (straight from > my config file). > > First, I set up the font for variable pitch, and I tell emacs to use it > for text modes. > > ** setup > #+BEGIN_SRC emacs-lisp > (set-face-attribute 'variable-pitch nil :family "Ubuntu") > (set-face-attribute 'variable-pitch nil :height 140) > > (add-hook 'text-mode-hook 'variable-pitch-mode) > #+END_SRC > > Then I set up exceptions for some faces in some modes. I have exceptions > for info, mu4e, and org mode. Here are the ones for org mode. > > ** org > from http://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/ > > #+BEGIN_SRC emacs-lisp > (defun my-adjoin-to-list-or-symbol (element list-or-symbol) > (let ((list (if (not (listp list-or-symbol)) > (list list-or-symbol) > list-or-symbol))) > (require 'cl-lib) > (cl-adjoin element list))) > > (mapc > (lambda (face) > (set-face-attribute > face nil > :inherit > (my-adjoin-to-list-or-symbol > 'fixed-pitch > (face-attribute face :inherit)))) > (list 'org-code 'org-block 'org-table 'org-block-background 'org-date 'org-link 'org-footnote)) > #+END_SRC > > What this says is: use fixed-pitch for the faces in the list at the > end. I have to include dates, links, and footnotes because I use them in > tables and I don't know how to conditionally change a face (i.e., use > fixed-pitch for links in tables but not for links in other places). > > Hopefully this will work for you. > > Alan > Hi Alan, That sort of works. The fonts in org-table, etc are fixed pitch as expected. However, I seem unable to set a variable width font using text-mode-hook. Whatever font I choose Emacs ends up using DejaVu Sans Mono. I have tried several fonts that Emacs should be able to use by listing them with (print (font-family-list)). If I set the font instead using set-default-font org-table, etc claim they are using a fixed pitch font, but they don't look as though they are. Ian.