KMeleonWiki > Resources > MacroLibrary > Page Theme Kit

Submitted by: MonkeeSage?

Notes:

Designed with the goal of bringing better 'page theme' integration to KM. It's a step anyhow. How ya likes.

In Macros (Anywhere):

get_styles {
   menu = "List Styles";
   open("javascript:(function() { var names = new Array(5); var flat_names = ''; var n, s; var styles = document.styleSheets; for(s = 0; s < 5; s) { if (styless?) { if (styless?.title) { namess? = styless?.title; } else { namess? = "Untitled"; } } else { namess? = "Unavailable"; } } for (n = 0; n < 5; n) { if (n != 5) { flat_names += namesn? + ',\\n'; } else { flat_names += namesn? + '\\n\'; } } alert('Styles from 0:\\n\\n' + flat_names); })();");
}

kill_styles {
   menu = "Remove Styles";
   open("javascript:(function() { var styles = document.styleSheets; for(var s = 0; s < styles.length; s++) { styless?.disabled = true; } })();");
}

change_styles {
   menu = "Change Styles...";
   $style = prompt("Style by Number (from 0):", "Style prompt...", "");
   $style == "" ? $style = 0 : 0;
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == ".$style.") { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

default_style {
   menu = "Default Style";
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == 0) { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

style_1 {
   menu = "First Style";
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == 1) { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

style_2 {
   menu = "Second Style";
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == 2) { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

style_3 {
   menu = "Third Style";
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == 3) { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

style_4 {
   menu = "Fourth Style";
   open("javascript:(function() { var styles = document.styleSheets, s; for(s = 0; s < styles.length; s++) { if (s == 4) { styless?.disabled = false; } else { styless?.disabled = true; } } })();");
}

In Menus (Under the Hilighted_text definition at the top):

&Page Styles {
   macros(get_styles)
   macros(change_styles)
   macros(kill_styles)
   -
   macros(default_style)
   macros(style_1)
   macros(style_2)
   macros(style_3)
   macros(style_4)
}

In Menus (In &View definition):

...
   -
   :&Page Styles
...

In Accelerators:

CTRL SHIFT VK_F1 = macros(default_style)
CTRL SHIFT VK_F2 = macros(style_1)
CTRL SHIFT VK_F3 = macros(style_2)
CTRL SHIFT VK_F4 = macros(style_3)
CTRL SHIFT VK_F5 = macros(style_4)
CTRL SHIFT VK_F6 = macros(get_styles)
CTRL SHIFT VK_F7 = macros(change_styles)
CTRL SHIFT VK_F8 = macros(kill_styles)

User Comments: