fun with applescript

This commit is contained in:
rsc 2005-01-11 19:23:52 +00:00
parent 8bead10998
commit 5645c4afff
5 changed files with 242 additions and 6 deletions

71
bin/web
View file

@ -1,8 +1,58 @@
#!/bin/sh
plumb1()
plumbfirefox()
{
case x-$BROWSER in
echo '
tell application "Firefox"
activate
tell application "System Events"
tell process "firefox"
keystroke "t" using {command down}
end tell
end tell
Get URL "'$1'"
end tell
' | osascript
}
plumbsafari()
{
echo '
tell application "Safari"
activate
tell application "System Events"
tell process "safari"
keystroke "t" using {command down}
end tell
end tell
open location "'$1'"
end tell
' | osascript
}
plumbapple()
{
case ${BROWSER:-none} in
firefox)
plumbfirefox "$@"
;;
safari)
plumbsafari "$@"
;;
none)
if [ -d /Applications/Firefox.app ]
then
plumbfirefox "$@"
else
plumbsafari "$@"
fi
;;
esac
}
plumbunix()
{
case ${BROWSER:-firefox} in
# Other browsers here
# ...
*opera*)
@ -15,8 +65,8 @@ plumb1()
$BROWSER -remote 'openURL('$i',new-tab)'
;;
x-)
# run firefox as default!
firefox -remote 'openURL('$i',new-tab)'
BROWSER=firefox
$BROWSER -remote 'openURL('$i',new-tab)'
;;
*mozilla*)
$BROWSER -remote 'openURL('$i',new-tab)'
@ -27,6 +77,19 @@ plumb1()
esac
}
plumb1()
{
case `uname` in
Darwin)
plumbapple "$@"
;;
*)
plumbunix "$@"
;;
esac
}
if [ $# = 0 ]
then
plumb1 about:blank