Source

Kephra / lib / Kephra / File / Local.pm

Diff from to

lib/Kephra/File/Local.pm

 	my $file = Kephra::File::normalize_path( shift ) || $doc->file_path;
 	return Kephra::Log::warning("can't load nonexising file") unless $file and -e $file;
 	return Kephra::Log::warning("can't read $file") unless -r $file;
-	my $ed = $doc->editor;
+	my $ed = $doc->editor->{ Kephra::API::docbar() };
 	CORE::open my $FH, '<', $file;
 	binmode($FH);
 	my $content = do { local $/; <$FH> };
 			$doc->encoding( $suggest_encodings[0] );
 		} else { $doc->encoding( 'utf-8' ) }
 		$content = Encode::decode( $doc->encoding,  $content );
-		say $doc->encoding; 
+		#say $doc->encoding; 
 
 		$ed->SetText( $content );
 		$ed->SetSavePoint;
 	return Kephra::Log::warning("need a file path") unless $file;
 	return Kephra::Log::warning("can't overwrite $file") if -e $file and not -w $file;
 	$doc->file_path($file) unless defined $doc->file_path and $doc->file_path eq $file;
-	my $ed = $doc->editor;
+	my $ed = $doc->editor->{ Kephra::API::docbar() };
 	CORE::open my $FH, '> :raw :encoding('.$doc->encoding.')', $file;
 	print $FH $ed->GetText;
 	$ed->SetSavePoint;