diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-06 20:52:42 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 15:48:31 -0200 |
| commit | 706a445f831a7864256bbc375ee0d60be5ce2f6e (patch) | |
| tree | 15670d829bf26f84acc98be3d83fe9ecd8100e61 | |
| parent | f4ef2df13f998b9e30e93ebe7bc9706c562a3d9a (diff) | |
Use defconst for button help-echo's
| -rw-r--r-- | sx-button.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/sx-button.el b/sx-button.el index 4c0666b..2dd20d0 100644 --- a/sx-button.el +++ b/sx-button.el @@ -104,23 +104,29 @@ usually part of a code-block." ;;; Help-echo definitions -(defvar sx-button--help-echo +(defconst sx-button--help-echo (concat "mouse-1, RET" (propertize ": %s -- " 'face 'minibuffer-prompt) "w" (propertize ": copy %s" 'face 'minibuffer-prompt)) "Base help-echo on which others can be written.") -(defvar sx-button--question-title-help-echo +(defconst sx-button--user-help-echo (format sx-button--help-echo - (propertize "hide content" 'face 'minibuffer-prompt) - (propertize "link" 'face 'minibuffer-prompt)) + "visit user page" + "link") + "Help echoed in the minibuffer when point is on a user.") + +(defconst sx-button--question-title-help-echo + (format sx-button--help-echo + "hide content" + "link") "Help echoed in the minibuffer when point is on a section.") -(defvar sx-button--link-help-echo +(defconst sx-button--link-help-echo (format sx-button--help-echo - (propertize "visit %s" 'face 'minibuffer-prompt) - (propertize "URL" 'face 'minibuffer-prompt)) + "visit %s" + "URL") "Help echoed in the minibuffer when point is on a section.") |