设置emacs htmlize.el为等宽字体

我用emacs的htmlize.el elisp来给代码上色,默认情况下并没有设置成为等宽字体,所以显示上不太好看,为htmlize默认添加输出为等宽字体:

( htmlize-font-pre-tag (face-map)
(let ((fstruct (gethash 'default face-map)))
(format "<pre style="font-family: 'courier new', courier
(htmlize-fstruct-foreground fstruct)
(htmlize-fstruct-background fstruct))))