[htmlize customizations added
clinton@unknownlamer.org**20060908023530] {
addfile ./init.d/htmlize-inline-css.el
hunk ./init.d/htmlize-inline-css.el 1
-
+;;; 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.
+
+(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)))
}