Re: Printing fonts

[Joel J. Adamson]

jadamson@partners.org (Joel J. Adamson) writes:

[...]


> I only discovered enscript after writing my initial message.

Here's a little function to do the hard work, suggestions welcome:


(defun my-print-buffer (font)
  (interactive "sFont: ")
  (let ((cmd-string
         (format "enscript -u\"Joel J. Adamson\" --ul-font=Times-Roman100 
--ul-style=filled -f%s -G --style=a2ps" font))) ;include page title of current 
buffer
    (shell-command-on-region
     (point-min) (point-max) cmd-string)))

Can I split that string across lines?  The comment is really a TODO; I
tried inserting a page header like in a2ps, but "-b%s" corresponding
to (buffer-name (current-buffer)) didn't work.

Thanks,
Joel

-- 
Joel J. Adamson
Biostatistician
Pediatric Psychopharmacology Research Unit
Massachusetts General Hospital
Boston, MA  02114
(617) 643-1432
(303) 880-3109