Re: Changing the default font on the fly

[Thien-Thi Nguyen]

() Eddie <penguinismo@almostconnecticut.net>
() Sat, 23 Jun 2012 18:50:09 -0400

   (set-frame-font
       "-unknown-Droid Sans
   Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1")

   and

   (set-frame-font
       "-unknown-Carmina Md
   BT-normal-normal-normal-*-*-*-*-*-*-0-iso10646-1")

These are expressions.  You can make them commands (one of which
you already know: ‘typopunct-mode’) by placing a:

 ;; -*- emacs-lisp -*-
 (defun COMMAND-NAME () DOCSTRING (interactive) EXPRESSION)

in ~/.emacs (or rather, two of them).  For example:

 (defun use-droid-font ()
   "Set the frame font to Droid Sans Mono."
   (interactive)
   (set-frame-font "-unknown-Droid Sans 
Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1"))

 (defun use-carmina-font ()
   "Set the frame font to Carmina Md BT."
   (interactive)
   (set-frame-font "-unknown-Carmina Md 
BT-normal-normal-normal-*-*-*-*-*-*-0-iso10646-1"))

Lastly, make keybindings to taste and you are done, and can demonstrably
call yourself a programmer.  Welcome, a world of bug creation awaits!