K-Meleon :: Development

Development : K-Meleon Forum

K-Meleon development related discussions.

Goto: Forum List•Message List•Search•Log In

Your Name:
Subject:

Help information

[quote=disrupted]
for mhf, this is a modified macro for quicknote that prompts for password before opening the main xul. it's not really a password prompt but just a prompt.. passowrds won't be hidden behind asterisks but unless you enter the right password, quicknote main will not open.

the password is zorbas, you can change it in the macro
[url=http://kmext.sf.net/macros/quicknote.kmm]http://kmext.sf.net/macros/quicknote.kmm[/url]

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

# ---------- QuickNote Extension (A notepad for K-Meleon) ----------------------------------------------------------
#
# Needed files  : utils.dll (kplugin), quicknote.jar (chrome) 
# Dependencies	: main.kmm (ExecMacros, OpenURL_InNewWindow)
# Resources	    : -
# Preferences	  : quicknote.showUrl, quicknote.numtabs, quicknote.totabint, 
#                 quicknote.tab.n.path (n= 1 to totabint with totabint<=4)
# ------------------------------------------------------------------------------------------------------------------

quicknotepass{
$passpass=("[color=red]zorbas[/color]");
$whatpass=prompt("Enter password to access Quicknote:", "Enter Password", $whatpass);
$whatpass==$passpass?&QuickNote:alert("Wrong password, you are not authorised to access quick note.  ","no, no, no..NO!" ,INFO);
}

QuickNote{
$OpenURL="chrome://quicknote/content/quicknote.xul"; $ExecMacros="OpenURL_InNewWindow"; &ExecMacros_Frames;
}

QuickNote_Text{
$note=getpref(INT,"quicknote.totabint");
$to=getpref(STRING,"quicknote.tab".$note."path");
&_QuickNote_SendText;
}

QuickNote_Page{
$note=getpref(INT,"quicknote.totabint");
$to=getpref(STRING,"quicknote.tab".$note."path");
&_QuickNote_SendPage;
}
QuickNote_Tab{
getpref(INT,"quicknote.numtabs")>=$ARG?setpref(INT,"quicknote.totabint",$ARG):0;
$_QuickNote_HideBox == 1 ?0:&QuickNote_SettingsDisplay;
}

QuickNote_SettingsDisplay{
$max=getpref(INT,"quicknote.numtabs");
$activ=getpref(INT,"quicknote.totabint");
alert(_("Number of tabs :")."\t".$max."\n"._("Default tab :")."\t".$activ."\n"._("Hide box :")."\t".$_QuickNote_HideBox,_("QuickNote defaults"));
}

QuickNote_HideBox{
menuchecked=getpref(INT,"quicknote.hidebox");
togglepref(INT,"quicknote.hidebox",0,1);
$_QuickNote_HideBox=getpref(INT,"quicknote.hidebox");
}

# ----- PRIVATE

$_QuickNote_HideBox=getpref(INT,"quicknote.hidebox");

_QuickNote_SendText{
$refpage="\n----------------------";
getpref(BOOL,"quicknote.showUrl")==false ? 0:$refpage=$refpage."\n".$URL."\n----------------------";
setclipboard("");
id(ID_EDIT_COPY);
$text=getclipboard();
$text=$refpage."\n".$text;
pluginmsg(utils, "append", $to, $text);
}

_QuickNote_SendPage{
$refpage="\n----------------------";
getpref(BOOL,"quicknote.showUrl")==false ? 0:$refpage=$refpage."\n".$URL."\n----------------------";
setclipboard("");
id(ID_EDIT_SELECT_ALL);
id(ID_EDIT_COPY);
id(ID_EDIT_SELECT_NONE);
$text=getclipboard();
$text=$refpage."\n".$text;
pluginmsg(utils, "append", $to, $text);
}

_QuickNote_BuildMenu{

# tools menu
#
#setmenu(WebServices,inline,Quick_Note);
setmenu("WebServices",popup,"&Archiver");
setmenu("&Archiver",macro,"&Archive Plus",quicknotepass);
setmenu("&Archiver",macro,"&Default Settings",QuickNote_SettingsDisplay);
setmenu("&Archiver",macro,"&Hide Settings Box",QuickNote_HideBox);
#
# context menus
#
setmenu(DocumentSave,inline,_Quick_Page);
setmenu(_Quick_Page,macro,"Archive Plus",QuickNote_Page);
setmenu(Selection,inline,_Quick_Text);
setmenu(_Quick_Text,macro,"Archive Plus...",QuickNote_Text);
#
# Accels
#
setaccel("CTRL ALT Q","macros(QuickNote)");
setaccel("SHIFT ALT Q","macros(QuickNote_Page)");
setaccel("SHIFT CTRL ALT Q","macros(QuickNote_SettingsDisplay)");
setaccel("CTRL ALT 1","macros(QuickNote_Tab(1))");
setaccel("CTRL ALT 2","macros(QuickNote_Tab(2))");
setaccel("CTRL ALT 3","macros(QuickNote_Tab(3))");
setaccel("CTRL ALT 4","macros(QuickNote_Tab(4))");
}
#
$OnInit=$OnInit."_QuickNote_BuildMenu;";
# ------------------------------------------------------------------------------------------------------------------
$macroModules=$macroModules."QuickNote;";
[/sub][/color]

please note, the menu entry in this macro is archiver[/quote]

K-Meleon forum is powered by Phorum.