Re: Input method or help feature needed

[Miles Bader <miles@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 283 bytes --]

Kenichi Handa <handa@m17n.org> writes:
> Creating buttons for each character naively is also slow.
> It may be good if there's a way to create a help-echo on the
> fly.

Like the following?  (two patches, one for "lisp/button.el", the other
for your list-script-chars file)

-miles


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch to allow button help-echo to be a function --]
[-- Type: text/x-diff, Size: 469 bytes --]

diff -up lisp/button.el.\~1\~ lisp/button.el
--- lisp/button.el.~1~	2011-01-31 12:33:51.000000000 +0900
+++ lisp/button.el	2011-02-21 17:17:40.408941730 +0900
@@ -463,6 +463,8 @@ Returns the button found."
     (if (null button)
 	(error (if wrap "No buttons!" "No more buttons"))
       (let ((msg (and display-message (button-get button 'help-echo))))
+	(when (functionp msg)
+	  (setq msg (funcall msg button)))
 	(when msg
 	  (message "%s" msg)))
       button)))

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: Patch for list-script-chars to use button function help-echo --]
[-- Type: text/x-diff, Size: 1256 bytes --]

diff -up /tmp/lsc.el.\~1\~ /tmp/lsc.el
--- /tmp/lsc.el.~1~	2011-02-21 17:22:14.214098588 +0900
+++ /tmp/lsc.el	2011-02-21 17:22:23.365735810 +0900
@@ -1,19 +1,19 @@
 (defvar list-script-chars-handler-alist nil)
 
 (define-button-type 'active-char
-  'face '(:background "gray")
+  'face '(:background "grey10")
   'action #'(lambda (button)
-	      (copy-region-as-kill (button-start button) (button-end button))))
+	      (copy-region-as-kill (button-start button) (button-end button)))
+  'help-echo #'(lambda (button)
+		 (let* ((char (char-after (button-start button)))
+			(name (get-char-code-property char 'name)))
+		   (format "U+%04X: %s" char name)))
+  'mouse-face (list :background "yellow"))
 
 (defun make-character-button (char)
   (let ((name (get-char-code-property char 'name)))
     (when name
-      (insert-text-button
-       (string char)
-       :type 'active-char
-       'help-echo (format "U+%04X: %s" char name)
-       ;; We must make this list each time to highlight only one character.
-       'mouse-face (list :background "yellow")))))
+      (insert-text-button (string char) :type 'active-char))))
 
 ;; List characters in RANGE in the current buffer assuming that the
 ;; window width is 80, and tab-width is set to 4.

[-- Attachment #4: Type: text/plain, Size: 65 bytes --]


-- 
Liberty, n. One of imagination's most precious possessions.