/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ /* */ /* Pl Hedne 1990 */ /* */ /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ /* ; */ /* Macro for bytte ut norske tegn med LATEX kommandoer ; */ /* ; */ /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ nor_to_tex (...) { int line, col; message("Oversetter norske tegn til TEX "); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "{\\ae}", 1, 0, 1); move_abs (1, 1); translate ("", "{\\o}", 1, 0, 1); move_abs (1, 1); translate ("", "{\\aa}", 1, 0, 1); move_abs (1, 1); translate ("", "{\\AE}", 1, 0, 1); move_abs (1, 1); translate ("", "{\\O}", 1, 0, 1); move_abs (1, 1); translate ("", "{\\AA}", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ tex_to_nor (...) { int line, col; message("Oversetter TEX til norske tegn"); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("{\\ae}", "", 1, 0, 1); move_abs (1, 1); translate ("{\\o}", "", 1, 0, 1); move_abs (1, 1); translate ("{\\aa}", "", 1, 0, 1); move_abs (1, 1); translate ("{\\AE}", "", 1, 0, 1); move_abs (1, 1); translate ("{\\O}", "", 1, 0, 1); move_abs (1, 1); translate ("{\\AA}", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ NormKeys (...) { assign_to_key ("", "self_insert"); assign_to_key ("", "self_insert"); assign_to_key ("", "self_insert"); assign_to_key ("", "self_insert"); assign_to_key ("", "self_insert"); assign_to_key ("", "self_insert"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ TexKeys (...) { assign_to_key ("", "AA"); assign_to_key ("", "aa"); assign_to_key ("", "AE"); assign_to_key ("", "ae"); assign_to_key ("", "OE"); assign_to_key ("", "oe"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ aa (...) { insert ("{\\aa}"); } AA (...) { insert ("{\\AA}"); } OE (...) { insert ("{\\O}"); } oe (...) { insert ("{\\o}"); } AE (...) { insert ("{\\AE}"); } ae (...) { insert ("{\\ae}"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */ mailnor (...) { int line, col; message("Oversetter norske tegn til mail norsk "); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "ae", 1, 0, 1); move_abs (1, 1); translate ("", "o", 1, 0, 1); move_abs (1, 1); translate ("", "aa", 1, 0, 1); move_abs (1, 1); translate ("", "AE", 1, 0, 1); move_abs (1, 1); translate ("", "O", 1, 0, 1); move_abs (1, 1); translate ("", "AA", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */