From 4b3fa6cf6171950d4ed48de736395f8e74c6709f Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 3 Dec 2014 15:39:35 +0000 Subject: Don't rely on cus-edit for the faces --- sx-button.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/sx-button.el b/sx-button.el index f1d7e4d..dbadc2e 100644 --- a/sx-button.el +++ b/sx-button.el @@ -45,6 +45,14 @@ (require 'sx) (require 'sx-question) + +;;; Face +(defface sx-custom-button + '((((type x w32 ns) (class color)) ; Like default mode line + :box (:line-width 2 :style released-button) + :background "lightgrey" :foreground "black")) + "Face used on buttons such as \"Write an Answer\".") + ;;; Command definitions ;; This extends `button-map', which already defines RET and mouse-1. @@ -137,7 +145,7 @@ code-block." 'help-echo (concat "mouse-1, RET" (propertize ": write a comment" 'face 'minibuffer-prompt)) - 'face 'custom-button + 'face 'sx-custom-button 'action #'sx-comment :supertype 'sx-button) @@ -145,7 +153,7 @@ code-block." 'help-echo (concat "mouse-1, RET" (propertize ": write an answer" 'face 'minibuffer-prompt)) - 'face 'custom-button + 'face 'sx-custom-button 'action #'sx-answer :supertype 'sx-button) -- cgit v1.2.3