Changeset 3320

Timestamp:

03/13/09 07:52:44 (3 years ago)

Author:

jquelin

Message:

new method current_paragraph()

File:

• trunk/Padre/lib/Padre/Wx/Editor.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -843 +843 @@
 }
 
+
+#
+# my ($begin, $end) = $self->current_paragraph;
+#
+# return $begin and $end position of current paragraph.
+#
+sub current_paragraph {
+    my ($editor) = @_;
+
+    my $curpos = $editor->GetCurrentPos;
+    my $lineno = $editor->LineFromPosition($curpos);
+
+    # check if we're in between paragraphs
+    return ($curpos, $curpos) if $editor->GetLine($lineno) =~ /^\s*$/;
+
+    # find the start of paragraph by searching backwards till we find a
+    # line with only whitespace in it.
+    my $para1 = $lineno;
+    while ( $para1 > 0 ) {
+        my $line = $editor->GetLine($para1);
+        last if $line =~ /^\s*$/;
+        $para1--;
+    }
+
+    # now, find the end of paragraph by searching forwards until we find
+    # only white space
+    my $lastline = $editor->GetLineCount;
+    my $para2 = $lineno;
+    while ( $para2 < $lastline ) {
+        $para2++;
+        my $line = $editor->GetLine($para2);
+        last if $line =~ /^\s*$/;
+    }
+
+    # return the position
+    my $begin = $editor->PositionFromLine($para1+1);
+    my $end   = $editor->PositionFromLine($para2);
+    return ($begin, $end);
+}
+
 sub put_text_to_clipboard {
     my ( $self, $text ) = @_;