view release on metacpan or  search on metacpan

lib/App/wmiirc/Tag.pm  view on Meta::CPAN

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
  my($self, $tag) = @_;
  $self->last_tag($tag);
  wmiir "/lbar/$tag", $color{norm};
}
 
sub event_urgent_tag {
  my($self, $type, $tag) = @_;
  wmiir "/lbar/$tag", $color{alert};
}
 
sub event_not_urgent_tag {
  my($self, $type, $tag) = @_;
  my($cur) = wmiir "/tag/sel/ctl";
  wmiir "/lbar/$tag", $cur eq $tag ?  $color{focus} : $color{norm};
}
 
sub event_left_bar_click {
  my($self, $button, $tag) = @_;
  wmiir "/ctl", "view $tag";
}
*event_left_bar_dnd = \&event_left_bar_click;