# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage) # ---------- ExtraCopy macro for K-Meleon ----------------------------------------------------- # # Dependencies : - main.kmm # Resources : - ExtraCopy.htm # Preferences : - # # ------------------------------------------------------------------------------------------------- ExtraCopyDelete{ $_ExtraCopyItems = 0 ; $_ExtraCopyObj1=""; $_ExtraCopyObj2=""; $_ExtraCopyObj3=""; $_ExtraCopyObj4=""; $_ExtraCopyObj5=""; $_ExtraCopyView="" ; statusbar($_ExtraCopyView) ; } ExtraCopy{ $SelectedText==""? 0 : &_ExtraCopyLoad ; } _ExtraCopyLoad{ $_ExtraCopyItems==5 ? alert("Maximun items limit exceeded", "Item Count", STOP) : 0 ; $_ExtraCopyItems==4 ? &_ExtraCopyLoad_5 : 0 ; $_ExtraCopyItems==3 ? &_ExtraCopyLoad_4 : 0 ; $_ExtraCopyItems==2 ? &_ExtraCopyLoad_3 : 0 ; $_ExtraCopyItems==1 ? &_ExtraCopyLoad_2 : 0 ; $_ExtraCopyItems==0 ? &_ExtraCopyLoad_1 : 0 ; } _ExtraCopyLoad_1{ $_ExtraCopyItems=$_ExtraCopyItems + 1; $_ExtraCopyView = " [" . $_ExtraCopyItems . "] " . substr($SelectedText,0,20) ; $_ExtraCopyObj1= $SelectedText; statusbar($_ExtraCopyView) ; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad_2{ $_ExtraCopyItems=$_ExtraCopyItems + 1; $_ExtraCopyView = $_ExtraCopyView . " [" . $_ExtraCopyItems . "] " . substr($SelectedText,0,20) ; $_ExtraCopyObj2= $SelectedText; statusbar($_ExtraCopyView) ; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad_3{ $_ExtraCopyItems=$_ExtraCopyItems + 1; $_ExtraCopyView = $_ExtraCopyView . " [" . $_ExtraCopyItems . "] " . substr($SelectedText,0,20) ; $_ExtraCopyObj3= $SelectedText; statusbar($_ExtraCopyView) ; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad_4{ $_ExtraCopyItems=$_ExtraCopyItems + 1; $_ExtraCopyView = $_ExtraCopyView . " [" . $_ExtraCopyItems . "] " . substr($SelectedText,0,20) ; $_ExtraCopyObj4= $SelectedText; statusbar($_ExtraCopyView) ; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad_5{ $_ExtraCopyItems=$_ExtraCopyItems + 1; $_ExtraCopyView = $_ExtraCopyView . " [" . $_ExtraCopyItems . "] " . substr($SelectedText,0,20) ; $_ExtraCopyObj5= $SelectedText; statusbar($_ExtraCopyView) ; id("ID_EDIT_SELECT_NONE"); } ExtraCopyPaste1{ $ExtraCopyClip=getclipboard(); setclipboard($_ExtraCopyObj1); id("ID_EDIT_PASTE"); setclipboard($ExtraCopyClip); } ExtraCopyPaste2{ $ExtraCopyClip=getclipboard(); setclipboard($_ExtraCopyObj2); id("ID_EDIT_PASTE"); setclipboard($ExtraCopyClip); } ExtraCopyPaste3{ $ExtraCopyClip=getclipboard(); setclipboard($_ExtraCopyObj3); id("ID_EDIT_PASTE"); setclipboard($ExtraCopyClip); } ExtraCopyPaste4{ $ExtraCopyClip=getclipboard(); setclipboard($_ExtraCopyObj4); id("ID_EDIT_PASTE"); setclipboard($ExtraCopyClip); } ExtraCopyPaste5{ $ExtraCopyClip=getclipboard(); setclipboard($_ExtraCopyObj5); id("ID_EDIT_PASTE"); setclipboard($ExtraCopyClip); } ExtraCopyStatus{ statusbar($_ExtraCopyView) ; } ExtraCopyInfo{ macroinfo = "==> Display the accelerator key list for 'ExtraCopy'." ; $_ExtraCopyPath = getfolder(UserMacroFolder) . "\\ExtraCopy.htm" ; ## for KM version 1.5 $kTabs?opentab( $_ExtraCopyPath )pennew( $_ExtraCopyPath ); ## for older version without tabs ##opennew( $_ExtraCopyPath ); } _ExtraCopy_ModMenu{ ## show in Tools menu ; setmenu("&Tools",macro,"ExtraCopy",ExtraCopyInfo,Misc); } # ----- PRIVATE _ExtraCopy_SetAccels{ setaccel("CTRL ALT VK_NUMPAD0", "macros(ExtraCopy)"); setaccel("CTRL ALT VK_NUMPAD1", "macros(ExtraCopyPaste1)"); setaccel("CTRL ALT VK_NUMPAD2", "macros(ExtraCopyPaste2)"); setaccel("CTRL ALT VK_NUMPAD3", "macros(ExtraCopyPaste3)"); setaccel("CTRL ALT VK_NUMPAD4", "macros(ExtraCopyPaste4)"); setaccel("CTRL ALT VK_NUMPAD5", "macros(ExtraCopyPaste5)"); setaccel("CTRL ALT VK_SUBTRACT", "macros(ExtraCopyStatus)"); setaccel("ALT VK_DECIMAL", "macros(ExtraCopyDelete)"); setaccel("ALT VK_ADD", "macros(ExtraCopyInfo)"); macros(ExtraCopyDelete) ; } $OnInit=$OnInit."_ExtraCopy_SetAccels;"; $OnInit=$OnInit."_ExtraCopy_ModMenu;"; # ------------------------------------------------------------------------------------------------- $macroModules=$macroModules."ExtraCopy;";
<html> <!-- Generated by AceHTML Freeware http://freeware.acehtml.com --> <!-- Creation date: 7/27/2008 --> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title></title> <meta name="description" content="ExtraCopy keys"> <meta name="generator" content="AceHTML 5 Freeware"> </head> <body> <div align=\"center\"><H1> ExtraCopy Keys </H1></div> <div align="left"> <li> CTRL ALT VK_NUMPAD0 equals Copy </li> <li> CTRL ALT VK_NUMPAD1 equals Paste1</li> <li> CTRL ALT VK_NUMPAD2 equals Paste2</li> <li> CTRL ALT VK_NUMPAD3 equals Paste3</li> <li> CTRL ALT VK_NUMPAD4 equals Paste4</li> <li> CTRL ALT VK_NUMPAD5 equals Paste5</li> <li> CTRL ALT VK_SUBTRACT equals Status</li> <li> ALT VK_DECIMAL equals Delete</li> <li> ALT VK_ADD equals Info </li> </div> </body> </html>
## for KM version 1.5 $kTabs?opentab( $_ExtraCopyPath )pennew( $_ExtraCopyPath ); ## for older version without tabs ##opennew( $_ExtraCopyPath );
## for KM version 1.5 ##$kTabs?opentab( $_ExtraCopyPath )pennew( $_ExtraCopyPath ); ## for older version without tabs opennew( $_ExtraCopyPath );