This macro should work in 1.5.x versions. It allows setting a default zoom for text that happens on the first page load. The user can change the value under VIEW - ZOOM - TEXT ZOOM DEFAULT
Thanks to desga2 for the idea.
TZdefault.kmm
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
#
# ---------- TZdefault.kmm
# ---------- K-Meleon Macro for default text zoom ---------------
#
# Dependencies : main.kmm
# Resources : -
# Preferences : "k-meleon.tzdefault.count", "k-meleon.tzdefault.first"
# Version : 0.2 2009-11-29
# --------------------------------------------------------------------------------
_TZdefault_Text_def {
$_TZdefault_current = getpref(INT,"k-meleon.tzdefault.count") ;
$_TZdefault_new = prompt( "Enter a positive (+) or negative (-) integer value", "To set a default text zoom value", $_TZdefault_current );
$_TZdefault_diff = $_TZdefault_new - $_TZdefault_current ;
alert($_TZdefault_diff . " is the change from current value that you have requested", "Unit of change from current default", INFO) ;
setpref( INT, "k-meleon.tzdefault.count", $_TZdefault_new );
}
_TZdefault_Text_set {
if (getpref( BOOL , "k-meleon.tzdefault.first" ) == true ) {
$_TZdefault_current = getpref(INT,"k-meleon.tzdefault.count") ;
if ($_TZdefault_current != 0) {
if ($_TZdefault_current > 0 ) {
$_TZdefault_zero = 0;
while ( $_TZdefault_zero != $_TZdefault_current ) {
id(ID_FONT_INCREASE) ;
$_TZdefault_zero = $_TZdefault_zero + 1 ;
}
} else {
$_TZdefault_zero = 0;
while ( $_TZdefault_zero != $_TZdefault_current ) {
id(ID_FONT_DECREASE) ;
$_TZdefault_zero = $_TZdefault_zero - 1 ;
}
}
}
setpref( BOOL , "k-meleon.tzdefault.first", false );
}
}
_TZdefault_BuildMenu {
setmenu("&Zoom",macro,"Text zoom default",_TZdefault_Text_def, -1);
setpref( BOOL , "k-meleon.tzdefault.first", true );
}
$OnLoad=$OnLoad."_TZdefault_Text_set;";
$OnInit=$OnInit."_TZdefault_BuildMenu;";
$macroModules=$macroModules."TZdefault;";
Edited 1 time(s). Last edit at 11/29/2009 01:36AM by JamesD.