(require 'showkey)
(push '(font . "Ricty-13") showkey-log-frame-alist)