Changeset 4485285 for examples

Timestamp:

Jan 12, 2013, 1:43:31 PM (12 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Parents:

4626016 (diff), 7869e48 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge 7869e4801e577613b7db987d11bddb0a31fe755c into 46260161946c87dfed4fef9e3223b2327895f139

Location:

examples

Files:

• owlconf.erik (modified) (13 diffs)
• owlconf.simple (modified) (13 diffs)
• owlconf.vtformat (modified) (4 diffs)

examples/owlconf.erik

@@ -1 @@
-### The owlconf config file   -*- perl -*-  
+### The owlconf config file   -*- perl -*-
 ###
 ### !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!!
-### This is an example file intended to demonstrate how to use 
+### This is an example file intended to demonstrate how to use
 ### various features of owl.  Some of the key bindings, in particular,
 ### are more for examples than things you may actually want to use.
@@ -30 +30 @@
 ### The message attributes may be dereferenced with $m->attribute
 ###
-###    
+###
 
 # tokens for sepbar are:
@@ -122 +122 @@
 }
 
-# Load in things which don't belong in an owlconf 
+# Load in things which don't belong in an owlconf
 # that people might use as an example...
 sub personal_startup {
@@ -231 +231 @@
             sepbartokens_add("<$sender");
             sepbartokens_trim(">$sender");
-        } 
+        }
     } elsif ($m->is_mail) {
         mail_add_message($m);
@@ -249 +249 @@
     my ($b) = @_;
     $b=~s/^/    /g;
-    $b=~s/\n/\n    /g;    
+    $b=~s/\n/\n    /g;
     return $b;
 }
@@ -282 +282 @@
     }
 
-    if (!$m->is_zephyr && !$m->is_aim) { 
+    if (!$m->is_zephyr && !$m->is_aim) {
         return "Unknown message type: ".$m->type."\n";
     }
@@ -308 +308 @@
 
     if ($m->is_zephyr) {
-        $out = sprintf "[mit,%s,%s] / %s / %s", lc($m->class), 
+        $out = sprintf "[mit,%s,%s] / %s / %s", lc($m->class),
         lc($m->instance), $m->time, lc($m->host);
         if ($m->opcode ne "") {$out.=" op:".$m->opcode;}
@@ -322 +322 @@
             }
         }
-        $out.="\n";             
+        $out.="\n";
     } else {
         $out = sprintf "[%s] / %s\n", lc($m->type), $m->time;
         $out.= "  \@bold($sender)> ";
-        $out.="\n";             
+        $out.="\n";
     }
 
@@ -380 +380 @@
     }
 
-    if (!$m->is_zephyr && !$m->is_aim) { 
+    if (!$m->is_zephyr && !$m->is_aim) {
         return "Unknown message type: ".$m->type."\n";
     }
@@ -402 +402 @@
         }
         return "$out\n";
-                
+
     } elsif ($m->is_zephyr && $m->is_mail) {
         my $body = $m->body;
@@ -414 +414 @@
     my $channel = "";
     my $body = $m->body;
-    
+
     if ($m->is_zephyr) {
         my $inst = $m->instance;
@@ -459 +459 @@
     }
     for my $w (@words) {
-        if (($outline ne "") 
+        if (($outline ne "")
             && (length($outline)+length($w) > $width-$unindent)) {
             $out .= $outline."\n";
@@ -472 +472 @@
         $outline .= $w;
     }
-    $out .= $outline . "\n";    
-}
+    $out .= $outline . "\n";
+}

examples/owlconf.simple

@@ -1 @@
-### The owlconf config file   -*- perl -*-  
+### The owlconf config file   -*- perl -*-
 
 ### !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!! !!!!!WARNING!!!!!
-### This is an example file intended to demonstrate how to use 
+### This is an example file intended to demonstrate how to use
 ### various features of owl.  Some of the key bindings, in particular,
 ### are more for examples than things you may actually want to use.
@@ -36 +36 @@
 ###     $owl::sender, $owl::opcode, $owl::zsig,
 ###     $owl::msg, $owl::time, $owl::host, @owl::fields, $owl::id
-###    
+###
 
 # NOTE: Lines beginning with a "#" are perl comments.
@@ -49 +49 @@
     ## Doing "help" will show you more about each variable.
     ## These lines will set things to the default.
-    ## You can uncomment them and then change the value to get 
+    ## You can uncomment them and then change the value to get
     ## a different behavior (remove the "#" to an alternate value).
     ################################################################
@@ -60 +60 @@
 
     ## Set this to on to enable logging of personal zephyrs
-    # owl::command('set -q logging off');  
+    # owl::command('set -q logging off');
 
     ## This directory must exist and is where personal zephyrs are logged.
@@ -67 +67 @@
 
     ## Set this to on to enable logging of classes
-    # owl::command('set -q classlogging off');  
+    # owl::command('set -q classlogging off');
 
     ## This directory must exist and is where class zephyrs are logged.
@@ -105 +105 @@
     ################################################################
     ## The following create filters.  Filters can be used to select
-    ## on multiple zephyrs for operations.  With 'views' you can 
+    ## on multiple zephyrs for operations.  With 'views' you can
     ## look at only the zephyrs matching a particular filter.
     ## Use the 'view <filtername>' command or the 'v' key to switch views.
@@ -114 +114 @@
     ## The filter command creates a filter with the specified name,
     ## or if one already exists it is replaced.  Example filter
-    ## syntax would be:                                        
+    ## syntax would be:
     ##
     ##    filter myfilter -c red ( class ^foobar$ ) or ( class ^quux$ and instance ^bar$ )
@@ -123 +123 @@
     ## is used it specifies the color that messages matching this filter
     ## should be displayed in.  Do 'show colors' to see the available colors.
-    ## 
+    ##
     ################################################################
 
@@ -137 +137 @@
     ## The 'trash' filter is used when you press 'T' to mark things
     ## for autodeletion.
-    # owl::command('filter trash class ^mail$ or opcode ^ping$ or type ^admin$ or class ^login$');   
+    # owl::command('filter trash class ^mail$ or opcode ^ping$ or type ^admin$ or class ^login$');
 
 }
@@ -188 +188 @@
     ## Note that:
     ##   $out .= "foo";  appends "foo" to the end of the variable $out.
-    ##   lc(bar) will convert bar to lowercase.    
+    ##   lc(bar) will convert bar to lowercase.
     ##   "ne" does "not equal" for string comparison.
     ##   sprintf fills in the %s's with the arguments later on the line.
@@ -213 +213 @@
         # Incoming messages
 
-        $out .= sprintf "[mit,%s,%s] / %s / %s", lc($owl::class), 
+        $out .= sprintf "[mit,%s,%s] / %s / %s", lc($owl::class),
                         lc($owl::instance), $owl::time, lc($owl::host);
         if ($owl::opcode ne "") {$out.=" op:$owl::opcode";}
@@ -228 +228 @@
         }
     }
-    $out.="\n";         
+    $out.="\n";
 
     # This indents the body of the message and then appends it on.
@@ -251 +251 @@
 ## In most cases you won't need anything here.
 sub owl::receive_msg() {
-    
+
     ## If this is uncommented, it would mark all messages
     ## with opcode "PING" for immediate deletion:

examples/owlconf.vtformat

@@ -1 @@
-### The owlconf config file   -*- perl -*-  
+### The owlconf config file   -*- perl -*-
 ###
 ### This file is interpreted by the perl interpreter.
@@ -23 +23 @@
 ###     $owl::sender, $owl::opcode, $owl::zsig,
 ###     $owl::msg, $owl::time, $owl::host, @owl::fields
-###    
+###
 
 # classes will be appreviated this way
@@ -124 +124 @@
     }
     for my $w (@words) {
-        if (($outline ne "") 
+        if (($outline ne "")
             && (length($outline)+length($w) > $width-$unindent)) {
             $out .= $outline."\n";
@@ -137 +137 @@
         $outline .= $w;
     }
-    $out .= $outline . "\n";    
+    $out .= $outline . "\n";
 }