Changeset 5367

Timestamp:

06/19/09 11:22:37 (3 years ago)

Author:

azawawi

Message:

[Perl 6] added colorizer configuration parameter and added a better check for default.

Location:

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin

Files:

• Perl6.pm (modified) (1 diff)
• Perl6/Perl6Document.pm (modified) (2 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6.pm

@@ -60 +60 @@
     # Read the plugin configuration, and create it if it is not there
     $config = $self->config_read;
-    if(! $config) {
+    if(not $config) {
         # no configuration, let us write some defaults
-        $config = {p6_highlight => 0};
-        $self->config_write($config);
-    }
+        $config = {};
+    }
+    
+    # make sure defaults are respected if they are undefined.
+    if(not defined $config->{colorizer}) {
+        $config->{colorizer} = 'STD';
+    }
+    if(not defined $config->{p6_highlight}) {
+        $config->{p6_highlight} = 0;
+    }
+
+    # and write the plugin's configuration
+    $self->config_write($config);
 
     # let us parse some S29-functions.pod documentation (safely)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6Document.pm

@@ -29 +29 @@
 }
 
-# a SLOW WAY to parse and colorize perl6 files
+# colorizes a Perl 6 document in a timer
+# one at a time;
+# now the user can choose between PGE and STD colorizers
+# via the preferences
 sub colorize {
     my $self = shift;
@@ -44 +47 @@
                 sub { 
                     # temporary overlay using the parse tree given by parrot
-                    # TODO: let the user select which one to use
-                    my $colorizer = 'PGE';
+                    my $colorizer = $config->{colorizer};
                     my $task;
                     if($colorizer eq 'STD') {