From: Allan Gottlieb <gottlieb@nyu.edu>
To: help-gnu-emacs@gnu.org
Subject: Re: defining default face
Date: Mon, 08 Sep 2008 14:53:04 -0400 [thread overview]
Message-ID: <yu91vzujwq7.fsf@nyu.edu> (raw)
In-Reply-To: <48C52051.8010307@tqtvd.com> (Rodrigo Canellas's message of "Mon\, 08 Sep 2008 09\:53\:37 -0300")
At Mon, 08 Sep 2008 09:53:37 -0300 Rodrigo Canellas <rodrigo.canellas@tqtvd.com> wrote:
> I used 'set-default-font' to choose
> "-adobe-courier-medium-r-normal--12-120-75-75-m-70-iso8859-1", but I
> do not know how to edit '.emacs' to make it permanent... could anyone
> help me?
The simplest way is probably to use .Xresources (assuming you are
using X). Mine is
*Term*font2: 10x20
*Emacs*font: -bitstream-Bitstream Vera Sans Mono-normal-normal-normal-*-12-*-*-*-m-0-iso10646-1
*Emacs*menuBar: off
*Emacs*toolBar: 0
I also have an overblown method for changing the fonts and by
experimenting have found the right sizes for 1-up, 2-up, 3-up, and
4-up (this depends on the screen res, mine is 2560x1600).
The code below is from my .emacs. I run v23.0.60.
allan
;; Common fonts
;;
(defun ajg-set-font (f)
"Set current and future frames to have font F"
(interactive "sFont name (no quotes): ")
(setq font-dotted-pair (cons 'font f))
(setq default-frame-alist
(cons font-dotted-pair (assq-delete-all 'font default-frame-alist)))
(set-default-font f))
(defun ajg-set-mono-font (size)
"Set bitstream mono SIZE font for this and future frames"
(interactive "sSize of bitstream mono font (no quotes): ")
(ajg-set-font (concat
"-bitstream-Bitstream Vera Sans Mono-normal-normal-normal-*-"
size "-*-*-*-m-0-iso10646-1")))
(defun mono12-font () (interactive nil) (ajg-set-mono-font "12"))
(defun mono14-font () (interactive nil) (ajg-set-mono-font "14"))
(defun mono16-font () (interactive nil) (ajg-set-mono-font "16"))
(defun mono18-font () (interactive nil) (ajg-set-mono-font "18"))
(defun mono20-font () (interactive nil) (ajg-set-mono-font "20"))
(defun mono25-font () (interactive nil) (ajg-set-mono-font "25"))
(defun 4-up-font () (interactive nil) (mono12-font))
(defun 3-up-font () (interactive nil) (mono16-font))
(defun big-font () (interactive nil) (mono16-font))
(defun 2-up-font () (interactive nil) (mono25-font))
(defun huge-font () (interactive nil) (mono25-font))
(defun 1-up-font () (interactive nil) (mono52-font)) ; for a presentation
next prev parent reply other threads:[~2008-09-08 18:53 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-09-08 12:53 defining default face Rodrigo Canellas
2008-09-08 18:53 ` Allan Gottlieb [this message]
[not found] ` <mailman.18749.1220899993.18990.help-gnu-emacs@gnu.org>
2008-09-08 19:03 ` Joost Diepenmaat
2008-09-08 20:42 ` Allan Gottlieb
[not found] ` <mailman.18756.1220906533.18990.help-gnu-emacs@gnu.org>
2008-09-08 22:00 ` Joost Diepenmaat
2008-09-09 3:37 ` Allan Gottlieb
[not found] ` <mailman.18779.1220931446.18990.help-gnu-emacs@gnu.org>
2008-09-09 10:28 ` Joost Diepenmaat
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=yu91vzujwq7.fsf@nyu.edu \
--to=gottlieb@nyu.edu \
--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).