Re: Printing fonts

[Giorgos Keramidas]

On Thu, 18 Oct 2007 14:00:56 -0400, jadamson@partners.org (Joel J. Adamson) 
wrote:
> 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?

I'm sure there are probably better ways to do this, but the following
may help:

    (let ((ps-options '("-u\"Joel J. Adamson\""
                        "--ul-font=Times-Roman100")))
      (apply 'concat
             (apply 'append
                    (mapcar (lambda (s)
                              (list s " "))
                            ps-options))))

    => "-u\"Joel J. Adamson\" --ul-font=Times-Roman100 "