$old_buffer = searchbuffer; #old_option = searchoption; beginclipboardread; $clip = getclipboard; if (leftstr($clip, 7) == "texset:") { $fam_name = rightstr($clip, (strlen($clip) - 7)); } if (leftstr($clip, 6) == "extag:") { $KEY = rightstr($clip, (strlen($clip) - 7)); goto TEMPLATE; } if(imestate) #imeON=1; $ext = rightstr(filename, 3); if (basename == "address.lst") { if (#imeON) imeswitch; gofiletop; $KEY = input ("input group name"); if ($KEY != "") { searchdown "^@.*" + $KEY + ".*{" ,casesense, regular; } else { goto END; } if (result) { golineend2; insert "\n\n"; } else { insertfix "\n\n"; } imeswitch; insertfix "@" + $KEY + "{Famname=\"" + $fam_name + "\", Firstname=\"\", Address=\"\", Telephone=\"\", FAX=\"\", Organization=\"\", OrgaAddress=\"\", OrgaPhone=\"\", OrgaFAX=\"\", Status=\"\", Email=\"\", Memo=\"\"}"; right 11 + strlen($KEY); goto END; } else if ($ext=="bib") { #x=x; #y=y; if (#imeON) imeswitch; while(1) { $KEY = input ("input KEY",$fam_name); if (!result) { moveto #x, #y; goto END; } gofiletop; searchdown "{" + $KEY + "," ,casesense; if (result) message "Already used KEY!"; else break; } moveto #x, #y; TEMPLATE: menu "book","article","inbook","incollection","masterthesis","case","proceedings","misc"; #result = result; if(#result==0) goto END; if (x==0 && y==0) { insertfix "\n\n"; } else if (x==0 && code==0x0D) { insert "\n\n"; up; } else { golineend2; insert "\n\n"; } if(#result==1) insert "@book{" + $KEY + "=Label, Author=\"\", Yomi=\"\", Title=\"\", Publisher=\"\", Address=\"\", Year=\"\", place=\"\"}"; if(#result==2) insert "@article{" + $KEY + "=Label, Author=\"\", Yomi=\"\", Title=\"\", Journal=\"\", Volume=\"\", Number=\"\", Publisher=\"\", Address=\"\", Year=\"\", Pages=\"\", URL=\"\", place=\"\"}"; if(#result==3) insert "@inbook{" + $KEY + "=Label, Author=\"\", Yomi=\"\", Title=\"\", Editor=\"\", Series=\"\", Number=\"\", BookTitle=\"\", Publisher=\"\", Address=\"\", Year=\"\", place=\"\"}"; if(#result==4) insert "@incollection{" + $KEY + "=Label, Author=\"\", Yomi=\"\", Title=\"\", Editor=\"\", Series=\"\", Number=\"\", BookTitle=\"\", Abbrv=\"\", Publisher=\"\", Address=\"\", Year=\"\", place=\"\"}"; if(#result==5) insert "@masterthesis{" + $KEY + "=Label, Author=\"\", Yomi=\"\", Title=\"\", Organization=\"\", Year=\"\", place=\"\"}"; if(#result==6) insert "@case{" + $KEY + "=Label, Title=\"\", plaintiffs=\"\", defendants=\"\", Reporter=\"\", Pages=\"\", Court=\"\", Month=\"\", Date=\"\", Year=\"\", Note=\"\", Annote=\"\"}"; if(#result==7) insert "@proceedings{" + $KEY + "=Label, Author=\"\", Title=\"\", Address=\"\", Year=\"\", Month=\"\", Date=\"\", Organization=\"\", place=\"\"}"; if(#result==8) insert "@misc{" + $KEY + "=Label, Author=\"\", Title=\"\", Year=\"\", URL=\"\"}"; left 5; goleftkakko; right 17 + strlen($KEY); goto END; } else { menu "A4 article","B5 article","letter","jletter","fletter","internet","nifty"; if(result==0) goto END; if(result==1) insertfile hidemarudir + "\\a4articl.tmp"; if(result==2) insertfile hidemarudir + "\\b5articl.tmp"; if(result==3) insertfile hidemarudir + "\\letter.tmp"; if(result==4) insertfile hidemarudir + "\\jletter.tmp"; if(result==5) insertfile hidemarudir + "\\fletter.tmp"; if(result==6) insertfile hidemarudir + "\\internet.tmp"; if(result==7) insertfile hidemarudir + "\\nifty.tmp"; gofiletop; goto END; } END: if (#imeON) imeswitch; setsearch $old_buffer, #old_option; endmacro;