K-Meleon

Bitte den Text im grauen Feld kopieren und als macros.cfg speichern und die Datei C:\Programme\K-Meleon\Profiles\default\????????.slt\macros.cfg ersetzen.

<pre>

  1. MACROS DEFINITION FILE (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
  2. Deutsch von rumpel rumpel»public±files
  3. ENGINES

Google{ &OldSearch?; $search = "Google"; $eng = "http://www.google.de/search?q="; &SetSearch?; }

Yahoo{ &OldSearch?; $search = "Yahoo"; $eng = "http://de.search.yahoo.com/bin/search?p="; &SetSearch?; }

Wikipedia{ &OldSearch?; $search = "Wikipedia"; $eng = "http://de.wikipedia.org/wiki/"; &SetSearch?; }

LeoED{ &OldSearch?; $search = "Leo Englisch/Deutsch"; $eng = "http://dict.leo.org/?lp=ende&search="; &SetSearch?; }

KM{ &OldSearch?; $search = "K-Meleon im K-Meleon Forum"; $eng = "http://kmeleon.sourceforge.net/forum/search.php?f=3&globalsearch=1&match=1&date=0&fldsubject=1&fldbody=1&search="; &SetSearch?; }

URL{ &OldSearch?; $search = "URL"; $eng = ""; &Locked; }

EngineSync?{ setcheck("macros(Google)", getpref(STRING, $sen) == "Google" ? true:false); setcheck("macros(Yahoo)", getpref(STRING, $sen) == "Yahoo" ? true:false); setcheck("macros(Wikipedia)", getpref(STRING, $sen) == "Wikipedia" ? true:false); setcheck("macros(LeoED)", getpref(STRING, $sen) == "Leo Englisch/Deutsch" ? true:false); }

  1. SEARCH MACROS

$se = "kmeleon.general.searchEngine"; $sl = "kmeleon.general.searchLocked"; $sen = "kmeleon.general.searchEngineName"; $so = "kmeleon.general.searchOpen"; $eng = getpref(STRING, $se) ; $search = getpref(STRING, $sen); $layers = "kmeleon.plugins.layers.load"; $layer=getpref(BOOL, $layers);

OldSearch?{ $oldeng = $eng; $oldsearch = $search; }

SetSearch?{ getpref(BOOL, $sl) == false ? &Unlocked:&Locked; &Sync; } Unlocked{ setpref(STRING, $sen, $search); setpref(STRING, $se, $eng); &Search; } Locked{ &Search; $search = $oldsearch; $eng = $oldeng; } Search{ $tmp = getclipboard(); setclipboard(); id(ID_EDIT_COPY?); $word = getclipboard(); $word "" ? &URLBarSearch? : $word $URL ? &PromptSearch? : &OpenSearch?; setclipboard($tmp); } URLBarSearch?{ id(ID_SELECT_URL?); id(ID_EDIT_COPY?); $word = getclipboard(); $word "" ? $word = $URL : ""; $word $URL ? &PromptSearch? : &OpenSearch?; } PromptSearch?{ $search == "" ? $search = "Google":0; $search =="URL" ? $tip ="URL eingeben:" :$tip ="Suche mit ".$search." nach:"; setclipboard($tmp); $word = prompt($tip, $search); $word == "" ? "" : &OpenSearch?; } OpenSearch?{ $how = getpref(INT, $so); $search!="Google"?"":&Umlauts; $how 0? open($eng . $word) : $how 1? &SearchNew? : $how == 2? &SearchBack?:0; } Umlauts{ $word=gsub("ä","%C3%A4",$word); $word=gsub("ö","%C3%B6",$word); $word=gsub("ü","%C3%BC",$word); $word=gsub("ß","%C3%9F",$word); $word=gsub("Ä","%C3%84",$word); $word=gsub("Ö","%C3%96",$word); $word=gsub("Ü","%C3%9C",$word); } SearchNew?{ &ResetURL; $layer==true ? pluginmsg(layers,"OpenURL",$eng.$word):opennew($eng.$word); } ResetURL{ setclipboard($URL); id(ID_SELECT_URL?); id(ID_EDIT_PASTE?); id(ID_SELECT_URL?); } SearchBack?{ &ResetURL; $layer==true ? pluginmsg(layers,"OpenURLBg?",$eng.$word):OpenBg?($eng.$word); }

SN0{ setpref(INT, $so, 0); &Sync; } SN1{ setpref(INT, $so, 1); &Sync; } SN2{ setpref(INT, $so, 2); &Sync; }

SearchLock?{ $search == "" ? $search = "Google":0; togglepref(BOOL, $sl); getpref(BOOL, $sl) == true ? $how = " > " . $search : $how = "WÄHLBAR"; alert("Die Standard Suchmaschine ist jetzt " . $how . "\n\n\nUm die Standard Suchmaschine zu wählen:\n\n1. Auswahl erlauben\n2. Suchmaschine im Menü anklicken\n3. Auswahl wieder sperren", "Suchen Schaltfläche", INFO); &Sync; }

AddEng?{ $theurl = "http://kmeleon.sourceforge.net/wiki/index.php?id=Search+Engines"; $layer=="true"? pluginmsg(layers,"OpenURL",$theurl):opennew($theurl); $loaded = "MacMen?"; } MacMen?{ &Macros; &Menus; $loaded = ""; }

JSEnable { getpref(BOOL, $jscript) == false ? &JS : macros($macro); } JS{ &JSToggle; macros($macro); &JSToggle; }

Highlight{ $macro = "Find"; &JSEnable; } Find{ open("javascript:(function(){var count=0, text, dv;text=prompt(%22Folgendes suchen und makieren:%22, %22%22);if(textnull || text.length0)return;dv=document.defaultView;function searchWithinNode(node, te, len){var pos, skip, spannode, middlebit, endbit, middleclone;skip=0;if( node.nodeType3 ){pos=node.data.toUpperCase().indexOf(te);if(pos>=0){spannode=document.createElement(%22SPAN%22);spannode.style.backgroundColor=%22yellow%22;middlebit=node.splitText(pos);endbit=middlebit.splitText(len);middleclone=middlebit.cloneNode(true);spannode.appendChild(middleclone);middlebit.parentNode.replaceChild(spannode,middlebit);count;skip=1;}}else if( node.nodeType1&& node.childNodes&& dv.getComputedStyle(node, null).getPropertyValue(%22display%22)!=%22none%22){for (var child=0; child < node.childNodes.length; child){child=child+searchWithinNode(node.childNodeschild?, te, len);}}return skip;}window.status=%22Searching for '%22+text+%22'...%22;searchWithinNode(document.body, text.toUpperCase(), text.length);window.status=%22Found %22+count+%22 occurrence%22+(count==1?%22%22:%22s%22)+%22 of '%22+text+%22'.%22;})();"); }

Keyword{ togglepref(BOOL,"keyword.enabled"); &Sync; }

CheckKey?{ $eng = getpref(STRING, "keyword.URL"); } KeyEngBBN?{ $eng = "http://www.google.de/search?hl=de&q="; $string = "BBN"; &KeyEng?; } KeyEngIFL?{ $eng = "http://www.google.de/search?hl=de&lr=lang_de&btnI=1&q="; $string = "IFL"; &KeyEng?; } KeyEngGoog?{ $eng = "http://www.google.de/search?hl=de&lr=lang_de&q="; $string = "GOOG"; &KeyEng?; } KeyConfig?{ &CheckKey?; $eng = prompt("Schlüsselwort Suchmaschine auswählen:", "Schlüsselwort Autosuche", $eng) $eng "" ? "" : $string = ""; $eng "" ? "" : &KeyEng?; } KeyEng?{ setpref(STRING, "keyword.URL", $eng); setpref(STRING, "keyword.eng", $string); &Sync; alert("Schlüsselwort Suchmaschine = '" . $eng . "'\n\n\nDie ausgewählte Suchmaschine ist nach einem K-Meleon Neustart aktiviert. Wort oder Ausdruck in URL Bar eintippen und Enter drücken", "Schlüsselwort Suchmaschine", INFO); }

$taf = "accessibility.typeaheadfind";

TAF{ togglepref(BOOL,$taf); &Sync; } TAFAuto{ togglepref(BOOL, $taf . ".autostart"); $var = getpref(BOOL, $taf . ".autostart") == "true" ? $bool = " - Eingeschaltet. Sobald geschrieben wird automatisch gestartet, wenn eine Seite geladen wird und eine Eingabe erfolgt ." : $bool = " - AUSGESCHALTET "; $tip = "Sobald geschrieben Autostart"; &Sync; &AlertTAF; } TAFLinks{ togglepref(BOOL, $taf . ".linksonly"); $var = getpref(BOOL, $taf . ".linksonly") == "true" ? $bool = " - Eingeschaltet. Sobald geschrieben sucht nur in Links. Sobald geschrieben FĂĽr gesammten Text wird durch ausschalten von Nur Links wieder aktiviert." : $bool = " - AUSGESCHALTET "; $tip = "Sobald geschrieben nur fĂĽr Links "; &Sync; &AlertTAF; } AlertTAF{ alert($tip . $bool, $tip, INFO); }

  1. IMAGE & ZOOM MACROS

ImageInfo?{ $macro = "ImgInfo?"; &JSEnable; } ImgInfo? { $FrameURL=""; $PageURL=$FrameURL; open("javascript: function chkframes(elem) { var rep; if (unescape(elem.location) '".$PageURL."' || '".$PageURL."''') { rep=chkimg(elem); if (rep) return rep; } for (var f=0; f<elem.frames.length; f) { rep=chkframes(elem.framesf?); if (rep) return rep; } return; } function chkimg(elem){ if(elem.document.images.length>0){ var i; for(i=0;i<elem.document.images.length;i){ if(unescape(elem.document.imagesi.src) == '".$ImageURL."'){ return elem.document.imagesi; } } } } function XyZ() { var img=chkframes(window); if (img) { alert(\"* I M A G E P R O P E R T I E S *\\r\\n\\r\\nURL:\\t\" + unescape(img.src) + \"\\r\\nWidth:\\t\" + img.width + \"\\r\\nHeight:\\t\" + img.height + \"\\r\\nALT:\\t\" + img.alt + \"\\r\\nTitle:\\t\" + img.title); } } void(XyZ()); "); }

ImageCache?{ $i = index($ImageURL, "#"); $addr = $i==-1 ? $ImageURL : substr($ImageURL, 0, $i); $client = index($addr, "https://")==0 ? "HTTP-memory-only" : "HTTP"; $var = "about:cache-entry?client=" . $client . "&sb=1&key=" . $addr; index($addr, "http")==0 ? opennew($var) : ""; }

ZoomInImage?{ $macro = "ZoomInImg?"; &JSEnable; } ZoomInImg?{ $FrameURL=""; $PageURL=$FrameURL; open("javascript:function chkframes(elem) { var rep; if (unescape(elem.location) '".$PageURL."' || '".$PageURL."''') { rep=chkimg(elem); if (rep) return rep; } for (var f=0; f<elem.frames.length; f) { rep=chkframes(elem.framesf?); if (rep) return rep; } return; } function chkimg(elem){ if(elem.document.images.length>0){ var i; for(i=0;i<elem.document.images.length;i){ if(unescape(elem.document.imagesi.src) '".$ImageURL."'){ return elem.document.imagesi; } } } } function zoomImage(image, amt) { if(image.initialHeight null) { /* avoid losing height information due to integer rounding while zooming out */ image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; } function findIMG() { var img=chkframes(window); zoomImage(img,2); } void(findIMG());"); }

ZoomOutImage?{ $macro = "ZoomOutImg?"; &JSEnable; } ZoomOutImg? { $FrameURL=""; $PageURL=$FrameURL; open("javascript:function chkframes(elem) { var rep; if (unescape(elem.location) '".$PageURL."' || '".$PageURL."''') { rep=chkimg(elem); if (rep) return rep; } for (var f=0; f<elem.frames.length; f) { rep=chkframes(elem.framesf?); if (rep) return rep; } return; } function chkimg(elem){ if(elem.document.images.length>0){ var i; for(i=0;i<elem.document.images.length;i){ if(unescape(elem.document.imagesi.src) '".$ImageURL."'){ return elem.document.imagesi; } } } } function zoomImage(image, amt) { if(image.initialHeight null) { /* avoid losing height information due to integer rounding while zooming out */ image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; } function findIMG() { var img=chkframes(window); zoomImage(img,.5); } void(findIMG());"); }

ZoomInImages?{ $macro = "ZoomInImgs?"; &JSEnable; } ZoomInImgs?{ open("javascript:(function(){ function zoomImage(image, amt) { if(image.initialHeight == null) { /* avoid losing height information due to integer rounding while zooming out */ image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; } for (i=0; i<document.images.length; ++i) zoomImage(document.imagesi, 1.1); })();"); }

ZoomOutImages?{ $macro = "ZoomOutImgs?"; &JSEnable; } ZoomOutImgs?{ open("javascript:(function(){ function zoomImage(image, amt) { if(image.initialHeight == null) { /* avoid losing height information due to integer rounding while zooming out */ image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; } for (i=0; i<document.images.length; ++i) zoomImage(document.imagesi, .9092); })();"); }

ZoomImageLinks?{ $macro = "ZoomImgLinks?"; &JSEnable; } ZoomImgLinks?{ open("javascript:{var hrefs=document.getElementsByTagName('A'),images='';for(idx=0;idx<hrefs.length;idx++){href=hrefsidx?.href.toUpperCase(); if(href.indexOf('.GIF')>-1||href.indexOf('.BMP')>-1||href.indexOf('.JPEG')>-1||href.indexOf('.JPG')>-1||href.indexOf('.PNG')>-1)images+='<img src='+hrefsidx?+'>

';}images='<html><body><center><h2>Images</h2>

'+images+'</center></body></html>';document.write(images);document.close();}"); }

ZoomInPage?{ $macro = "ZoomInPg?"; &JSEnable; } ZoomInPg?{ open("javascript:function zoomImage(image, amt) { if(image.initialHeight null) {image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; }function rZoomFont(n, node) {for ( var i = 0; i < node.childNodes.length; i ) {if (node.childNodesi.nodeType 1) rZoomFont(n, node.childNodesi);}startSize = getComputedStyle(node,).getPropertyValue('font-size');startSize = Number(startSize.substr(0,startSize.length-2));lh = getComputedStyle(node,).getPropertyValue('line-height');if (lh != 'normal') {lh = Number(lh.substr(0,lh.length-2)) * n + 'px';node.style.lineHeight = lh;}newSize = (startSize * n) + 'px';node.style.fontSize = newSize;}rZoomFont(1.1,document.getElementsByTagName('body')0?); for (i=0; i<document.images.length; i) zoomImage(document.imagesi, 1.1);"); }

ZoomOutPage?{ $macro = "ZoomOutPg?"; &JSEnable; } ZoomOutPg?{ open("javascript:function zoomImage(image, amt) { if(image.initialHeight null) {image.initialHeight = image.height; image.initialWidth = image.width; image.scalingFactor = 1; } image.scalingFactor *= amt; image.width = image.scalingFactor * image.initialWidth; image.height = image.scalingFactor * image.initialHeight; }function rZoomFont(n, node) {for ( var i = 0; i < node.childNodes.length; i ) {if (node.childNodesi.nodeType 1) rZoomFont(n, node.childNodesi);}startSize = getComputedStyle(node,).getPropertyValue('font-size');startSize = Number(startSize.substr(0,startSize.length-2));lh = getComputedStyle(node,).getPropertyValue('line-height');if (lh != 'normal') {lh = Number(lh.substr(0,lh.length-2)) * n + 'px';node.style.lineHeight = lh;}newSize = (startSize * n) + 'px';node.style.fontSize = newSize;}rZoomFont(0.9092,document.getElementsByTagName('body')0?); for (i=0; i<document.images.length; i) zoomImage(document.imagesi, .9092);"); }

$zoom = "kmeleon.general.zoomButtons";

ZoomSet?{ setpref(STRING, $zoom, $var); &Sync; alert("Zoom Schaltflächen benutzen für " . $what, Zoom Schaltflächen, INFO); } ZoomText?{ $var = "text"; $what = "Text."; &ZoomSet?; } ZoomImages{ $var = "images"; $what = "Bilder."; &ZoomSet?; } ZoomPage?{ $var = ""; $what = "beides, Bilder und Text."; &ZoomSet?; }

ZoomIn?{ $zi = getpref(STRING, $zoom); $zi == "" ? &ZoomInPage? : &ZoomInCheck?; } ZoomInCheck?{ $zi == "text" ? id(ID_FONT_INCREASE?) : &ZoomInImages?; }

ZoomOut?{ $zo = getpref(STRING, $zoom); $zo == "" ? &ZoomOutPage? : &ZoomOutCheck?; } ZoomOutCheck?{ $zo == "text" ? id(ID_FONT_DECREASE?) : &ZoomOutImages?; }

  1. BOOKMARK MACROS

FileBook?{ plugin(bookmarks, Add); plugin(bookmarks, Edit); } FileHot?{ plugin(hotlist, Add); plugin(hotlist, Edit); } FileFav?{ plugin(favorites, Add); plugin(favorites, Edit); }

FavToolbar?{ $tf = "kmeleon.plugins.favorites.toolbarFolder"; $folder = getpref(STRING, $tf); $folder == "" ? $folder = "Links" : ""; $folder = prompt("Name des Ordners der in der Favoriten Leiste angezeigt wird eingeben.", "Favoriten Leisten Ordner", $folder); $folder == "" ? "" : setpref(STRING, $tf, $folder); $folder == "" ? "" : alert("Nach einem K-Meleon Neustart ist ' " . $folder . " ' der angezeigte Favoriten Ordner", Favoriten Ordner, INFO); } ChangeLinks?{ $tit = "kmeleon.plugins.favorites.title"; $favtit = getpref(STRING, $tit); $favtit == "" ? $favtit = "Links" : ""; $favtit = prompt("Namen fĂĽr die Favoriten Leiste eingeben.", "Leiste Name (Leer lassen oder auf Abbrechen klicken um den Namen zu entfernen)", $favtit); setpref(STRING, $tit, $favtit); alert("Dia Ă„nderung wird nach einem Neustart von K-Meleon wirksam", Favoriten Leiste Name, INFO); }

Chevron{ $chevron = "kmeleon.plugins." . $plugin . ".chevron"; togglepref(BOOL, $chevron); &Sync; getpref(BOOL, $chevron) == "true" ? $var = "- EINGESCHALTET" : $var = "- AUSGESCHALTET"; alert("\nLeisten AufklappmenĂĽ " . $var . "\n\n\nDie Ă„nderung wird sichtbar wenn K-Meleon neu gestartet wird.", "Leisten AufklappmenĂĽ", INFO); } BookChev?{ $plugin = "bookmarks"; &Chevron; } FavChev?{ $plugin = "favorites"; &Chevron; } HotChev?{ $plugin = "hotlist"; &Chevron; }

$ol="ID_OPEN_LINK?"; $nw="ID_OPEN_LINK_IN_NEW_WINDOW?"; $bw="ID_OPEN_LINK_IN_BACKGROUND?"; $lo="layers(OpenURL)"; $bl="layers(OpenURLBg?)"; $book = "kmeleon.plugins.bookmarks.openurl"; $fav = "kmeleon.plugins.favorites.openurl"; $hot = "kmeleon.plugins.hotlist.openurl";

openurl{ setpref(STRING, "kmeleon.plugins." . $plugin . ".openurl", $how); &Sync; }

OpenBook1?{ $plugin = "bookmarks"; $how = $ol; &openurl; } OpenBook2?{ $plugin = "bookmarks"; $how = $nw; &openurl; } OpenBook3?{ $plugin = "bookmarks"; $how = $lo; &openurl; } OpenBook4?{ $plugin = "bookmarks"; $how = $bl; &openurl; } OpenBook5?{ $plugin = "bookmarks"; $how = $bw; &openurl; }

OpenFav1?{ $plugin = "favorites"; $how = $ol; &openurl; } OpenFav2?{ $plugin = "favorites"; $how = $nw; &openurl; } OpenFav3?{ $plugin = "favorites"; $how = $lo; &openurl; } OpenFav4?{ $plugin = "favorites"; $how = $bl; &openurl; } OpenFav5?{ $plugin = "favorites"; $how = $bw; &openurl; }

OpenHot1?{ $plugin = "hotlist"; $how = $ol; &openurl; } OpenHot2?{ $plugin = "hotlist"; $how = $nw; &openurl; } OpenHot3?{ $plugin = "hotlist"; $how = $lo; &openurl; } OpenHot4?{ $plugin = "hotlist"; $how = $bl; &openurl; } OpenHot5?{ $plugin = "hotlist"; $how = $bw; &openurl; }

  1. GROUP MACROS

$kg = "kmeleon.group."; $URL=""; $rl = "ReplaceLayersInWindow?"; $al = "AddLayersToWindow?"; $gl = "GetLayersInWindow?"; $fn="FindNick?"; $lc=""; $gn = "kmeleon.groupnames";

ReadNames?{ $names = getpref(STRING, $gn); } Checkname{ $checkname = "\n" . $name . "\n"; $exists = index($names, $checkname); }

SaveAsGroup?{ &ReadNames?; $names == "" ? $names = "\n" :0; $group = pluginmsgex(layers, $gl,"",STRING); $name = prompt("Gruppen Name für diese Schichten eingeben:", "Gruppen Name?", ""); $name == "" ? "" : &Checkname; $name == "" ? "" : $exists != -1 ? &ConfirmGroup? : &SaveGroup?; } ConfirmGroup?{ confirm("Gruppen Name vorhanden,überschreiben?", "Gruppen Name '" . $name . "' vorhanden", YESNO, EXCLAIM)=="YES" ? setpref(STRING, $kg . $name, $group) : &SaveAsGroup?; } SaveGroup?{ setpref(STRING, $gn, $names . $name . "\n"); setpref(STRING, $kg . $name, $group); confirm("\n '" . $name . "' in die URL Bar eingeben und dann SHIFT+ENTER drücken um die Gruppe alleine oder ALT+ENTER drücken um die Gruppe neben einer bestehenden zu öffnen.\n\n\nDiese Gruppe jedesmal öffnen wenn K-Meleon gestartet wird?","Gruppe gespeichert als: " . $name, YESNO) == "NO" ? "" : &SetGroup?; }

SavedGroups?{ &ReadNames?; $names == "" ? $var = "Ordner" : $var = "Gruppe"; $names == "" ? $names = "Keine Gruppe gefunden" ."\n" :0; $open=confirm($names."\n\n".$var." öffnen?", "Gespeicherte Gruppen")=="OK"? &OpenGroup?:""; }

URLToGroup?{ $name = prompt("URL hinzufĂĽgen zur Gruppe:", "Gruppen Name?", ""); getpref(STRING, $kg . $name); $group = getpref(STRING, $kg . $name); $name "" ? "" : $group "" ? &NoGroup? : &AddURL; } AddURL{ setpref(STRING, $kg . $name, $group . $URL . "\t"); alert(" URL '" . $TITLE . "' zur Gruppe hinzugefĂĽgt: " . $name, "Gruppe: '" . $name . "' Aktualisiert", INFO); }

NoGroup?{ alert("Keine Gruppe gefunden"); }

LayersToGroup? { $name = prompt("Schicht hinzufĂĽgen zur Gruppe:", "Gruppen Name?", ""); getpref(STRING, $kg . $name); $group = getpref(STRING, $kg . $name); $name "" ? "" : $group "" ? &NoGroup? : &AddLayers?; } AddLayers?{ $curr = pluginmsgex(layers,"Schichten im Fenster hinzufĂĽgen","",STRING); setpref(STRING, $kg . $name, $group . $curr); alert("Schichten zur Gruppe hinzugefĂĽgt: " . $name, "Gruppe: '" . $name . "' Aktualisiert", INFO); }

DeleteGroup?{ &ReadNames?; $names == "" ? Keine Gruppe gefunden:&ConfirmDelete?; } ConfirmDelete?{ $open = confirm($names . "\n\nEine dieser Gruppen löschen?", "Gespeicherte Gruppen", YESNO); $open == "NO" ? "" : &PromptDelete?; } PromptDelete?{ $name = prompt("Name der zu löschenden Gruppe eingeben:", "Gruppen Name?", ""); $name == "" ? "" : &Checkname; $name == "" ? "" : $exists != -1 ? &DeleteURLs? : &NoGroup?; } DeleteURLs?{ $names = sub($checkname, "\n", $names); setpref(STRING,$gn,$names); delpref($kg.$name); alert("Gruppe: '".$name."' gelöscht.","Gruppe gelöscht",INFO); }

PluginCheck?{ getpref(BOOL, "kmeleon.plugins.bookmarks.load") == false ? $hot = getpref(BOOL, "kmeleon.plugins.hotlist.load"):""; $hot == false ? $tip = "Gruppen Name" : $tip = "Gruppen Name oder Ordner Alias eingeben"; }

SetOnly?{ setpref(STRING, $og, "layers(ReplaceLayersInWindow?)"); } SetNext?{ setpref(STRING, $og, "layers(AddLayersToWindow?)"); } GroupOnly?{ $lc=$rl; &SetOnly?; &OpenGroup?; $lc=$al; &SetNext?; }

OpenGroup?{ $old = getclipboard(); setclipboard(); id(ID_SELECT_URL?); id(ID_EDIT_COPY?); $name = getclipboard(); $name == "" ? $name = $URL : ""; $name == $URL ? &PromptGroup? : &ChkGroup?; setclipboard($old); } PromptGroup?{ &PluginCheck?; $name = prompt($tip, "Gruppen Name?", ""); $name == "" ? "" : &ChkGroup?; } ChkGroup?{ $group = getpref(STRING, $kg . $name); $group == "" ? &ChkFolder? : &Group; } ChkFolder?{ $plugin="bookmarks"; $group = pluginmsgex($plugin, $fn, $name, STRING) == "" ? $plugin="hotlist":""; pluginmsgex($plugin, $fn, $name, STRING) == "" ? &ResetURL : &Folder; } Group{ $lc==""? $lc=$al:""; pluginmsg(layers,$lc,$group); } Folder{ setclipboard($name); id(ID_SELECT_URL?); id(ID_EDIT_PASTE?); id(ID_NAV_GO?); &ResetURL; }

  1. STARTUP GROUP & LAST SESSION MACROS

$loaded=""; $sg="kmeleon.general.startGroup"; $sn="kmeleon.general.startGroupName"; $sh="kmeleon.general.startHome"; $og="kmeleon.general.opengroup"; $gt="kmeleon.grouptemp"; $kl="kmeleon.grouplast"; $ln="ID_OPEN_LINK_IN_NEW_WINDOW?|ID_OPEN_LINK_IN_BACKGROUND?";

StartGroup?{ $oldname = getpref(STRING, $sn); &PluginCheck?; $name=prompt($tip, "Startgruppe Name?", $oldname); $name"" ? "" : $group = getpref(STRING, $kg . $name) "" ? &FolderCheck? : &SetGroup?; } FolderCheck?{ $plugin="bookmarks"; $group = pluginmsgex($plugin, $fn, $name, STRING) == "" ? $plugin="hotlist":0; $group=pluginmsgex($plugin, $fn, $name, STRING) == "" ? &NoStart? : &SetGroup?; } SetGroup?{ setpref(INT,$sg,2); setpref(STRING,$sn,$name); setpref(BOOL,$sh,false); &Sync; } NoStart?{ &NoGroup?; setpref(STRING, $sn, $oldname); &StartGroup?; } StartLast?{ setpref(INT, $sg, 3); setpref(BOOL, $sh, false); &Sync; } StartHome?{ setpref(INT, $sg, 0); setpref(BOOL, $sh, true); &Sync; } StartBlank?{ setpref(INT, $sg, 1); setpref(BOOL, $sh, false); &Sync; }

GroupStart?{ $oldclip = getclipboard(); $name = getpref(STRING, $sn); id(ID_SELECT_URL?); id(ID_EDIT_COPY?); $theurl = getclipboard(); $theurl == "about:blank" ? &LayersCheck?:""; setclipboard($oldclip); $loaded=""; } LayersCheck?{ $layer=="true"? &StartLayers?:&StartWindows?; } StartLayers?{ $lc=$rl; &SetOnly?; getpref(INT,$sg)==3 ? &OpenLast?:&OpenStart?; $lc=$al; &SetNext?; } OpenLast?{ $group=getpref(STRING,$kl) ; $group==""?"": &Group; } OpenStart?{ $name = getpref(STRING, $sn); &ChkGroup?; } StartWindows?{ setpref(STRING, $og, "ID_OPEN_LINK?|ID_OPEN_LINK_IN_BACKGROUND?"); $name = getpref(STRING, $sn); getpref(INT, $sg) == 3 ? "" : &ChkFolder?; setpref(STRING, $og, $ln); }

GetSetTemp?{ $group = pluginmsgex(layers,$gl,"",STRING); setpref(STRING, $gt, $group); } SetLast?{ $group = getpref(STRING, $gt); setpref(STRING, $kl, $group); } OpenClosed?{ $lc=$rl; $group=getpref(STRING,$gt); $curr=pluginmsgex(layers,$gl,"",STRING); $group $curr ? "" : $curr = ""; $curr "" ? &Group : "" ; }

ReloadAll?{ pluginmsg(layers,"Alle Schichten im Fenster","ID_NAV_RELOAD?"); }

Home{ getpref(INT,$sg)!=2 ? id(ID_NAV_HOME?):&OpenStart?; }

  1. EVENT MACROS w/LAST SESSION & STARTUP GROUP SUPPORT

OnStartup?{ &SetLast?; $layer=="true"? &SetNext?:setpref(STRING,$og,$ln); getpref(INT,$sg)<2 ? "":$loaded="GroupStart?"; &Sync; }

OnLoad?{ $loaded==""?"":macros($loaded); &GetSetTemp?; &Sync; }

OnCloseGroup?{ &GetSetTemp?; }

OnWMAppExit?{ &GetSetTemp?; }

OnQuit?{ &SetLast?; getpref(BOOL,$uar)!=true? &UA:""; }

  1. MAIL MACROS

ReadClient?{ $mclient = getpref(STRING, "kmeleon.general.MailClient?"); $nclient = getpref(STRING, "kmeleon.general.NewsClient?"); } ParseMail?{ &ReadClient?; $which = "Mail"; $client = $mclient; $ex = "freemail.web.de/"; } ParseNews?{ &ReadClient?; $which = "News"; $client = $nclient; $ex = "news.google.de"; } Mail{ &ParseMail?; $mclient "" ? &ClientPath? : $web = index($mclient, "http") -1 ? exec($mclient) : opennew($mclient); } News{ &ParseNews?; $nclient "" ? &ClientPath? : $web = index($nclient, "http") -1 ? exec($nclient) : opennew($nclient); } ClientPath?{ &ReadClient?; $client == "" ? $client = "C:\\Programme\\Outlook Express\\msien.exe":0; $client = prompt("Pfadangabe oder URL (z.b. http://" . $ex . ") des Programms.", $which . " Programm Ordner", $client); $client == "" ? "" : setpref(STRING, "kmeleon.general." . $which . "Client", $client); $client == "" ? "" : alert("\n" . $which . " Programm = '" . $client . "'\n\n\nAuf die " . $which . " Schaltfläche klicken um das " . $which . " Programm zu starten.", $which . " Programm", INFO); } MCFG{ &ParseMail?; &ClientPath?; } NCFG{ &ParseNews?; &ClientPath?; }

Compose{ $old = getclipboard(); open("mailto:"); &ResetURL; setclipboard($old); }

EmailURL{ $old = getclipboard(); open("?subject=".gsub("&","%26",$TITLE)."&body=".gsub("&","%26",$URL)); &ResetURL; setclipboard($old); } EmailImageURL?{ $old = getclipboard(); open("?subject=".gsub("&","%26",$TITLE)."&body=".gsub("&","%26",$IMAGEURL)); &ResetURL; setclipboard($old); } EmailFrameURL?{ $old = getclipboard(); open("?subject=".gsub("&","%26",$TITLE)."&body=".gsub("&","%26",$FRAMEURL)); &ResetURL; setclipboard($old); } EmailText?{ $macro = "EmailTxt?"; &JSEnable; } EmailTxt?{ open("javascript:(function(){var sel=document.getSelection();if(sel)self.location=\"?subject=\"+document.title+\"&body=\"+escape(sel)})()"); }

  1. PRIVACY MACROS

$animation = "image.animation_mode"; $colors = "browser.display.use_document_colors"; $cookies = "network.cookie.cookieBehavior"; $images = "network.image.imageBehavior"; $java = "security.enable_java"; $jscript = "javascript.enabled"; $popups = "dom.disable_open_during_load"; $referer = "network.http.sendRefererHeader";

AniToggle? { togglepref(STRING, $animation, "normal", "none"); &Sync; getpref(STRING, $animation) == "none" ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Animation " . $tip); }

CToggle{ togglepref(BOOL, $colors); &Sync; getpref(BOOL, $colors) == false ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Page Colors " . $tip); }

CKToggle { togglepref(INT, $cookies, 2,0); &Sync; getpref(INT, $cookies) == 2 ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Cookies " . $tip); }

PBToggle{ togglepref(BOOL, $popups); &Sync; getpref(BOOL, $popups) == true ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Popups " . $tip); }

JToggle{ togglepref(BOOL, $java); &Sync; getpref(BOOL, $java) == false ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Java " . $tip); }

JSToggle{ togglepref(BOOL, $jscript); &Sync; getpref(BOOL, $jscript) == false ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("JavaScript " . $tip); }

ImgToggle? { togglepref(INT, $images, 2,0); &Sync; getpref(INT, $images) == 2 ? $tip = "BLOCKED" : $tip = "ALLOWED"; statusbar("Images " . $tip); }

RefToggle? { togglepref(INT, $referer, 2,0); &Sync; getpref(INT, $referer) == 2 ? $tip = "ALLOWED" : $tip = "BLOCKED"; statusbar("Referer " . $tip); }

$ua="general.useragent.override"; $uas=""; $pu="kmeleon.privacy.useragent"; $ps=".string"; $uar="kmeleon.privacyUA.noReset";

UA{ delpref($ua); &Sync; }

UA1{ $uas=getpref(STRING,$pu."1".$ps); &SetUA; } UA2{ $uas=getpref(STRING,$pu."2".$ps); &SetUA; } UA3{ $uas=getpref(STRING,$pu."3".$ps); &SetUA; } UACust{ $uas=getpref(STRING,$ua); $uas = prompt("K-Meleon soll sich identifizieren als:", "Benutzerdefiniert", $uas); $uas == "" ? "" : &SetUA; } SetUA{ setpref(STRING,$ua,$uas); &Sync; } ResetUA{ togglepref(BOOL,$uar); &Sync; }

ClearAll?{ plugin(privacy, ClearCache?); plugin(privacy, ClearCookies?); plugin(privacy, ClearHistory?);plugin(privacy, ClearMRU); plugin(privacy, ClearSignon?); }

KillFlash?{ $old = getclipboard(); $macro = "KillFlsh?"; &JSEnable; &ResetURL; setclipboard($old); } KillFlsh?{ open(" javascript: (function(){var d=document; function K(N,t) { var b = d.createElement('div'); b.style.width=N.width; b.style.height=N.height; b.innerHTML='<del>' + t + '</del>'; N.parentNode.replaceChild(b,N); } function Z(t) { var T = d.getElementsByTagName(t), i; for (i=T.length-1;i+1;--i) K(Ti,t); } Z('object'); Z('embed');})(); (function(){document.close();})(); "); }

KillApplets?{ $old = getclipboard(); $macro = "KillApp?"; &JSEnable; &ResetURL; setclipboard($old); } KillApp?{ open(" javascript: (function(){var d=document; function K(N,t) { var b = d.createElement('div'); b.style.width=N.width; b.style.height=N.height; b.innerHTML='<del>' + t + '</del>'; N.parentNode.replaceChild(b,N); } function Z(t) { var T = d.getElementsByTagName(t), i; for (i=T.length-1;i+1;--i) K(Ti,t); } Z('applet');})(); (function(){document.close();})(); "); }

  1. LAYER MACROS

$catch = "kmeleon.plugins.layers.catchOpen"; $mode = "kmeleon.general.mode"; $flip = "dom.disable_window_flip";

LayersOnly?{ $var = "Nur Schichten"; setpref(BOOL,$layers,true); setpref(BOOL, $catch, true); $bool = true; $menu = false; &Scripts; setpref(STRING, $mode, $var); &Sync; alert("Alle neuen Fenster werden als Schicht geöffnet. Wenn die Änderung aus dem Nur Fenster Modus heraus gemacht wurde, muss K-Meleon neu gestartet werden um den Nur Schichten Modus zu nutzen.", "Browserverhalten: " . $var, INFO); }

LayersWindows?{ $var = ""; setpref(BOOL, $layers, true); setpref(BOOL, $catch, false); setpref(STRING, $mode, $var); &Sync; alert("Schichten UND Fenster können jetzt verwendet werden. Wenn die Änderung aus dem Nur Fenster Modus heraus gemacht wurde, muss K-Meleon neu gestartet werden um Schichten UND Fenster zu nutzen.", "Browserverhalten: Schichten und Fenster", INFO); }

WindowsOnly?{ $var = "Nur Fenster"; $quest = confirm("\nDer Nur Fenster Modus schaltet den Schichten Modus aus. Gruppen und Sitzungen sind nicht verfĂĽgbar, nur Ordner Gruppen fĂĽr Lesezeichen & Hotlist Benutzer.\n\n\nSchichten Modus ausschalten?", "Browserverhalten: " . $var, YESNO, EXCLAIM); $quest == "NO" ? "" : &SetWO; } SetWO{ setpref(BOOL, $layers, false); setpref(BOOL, $catch, false); setpref(STRING, $mode, $var); &Sync; alert("Der Nur Fenster Modus wird nach einem Neustart von K-Meleon wirksam.", "Browserverhalten: " . $var, INFO); }

BlockScripts?{ $bool = true; $menu = false; &Scripts; &Sync; alert("Seiten ist es jetzt VERBOTEN Werkzeugleisten zu verstecken, die Fenstergrösse zu ändern und das Kontextmenü abzuschalten.", Skript, INFO); } AllowScripts?{ $bool = false; $menu = true; &Scripts; &Sync; alert("Seiten ist es jetzt ERLAUBT Werkzeugleisten zu verstecken, die Fenstergrösse zu ändern und das Kontextmenü abzuschalten.", Skript, INFO); } Scripts{ setpref(BOOL,$flip,$bool); setpref(BOOL,"dom.disable_window_move_resize",$bool); setpref(BOOL,"dom.disable_window_open_feature.*",$bool); setpref(BOOL,"dom.disable_window_open_feature.minimizable",$bool); setpref(BOOL,"dom.disable_window_open_feature.titlebar",$bool); setpref(BOOL,"dom.disable_window_open_feature.close",$bool); setpref(BOOL,"dom.disable_window_open_feature.toolbar",$bool); setpref(BOOL,"dom.disable_window_open_feature.location",$bool); setpref(BOOL,"dom.disable_window_open_feature.directories",$bool); setpref(BOOL,"dom.disable_window_open_feature.personalbar",$bool); setpref(BOOL,"dom.disable_window_open_feature.menubar",$bool); setpref(BOOL,"dom.disable_window_open_feature.scrollbars",$bool); setpref(BOOL,"dom.disable_window_open_feature.resizable",$bool); setpref(BOOL,"dom.disable_window_open_feature.status",$bool); setpref(BOOL,"dom.disable_window_status_change",$bool); setpref(BOOL,"dom.event.contextmenu.enabled",$menu); }

$num = "kmeleon.plugins.layers.numbers"; $style = "kmeleon.plugins.layers.style";

LayerAlert?{ alert("Einige Änderungen werden erst in einer neuer Schicht wirksam.", "Schichten Darstellung geändert", INFO); } Enumerate{ togglepref(BOOL, $num); &Sync; &LayerAlert?; } Style{ setpref(INT, $style, $int); &Sync; &LayerAlert?; } Pressed{ $int = 2; &Style; } Pressed+{ $int = 10; &Style; } Buttons{ $int = 6; &Style; } Buttons+{ $int = 14; &Style; }

LayersTitle?{ $lt="kmeleon.plugins.layers.title"; $var=getpref(STRING, $lt); $var==""?$var="Layers:":""; $var = prompt("Schichten Leiste->Name eingeben:", "Schichten Leiste->Name ( Um den Namen zu entfernen, leer lassen oder auf abbrechen klicken )", $var); setpref(STRING,$lt,$var); alert("Schichten Leiste->Name = " . $var . "\n\nDie Einstellung wird nach einem Neustart von K-Meleon wirksam.", "Schichten Leiste-> Name", INFO); }

LayerWidth?{ $max="kmeleon.plugins.layers.maxWidth"; $min="kmeleon.plugins.layers.minWidth"; $maxwid=getpref(INT,$max); $minwid=getpref(INT,$min); $maxwid==0 ? $maxwid=35:""; $maxwid=prompt("Maximale Breite je Fläche angeben:",Maximale Breite,$maxwid); $maxwid==""?"":setpref(INT,$max,$maxwid); $maxwid==""?"":$minwid=prompt("Minimale Breite je Fläche angeben:",Minimale Breite,$minwid); $maxwid""?"":$minwid""?"":setpref(INT,$min,$minwid); $maxwid""?"":$minwid""?"":alert("Maximum = ".$maxwid."\nMinimum = ".$minwid,"Schichten Leiste-> Breite",INFO); }

$onClose = "kmeleon.plugins.layers.onCloseOption"; $onOpen = "kmeleon.plugins.layers.onOpenOption";

SetCloseRight?{ setpref(INT, $onClose, 2); &Sync; } SetCloseLeft?{ setpref(INT, $onClose, 1); &Sync; } SetCloseLast?{ setpref(INT, $onClose, 0); &Sync; } SetOpenNext?{ setpref(INT, $onOpen, 1); &Sync; } SetOpenLast?{ setpref(INT, $onOpen, 0); &Sync; }

$confirm = "kmeleon.plugins.layers.confirmClose";

ConfirmToggle?{ togglepref(BOOL, $confirm); &Sync; getpref(BOOL, $confirm) == false ? $tip = "AUSGESCHALTET" : $tip = "EINGESCHALTET"; statusbar("Bestätigen vorm schliessen " . $tip); }

Selected{ $old=getclipboard(); setclipboard(); id(ID_EDIT_COPY?); $add=getclipboard(); }

New{ &Selected; setclipboard($URL); id(ID_SELECT_URL?); id(ID_EDIT_PASTE?); $add==""? &Open:(getpref(STRING,$ou)!="ID_OPEN_LINK?"? &PasteSel?:&OpenNew?); } Open{ $layer==true ? plugin(layers,Open):id(ID_NEW_BROWSER?); setclipboard($old); } OpenNew?{ &ResetURL; setclipboard($add); $layer==true ? pluginmsg(layers,OpenURL,"about:blank"):opennew("about:blank"); $loaded="go"; }

PasteSel?{ setclipboard($add); $add==""?id(ID_NAV_GO?): &go; setclipboard($old); }

go{ &PasteGo?; setclipboard($old); $loaded=""; }

  1. URL BAR MACROS

SelectGo?{ &Selected; &PasteSel?; }

Copy{ id(ID_SELECT_URL?); id(ID_EDIT_COPY?); }

PasteGo?{ id(ID_SELECT_URL?); id(ID_EDIT_PASTE?); id(ID_NAV_GO?); }

PasteSearch?{ id(ID_SELECT_URL?); id(ID_EDIT_PASTE?); &Search; }

ResetURLBar?{ $old = getclipboard(); &ResetURL; setclipboard($old); }

$ou="kmeleon.general.openurl";

URLBar{ setpref(STRING,$ou,$var); &Sync } URLInCurr?{ $var="ID_OPEN_LINK?"; &URLBar; } URLInLayer?{ $var="layers(OpenURL)"; &URLBar; } URLInNew?{ $var="ID_OPEN_LINK_IN_NEW_WINDOW?"; &URLBar; } URLInBgLayer?{ $var="layers(OpenURLBg?)"; &URLBar; } URLInBg?{ $var="ID_OPEN_LINK_IN_BACKGROUND?"; &URLBar; }

OpenInNew?{ $old=getpref(STRING,$ou); $layer==true? &URLInLayer?:&URLInNew?; id(ID_NAV_GO?); setpref(STRING,$ou,$old); }

up_directory { $var=dirname($URL); $var=="."?"":open($var); }

top_level { $macro="top"; &JSEnable; } top{ open("javascript:location.pathname = ""; void 0"); }

$dom="kmeleon.general.domComplete";

ctrl_enter{ $var="0"; &GetComplete?; &Domain; } ctrl_alt_enter{ $var="1"; &GetComplete?; &Domain; } ctrl_shift_enter{ $var="2"; &GetComplete?; &Domain; }

GetComplete?{ $prefix=getpref(STRING,$dom.$var.".prefix"); $prefix==""? $prefix="http://www.":""; $suffix=getpref(STRING,$dom.$var.".suffix"); $var"0"?($suffix""?$suffix=".de":"";):""; $var"1"?($suffix""?$suffix=".com":"";):""; $var"2"?($suffix""?$suffix=".org":"";):""; }

Domain{ $old=getclipboard(); setclipboard(); id(ID_SELECT_URL?); id(ID_EDIT_COPY?); $theurl=getclipboard(); $theurl==""? &ResetURL: &Complete; setclipboard($old); } Complete{ $fullurl=$prefix.$theurl.$suffix; setclipboard($fullurl); id(ID_EDIT_PASTE?); id(ID_NAV_GO?); }

CEConfig{ $var="0"; &GetComplete?; $tip="STRG + Enter"; &DomConfig?; } CAEConfig{ $var="1"; &GetComplete?; $tip="Strg + Alt + Enter"; &DomConfig?; } CSEConfig{ $var="2"; &GetComplete?; $tip="Strg + Shift + Enter"; &DomConfig?; }

DomConfig?{ $prefix=prompt("Prefix:",$tip,$prefix); $prefix==""?"":setpref(STRING,$dom.$var.".prefix", $prefix); $prefix==""?"":$suffix=prompt("Suffix:",$tip,$suffix); $prefix""?"":$suffix""?"":setpref(STRING,$dom.$var.".suffix", $suffix); $prefix""?"":$suffix""?"":alert($prefix." + ".$suffix,$tip,INFO); }

  1. DOWNLOAD MACROS

$sd="kmeleon.general.saveDir"; $sp="kmeleon.general.savePageDir"; $si="kmeleon.general.saveImageDir"; $sld="kmeleon.general.saveLinkDir"; $dir="kmeleon.general.profileDir"; $path=getpref(STRING, $dir);

GetDir?{ $which=getpref(STRING,$el); } GetDef?{ $el=$sd; $dl="Standard..."; &GetDir?; } GetPage?{ $el=$sp; $dl="Seite speichern als..."; &GetDir?; } GetImage?{ $el=$si; $dl="Bild speichern als..."; &GetDir?; } GetLink?{ $el=$sld; $dl="Link speichern als..."; &GetDir?; }

Save{ &GetDef?; $oldsave=$which; macros($get); setpref(STRING,$sd,$which); id($id); setpref(STRING,$sd,$oldsave); }

SavePage?{ $get="GetPage?"; $id="ID_FILE_SAVE_AS?"; &Save; }

SaveFrame?{ $get="GetPage?"; $id="ID_FILE_SAVE_FRAME_AS?"; &Save; }

SaveImage?{ $get="GetImage?"; $id="ID_SAVE_IMAGE_AS?"; &Save; }

SaveLink?{ $get="GetLink?"; $id="ID_SAVE_LINK_AS?"; &Save; }

SetDir?{ $savetip="Ordner Pfad angeben. (Umgekehrten Schrägstrich am Ende nicht vergessen.)"; $which==""?$which=$path:""; $which=prompt($savetip,$dl,$which); $which==""?"":setpref(STRING,$el,$which); $which""?"":$savepath=$which; $which""?"":&AlertSave?; }

DefaultDir?{ &GetDef?; &SetDir?; }

PageDir?{ &GetPage?; &SetDir?; }

ImageDir?{ &GetImage?; &SetDir?; }

LinkDir?{ &GetLink?; &SetDir?; }

AlertSave?{ &GetDef?; $def=$which; $dtip=$dl; &GetPage?; $page=$which; $ptip=$dl; &GetImage?; $image=$which; $itip=$dl; &GetLink?; $link=$which; $ltip=$dl; alert($dtip." = ".$def.\n.$ptip." = ".$page.\n.$itip." = ".$image.\n.$ltip." = ".$link, "Download Directories",INFO); }

  1. MOUSE GESTURES

$mouse = "kmeleon.plugins.gestures.";

Gestures{ togglepref(BOOL, $mouse . "load"); &Sync; getpref(BOOL, $mouse ."load") == true ? $tip = " EINGESCHALTET" : $tip = " AUSGESCHALTET"; alert("Maus Gesten sind " . $tip . " wenn K-Meleon neu gestartet wird.", "MAUS GESTEN" . $tip, INFO); }

GestGuide?{ $var = confirm("*M A U S E G E S T EN E I N R I C H T E N H I L F E*\n\nDiese Hilfe ermöglicht das Einrichten aller Gesten nacheinander , wenn jedesmal ein Kommando oder Makro für die gerade geöffnete Geste eingegeben wird.Jede Geste hat den entsprechenden Titel.Die Einträge (z.b. ID_APP_ABOUT? ) können aus der Liste kopiert werden.\n\n\nListe der möglichen Kommandos und Makros für Maus Gesten einsehen? (Sehr Hilfreich)","MAUS GESTEN", YESNOCANCEL); $var "YES" ? &Commands1st?:0; $var "NO" ? &left:0; $var == "CANCEL" ? "":0; } Commands1st?{ &Commands; &left; }

GestCFG{ $cmd=getpref(STRING,$mouse.$gest); $cmd=prompt("ID_Command?, PLUGIN_Command? oder MACRO für diese Geste wählen", $var, $cmd); $cmd==""?"":setpref(STRING,$mouse.$gest,$cmd); $cmd""?"":confirm($var." = ".$cmd."\n\n Nächste Geste einrichten?","MAUS GESTE",YESNO) "YES"? macros($next):0; }

left{ Menu = Links $gest = "left"; $var = "Links"; $next = "right"; &GestCFG; } right{ Menu = Rechts $gest = "right"; $var = "Rechts"; $next = "down"; &GestCFG; } down{ Menu = Unten $gest = "down"; $var = "Unten"; $next = "downleft"; &GestCFG; } downleft{ Menu = Unten dann Links $gest = "downleft"; $var = "Unten dann Links"; $next = "downright"; &GestCFG; } downright{ Menu = Unten dann Rechts $gest = "downright"; $var = "Unten dann Rechts"; $next = "up"; &GestCFG; } up{ Menu = Oben $gest = "up"; $var = "Oben"; $next = "upleft"; &GestCFG; } upleft{ Menu = Oben dann Links $gest="upleft"; $var = "Oben dann Links"; $next="upright"; &GestCFG; } upright{ Menu = Oben dann Rechts $gest="upright"; $var = "Oben dann Rechts";$next="left"; &GestCFG; }

  1. BUTTON & MENU SYNC

Sync{

&EngineSync?; setcheck("macros(SN0)",getpref(INT,$so)==0? true:false); setcheck("macros(SN1)",getpref(INT,$so)==1? true:false); setcheck("macros(SN2)",getpref(INT,$so)==2? true:false); setcheck("macros(SearchLock?)",getpref(BOOL,$sl));

setcheck("macros(Keyword)",getpref(BOOL,"keyword.enabled")); setcheck("macros(KeyEngBBN?)",getpref(STRING,"keyword.eng")=="BBN"? true:false); setcheck("macros(KeyEngIFL?)",getpref(STRING,"keyword.eng")=="IFL"? true:false); setcheck("macros(KeyEngGoog?)",getpref(STRING,"keyword.eng")=="GOOG"? true:false); setcheck("macros(KeyConfig?)",getpref(STRING,"keyword.eng")==""? true:false);

setcheck("macros(TAF)",getpref(BOOL,$taf)); setcheck("macros(TAFAuto)",getpref(BOOL,$taf.".autostart")); setcheck("macros(TAFLinks)", getpref(BOOL,$taf.".linksonly"));

getpref(BOOL,$sh)==true ? setpref(INT,$sg,0):""; setcheck("macros(StartHome?)",getpref(BOOL,$sh)); setcheck("macros(StartBlank?)",getpref(INT,$sg)==1? true:false); setcheck("macros(StartGroup?)",getpref(INT,$sg)==2? true:false); setcheck("macros(StartLast?)",getpref(INT,$sg)==3? true:false);

setcheck("macros(ZoomPage?)",getpref(STRING,$zoom)==""? true:false); setcheck("macros(ZoomText?)",getpref(STRING,$zoom)=="text"? true:false); setcheck("macros(ZoomImages)",getpref(STRING,$zoom)=="images"? true:false);

setcheck("macros(BookChev?)",getpref(BOOL,"kmeleon.plugins.bookmarks.chevron")); setcheck("macros(FavChev?)",getpref(BOOL,"kmeleon.plugins.favorites.chevron")); setcheck("macros(HotChev?)",getpref(BOOL,"kmeleon.plugins.hotlist.chevron")); setcheck("macros(OpenBook1?)",getpref(STRING,$book)=="ID_OPEN_LINK?" ? true:false); setcheck("macros(OpenBook2?)",getpref(STRING,$book)=="ID_OPEN_LINK_IN_NEW_WINDOW?"? true:false); setcheck("macros(OpenBook3?)",getpref(STRING,$book)=="layers(OpenURL)"? true:false); setcheck("macros(OpenBook4?)",getpref(STRING,$book)=="layers(OpenURLBg?)"? true:false); setcheck("macros(OpenBook5?)",getpref(STRING,$book)=="ID_OPEN_LINK_IN_BACKGROUND?"? true:false); setcheck("macros(OpenFav1?)",getpref(STRING,$fav)=="ID_OPEN_LINK?"? true:false); setcheck("macros(OpenFav2?)",getpref(STRING,$fav)=="ID_OPEN_LINK_IN_NEW_WINDOW?"? true:false); setcheck("macros(OpenFav3?)",getpref(STRING,$fav)=="layers(OpenURL)"? true:false); setcheck("macros(OpenFav4?)",getpref(STRING,$fav)=="layers(OpenURLBg?)"? true:false); setcheck("macros(OpenFav5?)",getpref(STRING,$fav)=="ID_OPEN_LINK_IN_BACKGROUND?"? true:false); setcheck("macros(OpenHot1?)",getpref(STRING,$hot)=="ID_OPEN_LINK?"? true:false); setcheck("macros(OpenHot2?)",getpref(STRING,$hot)=="ID_OPEN_LINK_IN_NEW_WINDOW?"? true:false); setcheck("macros(OpenHot3?)",getpref(STRING,$hot)=="layers(OpenURL)"? true:false); setcheck("macros(OpenHot4?)",getpref(STRING,$hot)=="layers(OpenURLBg?)"? true:false); setcheck("macros(OpenHot5?)",getpref(STRING,$hot)=="ID_OPEN_LINK_IN_BACKGROUND?"? true:false);

setcheck("macros(Enumerate)",getpref(BOOL,$num)); setcheck("macros(Pressed)",getpref(INT,$style)==2? true:false); setcheck("macros(Pressed+)",getpref(INT,$style)==10? true:false); setcheck("macros(Buttons)",getpref(INT,$style)==6? true:false); setcheck("macros(Buttons+)",getpref(INT,$style)==14? true:false); setcheck("macros(SetCloseLast?)",getpref(INT,$onClose)==0? true:false); setcheck("macros(SetCloseLeft?)",getpref(INT,$onClose)==1? true:false); setcheck("macros(SetCloseRight?)",getpref(INT,$onClose)==2? true:false); setcheck("macros(SetOpenNext?)",getpref(INT,$onOpen)==1? true:false); setcheck("macros(SetOpenLast?)",getpref(INT,$onOpen)==0? true:false); setcheck("macros(ConfirmToggle?)",getpref(BOOL,$confirm));

setcheck("macros(Gestures)",getpref(BOOL,$mouse."load"));

setcheck("macros(UA)",""==getpref(STRING,$ua)? true:false); setcheck("macros(UA1)",getpref(STRING,$pu."1".$ps)==getpref(STRING,$ua)? true:false); setcheck("macros(UA2)",getpref(STRING,$pu."2".$ps)==getpref(STRING,$ua)? true:false); setcheck("macros(UA3)",getpref(STRING,$pu."3".$ps)==getpref(STRING,$ua)? true:false); setcheck("macros(ResetUA)",getpref(BOOL,$uar)?false:true);

getpref(BOOL,$layers)==false ? setpref(BOOL,$catch,false):""; getpref(BOOL,$layers)false ? setpref(STRING,$mode,"WINDOWS ONLY"):(getpref(BOOL,$catch)true ? setpref(STRING,$mode,"LAYERS ONLY"):setpref(STRING,$mode,"")); setcheck("macros(LayersOnly?)",getpref(BOOL,$catch)==true ? true:false); setcheck("macros(LayersWindows?)",getpref(STRING,$mode)==""? true:false); setcheck("macros(WindowsOnly?)",$layer==false ? true:false);

setcheck("macros(URLInCurr?)",getpref(STRING,$ou)=="ID_OPEN_LINK?"? true:false); setcheck("macros(URLInNew?)", getpref(STRING,$ou)=="ID_OPEN_LINK_IN_NEW_WINDOW?"? true:false); setcheck("macros(URLInLayer?)",getpref(STRING,$ou)=="layers(OpenURL)"? true:false); setcheck("macros(URLInBg?)",getpref(STRING,$ou)=="ID_OPEN_LINK_IN_BACKGROUND?"? true:false); setcheck("macros(URLInBgLayer?)",getpref(STRING,$ou)=="layers(OpenURLBg?)"? true:false);

setcheck("macros(BlockScripts?)",getpref(BOOL,$flip)); setcheck("macros(AllowScripts?)",getpref(BOOL,$flip)==false ? true:false);

setcheck("macros(AniToggle?)",getpref(STRING,$animation)=="none"? true:false); pluginmsg(toolbars,"CheckButton?","Privates,macros(AniToggle?),".(getpref(STRING,$animation)=="none"? 1:0));

setcheck("macros(CToggle)",getpref(BOOL,$colors)? false:true); pluginmsg(toolbars,"CheckButton?","Privates,macros(CToggle),".(getpref(BOOL,$colors)? 0:1));

setcheck("macros(CKToggle)", getpref(INT,$cookies)); pluginmsg(toolbars,"CheckButton?","Privates,macros(CKToggle),".(getpref(INT,$cookies) ? 1:0));

setcheck("macros(ImgToggle?)",getpref(INT,$images)); pluginmsg(toolbars,"CheckButton?","Privates,macros(ImgToggle?),".(getpref(INT,$images)? 1:0));

setcheck("macros(JToggle)", getpref(BOOL,$java)? false:true); pluginmsg(toolbars,"CheckButton?","Privates,macros(JToggle),".(getpref(BOOL,$java)? 0:1));

setcheck("macros(JSToggle)",getpref(BOOL,$jscript)? false:true); pluginmsg(toolbars,"CheckButton?","Privates,macros(JSToggle),".(getpref(BOOL,$jscript)? 0:1));

setcheck("macros(PBToggle)",getpref(BOOL,$popups)); pluginmsg(toolbars,"CheckButton?","Standard,macros(PBToggle),".(getpref(BOOL,$popups)? 1:0)); pluginmsg(toolbars,"CheckButton?","Privates,macros(PBToggle),".(getpref(BOOL,$popups)? 1:0));

setcheck("macros(RefToggle?)",getpref(INT,$referer)? false:true); pluginmsg(toolbars,"CheckButton?","Privates,macros(RefToggle?),".(getpref(INT,$referer)? 0:1));

}

  1. CONFIG MACROS

$skindir = getpref(STRING, "kmeleon.general.skinsDir"); $skin = getpref(STRING, "kmeleon.general.skinsCurrent");

Commands{ exec("notepad.exe " . $skindir . "commands.txt"); } Toolbars{ exec("notepad.exe " . $skindir . $skin . "toolbars.cfg"); } Macros{ exec("notepad.exe " . $path . "macros.cfg"); } Menus{ exec("notepad.exe " . $path . "menus.cfg"); } Accel{ exec("notepad.exe " . $path . "accel.cfg"); } Prefs{ exec("notepad.exe " . $path . "prefs.js"); } User{ exec("notepad.exe " . $path . "user.js"); } UserContent?{ exec("notepad.exe " . $path . "\chrome\\userContent.css"); }

JSConsole{ open("javascript:"); }

XUL{ $layer==true ? pluginmsg(layers,OpenURL,$xul):opennew($xul); } AllPrefs?{ $xul = "about:config"; &XUL; }

RSS{ $xul = "chrome://aggreg8/content/aggreg8.xul"; &XUL; } Master{ $xul="chrome://pippki/content/pref-masterpass.xul"; &XUL; } Popups{ $xul="chrome://communicator/content/popupManager.xul"; &XUL; } Cert{ $xul="chrome://pippki/content/certManager.xul"; &XUL; } Cookies{ $xul="chrome://cookie/content/pref-cookies.xul"; &XUL; $loaded="CookMgr?"; } CookMgr?{ open("javascript:viewCookies()"); $loaded=""; } Images{ $xul="chrome://cookie/content/pref-images.xul"; &XUL; $loaded="ImgMgr?"; } ImgMgr?{ open("javascript:viewImages()"); $loaded=""; }

  1. MISC. MACROS

SetHome?{ setpref(STRING, "kmeleon.general.homePage", $URL); setpref(INT, $sg, 0); setpref(BOOL, $sh, true); &Sync; alert("'" . $TITLE . "' ist jetzt die Startseite.", "Startseite aktualisiert", INFO); }

KMWiki{ open("http://kmeleon.sourceforge.net/wiki/index.php?id=Welcome"); }

LinkInfo? { confirm($LinkURL . "\n\n\nGehe zu dieser Adresse?", "URL OF SELECTED LINK:", YESNO) == "YES" ? open($LINKURL):""; }

ListLinks?{ getpref(BOOL, $popups) == true ? &PB : &ViewLinks?; } PB{ &PBToggle; &ViewLinks?; &PBToggle; } ViewLinks?{ $macro = "OpenLinks?"; &JSEnable; } OpenLinks?{ open("javascript:LnkW=open('','LnkW','width=600,height=300,scrollbars,resizable');sLFw=window.name;if(!sLFw){sLFw=window.name='sLFw'};sLFd=document;DlnK=document.links;with(LnkW.document){write('<base target='+sLFw+'>'+DlnK.length+' total links from:
<b>'+sLFd.title+'</b>
'+sLFd.URL.link(sLFd.URL)+'<hr>');for(lNK=0;lNK<DlnK.length;lNK++){write('<p>'+DlnKlNK?.text+'
'+DlnKlNK?.href.link(DlnKlNK?))};close();LnkW.focus()}") ; }

FrameInLayer?{ pluginmsg(layers, OpenURL, $FRAMEURL); }

FrameInBack?{ $layer==true ? pluginmsg(layers,OpenURLBg?,$FRAMEURL):OpenBg?($FRAMEURL); }

ReloadFrame? { $macro = "ReloadFrm?"; &JSEnable; } ReloadFrm? { $FrameURL=""; $PageURL=$FrameURL; open("javascript: function chkframes(elem) { var rep; if (unescape(elem.location) '".$PageURL."' || '".$PageURL."''') { return elem; } for (var f=0; f<elem.frames.length; f++) { rep=chkframes(elem.framesf?); if (rep) return rep; } return; } function reloadFrame() { var elem=chkframes(window); elem.location.reload(); } void(reloadFrame()); ");"); }

AutoDetect? { setpref(STRING, "intl.charset.detector", $ARG); forcecharset(); }

ForceCharset? { forcecharset($ARG); }

$ie = "\"C:\\Programme\\Internet Explorer\\iexplore.exe\"";

URLInIE{ $oldclip = getclipboard(); setclipboard(); id(ID_SELECT_URL?); id(ID_EDIT_COPY?); $theurl = getclipboard(); $theurl == "" ? $theurl = $URL : ""; &ResetURL; setclipboard($oldclip); exec($ie. $theurl); } LinkInIE?{ exec($ie . $LINKURL); }

Default{ exec("\Standardbrowser.exe "); }

Continuous{ getpref(BOOL, $jscript) false ? (confirm("JavaScript ist ausgeschaltet. Für diese Funktion muss es eingeschaltet sein.\n\n\nJavaScript einschalten und weiter?", "JavaScript ausgeschaltet", YESNO, EXCLAIM) "YES" ? &JS1st : "") : &Reload; } JS1st{ &JSToggle; &Reload; } Reload{ open("javascript:(function(){var intv=prompt('Sekunden zwischen neu laden angeben. (Rückwärts anklicken zum beenden)');if(intv&&!isNaN(intv)){with(document){write('<html><frameset rows=\"*,22\" framespacing=0 border=0 frameborder=no><frame noresize frameborder=no><frame scrolling=no noresize frameborder=no></frameset></html>');frames0?.location.href=document.location.href;var docstr='<html><body bgcolor=cyan style=\"margin-top:0px\">\n';docstr+='Reloading in <span id=\"caption\"></span>secs.</body>\n';docstr+='<script>\nvar reloadIntv='+intv+';\nvar secsLeft='+intv+';\nfunction reloadFrame(){secsLeft=reloadIntv+1;parent.frames0?.location.href=parent.frames0?.location.href;}\nfunction countDown(){secsLeft--;showTime();}\nfunction showTime(){document.getElementById(\"caption\").innerHTML=parseInt(secsLeft)+\" \";}\nsetInterval(\"reloadFrame()\",'+intv*1000+');\nsetInterval(\"countDown()\",1000);\nshowTime();\n</script>\n</html>';frames1?.document.write(docstr);}}})()"); }

<pre>

K-Meleon

(c) 2000-2010 kmeleonbrowser.org. All rights reserved.
design by splif.