;;; Set of htmlize methods that put the css into the span element
;;; directly. This is so that I can post stylized text to livejournal
;;; easily.

;;; Obsolete as of htmlize 1.34 (it has its own better inline-css)

(defun htmlize-inline-css-doctype ()
  (htmlize-css-doctype))

(defun htmlize-inline-css-insert-head (buffer-faces face-map)
  (htmlize-css-insert-head buffer-faces face-map))

(defun htmlize-inline-css-insert-text (text fstruct-list buffer)
  (dolist (fstruct fstruct-list)
    (princ "<span style=\"" buffer)
    (dolist (css-spec (htmlize-css-specs fstruct))
      (princ (format "%s " css-spec) buffer))
    (princ "\">" buffer))
  (princ text buffer)
  (dolist (fstruct fstruct-list)
    (ignore fstruct)			; shut up the byte-compiler
    (princ "</span>" buffer)))