Skip to content

Instantly share code, notes, and snippets.

@Ramarren
Created August 23, 2009 20:09
Show Gist options
  • Save Ramarren/173438 to your computer and use it in GitHub Desktop.
Save Ramarren/173438 to your computer and use it in GitHub Desktop.
;; remove bolding from autodoc messages
;; workaround for http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=3285
(defface font-lock-type-face-no-bold
'((t :inherit font-lock-type-face :weight normal))
"Non-bolded version of font-lock-type-face"
:group 'font-lock-faces)
(defface font-lock-keyword-face-no-bold
'((t :inherit font-lock-keyword-face :weight normal))
"Non-bolded version of font-lock-keyword-face"
:group 'font-lock-faces)
(defface font-lock-function-name-face-no-bold
'((t :inherit font-lock-function-name-face :weight normal))
"Non-bolded version of font-lock-function-name-face"
:group 'font-lock-faces)
(defface font-lock-variable-name-face-no-bold
'((t :inherit font-lock-variable-name-face :weight normal))
"Non-bolded version of font-lock-variable-name-face"
:group 'font-lock-faces)
(defface font-lock-warning-face-no-bold
'((t :inherit font-lock-warning-face :weight normal))
"Non-bolded version of font-lock-warning-face"
:group 'font-lock-faces)
(defadvice slime-fontify-string (after no-bold)
"Remove bolding from autodoc messages"
(lexical-let ((replacements '((font-lock-type-face . font-lock-type-face-no-bold)
(font-lock-keyword-face . font-lock-keyword-face-no-bold)
(font-lock-function-name-face . font-lock-function-name-face-no-bold)
(font-lock-variable-name-face . font-lock-variable-name-face-no-bold)
(font-lock-warning-face . font-lock-warning-face-no-bold)))
(start 0)
(end 0)
(current-face (get-text-property 0 'face ad-return-value)))
(loop until (= end (length ad-return-value))
do
(setq start end)
(setq end (or (next-single-property-change start 'face ad-return-value)
(length ad-return-value)))
(when-let (r (assoc current-face replacements))
(put-text-property start end 'face (cdr r) ad-return-value))
(when (< end (length ad-return-value))
(setq current-face (get-text-property end 'face ad-return-value))))))
(ad-activate 'slime-fontify-string)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment