mailing-list for TeXmacs Users

[David Allouche <address@hidden>]

Hahem... I see source code, maybe this should be discussed in
texmacs-dev instead :-)

On Mon, Dec 01, 2003 at 01:37:01AM +0000, Juan Pablo Romero wrote:
> Ok, I found how to bind "left shift" to "enter/leave math mode".
> 
> In "src/Windows/X/x_init.cpp", after line 675, added this:
> 
>  Map (XK_Find, "find");
>  Map (XK_Shift_L, "shift_l");
> 
> Then recompile texmacs, and modify my-init-texmacs.scm:
> 
> (kbd-map in-math?
>  ...
>   ("shift_l" (go-end-with "mode" "math"))
>   )
> 
> (kbd-map in-text?
>  ...
>   ("shift_l" (if (inside? "hybrid") (insert-string "$") (make-with "mode" 
> "math")))
>   )

That makes sense.

However, I find the shift_l stuff dangerous. If no binding is defined
for "shift_l", is the default behaviour (i.e. usual shift modifier)
retained?

> So this makes me think perhaps it is a good idea to add many more XK_xxxx 
> symbols to x_init.cpp (perhaps all from /usr/X11R6/include/X11/keysymdef.h 
> ?).

In my opinion, all this symbol mapping is dangerous cruft.

Some time ago, I made a major modification to the keyboard handling to
make it work correctly with Alt-Gr on recent systems (and to use
essentially the same symbol lookup method as any sane software).

See x_display_rep::look_up_key in x_loop.cc.

Similarly, keysym names should be replaced by appropriate uses of
XKeySymToString (for action keys) and XLookupString (for character
keys). Maybe adding a bit of case munging to retain most of backward
compatibility.


> Also tryied this:
> 
> (kbd-map in-text?
>   ("ordfeminine" (insert-string "ª"))
>   ("masculine" (insert-string "º"))
>   ...
>   )
> 
> 
> But texmacs inserts some other characters (something like z + "check"), so 
> no luck here :(

You have been bitten by incompatible encodings. INSERT-STRING expects a
string in the Cork encoding (used internally by TeXmacs).

Instead, you should use something like:

    (insert-object '(rsup (underline "a")))

But this demonstrates an interesting bug: underline does not work in
indices (or in tables for that matter...)

If you really need this feature now, you may use this very ugly hack:

    (insert-object '(rsup (underline (tabular (tformat (cwith "1" "-1"
    "1" "-1" "cell-lsep" "0") (cwith "1" "-1" "1" "-1" "cell-rsep" "0")
    (cwith "1" "-1" "1" "-1" "cell-tsep" "0") (cwith "1" "-1" "1" "-1"
    "cell-vcorrect" "n") (cwith "1" "-1" "1" "-1" "cell-bborder"
    "0.5ln") (cwith "1" "-1" "1" "-1" "cell-bsep" "1.5ln") (table (row
    (cell "a"))))))))


Please post followups to texmacs-dev.
-- 
                                                            -- ddaa