(defvar smiley-data-directory)
-(defcustom smiley-style 'low-color
+(defcustom smiley-style
+ (if (or (and (fboundp 'face-attribute)
+ (>= (face-attribute 'default :height) 160))
+ (and (fboundp 'face-height)
+ (>= (face-height 'default) 14)))
+ 'medium
+ 'low-color)
"Smiley style."
- :type '(choice (const :tag "small, 3 colors" low-color)
- (const :tag "medium, ~10 colors" medium)
- (const :tag "dull, grayscale" grayscale))
+ :type '(choice (const :tag "small, 3 colors" low-color) ;; 13x14
+ (const :tag "medium, ~10 colors" medium) ;; 16x16
+ (const :tag "dull, grayscale" grayscale));; 14x14
:set (lambda (symbol value)
(set-default symbol value)
(setq smiley-data-directory (smiley-directory))