AbiWord widget

debian-packages

@@ -6,3 +6,5 @@ gir1.2-gdl-3
 libpoppler-glib-dev
 poppler-utils # pdfinfo
 mupdf-tools   # mudraw
+
+gir1.2-abiword-3.0 # for embedding abiword

lib/Renard/Curie/App.pm

@@ -9,11 +9,13 @@ use File::Spec;
 use File::Basename;
 
 use Moo;
+use URI::file;
 
 use Renard::Curie::Error;
 use Renard::Curie::Helper;
 use Renard::Curie::Model::PDFDocument;
 use Renard::Curie::Component::PageDrawingArea;
+use Renard::Curie::Component::AbiWordDocumentEditor;
 
 use constant UI_FILE =>
 	File::Spec->catfile(dirname(__FILE__), "curie.glade");
@@ -64,11 +66,11 @@ sub BUILD {
 
 sub process_arguments {
 	my ($self) = @_;
-	my $pdf_filename = shift @ARGV;
-	if( $pdf_filename ) {
-		$self->open_pdf_document( $pdf_filename );
+	my $filename = shift @ARGV;
+	if( $filename ) {
+		$self->open_filename_by_ext( $filename );
 	} else {
-		warn "No PDF filename given";
+		warn "No filename given";
 	}
 }
 
@@ -78,6 +80,15 @@ sub main {
 	$self->run;
 }
 
+sub open_filename_by_ext {
+	my ($self, $filename ) = @_;
+	if( $filename =~ /\.pdf$/i ) {
+		$self->open_pdf_document( $filename );
+	} elsif ( $filename =~ /\.(rtf|odt|doc[x]?)$/i ) {
+		$self->open_word_processor_document( $filename );
+	}
+}
+
 sub open_pdf_document {
 	my ($self, $pdf_filename) = @_;
 
@@ -97,6 +108,14 @@ sub open_pdf_document {
 	$self->open_document( $doc );
 }
 
+sub open_word_processor_document {
+	my ($self, $filename) = @_;
+	my $abi = AbiWord::Widget->new;
+	$self->builder->get_object('application_vbox')->pack_start( $abi , TRUE, TRUE, 0 );
+	my $uri = URI::file->new_abs( $filename );
+	$abi->load_file( "$uri" , '' );
+}
+
 sub open_document {
 	my ($self, $doc) = @_;
 

lib/Renard/Curie/Component/AbiWordDocumentEditor.pm

@@ -0,0 +1,6 @@
+use Modern::Perl;
+package Renard::Curie::Component::AbiWordDocumentEditor;
+
+use Renard::Curie::Plugin::AbiWord;
+
+1;

lib/Renard/Curie/Plugin/AbiWord.pm

@@ -0,0 +1,18 @@
+use Modern::Perl;
+package Renard::Curie::Plugin::AbiWord;
+
+use Glib::Object::Introspection;
+
+sub import {
+	Glib::Object::Introspection->setup(
+		basename => 'Abi',
+		version => '3.0',
+		package => 'AbiWord', );
+	AbiWord::init_noargs( );
+}
+
+END {
+	AbiWord::shutdown( );
+}
+
+1;