Changeset 8ee73f8d for examples/owlconf.erik

Timestamp:

Jun 30, 2002, 2:54:22 AM (22 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

039213e

Parents:

d36f2cb

Message:

	Fixed a memory reference bug in delete and undelete commands.
	Added support for perl to call directly back into owl.
	Changed the implementation of owl::command("...") to immediately
	        call back into owl.  This allows perl to get the return
		value of strings returned by owl commands.
	Added the getview command which returns the name of the current
	        view's filter.
	Added the getvar command which returns the value of a variable.
	Added an example to examples/owlconf.erik which uses TAB to
		narrow and restore the view.
	Added an example to examples/owlconf.erik which uses M-c to
		color messages matching the current one green.

File:

• examples/owlconf.erik (modified) (2 diffs)

examples/owlconf.erik

@@ -66 +66 @@
 sub sepbartokens_set {
     owl::command(sprintf "set -q appendtosepbar \"%s\"", (join " ", @sepbartokens));
+}
+
+my $restoreview = undef;
+sub swapview {
+    my $curview = owl::command("getview");
+    if ($restoreview) {
+        owl::command("view $restoreview");
+        $restoreview = undef;
+    } else {
+        $restoreview = $curview;
+        owl::command("smartnarrow");
+    }
+}
+
+my $lastcolored = undef;
+sub colorthread {
+    if ($lastcolored) {
+        owl::command("filter $lastcolored -c default");
+    }
+    my $smartfilt = owl::command("smartfilter");
+    if (!$smartfilt or $smartfilt eq $lastcolored) {
+        owl::command("filter $lastcolored -c default");
+        $lastcolored = undef;
+    } else {
+        owl::command("filter $smartfilt -c green");
+        $lastcolored = $smartfilt;
+    }
 }
 
@@ -97 +124 @@
     owl::command("bindkey recv M-l command ( expunge ; view all )");
     owl::command("bindkey recv M-K command ( smartnarrow ; delete view ; expunge ; view all )");
+
+    # toggle between a view and a smartnarrow with TAB
+    owl::command("alias swapview perl swapview();");
+    owl::command("bindkey recv C-i command swapview");
+
+    # color the current thread
+    owl::command("alias colorthread perl colorthread();");
+    owl::command("bindkey recv M-c command colorthread");
 
     # Make 'M-s' insert a <scritchscritchscritch> sequence with a random