;; ;;;; Some fonts I like
;; ;;; Time-stamp: <2006-11-05 20:44:28 jcgs>

;; (defun x-font-small-windows ()
;;   (interactive)
;;   ;; use (win32-select-font) to choose fonts on ntemacs
;;   (if (and (eq window-system 'windows-nt) (fboundp 'set-default-font))
;;       (progn
;; 	(set-default-font "-*-Terminal-normal-r-*-*-8-60-*-*-c-*-*-oem-")
;; 	(redraw-display))))

;; (defun x-font-tiny ()
;;   (interactive)
;;   (if (and (eq window-system 'x) (fboundp 'x-set-font))
;;       (progn
;; 	(x-set-font "-*-*-*-r-*-*-*-60-*-*-*-40-*-*")
;; 	(redraw-display))))

;; (defun x-font-large ()
;;   (interactive)
;;   (if (and (eq window-system 'x) (fboundp 'x-set-font))
;;       (progn
;; 	(x-set-font "-schumacher-clean-bold-r-*-*-*-120-*-*-*-80-*-*")
;; 	(redraw-display))))

;; (defun x-font-normal ()
;;   (interactive)
;;   (if (and (eq window-system 'x) (fboundp 'x-set-font))
;;       (progn
;; 	(x-set-font "-b&h-lucidatypewriter-medium-r-*-sans-10-*-75-75-m-60-*-*")
;; 	(redraw-display))))

;; (defun x-font-vast ()
;;   (interactive)
;;   (if (and (eq window-system 'x) (fboundp 'x-set-font))
;;       (progn
;; 	(x-set-font "-b&h-*-bold-r-*-*-34-*-*-*-*-200-*-*")
;; 	(redraw-display))))

;; ;; (x-font-normal)

;; ;; (if (eq window-system 'windows-nt) (x-font-small-windows))

;; ;; (if (and (not (eq window-system 'windows-nt)) (fboundp 'set-default-font))
;; ;;    (set-default-font "fixed"))
;; ;; (set-default-font "-*-lucidatypewriter-medium-r-normal-sans-*-70-*-*-m-*-*-*")