package Plagger::Plugin::Search::Spotlight;
use strict;
use base qw( Plagger::Plugin );
use Encode;
use File::Spec;
sub init {
my $self = shift;
$self->SUPER::init(@_);
if ($self->conf->{add_comment}) {
$self->{has_macglue} = eval { require Mac::Glue; 1 };
}
}
sub register {
my($self, $context) = @_;
$context->register_hook(
$self,
'publish.entry' => \&entry,
);
}
sub entry {
my($self, $context, $args) = @_;
my $dir = $self->conf->{dir};
unless (-e $dir && -d _) {
mkdir $dir, 0755 or $context->error("mkdir $dir: $!");
}
my $entry = $args->{entry};
my $file = $entry->id_safe . '.webbookmark';
my $path = File::Spec->catfile($dir, $file);
$context->log(info => "writing output to $path");
my $body = $self->templatize('spotlight.tt', { entry => $entry });
open my $out, ">:utf8", $path or $context->error("$path: $!");
print $out $body;
close $out;
# Add $entry->body as spotlight comment using AppleScript (OSX only)
if ($self->conf->{add_comment}) {
my $comment = $entry->body_text;
utf8::decode($comment) unless utf8::is_utf8($comment);
$comment = encode("shift_jis", $comment); # xxx UTF-16?
$self->add_comment($path, $comment);
}
}
sub add_comment {
my($self, $path, $comment) = @_;
if ($self->{has_macglue}) {
my $finder = Mac::Glue->new("Finder");
my $file = $finder->obj(file => $path);
$file->prop('comment')->set(to => $comment);
} else {
system(
'osascript',
'bin/spotlight_comment.scpt',
$path,
$comment,
) == 0 or Plagger->context->error("$path: $!");
}
}
1;
__END__
=head1 NAME
Plagger::Plugin::Search::Spotlight - Search Webbookmark files for Spotlight
=head1 SYNOPSIS
- module: Search::Spotlight
config:
dir: /Users/youpy/Library/Caches/Metadata/Plagger/
add_comment: 1
=head1 DESCRIPTION
This plugin creates webbookmark files and make feed updates searchable
by Mac OSX Spotlight.
=head1 SCREENSHOT
L<http://subtech.g.hatena.ne.jp/youpy/20060223/p1>
=head1 AUTHOR
id:youpy
=head1 SEE ALSO
L<Plagger>
=cut