Changeset 2233

Timestamp:

12/28/08 22:03:07 (3 years ago)

Author:

adamk

Message:

Starting Padre::Document refactoring by reorganising the methods into sections.

Padre::Document->setup was doing nothing, merge it back into new

File:

• trunk/Padre/lib/Padre/Document.pm (modified) (14 diffs)

trunk/Padre/lib/Padre/Document.pm

@@ -5 +5 @@
 =head1 NAME
 
-Padre::Document - Padre Document Abstraction Layer
+Padre::Document - Padre Document API
 
 =head1 DESCRIPTION
 
-This is an internal module of L<Padre> that provides a 
-logical document abstraction, allowing Padre to associate 
-several Wx elements with the one document.
-
-The objective would be to allow the use of this module without
-loading Wx.
-
-Currently there are still interdependencies that need to be cleaned.
+The B<Padre::Document> class provides a base class, default implementation
+and API documentation for document type support in L<Padre>.
+
+As an API, it allows L<Padre> developers and plugin authors to implement
+extended support for various document types in Padre, while ensuring that
+a naive default document implementation exists that allows Padre to provide
+basic support (syntax highlighting mainly) for many document types without
+the need to install extra modules unless you need the extra functionality.
+
+=head2 Document Type Registration
+
+Padre uses MIME types as the fundamental identifier when working with
+documents. Files are typed at load-time based on file extension (with a
+simple heuristic fallback when opening files with no extension).
+
+Many of the MIME types are unofficial X-style identifiers, but in cases
+without an official type, Padre will try to use the most popular
+identifier (based on research into the various language communities).
+
+Each supported mime has a mapping to a Scintilla lexer (for syntax
+highlighting), and an optional mapping to the class that provides enhanced
+support for that document type.
+
+Plugins that implement support for a document type provide a
+C<registered_documents> method that the PluginManager will call as needed.
+
+Plugin authors should B<not> load the document classes in advance, they
+will be automatically loaded by Padre as needed.
+
+Padre does B<not> currently support opening non-text files.
 
 =head1 METHODS
@@ -30 +52 @@
 use Padre::Util    ();
 use Padre::Wx      ();
-use Padre;
+use Padre          ();
 
 our $VERSION = '0.22';
 
+# NOTE: This is probably a bad place to store this
 my $unsaved_number = 0;
 
-# see Wx-0.86/ext/stc/cpp/st_constants.cpp for extension
-# There might be some constants are defined in 
-#  wxWidgets-2.8.8/contrib/include/wx/stc/stc.h 
-# but not (yet) in 
-#  Wx-0.86/ext/stc/cpp/st_constants.cpp
-# so we have to hard-code their numeric value.
-
-    # asp => wxSTC_LEX_ASP, #in ifdef
-#   ,
-#   f     => wxSTC_LEX_FORTRAN,
-    #     => wxSTC_LEX_VB, # What's the difference between VB and VBSCRIPT?
-
-# partially made-up MIME-types; some parts extracted from /etc/mime.types
-# Someone should go over and see if there are official mime-type definitions
-# missing from the languages list
+
+
+
+
+#####################################################################
+# Document Registration
+
+# This is the primary file extension to mime-type mapping
 our %EXT_MIME = (
     ada   => 'text/x-adasrc',
@@ -92 +108 @@
 );
 
-our %MIME_CLASS = (
-    'text/x-pod'             => 'Padre::Document::POD',
-    'application/x-perl'     => 'Padre::Document::Perl',
-);
-
-# Document types marked here with CONFIRMED have be checked to confirm that
-# the MIME type is either the official type, or the primary one in use by
-# the relevant language communities.
+# This is the mime-type to Scintilla lexer mapping.
+# Lines marked with CONFIRMED indicate that the mime-typehas been checked
+# to confirm that the MIME type is either the official type, or the primary
+# one in use by the relevant language community.
 our %MIME_LEXER = (
     'text/x-adasrc'          => Wx::wxSTC_LEX_ADA,       # CONFIRMED
     'text/x-asm'             => Wx::wxSTC_LEX_ASM,       # CONFIRMED
-    'application/x-bat'      => Wx::wxSTC_LEX_BATCH,     # CONFIRMED (application/x-msdos-program includes .exe and .com)
+
+    # application/x-msdos-program includes .exe and .com)
+    'application/x-bat'      => Wx::wxSTC_LEX_BATCH,     # CONFIRMED
+
     'text/x-c++src'          => Wx::wxSTC_LEX_CPP,       # CONFIRMED
     'text/css'               => Wx::wxSTC_LEX_CSS,       # CONFIRMED
@@ -126 +141 @@
     'application/x-tcl'      => Wx::wxSTC_LEX_TCL,       # CONFIRMED
     'text/vbscript'          => Wx::wxSTC_LEX_VBSCRIPT,  # CONFIRMED
-    'text/xml'               => Wx::wxSTC_LEX_XML,       # CONFIRMED (text/xml specifically means "human-readable XML")
+
+    # text/xml specifically means "human-readable XML".
+    # This is prefered to the more-generic application/xml
+    'text/xml'               => Wx::wxSTC_LEX_XML,       # CONFIRMED
+
     'text/x-yaml'            => Wx::wxSTC_LEX_YAML,      # CONFIRMED
     'application/x-pir'      => Wx::wxSTC_LEX_CONTAINER, # CONFIRMED
@@ -132 +151 @@
     'application/x-perl6'    => Wx::wxSTC_LEX_CONTAINER, # CONFIRMED
     'text/plain'             => Wx::wxSTC_LEX_NULL,      # CONFIRMED
+);
+
+# This is the mime-type to document class mapping
+our %MIME_CLASS = (
+    'application/x-perl'     => 'Padre::Document::Perl',
+    'text/x-pod'             => 'Padre::Document::POD',
 );
 
@@ -164 +189 @@
       filename => $file,
   );
- 
 
 $file is optional and if given it will be loaded in the document
 
 mime-type is defined by the guess_mimetype function
-
-TODO describe
-
- $editor is required and is a Padre::Wx::Editor object
 
 =cut
@@ -180 +200 @@
     my $self  = bless { @_ }, $class;
 
-    $self->setup;
+    if ( $self->{filename} ) {
+        $self->load_file;
+    } else {
+        $unsaved_number++;
+        $self->{newline_type} = $self->_get_default_newline_type;
+    }
 
     unless ( $self->get_mimetype ) {
@@ -207 +232 @@
 }
 
+sub last_sync {
+    return $_[0]->{_timestamp};
+}
+
+
+
+
+
+#####################################################################
+# Bad/Ugly/Broken Methods
+# These don't really completely belong in this class, but there's
+# currently nowhere better for them. Some break API boundaries...
+# NOTE: This is NOT an excuse to invent somewhere new that's just as
+# innappropriate just to get them out of here.
+
 sub guess_mimetype {
     my $self = shift;
 
-    # default mime-type of new files, should be configurable in the GUI
-    if (not $self->filename) {
+    # Default mime-type of new files, should be configurable in the GUI
+    unless ( $self->filename ) {
         return 'application/x-perl';
     }
@@ -235 +275 @@
 }
 
-sub setup {
-    my $self = shift;
-    if ( $self->{filename} ) {
-        $self->load_file;
-    } else {
-        $unsaved_number++;
-        $self->{newline_type} = $self->_get_default_newline_type;
-    }
-}
-
-sub get_title {
-    my $self = shift;
-    if ( $self->{filename} ) {
-        return File::Basename::basename( $self->{filename} );
-    } else {
-        my $str = sprintf(Wx::gettext("Unsaved %d"), $unsaved_number);
-
-        # A bug in Wx requires a space at the front of the title
-        # (For reasons I don't understand yet)
-        return ' ' . $str;
-    }
-}
-
 # For ts without a newline type
 # TODO: get it from config
@@ -279 +296 @@
     # TODO get from config
     return 0;
+}
+
+
+
+
+
+#####################################################################
+# Disk Interaction Methods
+# These methods implement the interaction between the document and the
+# filesystem.
+
+sub is_new {
+    return !! ( not defined $_[0]->filename );
+}
+
+sub is_modified {
+    return !! ( $_[0]->editor->GetModify );
+}
+
+sub is_saved {
+    return !! ( defined $_[0]->filename and not $_[0]->is_modified );
+}
+
+# Returns true if this is a new document that is too insignificant to
+# bother checking with the user before throwing it away.
+# Usually this is because it's empty or just has a space or two in it.
+sub is_unused {
+    my $self = shift;
+    return '' unless $self->is_new;
+    return 1  unless $self->is_modified;
+    return 1  unless $self->text_get =~ /[^ \t]/s;
+    return '';
+}
+
+# Returns true if file has changed on the disk 
+# since load time or the last time we saved it.
+# Check if the file on the disk has changed
+# 1) when document gets the focus (gvim, notepad++)
+# 2) when we try to save the file (gvim)
+# 3) every time we type something ????
+sub has_changed_on_disk {
+    my ($self) = @_;
+    return 0 if not defined $self->filename;
+    return 0 if not defined $self->last_sync;
+    return $self->last_sync < $self->time_on_file ? 1 : 0;
+}
+
+sub time_on_file {
+    return 0 if not defined $_[0]->filename;
+    return 0 if not -e $_[0]->filename;
+    return (stat($_[0]->filename))[9];
 }
 
@@ -386 +454 @@
 }
 
+=pod
+
+=head2 reload
+
+Reload the current file discarding changes in the editor.
+
+Returns true on success false on failure. Error message will be in $doc->errstr;
+
+TODO: In the future it should backup the changes in case the user regrets the action.
+
+=cut
+
+sub reload {
+    my ($self) = @_;
+
+    my $filename = $self->filename or return;
+    return $self->load_file;
+}
+
+
+
+
+#####################################################################
+# Basic Content Manipulation
+
+sub text_get {
+    $_[0]->editor->GetText;
+}
+
+sub text_set {
+    $_[0]->editor->SetText($_[1]);
+}
+
+sub text_like {
+    my $self = shift;
+    return !! ( $self->text_get =~ /$_[0]/m );
+}
+
+
+
+
+
+#####################################################################
+# GUI Integration Methods
+
+# Determine the Scintilla lexer to use
 sub lexer {
     my $self = shift;
@@ -393 +507 @@
 }
 
-sub is_new {
-    return !! ( not defined $_[0]->filename );
-}
-
-sub is_modified {
-    return !! ( $_[0]->editor->GetModify );
-}
-
-# check if the file on the disk has changed
-# 1) when document gets the focus (gvim, notepad++)
-# 2) when we try to save the file (gvim)
-# 3) every time we type something ????
-
-# returns if file has changed on the disk 
-# since load time or the last time we saved
-sub has_changed_on_disk {
+# What should be shown in the notebook tab
+sub get_title {
+    my $self = shift;
+    if ( $self->{filename} ) {
+        return File::Basename::basename( $self->{filename} );
+    } else {
+        my $str = sprintf(Wx::gettext("Unsaved %d"), $unsaved_number);
+
+        # A bug in Wx requires a space at the front of the title
+        # (For reasons I don't understand yet)
+        return ' ' . $str;
+    }
+}
+
+sub remove_color {
     my ($self) = @_;
-    return 0 if not defined $self->filename;
-    return 0 if not defined $self->last_sync;
-    return $self->last_sync < $self->time_on_file ? 1 : 0;
-}
-
-sub time_on_file {
-    return 0 if not defined $_[0]->filename;
-    return 0 if not -e $_[0]->filename;
-    return (stat($_[0]->filename))[9];
-}
-
-sub last_sync {
-    return $_[0]->{_timestamp};
-}
-
-# A new document that isn't worth saving
-sub is_unused {
+
+    my $editor = $self->editor;
+    # TODO this is strange, do we really need to do it with all?
+    for my $i ( 0..31 ) {
+        $editor->StartStyling(0, $i);
+        $editor->SetStyling($editor->GetLength, 0);
+    }
+
+    return;
+}
+
+# TODO: experimental
+sub get_indentation_style {
     my $self = shift;
-    return '' unless $self->is_new;
-    return 1  unless $self->is_modified;
-    return 1  if     $self->text_get eq '';
-    return '';
-}
-
-sub is_saved {
-    return !! ( defined $_[0]->filename and not $_[0]->is_modified );
-}
-
-=pod
-
-=head2 reload
-
-Reload the current file discarding changes in the editor.
-
-Returns true on success false on failure. Error message will be in $doc->errstr;
-
-TODO: In the future it should backup the changes in case the user regrets the action.
+    my $config = Padre->ide->config;
+
+    # TODO: (document >) project > config
+
+    my $style;
+    if ($config->{editor_auto_indentation_style}) {
+        # TODO: This should be cached? What's with newish documents then?
+        $style = $self->guess_indentation_style;
+    }
+    else {
+        $style = {
+            use_tabs    => $config->{editor_use_tabs},
+            tabwidth    => $config->{editor_tabwidth},
+            indentwidth => $config->{editor_indentwidth},
+        };
+    }
+    
+    return $style;
+}
+
+=head2 set_indentation_style
+
+Given a hash reference with the keys C<use_tabs>,
+C<tabwidth>, and C<indentwidth>, set the document's editor's
+indentation style.
+
+Without an argument, falls back to what C<get_indentation_style>
+returns.
 
 =cut
 
-sub reload {
-    my ($self) = @_;
-
-    my $filename = $self->filename or return;
-    return $self->load_file;
-}
-
-=pod
-
-=head2 check_syntax_in_background
-
-NOT IMPLEMENTED IN THE BASE CLASS
-
-Checking the syntax of documents can take a long time.
-Therefore, this method essentially works the same as
-C<check_syntax>, but works its magic in a background task
-instead. That means it cannot return the syntax-check
-structure but instead optionally calls a callback
-you pass in as the C<on_finish> parameter.
-
-If you don't specify that parameter, the default
-syntax-check-pane updating code will be run after finishing
-the check. If you do specify a callback, the first parameter
-will be the task object. You can
-run the default updating code by executing the
-C<update_gui()> method of the task object.
-
-By default, this method will only check the syntax if
-the document has changed since the last check. Specify
-the C<force =E<gt> 1> parameter to override this.
-
-=head2 check_syntax
-
-NOT IMPLEMENTED IN THE BASE CLASS
-
-See also: C<check_syntax_in_background>!
-
-By default, this method will only check the syntax if
-the document has changed since the last check. Specify
-the C<force =E<gt> 1> parameter to override this.
-
-An implementation in a derived class needs to return an arrayref of
-syntax problems.
-
-Each entry in the array has to be an anonymous hash with the 
-following keys:
-
-=over 4
-
-=item * line
-
-The line where the problem resides
-
-=item * msg
-
-A short description of the problem
-
-=item * severity
-
-A flag indicating the problem class: Either 'B<W>' (warning) or 'B<E>' (error)
-
-=item * desc
-
-A longer description with more information on the error (currently 
-not used but intended to be)
-
-=back
-
-Returns an empty arrayref if no problems can be found.
-
-Returns B<undef> if nothing has changed since the last invocation.
-
-Must return the problem list even if nothing has changed when a 
-param is present which evaluates to B<true>.
+sub set_indentation_style {
+    my $self   = shift;
+    my $style  = shift || $self->get_indentation_style;
+    my $editor = $self->editor;
+
+    # The display width of literal tab characters (ne "indentation width"!)
+    $editor->SetTabWidth( $style->{tabwidth} );
+
+    # The actual indentation width in COLUMNS!
+    $editor->SetIndent( $style->{indentwidth} );
+
+    # Use tabs for indentation where possible?
+    $editor->SetUseTabs(  $style->{use_tabs} );
+
+    return();
+}
+
+=head2 guess_indentation_style
+
+Automatically infer the indentation style of the document using
+L<Text::FindIndent>.
+
+Returns a hash reference containing the keys C<use_tabs>,
+C<tabwidth>, and C<indentwidth>. It is suitable for passing
+to C<set_indendentation_style>.
 
 =cut
 
-
-
-
-#####################################################################
-# Content Manipulation
-
-sub text_get {
-    $_[0]->editor->GetText;
-}
-
-sub text_set {
-    $_[0]->editor->SetText($_[1]);
-}
-
-sub text_like {
-    my $self = shift;
-    return !! ( $self->text_get =~ /$_[0]/m );
-}
-
-
-
-
-
-#####################################################################
-# Project Methods
+sub guess_indentation_style {
+    my $self  = shift;
+
+    require Text::FindIndent;
+    my $indentation = Text::FindIndent->parse($self->text_get);
+
+    my $style;
+    if ($indentation =~ /^t\d+/) { # we only do ONE tab
+        $style = {
+            use_tabs    => 1,
+            tabwidth    => 8,
+            indentwidth => 8,
+        };
+    }
+    elsif ($indentation =~ /^s(\d+)/) {
+        $style = {
+            use_tabs    => 0,
+            tabwidth    => 8,
+            indentwidth => $1,
+        };
+    }
+    elsif ($indentation =~ /^m(\d+)/) {
+        $style = {
+            use_tabs    => 1,
+            tabwidth    => 8,
+            indentwidth => $1,
+        };
+    }
+    else {
+        # fallback
+        my $config = Padre->ide->config;
+        $style = {
+            use_tabs    => $config->{editor_use_tabs},
+            tabwidth    => $config->{editor_tabwidth},
+            indentwidth => $config->{editor_indentwidth},
+        };
+    }
+    
+    return $style;
+}
+
+
+
+
+
+#####################################################################
+# Project Integration Methods
 
 sub project_dir {
@@ -591 +682 @@
 }
 
-# abstract method, each subclass should implement it
-sub keywords           { return {} }
-sub get_functions      { return () }
-sub get_function_regex { return '' }
-sub pre_process        { return 1  }
-
-# should return ($length, @words)
-# where $length is the length of the prefix to be replaced by one of the words
-# or
-# return ($error_message)
-# in case of some error
-sub autocomplete {
-    my $self   = shift;
+
+
+
+
+#####################################################################
+# Document Analysis Methods
+
+# Abstract methods, each subclass should implement it
+# TODO: Clearly this isn't ACTUALLY abstract (since they exist)
+
+sub keywords {
+    return {};
+}
+
+sub get_functions {
+    return ();
+}
+
+sub get_function_regex {
+    return '';
+}
+
+sub pre_process {
+    return 1;
+}
+
+sub stats {
+    my ($self) = @_;
+    
+    my ( $lines, $chars_with_space, $chars_without_space, $words, $is_readonly )
+        = (0) x 5;
 
     my $editor = $self->editor;
-    my $pos    = $editor->GetCurrentPos;
-    my $line   = $editor->LineFromPosition($pos);
-    my $first  = $editor->PositionFromLine($line);
-
-    # line from beginning to current position
-    my $prefix = $editor->GetTextRange($first, $pos);
-       $prefix =~ s{^.*?(\w+)$}{$1};
-    my $last   = $editor->GetLength();
-    my $text   = $editor->GetTextRange(0, $last);
-    my $pre_text  = $editor->GetTextRange(0, $first+length($prefix)); 
-    my $post_text = $editor->GetTextRange($first, $last); 
-
-    my $regex;
-    eval { $regex = qr{\b($prefix\w+)\b} };
-    if ($@) {
-        return ("Cannot build regex for '$prefix'");
-    }
-
-    my %seen;
-    my @words;
-    push @words ,grep { ! $seen{$_}++ } reverse ($pre_text =~ /$regex/g);
-    push @words , grep { ! $seen{$_}++ } ($post_text =~ /$regex/g);
-
-    if (@words > 20) {
-        @words = @words[0..19];
-    }
-
-    return (length($prefix), @words);
-}
-
-sub remove_color {
-    my ($self) = @_;
-
-    my $editor = $self->editor;
-    # TODO this is strange, do we really need to do it with all?
-    for my $i ( 0..31 ) {
-        $editor->StartStyling(0, $i);
-        $editor->SetStyling($editor->GetLength, 0);
-    }
-
-    return;
-}
+    my $src = $editor->GetSelectedText;
+    my $code;
+    if ( $src ) {
+        $code = $src;
+
+        my $code2 = $code; # it's ugly, need improvement
+        $code2 =~ s/\r\n/\n/g;
+        $lines = 1; # by default
+        $lines++ while ( $code2 =~ /[\r\n]/g );
+        $chars_with_space = length($code);
+    } else {
+        $code = $self->text_get;
+
+        # I trust editor more
+        $lines = $editor->GetLineCount();
+        $chars_with_space = $editor->GetTextLength();
+        $is_readonly = $editor->GetReadOnly();
+    }
+
+    $words++ while ( $code =~ /\b\w+\b/g );
+    $chars_without_space++ while ( $code =~ /\S/g );
+
+    my $filename = $self->filename;
+    
+    return ( $lines, $chars_with_space, $chars_without_space, $words, $is_readonly, 
+            $filename, $self->{newline_type}, $self->{encoding} );
+}
+
+=pod
+
+=head2 check_syntax
+
+NOT IMPLEMENTED IN THE BASE CLASS
+
+See also: C<check_syntax_in_background>!
+
+By default, this method will only check the syntax if
+the document has changed since the last check. Specify
+the C<force =E<gt> 1> parameter to override this.
+
+An implementation in a derived class needs to return an arrayref of
+syntax problems.
+
+Each entry in the array has to be an anonymous hash with the 
+following keys:
+
+=over 4
+
+=item * line
+
+The line where the problem resides
+
+=item * msg
+
+A short description of the problem
+
+=item * severity
+
+A flag indicating the problem class: Either 'B<W>' (warning) or 'B<E>' (error)
+
+=item * desc
+
+A longer description with more information on the error (currently 
+not used but intended to be)
+
+=back
+
+Returns an empty arrayref if no problems can be found.
+
+Returns B<undef> if nothing has changed since the last invocation.
+
+Must return the problem list even if nothing has changed when a 
+param is present which evaluates to B<true>.
+
+=head2 check_syntax_in_background
+
+NOT IMPLEMENTED IN THE BASE CLASS
+
+Checking the syntax of documents can take a long time.
+Therefore, this method essentially works the same as
+C<check_syntax>, but works its magic in a background task
+instead. That means it cannot return the syntax-check
+structure but instead optionally calls a callback
+you pass in as the C<on_finish> parameter.
+
+If you don't specify that parameter, the default
+syntax-check-pane updating code will be run after finishing
+the check. If you do specify a callback, the first parameter
+will be the task object. You can
+run the default updating code by executing the
+C<update_gui()> method of the task object.
+
+By default, this method will only check the syntax if
+the document has changed since the last check. Specify
+the C<force =E<gt> 1> parameter to override this.
+
+=cut
+
+
+
+
+#####################################################################
+# Document Manipulation Methods
 
 #
@@ -661 +831 @@
 sub comment_lines_str {}
 
-sub stats {
-    my ($self) = @_;
-    
-    my ( $lines, $chars_with_space, $chars_without_space, $words, $is_readonly )
-        = (0) x 5;
+
+
+
+
+#####################################################################
+# Unknown Methods
+# Dumped here because it's not clear which section they belong in
+
+# should return ($length, @words)
+# where $length is the length of the prefix to be replaced by one of the words
+# or
+# return ($error_message)
+# in case of some error
+sub autocomplete {
+    my $self   = shift;
 
     my $editor = $self->editor;
-    my $src = $editor->GetSelectedText;
-    my $code;
-    if ( $src ) {
-        $code = $src;
-
-        my $code2 = $code; # it's ugly, need improvement
-        $code2 =~ s/\r\n/\n/g;
-        $lines = 1; # by default
-        $lines++ while ( $code2 =~ /[\r\n]/g );
-        $chars_with_space = length($code);
-    } else {
-        $code = $self->text_get;
-
-        # I trust editor more
-        $lines = $editor->GetLineCount();
-        $chars_with_space = $editor->GetTextLength();
-        $is_readonly = $editor->GetReadOnly();
-    }
-
-    $words++ while ( $code =~ /\b\w+\b/g );
-    $chars_without_space++ while ( $code =~ /\S/g );
-
-    my $filename = $self->filename;
-    
-    return ( $lines, $chars_with_space, $chars_without_space, $words, $is_readonly, 
-            $filename, $self->{newline_type}, $self->{encoding} );
-}
-
-
-# TODO: experimental
-sub get_indentation_style {
-    my $self = shift;
-    my $config = Padre->ide->config;
-
-    # TODO: (document >) project > config
-
-    my $style;
-    if ($config->{editor_auto_indentation_style}) {
-        # TODO: This should be cached? What's with newish documents then?
-        $style = $self->guess_indentation_style;
-    }
-    else {
-        $style = {
-            use_tabs    => $config->{editor_use_tabs},
-            tabwidth    => $config->{editor_tabwidth},
-            indentwidth => $config->{editor_indentwidth},
-        };
-    }
-    
-    return $style;
-}
-
-
-=head2 set_indentation_style
-
-Given a hash reference with the keys C<use_tabs>,
-C<tabwidth>, and C<indentwidth>, set the document's editor's
-indentation style.
-
-Without an argument, falls back to what C<get_indentation_style>
-returns.
-
-=cut
-
-sub set_indentation_style {
-    my $self = shift;
-
-    my $style  = shift || $self->get_indentation_style;
-    my $editor = $self->editor;
-    # The display width of literal tab characters (ne "indentation width"!)
-    $editor->SetTabWidth( $style->{tabwidth} );
-    # The actual indentation width in COLUMNS!
-    $editor->SetIndent( $style->{indentwidth} );
-    # Use tabs for indentation where possible?
-    $editor->SetUseTabs(  $style->{use_tabs} );
-    return();
-}
-
-
-=head2 guess_indentation_style
-
-Automatically infer the indentation style of the document using
-L<Text::FindIndent>.
-
-Returns a hash reference containing the keys C<use_tabs>,
-C<tabwidth>, and C<indentwidth>. It is suitable for passing
-to C<set_indendentation_style>.
-
-=cut
-
-sub guess_indentation_style {
-    my $self  = shift;
-
-    require Text::FindIndent;
-    my $indentation = Text::FindIndent->parse($self->text_get);
-
-    my $style;
-    if ($indentation =~ /^t\d+/) { # we only do ONE tab
-        $style = {
-            use_tabs    => 1,
-            tabwidth    => 8,
-            indentwidth => 8,
-        };
-    }
-    elsif ($indentation =~ /^s(\d+)/) {
-        $style = {
-            use_tabs    => 0,
-            tabwidth    => 8,
-            indentwidth => $1,
-        };
-    }
-    elsif ($indentation =~ /^m(\d+)/) {
-        $style = {
-            use_tabs    => 1,
-            tabwidth    => 8,
-            indentwidth => $1,
-        };
-    }
-    else {
-        # fallback
-        my $config = Padre->ide->config;
-        $style = {
-            use_tabs    => $config->{editor_use_tabs},
-            tabwidth    => $config->{editor_tabwidth},
-            indentwidth => $config->{editor_indentwidth},
-        };
-    }
-    
-    return $style;
+    my $pos    = $editor->GetCurrentPos;
+    my $line   = $editor->LineFromPosition($pos);
+    my $first  = $editor->PositionFromLine($line);
+
+    # line from beginning to current position
+    my $prefix = $editor->GetTextRange($first, $pos);
+       $prefix =~ s{^.*?(\w+)$}{$1};
+    my $last   = $editor->GetLength();
+    my $text   = $editor->GetTextRange(0, $last);
+    my $pre_text  = $editor->GetTextRange(0, $first+length($prefix)); 
+    my $post_text = $editor->GetTextRange($first, $last); 
+
+    my $regex;
+    eval { $regex = qr{\b($prefix\w+)\b} };
+    if ($@) {
+        return ("Cannot build regex for '$prefix'");
+    }
+
+    my %seen;
+    my @words;
+    push @words ,grep { ! $seen{$_}++ } reverse ($pre_text =~ /$regex/g);
+    push @words , grep { ! $seen{$_}++ } ($post_text =~ /$regex/g);
+
+    if (@words > 20) {
+        @words = @words[0..19];
+    }
+
+    return (length($prefix), @words);
 }