KMeleonWiki > Resources > MacroLibrary > KmmAutoFill

Submitted by: desga2

Notes:

This macro enable you to automatically enter a text that you frequently have to insert in anywhere you want to at the press of a button.

Open your User Macro Folder (Edit > Configuration > User-Defined Macros) or your Macro Folder (Edit > Configuration > Macros) and create the following text file(s):

~Auto-Fill.kmm

# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)

# ---------- Custom menu: Auto-Fill -------------------------------------------
#
# Dependencies        : -
# Resources        : -
# Preferences        : -
#
# -----------------------------------------------------------------------------

_AutoFill_Define_Text{
_$AutoFill_STRING=getpref(STRING, "user.preference.auto-fill.string");
statusbar("Default accelerate for Auto-Fill: F12");
_$AutoFill_VALUE=prompt("Insert Auto-Fill string:", "Define Auto-Fill string", _$AutoFill_STRING);
_$AutoFill_VALUE!=""? _$AutoFill_STRING=_$AutoFill_VALUE:0;
_$AutoFill_VALUE!=""? setpref(STRING, "user.preference.auto-fill.string", _$AutoFill_STRING):0;
}

_AutoFill_Define_Acc{
_$AutoFill_ACC_KEYS=getpref(STRING, "user.preference.auto-fill.acc_keys");
statusbar("Accelerate for Auto-Fill must be in KM format keys: VK_F12");
_$AutoFill_VALUE=prompt("Insert Auto-Fill accelerator keys:", "Auto-Fill Accel", _$AutoFill_ACC_KEYS);
_$AutoFill_VALUE!=""? _$AutoFill_ACC_KEYS=_$AutoFill_VALUE:0;
_$AutoFill_VALUE!=""? setpref(STRING, "user.preference.auto-fill.acc_keys", _$AutoFill_ACC_KEYS):0;
_$AutoFill_VALUE!=""? setaccel(_$AutoFill_ACC_KEYS, "macros(AutoFill_Paste)"):0;
_$AutoFill_VALUE!=""? setaccel("VK_F12", NULL):0;
}

AutoFill_Paste{
_$AutoFill_TEXT=getclipboard();
_$AutoFill_STRING=getpref(STRING, "user.preference.auto-fill.string");
setclipboard(_$AutoFill_STRING);
id(ID_EDIT_PASTE);
setclipboard(_$AutoFill_TEXT);
}

# ----- PRIVATE

AutoFill_BuildMenu{
setmenu("Settings",popup,"A&uto-Fill");
setmenu("A&uto-Fill",macro,"&Define Auto-Fill text ...",Define_Text);
setmenu("A&uto-Fill",macro,"&Define Auto-Fill accelerator ...",Define_Acc);
_$AutoFill_VALUE=getpref(STRING, "user.preference.auto-fill.acc_keys");
_$AutoFill_VALUE!=""? setaccel($VALUE, "macros(Paste_Text)"): setaccel("VK_F12", "macros(AutoFill_Paste)");
}

$OnInit=$OnInit."AutoFill_BuildMenu;";

# -----------------------------------------------------------------------------
$macroModules=$macroModules."Auto-Fill;";

Comments & Questions