home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 September / PCWorld_2008-09_cd.bin / komunikace / kmeleon / K-Meleon1.1.3en-US.exe / macros / translate.kmm < prev    next >
Encoding:
Text File  |  2007-05-04  |  3.3 KB  |  70 lines
  1. # K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
  2.  
  3. # ---------- Translation -------------------------------------------------------------------------------------------
  4. #
  5. # Dependencies    : main.kmm ($macroPrefBranch, OpenURL)
  6. # Resources    : -
  7. # Preferences    : kmeleon.plugins.macros.translation.to
  8. #
  9. # ------------------------------------------------------------------------------------------------------------------
  10.  
  11. Translate_From{
  12. $_from=$ARG; &_Translate;
  13. }
  14. Translate_To{
  15. alert(_("Available target languages:")."\n\n".sub("%s",en,_("English\t\t = %s"))."\n\n".sub("%s",es,_("Spanish\t\t = %s"))."\n".sub("%s",pt,_("Portuguese\t = %s"))."\n".sub("%s",fr,_("French\t\t = %s"))."\n".sub("%s",de,_("German\t\t = %s"))."\n".sub("%s",nl,_("Dutch\t\t = %s"))."\n".sub("%s",it,_("Italian\t\t = %s"))."\n".sub("%s",el,_("Greek\t\t = %s"))."\n\n".sub("%s",ru,_("Russian\t\t = %s"))."\n".sub("%s",ko,_("Korean\t\t = %s"))."\n".sub("%s",ja,_("Japanese\t\t = %s"))."\n".sub("%s",zt,_("Chinese (Traditional) = %s"))."\n".sub("%s",zh,_("Chinese (Simplified)\t = %s"))."\n\n"._("Enter the desired language's two-letter code into the following prompt."),$_Translate_srvc,INFO);
  16. &_Translate_pref;
  17. $_to=prompt(_("Two-letter target language code:"),$_Translate_srvc,$_to);
  18. $_to==""?0:setpref(STRING,$_Translate_pref,$_to);
  19. }
  20.  
  21. # ----- PRIVATE
  22.  
  23. $_Translate_pref=$macroPrefBranch."translate.to";
  24. $_Translate_srvc=_("Babel Fish Translation");
  25. $_Translate_text="http://babelfish.altavista.com/babelfish/tr?lp=<from>_<to>&urltext=";
  26. $_Translate_page="http://babelfish.altavista.com/babelfish/trurl_pagecontent?lp=<from>_<to>&url=";
  27.  
  28. _Translate{
  29. &_Translate_pref; $OpenURL=$SelectedText; $OpenURL==""?&_Translate_page:&_Translate_text;
  30. }
  31. _Translate_pref{
  32. $_to=getpref(STRING,$_Translate_pref); $_to==""?$_to=en:0;
  33. }
  34. _Translate_text{
  35. $OpenURL=sub("<from>",$_from,sub("<to>",$_to,$_Translate_text)).urlencode($OpenURL); &OpenURL_Selected;
  36. }
  37. _Translate_page{
  38. $OpenURL=sub("<from>",$_from,sub("<to>",$_to,$_Translate_page)).urlencode($URL);
  39. index($URL,"http://")==0?&OpenURL_Typed:alert(_("Sorry, local and secure pages cannot be translated!"),$_Translate_srvc,INFO);
  40. }
  41.  
  42. _Translate_BuildMenu{
  43. # tools menu
  44. $__t="&Translate From";
  45. setmenu(WebServices,popup,$__t);
  46. $__m="Translate_From(";
  47. setmenu($__t,macro,"&English",$__m."en)");
  48. setmenu($__t,separator,-1);
  49. setmenu($__t,macro,"&Spanish",$__m."es)");
  50. setmenu($__t,macro,"&Portuguese",$__m."pt)");
  51. setmenu($__t,macro,"&French",$__m."fr)");
  52. setmenu($__t,macro,"&German",$__m."de)");
  53. setmenu($__t,macro,"&Dutch",$__m."nl)");
  54. setmenu($__t,macro,"&Italian",$__m."it)");
  55. setmenu($__t,macro,"Gr&eek",$__m."el)");
  56. setmenu($__t,separator,-1);
  57. setmenu($__t,macro,"&Russian",$__m."ru)");
  58. setmenu($__t,macro,"&Korean",$__m."ko)");
  59. setmenu($__t,macro,"&Japanese",$__m."ja)");
  60. setmenu($__t,macro,"&Chinese (Traditional)",$__m."zt)");
  61. setmenu($__t,macro,"Chi&nese (Simplified)",$__m."zh)");
  62. setmenu($__t,separator,-1);
  63. setmenu($__t,macro,"&To (Specify Language)...",Translate_To);
  64. # context menus
  65. setmenu(Selection,popup,$__t);
  66. }
  67. $OnInit=$OnInit."_Translate_BuildMenu;";
  68.  
  69. # ------------------------------------------------------------------------------------------------------------------
  70. $macroModules=$macroModules."Translate;";