# C X +p+p 8 4 V +p # 9 E g s +p author David Davies authorEmail daviesda@gmail.com description A few tools for outliner users homePageUrl 2http://david.davies.name/categories/outlinertools/name
outlinerTools releaseDateversion 0.1 8 V Geneva
R@LAND mac on any (pta) //boilerplate for your responder
pta^.responseHeaders.["Content-Type"] = "text/html"
pta^.code = 200 //everything was OK
pta^.responseBody = "" //build response
return (true)
V 2 .
any 2 .
@ H
P condition 2(string.lower (path) beginsWith "/outlinertools/")enabledmethods V Geneva
R@LAND mac This script runs every hour.
Geneva
R@LAND mac This script runs every minute.
Geneva
R@LAND mac This script runs every night.
{ w .
" .
9 everyHour everyMinute 1
everyNight { n j .
'
,fileMenu radio 5user a n Arial
?' I_LLAND mac Changes
2/2/02; 0:13:00 AM by DAD
Shamelessly stole Dave's code freshener script!
1/15/02; 5:21:20 PM by DW
Runs on the user's machine, when refreshing.
local (adrtable = @system.temp.outlinerToolsSnapshot)
outlinerToolsInfo = adrtable^.info
outlinerToolsSuite = adrtable^.suite
outlinerToolsThread = adrtable^.thread
outlinerToolsWebsite = adrtable^.website
outlinerToolsRpcHandlers = adrtable^.rpchandlers
outlinerToolsSoapHandlers = adrtable^.soaphandlershandlers
outlinerToolsNodeTypes = adrtable^.NodeTypes
filemenu.savemyroot (@outlinerToolsSuite)
local (x = string.parseAddress (@outlinerToolsSuite), f = x [1])
frontier.tools.install (f)
dialog.notify ("Thanks for updating to version " + outlinerToolsInfo.version)
N Arial
?+e / fLAND mac 2/2/02; 0:13:00 AM by DAD
Shamelessly stole Dave's code freshener script!
1/15/02; 5:18:06 PM by DW
This is the Refresh menu command.
local (url = "http://david.davies.name/weblog/publictools/outlinertools/outlinerTools.fttb")
local (urllist = string.urlsplit (url))
local (s = tcp.httpclient (server:urllist [2], path:urllist [3]))
local (f = frontier.pathstring + "outlinerTools.fttb")
file.writewholefile (f, s)
fatpages.importfatfile (f)
thread.callscript (@system.temp.outlinerToolsSnapshot.loader, {})
U Arial
= 9 2LAND mac Changes
2/2/02; 0:13:00 AM by DAD
Shamelessly stole Dave's code freshener script!
1/15/02; 5:08:55 PM by DW
Created. I run this on my machine to create a package for refreshCode to load.
Talk about a Mobius Strip. It's really simple code, but it's fun to walk your mind through it.
local (oldoutlinerToolsData)
bundle //get outlinerToolsData ready for ship
oldoutlinerToolsData = outlinerToolsData
new (tabletype, @outlinerToolsData)
outlinerToolsThread.enabled = true
outlinerToolsInfo.releaseDate = clock.now ()
local (adrtable = @system.temp.outlinerToolsSnapshot)
new (tabletype, adrtable)
adrtable^.info = outlinerToolsInfo
adrtable^.suite = outlinerToolsSuite
adrtable^.thread = outlinerToolsThread
adrtable^.website = outlinerToolsWebsite
adrtable^.rpchandlers = outlinerToolsRpcHandlers
adrtable^.soaphandlershandlers = outlinerToolsSoapHandlers
adrtable^.NodeTypes = outlinerToolsNodeTypes
adrtable^.loader = outlinerToolsSuite.codeFreshener.loadNewCode
local (f = "Macintosh HD:Applications:OPML:toolsdev:outlinerTools:outlinerTools.fttb")
file.surefilepath (f)
export.sendobject (adrtable, f)
f = "Macintosh HD:Applications:OPML:toolsdev:outlinerTools:outlinerTools.root"
target.set (this)
fileMenu.saveCopy (f)
outlinerToolsData = oldoutlinerToolsData
dialog.alert (file.filefrompath (f) + " is " + string.megabytestring (file.size (f)))
} . R?RG
$ 0
? loadNewCode refreshCode releaseNewCode VArial
3x1 - Geneva ӿH &?LAND mac outlinerToolsSuite.rightClickmenu.install ()
0 Arial
R{ J _'-LAND mac outlinerToolsSuite.codeFreshener.refreshCode ()
& A Geneva
R@LAND mac OutlinerTools
Install right-click menus...
Update this tool...
N
p a \ Geneva
48 p } Geneva T ' '?LAND mac bundle // script to add a buddy by right-clicking
if not op.attributes.getOne ("type", @type)
dialog.notify ("No buddy to subscribe to here, bud!")
return (false)
case type
"buddyOutlineElement"
name = op.getLineText ()
What follows is essentially Jake's code from radio.outliner.menuCommands.subscribeToOutline ()
local (url = "http://")
if dialog.yesno ("Subscribe to " + name + "'s outline?")
op.attributes.getOne ("url", @url)
if not (url beginsWith "http://")
url = "http://" + url
local (adrdata = radio.outliner.init ())
local (author = "Anonymous")
local (adrsubscription = @adrdata^.subscriptions.[url])
if defined (adrsubscription^)
frontier.bringtofront ()
radio.outliner.openBuddies (true, true)
return
local (localoutline)
try
try //to get the author from the OPML
local (adrincache = radio.outliner.preCacheUrl (url))
local (xstruct)
xml.compile (adrincache^.xmltext, @xstruct)
local (nomad = xml.getAddress (@xstruct, "opml"))
nomad = xml.getAddress (nomad, "head")
nomad = xml.getAddress (nomad, "ownerName")
author = nomad^
radio.outliner.read (url, @localoutline)
else
scriptError ("Can't subscribe to the outline because there was an error reading it. \"" + tryerror + "\".")
new (tabletype, adrsubscription)
adrsubscription^.author = author
adrsubscription^.outline = localoutline
adrsubscription^.whenCreated = clock.now ()
adrsubscription^.whenLastPoll = date (0)
radio.outliner.openBuddies (true)
else
dialog.notify ("No buddy to subscribe to here, bud!")
return (false)
$datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl $datatabl + Geneva
ظ : '?LAND mac Buddies
Add this buddy to Buddies list...
& p '5 6$Y Geneva
d| p
Geneva 袸: # '?LAND mac
bundle // Search using Google
local
htmlText
itemStruct
text
xmlText
starttext
on add (s)
htmlText = htmlText + s + cr
on makeRssFile ()
bundle //build xmltext
local (indentlevel = 0)
on add (s)
xmltext = xmltext + string.filledstring ("\t", indentlevel) + s + "\r\n"
on encode (s)
if system.environment.isMac //02/22/2001 JES: convert to Latin text
return (xml.entityEncode (latinToMac.macToLatin (s), true))
else
return (xml.entityEncode (s, true))
add ("")
add ("")
add (""); indentlevel++
add (""); indentlevel++
add ("" + encode ("Google Search Results") + "")
add ("" + encode ("http://www.google.com/") + "")
add ("" + encode ("Results of a Google search") + "")
if language != "none"
add ("" + language + "")
add ("" + "Copyright " + date.year () + " " + "Probably Google" + "")
add ("" + date.netstandardstring (clock.now ()) + "")
add ("http://backend.userland.com/rss092")
add ("" + encode (user.prefs.name) + "")
add ("" + encode (user.prefs.name) + "")
bundle //add cloud element
if flCloud
with user.radio.prefs.rssCloud
add ("")
add (itemStruct)
add (""); indentlevel--
add (""); indentlevel--
on addRSSitem (title, link, description)
title = searchengine.stripmarkup (title)
description = searchengine.stripmarkup (description)
bundle //build xmltext
local (indentlevel = 2)
on add (s)
itemStruct = itemStruct + string.filledstring ("\t", indentlevel) + s + "\r\n"
on encode (s)
if system.environment.isMac //02/22/2001 JES: convert to Latin text
return (xml.entityEncode (latinToMac.macToLatin (s), true))
else
return (xml.entityEncode (s, true))
add (""); indentlevel++
add ("" + encode (title) + "")
add ("" + link + "")
add ("" + encode (description) + "")
add (""); indentlevel--
bundle // ask for what to search for
dialog.run (@dialog.cards.moreinfo)
starttext = text
dialog.ask ("Enter Google search term", @text)
if starttext == text or text == ""
return
system.temp.googleSearch = google.search (text)
if system.temp.googleSearch.endIndex == 0
dialog.notify ("Sorry, nothing found at Google.")
for n = 1 to system.temp.googleSearch.endIndex
title = system.temp.googleSearch.resultElements [n].title
if title == ""
title = system.temp.googleSearch.resultElements [n].summary
snippet = system.temp.googleSearch.resultElements [n].snippet
url = system.temp.googleSearch.resultElements [n].url
add ("