mailing-list for TeXmacs Users

[Joris van der Hoeven <address@hidden>]

On Sat, 6 Mar 2004 address@hidden wrote:
> Your assumption was correct!
> It was in fact a cache problem. I removed the cache and it worked OK!
>
> I decided to do some more changes in the code to allow masculine and
> ordfeminine to be generated with or without an underline because most
> word processors (M$-Word, OpenOffice, etc...) don't display it and many
> people (me included) don't like it!
>
> So, to keep everybody happy (isn't the *nix world all about FREEDOM OF 
> CHOICE ?)
> the code is now:
>
> in "kbd-text.scm":
>
> ("masculine" (make 'masculine))
> ("ordfeminine" (make 'ordfeminine))
> ("- masculine" (make '_masculine_))
> ("- ordfeminine" (make '_ordfeminine_))
>
> in "std-symbol.ts":
>
> (assign "masculine" (macro (rsup "o")))
> (assign "ordfeminine" (macro (rsup "a")))
>
> (assign "_masculine_" (macro (rsup (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" "1ln")
> (cwith "1" "1" "1" "-1" "cell-bsep" "2ln")
> (twith "table-valign" "T")
> (table (row (cell "o"))))))))
>
> (assign "_ordfeminine_" (macro (rsup (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" "1ln")
> (cwith "1" "1" "1" "-1" "cell-bsep" "2ln")
> (twith "table-valign" "T")
> (table (row (cell "a")))))))))
>
> What do you think about this?
> Is it good enough for a patch?

More or less: I rather named the non-underlined signs varmasculine
and varordfeminine and made the underline signs default. Also, I use
the wide-under primitive for underlining. All will be in next version.
You may also use S-F5 f/F, m/M to type the symbols.