After searching three backup drives, I found this old macro. I have not loaded or checked it in at least a couple of years.
AutoZoom.kmm
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage2)
#
# ---------- AutoZoom.kmm
# ---------- K-Meleon Macro Remember zoom for certain URLs ---------------
#
# Dependencies : main.kmm zoom.kmm
# Resources : -
# Preferences : "k-meleon_autozoom.[integer].sites" STRING
# : "k-meleon_autozoom.integers" STRING
# Version : 0.2 2011-09-29
# --------------------------------------------------------------------------------
_AutoZoom_ReZoom {
## first check the integers - then for each integer check its site list for a hit
$_AutoZoom_Integers = getpref( STRING, "k-meleon_autozoom.integers") ;
$_AutoZoom_Len = length($_AutoZoom_Integers);
$_AutoZoom_ICount = 0;
while ($_AutoZoom_ICount < $_AutoZoom_Len) {
$_AutoZoom_IIdx = index($_AutoZoom_Integers, " ");
$_AutoZoom_check = substr($_AutoZoom_Integers, 0, $_AutoZoom_IIdx) ;
#alert($_AutoZoom_check, "$_AutoZoom_check DEBUG", INFO);
## $_AutoZoom_check contains a zoom integer as text
macros(_AutoZoom_Site_Search) ;
if ($_AutoZoom_ICount < $_AutoZoom_Len) {
$_AutoZoom_Integers = substr($_AutoZoom_Integers, $_AutoZoom_IIdx +1);
$_AutoZoom_ICount = $_AutoZoom_ICount + ($_AutoZoom_IIdx +1);
}
}
}
_AutoZoom_Site_Search {
## for a specific integer, $_AutoZoom_check, test the list of sites
$_AutoZoom_Sites = getpref( STRING, "k-meleon_autozoom.".$_AutoZoom_check.".sites");
$_AutoZoom_LenS = length($_AutoZoom_Sites);
$_AutoZoom_SCount = 0;
while ($_AutoZoom_SCount < $_AutoZoom_LenS ) {
$_AutoZoom_SIdx = index($_AutoZoom_Sites, " ");
$_AutoZoom_Scheck = substr($_AutoZoom_Sites, 0, $_AutoZoom_SIdx) ;
#alert($_AutoZoom_Scheck, "$_AutoZoom_Scheck DEBUG", INFO);
if ($URL == $_AutoZoom_Scheck) { ## found a match in the list
$TextZoom = (0 + $_AutoZoom_check) ;
$_AutoZoom_SCount = $_AutoZoom_LenS ; # look no more sites
$_AutoZoom_ICount = $_AutoZoom_Len ; # look no more integers
} else {
$_AutoZoom_Sites = substr($_AutoZoom_Sites, $_AutoZoom_SIdx +1);
$_AutoZoom_SCount = $_AutoZoom_SCount + ( $_AutoZoom_SIdx + 1) ;
}
}
}
_AutoZoom_SetURL {
macroinfo = "Add current URL to AutoZoom at zoom ".$TextZoom ;
if (getpref(STRING, "k-meleon_autozoom.".$TextZoom.".sites") == "" ) {
setpref(STRING, "k-meleon_autozoom.".$TextZoom.".sites", $URL . " ") ;
macros(_AutoZoom_Integer_Set);
} else {
$_AutoZoom_current = getpref(STRING, "k-meleon_autozoom.".$TextZoom.".sites") ;
$_AutoZoom_extended = $_AutoZoom_current . $URL ;
setpref(STRING, "k-meleon_autozoom.".$TextZoom.".sites", $_AutoZoom_extended . " ") ;
macros(_AutoZoom_Integer_Set);
}
}
_AutoZoom_Integer_Set {
$_AutoZoom_Integers = getpref( STRING, "k-meleon_autozoom.integers") ;
$_AutoZoom_ICheck = index($_AutoZoom_Integers, $TextZoom );
if ( $_AutoZoom_ICheck == -1 ) {
setpref(STRING, "k-meleon_autozoom.integers", $_AutoZoom_Integers . $TextZoom . " ") ;
}
# if other than -1 then integer already exists in the string
}
_AutoZoom_DropURL {
macroinfo = "Remove current URL from AutoZoom. ";
$_AutoZoom_Integers = getpref( STRING, "k-meleon_autozoom.integers") ;
$_AutoZoom_AllIntegers = $_AutoZoom_Integers ; # preserve a copy
$_AutoZoom_Len = length($_AutoZoom_Integers);
$_AutoZoom_ICount = 0;
while ($_AutoZoom_ICount < $_AutoZoom_Len) {
$_AutoZoom_IIdx = index($_AutoZoom_Integers, " ");
$_AutoZoom_check = substr($_AutoZoom_Integers, 0, $_AutoZoom_IIdx) ;
macros(_AutoZoom_Site_UnSet) ;
if ($_AutoZoom_ICount < $_AutoZoom_Len) {
$_AutoZoom_Integers = substr($_AutoZoom_Integers, $_AutoZoom_IIdx +1);
$_AutoZoom_ICount = $_AutoZoom_ICount + ($_AutoZoom_IIdx +1);
}
}
}
_AutoZoom_Site_UnSet {
## for a specific integer, $_AutoZoom_check, test the list of sites
$_AutoZoom_Sites = getpref( STRING, "k-meleon_autozoom.".$_AutoZoom_check.".sites");
$_AutoZoom_AllSites = $_AutoZoom_Sites ; # preserve a copy
$_AutoZoom_LenS = length($_AutoZoom_Sites);
$_AutoZoom_SCount = 0;
while ($_AutoZoom_SCount < $_AutoZoom_LenS ) {
$_AutoZoom_SIdx = index($_AutoZoom_Sites, " ");
$_AutoZoom_Scheck = substr($_AutoZoom_Sites, 0, $_AutoZoom_SIdx) ;
#alert($_AutoZoom_Scheck, "$_AutoZoom_Scheck DEBUG", INFO);
if ($URL == $_AutoZoom_Scheck) { ## found a match in the list
$_AutoZoom_Replace = gsub( $URL." ", "", $_AutoZoom_AllSites );
if (length($_AutoZoom_Replace) > 0 ) {
setpref(STRING, "k-meleon_autozoom.".$_AutoZoom_check.".sites", $_AutoZoom_Replace);
} else {
delpref("k-meleon_autozoom.".$_AutoZoom_check.".sites");
$_AutoZoom_IReplace = gsub( $_AutoZoom_check." ", "", $_AutoZoom_AllIntegers );
if (length($_AutoZoom_IReplace) > 0 ) {
getpref( STRING, "k-meleon_autozoom.integers", $_AutoZoom_IReplace ) ;
} else {
delpref("k-meleon_autozoom.integers");
}
}
$_AutoZoom_SCount = $_AutoZoom_LenS ; # look no more sites
$_AutoZoom_ICount = $_AutoZoom_Len ; # look no more integers
} else {
$_AutoZoom_Sites = substr($_AutoZoom_Sites, $_AutoZoom_SIdx +1);
$_AutoZoom_SCount = $_AutoZoom_SCount + ( $_AutoZoom_SIdx + 1) ;
}
}
}
_AutoZoom_BuildMenu{
setmenu("PageDisplay",popup,"Auto Zoom",-1);
setmenu("Auto Zoom",macro,"Include",_AutoZoom_SetURL,0);
setmenu("Auto Zoom",macro,"Delete",_AutoZoom_DropURL,1);
}
$OnInit=$OnInit."_AutoZoom_BuildMenu;";
$OnLoad=$OnLoad."_AutoZoom_ReZoom;";
$macroModules=$macroModules."AutoZoom;";