# 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 in Spanish
K-Meleon in Spanish
# 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 in Spanish
# 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 ):opennew( $_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 ):opennew( $_ExtraCopyPath );

K-Meleon in Spanish
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.
K-Meleon in Spanish
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.
K-Meleon in Spanish
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.
K-Meleon in Spanish
Quote
Dorian
You should check if other command (like ID_EDIT_COPY) are still working fine.
K-Meleon in Spanish
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.
K-Meleon in Spanish
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?
(replace part of URL bar text)
Quote
but ID_EDIT_PASTE must works in URL bar, moreover this works in 1.1.X.
K-Meleon in Spanish