# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage) # ---------- Multiclip Extension for K-Meleon ----------------------------------------------------- # # Dependencies : - # Resources : - # Preferences : - # # ------------------------------------------------------------------------------------------------- $Multiclip=""; Multiclip{ $SelectedText==""?&Multiclip_paste:$Multiclip=$SelectedText; id("ID_EDIT_SELECT_NONE"); } #Multiclip_copy{ #$Multiclip=$SelectedText; #id("ID_EDIT_SELECT_NONE"); #} Multiclip_paste{ $tempclip=getclipboard(); setclipboard($Multiclip); id("ID_EDIT_PASTE"); setclipboard($tempclip); } # ----- PRIVATE _Multiclip_SetAccels{ setaccel("CTRL M", "macros(Multiclip)"); } $OnInit=$OnInit."_Multiclip_SetAccels;"; # ------------------------------------------------------------------------------------------------- $macroModules=$macroModules."Multiclip;";
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage) # ---------- ExtraCopy macro for K-Meleon ----------------------------------------------------- # # Dependencies : - # Resources : - # Preferences : - # # ------------------------------------------------------------------------------------------------- $_ExtraCopyItems = 0 ; $_ExtraCopyObj=""; $_ExtraCopyView="" ; $_ExtraCopyLen1=0 ; $_ExtraCopyLen2=0 ; $_ExtraCopyLen3=0 ; $_ExtraCopyLen4=0 ; $_ExtraCopyLen5=0 ; ExtraCopy{ alert("cntl shift 0 pressed" , "Action" , INFO) ; $SelectedText==""? 0 : &_ExtraCopyLoad ; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad{ $_ExtraCopyItems==0 ? &_ExtraCopyLoad_1 : &_ExtraCopyLoad_5 ; } _ExtraCopyLoad_1{ $_ExtraCopyItems=1; $_ExtraCopyView = "[" . $_ExtraCopyItems . "] " . substr($SelectedText,1,10) ; $_ExtraCopyLen1 = length( $SelectedText ); $_ExtraCopyObj= "[" . $_ExtraCopyItems +1 . "] " . $SelectedText; id("ID_EDIT_SELECT_NONE"); } _ExtraCopyLoad_5{ $_ExtraCopyItems=$_ExtraCopyItems + 1 ; $_ExtraCopyView = "[" . $_ExtraCopyItems . "] " . substr($SelectedText,1,10) . " " . $_ExtraCopyView; $_ExtraCopyObj= "[" . $_ExtraCopyItems . "] " . $SelectedText . " " . $_ExtraCopyObj; statusbar($_ExtraCopyView) ; $_ExtraCopyItems == 2 ? $_ExtraCopyLen2 = length( $SelectedText ): 0; $_ExtraCopyItems == 3 ? $_ExtraCopyLen3 = length( $SelectedText ): 0; $_ExtraCopyItems == 4 ? $_ExtraCopyLen4 = length( $SelectedText ): 0; $_ExtraCopyItems == 5 ? $_ExtraCopyLen5 = length( $SelectedText ): 0; id("ID_EDIT_SELECT_NONE"); } #ExtraCopy_paste{ #$tempclip=getclipboard(); #setclipboard($ExtraCopy); #id("ID_EDIT_PASTE"); #setclipboard($tempclip); #} # ----- PRIVATE _ExtraCopy_SetAccels{ setaccel("CTRL SHIFT VK_NUMPAD0", "macros(ExtraCopy)"); setaccel("CTRL SHIFT VK_NUMPAD1", "macros(_ExtraCopyPaste1)"); setaccel("CTRL SHIFT VK_NUMPAD2", "macros(_ExtraCopyPaste2)"); setaccel("CTRL SHIFT VK_NUMPAD3", "macros(_ExtraCopyPaste3)"); setaccel("CTRL SHIFT VK_NUMPAD4", "macros(_ExtraCopyPaste4)"); setaccel("CTRL SHIFT VK_NUMPAD5", "macros(_ExtraCopyPaste5)"); } $OnInit=$OnInit."_ExtraCopy_SetAccels;"; # ------------------------------------------------------------------------------------------------- $macroModules=$macroModules."ExtraCopy;";
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage) # ---------- Multiclip Extension for K-Meleon ----------------------------------------------------- # # Dependencies : - # Resources : - # Preferences : - # # ------------------------------------------------------------------------------------------------- $MClip0=""; $MClip1=""; $MClip2=""; $MClip3=""; $MClip4=""; $MClip5=""; $MClip6=""; $MClip7=""; $MClip8=""; $MClip9=""; $Multiclip=""; Multiclip{ $Multiclip="MClip".$ARG; #$SelectedText==""?&Multiclip_paste:$Multiclip=$SelectedText; $SelectedText==""?&Multiclip_paste:&$Multiclip; #&$Multiclip; id("ID_EDIT_SELECT_NONE"); } #Multiclip_copy{ #$Multiclip=$SelectedText; #id("ID_EDIT_SELECT_NONE"); #} MClip1{ $MClip1=$SelectedText; } MPaste1{ setclipboard($MClip1); } MClip2{ $MClip2=$SelectedText; } MPaste2{ setclipboard($MClip2); } MClip3{ $MClip3=$SelectedText; } MPaste3{ setclipboard($MClip3); } MClip4{ $MClip4=$SelectedText; } MPaste4{ setclipboard($MClip4); } MClip5{ $MClip5=$SelectedText; } MPaste5{ setclipboard($MClip5); } MClip6{ $MClip6=$SelectedText; } MPaste6{ setclipboard($MClip6); } MClip7{ $MClip7=$SelectedText; } MPaste7{ setclipboard($MClip7); } MClip8{ $MClip8=$SelectedText; } MPaste8{ setclipboard($MClip8); } MClip9{ $MClip9=$SelectedText; } MPaste9{ setclipboard($MClip9); } MClip0{ $MClip0=$SelectedText; } MPaste0{ setclipboard($MClip0); } Multiclip_paste{ $tempclip=getclipboard(); #setclipboard($Multiclip); $MCtemp="MPaste".$ARG; &$MCtemp; id("ID_EDIT_PASTE"); setclipboard($tempclip); } Multiclip_Viewer{ $MC_check=0; $MC_value=prompt("Enter Multi Clip to view (a number key [0-9]):", "Multiclip Viewer"); $MC_value>="0"?$MC_check=($MC_check + 1):0; $MC_value<="9"?$MC_check=($MC_check + 1):0; $MCtemp="MViewer".$MC_value; $MC_check=="2"?&$MCtemp:0; } MViewer1{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 1", $MClip1) $MC_value==""?0:$MClip1=$MC_value; } MViewer2{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 2", $MClip2) $MC_value==""?0:$MClip2=$MC_value; } MViewer3{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 3", $MClip3) $MC_value==""?0:$MClip3=$MC_value; } MViewer4{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 4", $MClip4) $MC_value==""?0:$MClip4=$MC_value; } MViewer5{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 5", $MClip5) $MC_value==""?0:$MClip5=$MC_value; } MViewer6{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 6", $MClip6) $MC_value==""?0:$MClip6=$MC_value; } MViewer7{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 7", $MClip7) $MC_value==""?0:$MClip7=$MC_value; } MViewer8{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 8", $MClip8) $MC_value==""?0:$MClip8=$MC_value; } MViewer9{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 9", $MClip9) $MC_value==""?0:$MClip9=$MC_value; } MViewer0{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 0", $MClip0) $MC_value==""?0:$MClip0=$MC_value; } # ----- PRIVATE _Multiclip_BuildMenu{ # Tools menu setmenu("Misc",macro,_("Multiclip ..."),Multiclip_Viewer); } _Multiclip_SetAccels{ #setaccel("CTRL M", "macros(Multiclip)"); $_i=0; while($_i!=10) &_Multiclip_SetAccelsLoop; } _Multiclip_SetAccelsLoop{ setaccel("ALT ".$_i,"macros(Multiclip(".$_i."))"); $_i=$_i+1; } $OnInit=$OnInit."_Multiclip_BuildMenu;_Multiclip_SetAccels;"; # ------------------------------------------------------------------------------------------------- $macroModules=$macroModules."Multiclip;";
$MCtemp="MPaste".$ARG; &$MCtemp;In 1.1.X i can do callers to functions from a variable (with function name in var) with this method, but in 1.5RC i can't do it because the syntax more strict not let me. In this way we lose functionality if there isn't other way to do this in 1.5RC.
setaccel("ALT ".$_i,"macros(Multiclip(".$_i."))"); $_i=$_i+1;by this other:
setaccel("ALT VK_NUMPAD".$_i,"macros(Multiclip(".$_i."))"); $_i=$_i+1;
# 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{ $_ExtraCopyPath = getfolder(UserMacroFolder) . "\\ExtraCopy.htm" ; ## for KM version 1.5 $kTabs?opentab( $_ExtraCopyPath )pennew( $_ExtraCopyPath ); ## for older version without tabs ##opennew( $_ExtraCopyPath ); } # ----- 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;"; # ------------------------------------------------------------------------------------------------- $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>
$kTabs?opentab( $_ExtraCopyPath )pennew( $_ExtraCopyPath );
MViewer2{ $MC_value=prompt("You can modify it, to save press OK or CANCEL to not save changes.", "Multiclip Viewer 2", $MClip2) $MC_value==""?0:$MClip2=$MC_value; <==== error }
Quote
Multiclip{
$Multiclip="MClip".$ARG;
#$SelectedText==""?&Multiclip_paste:$Multiclip=$SelectedText;
$SelectedText==""?&Multiclip_paste:&$Multiclip;
#&$Multiclip;
id("ID_EDIT_SELECT_NONE");
}
Quote
K-Meleon's keyboard accelerators, its menu system and its plugins (but not the macros plugin itself) can call a macro with an argument:
macros(myMacro,"Hello world!")
A macro called this way, can get the argument reading the $ARG variable:
myMacro{
$data=$ARG;
alert($data);
# Don't use $ARG here
}
Quote
JamesD
Maybe you cannot pass an augument to a macro.
The paste in URL bar problem in 1.5 version from a different accelerator to standard Ctrl+V continue.Quote
desga2
3) Now try to paste Multiclip content in URL bar with Ctrl+M accelerator. This not work.
Quote
&$Multiclip;
Quote
@ kko: Know you something about this URL bar problem with macro accelerators?
Quote
Dorian
I didn't know you could do something like that, but macros($Multiclip) should work.
Yes it's the problem because in 1.1.X works fine but in URL of 1.5 not works, but it isn't only Ctrl+M accelerator in SuperClipCopy code i'm using Alt+[a numeric key or numpad 0-9] and not works in url bar of 1.5 version.Quote
Dorian
Are you sure the accelerator is the problem? Ctrl + enter or ctrl + R work when the urlbar has the focus. Why not ctrl+M.
Quote
Dorian
You should check if other command (like ID_EDIT_COPY) are still working fine.
Quote
desga2
I think that ID_EDIT_COPY in URL bar not works in any version (1.1.X and 1.5).
I tried my Multiclip macro and this not copy from the URL bar in any version, in 1.1.X can paste but not in 1.5. Others global variables as $SelectedText not works in URL bar.
Quote
desga2
@ kko;
OK you are rigth i not need that ID_EDIT_COPY works in URL bar because i can use $URLBAR and I may not need that $SelectedText works in URL bar, but ID_EDIT_PASTE must works in URL bar, moreover this works in 1.1.X.
Quote
kko
What for do you need ID_EDIT_PASTE in the URL bar? What about assigning the new value to $URLBAR?
Quote
but ID_EDIT_PASTE must works in URL bar, moreover this works in 1.1.X.