On Sat, 29 Apr 2006 [EMAIL PROTECTED] wrote:
On Fri, 28 Apr 2006, Henri Lesourd wrote:
Indeed, following your suggestion I can now enjoy inputting-outputting
korean characters.
How did you solved the problem exactly ?
I simply added more popular trutype font ("gulim") in the source--consult my
dirty patch attached.
I forgot to atttach the patch, sorry!
Regards,
cghan
diff -urdN src/TeXmacs/progs/fonts/fonts-truetype.scm
TeXmacs-1.0.6-src/TeXmacs/progs/fonts/fonts-truetype.scm
--- src/TeXmacs/progs/fonts/fonts-truetype.scm 2005-12-17 02:39:19.000000000
+0900
+++ TeXmacs-1.0.6-src/TeXmacs/progs/fonts/fonts-truetype.scm 2006-04-29
14:48:14.000000000 +0900
@@ -61,6 +61,7 @@
((ms-verdana rm $a italic $s $d) (truetype verdanai $s $d))
((ms-verdana rm $a $b $s $d) (truetype verdana $s $d))
+ ((gulim $v $a $b $s $d) (unicode gulim $s $d))
((fireflysung $v $a $b $s $d) (unicode fireflysung $s $d))
((ipa $v bold proportional $s $d) (unicode ipagp $s $d))
((ipa $v bold $b $s $d) (unicode ipag $s $d))
diff -urdN src/TeXmacs/progs/generic/document-edit.scm
TeXmacs-1.0.6-src/TeXmacs/progs/generic/document-edit.scm
--- src/TeXmacs/progs/generic/document-edit.scm 2005-12-13 15:54:44.000000000
+0900
+++ TeXmacs-1.0.6-src/TeXmacs/progs/generic/document-edit.scm 2006-04-29
14:48:45.000000000 +0900
@@ -89,7 +89,9 @@
(init-env "language" lan)
(if (and cyr-after (not cyr-before)) (init-env "font" "cyrillic"))
(if (and orient-after (not orient-before))
- (init-env "font" (if (== lan "japanese") "ipa" "fireflysung")))))
+ (init-env "font" (if (== lan "japanese") "ipa" "fireflysung")))
+ (if (and orient-after (not orient-before))
+ (init-env "font" (if (== lan "korean") "gulim" "fireflysung")))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Main page layout
diff -urdN src/src/Resource/Dictionaries/dictionary.cpp
TeXmacs-1.0.6-src/src/Resource/Dictionaries/dictionary.cpp
--- src/src/Resource/Dictionaries/dictionary.cpp 2005-12-17
20:47:13.000000000 +0900
+++ TeXmacs-1.0.6-src/src/Resource/Dictionaries/dictionary.cpp 2006-04-29
14:51:37.000000000 +0900
@@ -45,7 +45,7 @@
{
string l= t[i][0]->label; if (is_quoted (l)) l= scm_unquote (l);
string r= t[i][1]->label; if (is_quoted (r)) r= scm_unquote (r);
- if (to == "japanese") r= utf8_to_cork (r);
+ if (to == "japanese" || to == "korean") r= utf8_to_cork (r);
table (l)= r;
}
}
diff -urdN src/src/Window/X/x_font.cpp TeXmacs-1.0.6-src/src/Window/X/x_font.cpp
--- src/src/Window/X/x_font.cpp 2005-12-17 02:46:52.000000000 +0900
+++ TeXmacs-1.0.6-src/src/Window/X/x_font.cpp 2006-04-29 14:50:48.000000000
+0900
@@ -152,9 +152,9 @@
(out_lan == "ukrainian")) &&
((ff == "cm") || (ff == "ec"))) {
fam= "la" * fam (2, N(fam)); ff= "la"; if (sz<100) sz *= 100; }
- if (out_lan == "chinese" || out_lan == "korean")
+ if (out_lan == "chinese")
return unicode_font (this, "fireflysung", sz, dpi);
- if (out_lan == "japanese") {
+ if (out_lan == "japanese" || out_lan == "korean") {
tree modern_fn= tuple ("modern", "rm", "medium", "right");
modern_fn << as_string (sz) << as_string (dpi);
return find_font (this, modern_fn);
_______________________________________________
Texmacs-dev mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/texmacs-dev
