diff options
| -rw-r--r-- | lib/unicode-tokens.el | 41 |
1 files changed, 40 insertions, 1 deletions
diff --git a/lib/unicode-tokens.el b/lib/unicode-tokens.el index f107de5c..bdc8e303 100644 --- a/lib/unicode-tokens.el +++ b/lib/unicode-tokens.el @@ -46,6 +46,27 @@ (eval-when-compile (require 'maths-menu)) ; nuke compile warnings + +;; +;; Customizable user options +;; + +(defgroup unicode-tokens-options nil + "User options for Unicode Tokens mode." + :prefix "unicode-tokens-") + +(defcustom unicode-tokens-add-help-echo t + "If non-nil, add mouse hover (or minibuffer messages) to show tokens." + :type 'boolean + :group 'unicode-tokens-options) + +(defun unicode-tokens-toggle-add-help-echo () + (interactive) + (customize-set-variable 'unicode-tokens-add-help-echo + (not unicode-tokens-add-help-echo)) + ;; NB: approximate, should refontify all... + (font-lock-fontify-buffer)) + ;; ;; Variables that should be set by client modes ;; @@ -444,7 +465,8 @@ The check is with `char-displayable-p'." (defun unicode-tokens-help-echo () "Return a help-echo text property to display the contents of match string." - (list 'face nil 'help-echo (match-string 0))) + (if unicode-tokens-add-help-echo + (list 'face nil 'help-echo (match-string 0)))) (defvar unicode-tokens-show-symbols nil "Non-nil to reveal symbol (composed) tokens instead of compositions.") @@ -996,6 +1018,13 @@ variables." (defvar unicode-tokens-mode-map (make-sparse-keymap) "Key map used for Unicode Tokens mode.") +(defvar unicode-tokens-display-table + (let ((disptab (make-display-table))) + (set-display-table-slot disptab 'selective-display + (vector ?\ #x0022ef ?\ )) + disptab) + "Display table for Unicode Tokens mode. Alters ellipsis character.") + (define-minor-mode unicode-tokens-mode "Toggle Tokens mode for current buffer. With optional argument ARG, turn Tokens mode on if ARG is @@ -1052,6 +1081,9 @@ Commands available are: (font-lock-fontify-buffer) + ;; experimental: this may be rude for non-nil standard tables + (setq buffer-display-table unicode-tokens-display-table) + (if unicode-tokens-use-shortcuts (set-input-method "Unicode tokens")) @@ -1074,6 +1106,9 @@ Commands available are: (font-lock-fontify-buffer) (set-input-method nil)) + ;; experimental: this may be rude for non-nil standard tables + (setq buffer-display-table nil) + ;; Remove hooks from maths menu (kill-local-variable 'maths-menu-filter-predicate) (kill-local-variable 'maths-menu-tokenise-insert)))) @@ -1317,6 +1352,10 @@ Commands available are: :selected unicode-tokens-use-shortcuts :active unicode-tokens-shortcut-alist :help "Use short cuts for typing tokens"] + ["Add Token Hovers" unicode-tokens-toggle-add-help-echo + :style toggle + :selected unicode-tokens-add-help-echo + :help "Use hover popups (or minibuffer messages) to show underlying tokens"] "---" (cons "Customize" (unicode-tokens-customize-submenu)) |