Function: hfy-face-to-css-default

hfy-face-to-css-default is a byte-compiled function defined in htmlfontify.el.gz.

Signature

(hfy-face-to-css-default FN)

Documentation

Default handler for mapping faces to styles.

See also hfy-face-to-css.

Source Code

;; Defined in /usr/src/emacs/lisp/htmlfontify.el.gz
;; construct an assoc of (stripped-name . "{ css-stuff-here }") pairs
;; from a face:
(defun hfy-face-to-css-default (fn)
  "Default handler for mapping faces to styles.
See also `hfy-face-to-css'."
  ;;(message "hfy-face-to-css");;DBUG
  (let* ((css-list (hfy-face-to-style fn))
         (seen     nil)
         (css-text
          (mapcar
           (lambda (E)
             (if (car E)
                 (unless (member (car E) seen)
                   (push (car E) seen)
                   (format " %s: %s; " (car E) (cdr E)))))
           css-list)))
    (cons (hfy-css-name fn) (format "{%s}" (apply #'concat css-text)))) )