Changeset 6700c605 for perl/lib/BarnOwl.pm

Timestamp:

Dec 24, 2009, 6:18:51 PM (14 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

980fa31

Parents:

c471e85

git-author:

Alex Dehnert <adehnert@mit.edu> (12/20/09 01:50:12)

git-committer:

Alex Dehnert <adehnert@mit.edu> (12/24/09 18:18:51)

Message:

Allow left/right scrolling by arbitrary amount

Move recv:{left,right}shift to Perl and make
them optionally accept a number of columns to
scroll by (default: 10).

File:

• perl/lib/BarnOwl.pm (modified) (3 diffs)

perl/lib/BarnOwl.pm

@@ -38 +38 @@
 use BarnOwl::Completion;
 
+use List::Util qw(max);
+
 =head1 NAME
 
@@ -421 +423 @@
                        });
 
+    # Receive window scrolling
+    BarnOwl::new_command("recv:shiftleft",
+                        \&BarnOwl::recv_shift_left,
+                        {
+                            summary => "scrolls receive window to the left",
+                            usage => "recv:shiftleft [<amount>]",
+                            description => <<END_DESCR
+By default, scroll left by 10 columns. Passing no arguments or 0 activates this default behavior.
+Otherwise, scroll by the number of columns specified as the argument.
+END_DESCR
+                        });
+
+    BarnOwl::new_command("recv:shiftright",
+                        \&BarnOwl::recv_shift_right,
+                        {
+                            summary => "scrolls receive window to the right",
+                            usage => "recv:shiftright [<amount>]",
+                            description => <<END_DESCR
+By default, scroll right by 10 columns. Passing no arguments or 0 activates this default behavior.
+Otherwise, scroll by the number of columns specified as the argument.
+END_DESCR
+                        });
+
 }
 
@@ -485 +510 @@
 }
 
+=head3 Receive window scrolling
+
+Permit scrolling the receive window left or right by arbitrary
+amounts (with a default of 10 characters).
+
+=cut
+
+sub recv_shift_left
+{
+    my $func = shift;
+    my $delta = shift;
+    $delta = 10 unless int($delta) > 0;
+    my $shift = BarnOwl::recv_getshift();
+    if($shift > 0) {
+        BarnOwl::recv_setshift(max(0, $shift-$delta));
+    } else {
+        return "Already full left";
+    }
+}
+
+sub recv_shift_right
+{
+    my $func = shift;
+    my $delta = shift;
+    $delta = 10 unless int($delta) > 0;
+    my $shift = BarnOwl::recv_getshift();
+    BarnOwl::recv_setshift($shift+$delta);
+}
+
 =head3 default_zephyr_signature