[h-e-w] Re: Resizing a frame's font

[David J. Biesack]

David Vanderschel pointed out to me that my little contribution did not work if 
your font spec contains a wildcard, such as 

    "-*-Lucida Console-normal-r-*-*-18-108-*-*-c-*-*-ansi-"

This patch fixes it.

(defun font-resize (arg)
  "Increase the current frame's default font by ARG.
ARG may be negative to decrease the font size."
  (interactive "p")
  (let ((font (cdr (assoc 'font (frame-parameters))))
        size
        new-font
        new-size)
    (string-match 
"\\(-[^-]*-[^-]+-[^-]*-.-[^-]*-[^-]*-\\)\\([0-9]+\\)\\(-.*\\)$" font)
    (setq size (string-to-int (substring font (match-beginning 2) (match-end 
2))))
    (setq new-size (+ size arg))
    (setq new-font (concat (substring font (match-beginning 1) (match-end 1))
                       (int-to-string new-size)
                       (substring font (match-beginning 3) (match-end 3))))
    (set-default-font new-font)
    (message "Set default font: %s" new-font)))

-- 
David J. Biesack     SAS Institute Inc.
(919) 531-7771       SAS Campus Drive
http://www.sas.com   Cary, NC 27513