Changeset df7018f for perlwrap.pm

Timestamp:

May 30, 2009, 7:29:16 PM (15 years ago)

Author:

Alex Dehnert <adehnert@mit.edu>

Branches:

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

Children:

e04b7a1

Parents:

6223638

git-author:

Alex Dehnert <adehnert@mit.edu> (05/28/09 00:15:48)

git-committer:

Alex Dehnert <adehnert@mit.edu> (05/30/09 19:29:16)

Message:

Display personals better in OneLine mode.

Adds short_personal_context, which enables
protocol modules to specify how to fill the
subcontext column for personal messages

For personal zephyrs, now displays the class
(for non-message) or instance (for -c message).

File:

• perlwrap.pm (modified) (3 diffs)

perlwrap.pm

@@ -393 +393 @@
 # Override if you want a context (instance, network, etc.) on personals
 sub personal_context { return ""; }
+# extra short version, for use where space is especially tight
+# (eg, the oneline style)
+sub short_personal_context { return ""; }
 
 sub delete {
@@ -626 +629 @@
     my ($m) = @_;
     return $m->context_reply_cmd();
+}
+
+sub short_personal_context {
+    my ($m) = @_;
+    if(lc($m->class) eq 'message')
+    {
+        if(lc($m->instance) eq 'personal')
+        {
+            return '';
+        } else {
+            return $m->instance;
+        }
+    } else {
+        return $m->class;
+    }
 }
 
@@ -1168 +1186 @@
   my $line;
   if ($m->is_personal) {
+
+    # Figure out what to show in the subcontext column
     $line= sprintf(BASE_FORMAT,
                    $dirsym,
                    $m->type,
-                   '',
+                   maybe($m->short_personal_context),
                    ($dir eq 'out'
                     ? $m->pretty_recipient