Furl macros
Posted by: Iain
Date: November 12, 2004 07:19PM

Furl (www.furl.net) has a toolbar that works with IE and firefox, or you can drag their bookmarklets to a moz-style sidebar. You can save these bookmarkets in KM but I think it's nicer to have separate Furl tool menus. So here are some I put together:

----- In macros.cfg:

### FURL stuff
FurlQuick{
$old=getclipboard();setclipboard("");id(ID_EDIT_COPY);$t=getclipboard();setclipboard($old);
$pu=getpref(BOOL, $popups);
$pu=="true"?setpref(BOOL, $popups, false):"";
open("javascript:d=document;$furl='http://www.furl.net/store?s=f&to=0&ti='+escape(d.title)+'&u='+escape(d.location.href)+'&d='+new Date()+'&c='+escape('".$t."');function FurlIt(){window.open($furl,'furlit','scrollbars=no,width=325,height=100,left=75,top=20,status=no,resizable=yes')};void(FurlIt());");
$pu=="true"?setpref(BOOL, $popups, true):"";
}
FurlBasic{
$old=getclipboard();setclipboard("");id(ID_EDIT_COPY);$t=getclipboard();setclipboard($old);
$pu=getpref(BOOL, $popups);
$pu=="true"?setpref(BOOL, $popups, false):"";
open("javascript:d=document;$furl='http://www.furl.net/storeIt.jsp?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape('".$t."');function FurlIt(){window.open($furl,'furlit','scrollbars=no,width=475,height=575,left=75,top=20,status=no,resizable=yes')};void(FurlIt());");
$pu=="true"?setpref(BOOL, $popups, true):"";
}
FurlFull{
id(ID_SELECT_URL); id(ID_EDIT_COPY); $theurl = getclipboard();
$pu=getpref(BOOL, $popups);
$pu=="true"?setpref(BOOL, $popups, false):"";
open("javascript:function FurlIt(){var hd=document.getElementsByTagName('head')[0];var s=document.createElement('script');s.setAttribute('src', 'http://www.furl.net/resources/furlItCompleteMoz.jsp');s.setAttribute('type','text/javascript');hd.appendChild(s);}void(FurlIt());");
$pu=="true"?setpref(BOOL, $popups, true):"";
}
FurlView{
opennew("http://www.furl.net/view.jsp"winking smiley;
}


----- In menus.cfg:
Furl{
macros(FurlQuick, Quick Save)
macros(FurlBasic, Basic Save)
macros(FurlFull, Full Save)
-
macros(FurlView, View My Archive)
}
# and locate the '&Tools{' menu definition and add after confused smileyave Options
:Furl
# and locate the 'DocumentPopup' menu definition and add before !Fullscreen
:Furl
# and locate the 'FrameDocumentPopup' menu definition and add before !Fullscreen
:Furl


Hope this helps any other KM-using Furlers out there smiling smiley

Iain

Re: Furl macros
Posted by: Frode
Date: May 07, 2005 01:08AM

Thanks! Does the Full Save work for you?
Only the Quick and Basic works here.

Re: Furl macros
Posted by: lumo
Date: February 19, 2007 05:44PM

This is great but it needs updating,
FurlQuick still works fine.
Have redone FurlBasic which is now working....

FurlBasic{
$old=getclipboard();setclipboard("");id(ID_EDIT_COPY);$t=getclipboard();setclipboard($old);
$pu=getpref(BOOL, $popups);
$pu=="true"?setpref(BOOL, $popups, false):"";
open("javascriptsad smileyfunction(){d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:'')sad smileyd.getSelection?d.getSelection():'');var%20furlit=window.open('http://www.furl.net/savedialog.jsp?t='+encodeURIComponent(d.title)+'&u='+escape(d.location.href)+'&r='+escape(d.referrer)+'&c='+encodeURIComponent(t),'furlit','width=528,height=540,left=75,top=20,resizable=yes,scrollbars=yes');furlit.focus();})();");
$pu=="true"?setpref(BOOL, $popups, true):"";
}

This seems to have full functionallity so perhaps FurlFull isn't needed?

John

Re: Furl macros
Posted by: lumo
Date: February 19, 2007 05:47PM

Opps, the "colons" + ( come out as smilies so please replace...

Re: Furl macros
Posted by: lumo
Date: February 19, 2007 06:03PM

Also a search engine to search your own Furl's

Furl It

In macros:

Furl{
&OldSearch; $search = "Furl";
$eng = "http://www.furl.net/search?enc=UTF-8&search=true&chn=toolbarMoz&keyword=";;
&SetSearch;
}
and within:

EngineSync{

setcheck("macros(Furl)", getpref(STRING, $sen) == "Furl" ? true:false);

}

In menus:

Engines{

macros(Furl)

}

K-Meleon forum is powered by Phorum.