new QS Action, alternative to the websearch plugin

[elspub]

Download here: http://tr.im/D4BS

Description:
The script takes text entered into QS text entry mode as a yubnub
search. To read more about yubnub go here: http://tr.im/D4Ak. or to
yubnub.org. Yubnub uses short prefix's to send your search to
different search engines. "g poodles" will google search for poodles.
"wp poodles" to wikipidea. And so on. There's thousands. Yubnub
aspires to be a command line for the web.

While yubnub is generally quite fast, this action bypasses yubnub and
sends your text directly google for searches with the "g" prefix, for
google image searches (prefix "gim"), wikipedia searches ("wp"), and
amazon ("az"). This speeds it up that much more.

qsearch action is intended as a potential replacement for the
websearch plugin, which can be a bit funky in Snow Leopard. From my
experience, it's faster.

If you just want a google search and nothing else, it would take about
3 minutes to alter the script to do this.

Installation:
~/Library/Application Support/Quicksilver/Actions

Usage:
Enter Quicksilver's text entry mode either via a trigger or by
activating QS and typing a period. Enter your yubnub search and tab
over, type till you the qsearch action is highlighted and hit enter.
It should open the search in your system's default browser.

For quick access you could go to QS Prefs >> Actions >> Text and drag
qsearch up in priority. If its set to highest priority, then you can
enter QS text entry mode (set up a trigger for that), type your search
and hit enter without having to tab over.


Code:

(* qSearch is a Quicksilver action to send text entered in text
entry mode to Yubnub as search.
ElasticThreads, 10/18/2009
*)

using terms from application "Quicksilver"
on process text qtxt
set dothis to my mainprogram(qtxt)
return ""
end process text
end using terms from
on mainprogram(intxt)
set theSrch to klWS(intxt)
set theURL to my chkengine(theSrch)
tell application "System Events"
open location theURL
end tell
return theURL
end mainprogram
on parsprefix(nsrch)
set AppleScript's text item delimiters to " "
set ct to count of text items of nsrch
set prfx to 1st text item of nsrch
set AppleScript's text item delimiters to ""
if ct > 1 then
set sufx to characters ((count of prfx) + 1) thru (count of nsrch)
of nsrch as string
set sufx to klWS(sufx)
else
set sufx to ""
end if
set prfx to klWS(prfx)
if sufx is -1 then
set sufx to ""
end if
return {prfx, sufx}
end parsprefix
on chkengine(insearch)
set {prfix, sfix} to my parsprefix(insearch)
if prfix is "g" then
set sfix to my wsencode(sfix, "%20")
set theURL to "http://www.google.com/search?hl=en&source=hp&q=" &
sfix as string
else if prfix is "gim" then
set sfix to my wsencode(sfix, "%20")
set theURL to "http://images.google.com/images?q=" & sfix as string
else if prfix is "wp" then
set sfix to my wsencode(sfix, "%20")
set theURL to "http://en.wikipedia.org/?search=" & sfix as string
else if prfix is "az" then
set sfix to my wsencode(sfix, "%20")
set theURL to "http://www.amazon.com/exec/obidos/external-search?
mode=blended&keyword=" & sfix as string
else
set sfix to my wsencode(sfix, "+")
set srchstr to prfix & " " & sfix as string
set theURL to "http://www.yubnub.org/parser/parse?command=" &
srchstr as string
end if
return theURL
end chkengine
on wsencode(insfix, cdchar)
set AppleScript's text item delimiters to " "
set templist to every text item of insfix
set AppleScript's text item delimiters to cdchar
set outsfix to every item of templist as string
set AppleScript's text item delimiters to ""
return outsfix
end wsencode
on klWS(intxt) -- will return txt without leading or trailing
whitespace OR (if blank) -1
set outxt to ""
set outid to 0
set k to 1
repeat
set thschr to character k of intxt
if thschr is " " then
set outid to 0
else if thschr is "" then
set outid to 0
else
set outid to k
exit repeat
end if
if k < (count of intxt) then
set k to k + 1
else
set k to -1
exit repeat
end if
end repeat
if k > 0 then
set midtxt to characters k thru (count of intxt) of intxt as string
else
return -1
end if
set j to count of midtxt
repeat
set thschr to character j of midtxt
if thschr is " " then
set outid to 0
else if thschr is "" then
set outid to 0
else
set outid to j
exit repeat
end if
if j > 1 then
set j to j - 1
else
set j to -1
exit repeat
end if
end repeat
if j > 0 then
set outxt to characters 1 thru j of midtxt as string
else
return -1
end if
return (outxt as string)
end klWS