Function: hfy-sprintf-stylesheet

hfy-sprintf-stylesheet is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-sprintf-stylesheet CSS FILE)

Documentation

Return the inline CSS style sheet for FILE as a string.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
(defun hfy-sprintf-stylesheet (css file)
  "Return the inline CSS style sheet for FILE as a string."
  (let ((stylesheet
         (concat
          hfy-meta-tags
          "\n<style type=\"text/css\"><!-- \n"
          ;; Fix-me: Add handling of page breaks here + scan for ^L
          ;; where appropriate.
          (format "body, pre %s\n" (cddr (assq 'default css)))
          (apply #'concat
                 (mapcar
                  (lambda (style)
                    (format
                     "span.%s   %s\nspan.%s a %s\n"
                     (cadr style) (cddr style)
                     (cadr style) (hfy-link-style (cddr style))))
                  css))
          " --></style>\n")))
    (funcall hfy-page-header file stylesheet)))