So I need something to kill time during the debates and further
increase my level of frustration. Safari doesn't have a saved
sessions. Let's try a bit of applescript...
tell application "Safari"
set urls to URL of every document
-- tbd: how do I write a file in AS?
end tell
No love -- this only saves the first tab of each window. Curse.
Google around a bit. Curse a bit more when I find out what's
involved, and when I can't make the cut-and-paste code to write a file
work...
#!/usr/bin/env perl
sub osascript($)
{
my $cmd = shift;
local *O;
open O, "|osascript > /tmp/osa.$$";
$cmd =~ s/\n/\r/g;
print O $cmd;
close O;
open IN, "/tmp/osa.$$" or die $!;
unlink "/tmp/osa.$$";
return split /\r/, join '', <IN>;
}
sub get_docs
{
osascript <<'END';
tell application "System Events"
set urls to {}
tell process "Safari"
repeat with w in every window
tell w
repeat with b in every radio button
click b
tell application "Safari"
set urls to urls & (URL of first document)
end tell
end repeat
end tell
end repeat
end tell
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set urls to urls as text
set AppleScript's text item delimiters to old_delim
urls
end tell
END
}
sub restore_docs
{
my $docthing = '{'.(join ',', map { qq{"$_"} } grep $_, @_).'}';
osascript <<END;
tell application "System Events"
set urls to $docthing
tell application "Safari"
repeat with u in urls
open location u
end repeat
end tell
end tell
END
}
@ARGV = grep $_,@ARGV; # wtf: quicksilver passes us an empty arg.
if (@ARGV) {
$op = shift;
} else {
$pf = "$ENV{HOME}/.safari-state";
if ($0 =~ /safari-save(?:\.pl)?$/) {
$op = 'save';
open STDOUT, ">$pf" or die "$0: $pf: $!";
} elsif ($0 =~ /safari-load(?:\.pl)?$/) {
$op = 'load';
open STDIN, $pf or die $!;
} else {
die;
}
}
if ($op =~ /^s/) {
print STDOUT "$_\n" for get_docs;
} elsif ($op =~ /^l/) {
my @docs = map {chomp;$_} <STDIN>;
restore_docs(@docs);
}
...add it to my Quicksilver path. Hack-tastic.
