03/09/14 17:05
>>96
こんなんでどう?
(defface eelll '((t)) "")
(setq tc-image-button
'((" " " " " ")
(" " " X " " ")
("XXX" "XXX" "XXX")
("XXX" "X X" "XXX")
("XX " "X X" " XX")))
(setq eelll-stroke-to-string-function
(lambda (stroke)
(concat (tc-image-stroke-to-string stroke)
(propertize " " 'display `(space :width ,(/ 5 7.0))))))