Nibbles microblog

(zmx@localhost)[~]-% cat irssiscr
#!/bin/bash
# Run/Load IRC Script
# This script runs irssi in screen if it has not already been done.
# If irssi in screen is already running, it will then attach to
# the irc screen session for you.
if screen -ls | egrep '^[[:space:]]+[^[:space:]]' | awk '{print $1}' | egrep '.irc$'
then # running
screen -x irc
else # not running
screen -c ~/.screenrc.irc -S irc -t irssi irssi
fi

# detach on hangup
autodetach on
# multiusers
multiuser on
# no copyright notice during startup
startup_message off
# remove some bad bindings
bind k  #kill
bind ^k #kill
bind .  # dump termcap
bind ^h # hardcopy
bind h  # hardcopy
bind A  # title (clashes with vim's increment)
 
# don't use the hardstatus line for system messages, use reverse video instead
# # (we'll be using it for the list of tab windows - see hardstatus alwayslastline
# # below)
hardstatus off
hardstatus alwayslastline "%{= bW} %-Lw%{=b BR} %n%f %t %{-}%+Lw %-024=%{+b} %c %D %d %M %Y%=%{= dd}"

# if using GNU screen, let the zsh tell screen what the title and hardstatus
# of the tab window should be.
if [[ $TERM == "screen" ]]; then
# use the current user as the prefix of the current tab title (since that's
# fairly important, and I change it fairly often)
TAB_TITLE_PREFIX=''
# when at the shell prompt, show a truncated version of the current path (with
# standard ~ replacement) as the rest of the title.
TAB_TITLE_PROMPT='`print -Pn "%~" | sed "s:\([~/][^/]*\)/.*/:\1...:"`'
 
# when running a command, show the title of the command as the rest of the
# title (truncate to drop the path to the command)
TAB_TITLE_EXEC='$cmd[1]:t'
 
# use the current path (with standard ~ replacement) in square brackets as the
# prefix of the tab window hardstatus.
TAB_HARDSTATUS_PREFIX='`print -Pn "[%~] "`'
# when at the shell prompt, use the shell name (truncated to remove the path to
# the shell) as the rest of the title
TAB_HARDSTATUS_PROMPT='$SHELL:t'
# when running a command, show the command name and arguments as the rest of
# the title
TAB_HARDSTATUS_EXEC='$cmd'
 
# tell GNU screen what the tab window title ($1) and the hardstatus($2) should be
function screen_set()
{
#  set the tab window title (%t) for screen
print -nR $'33k'$1$'33'\\\
 
# set hardstatus of tab window (%h) for screen
print -nR $'33]0;'$2$'\a'
}
# called by zsh before executing a command
function preexec()
{
local -a cmd; cmd=(${(z)1}) # the command string
eval "tab_title=$TAB_TITLE_PREFIX$TAB_TITLE_EXEC"
eval "tab_hardstatus=$TAB_HARDSTATUS_PREFIX$TAB_HARDSTATUS_EXEC"
screen_set $tab_title $tab_hardstatus
}
# called by zsh before showing the prompt
function precmd()
{
eval "tab_title=$TAB_TITLE_PREFIX$TAB_TITLE_PROMPT"
eval "tab_hardstatus=$TAB_HARDSTATUS_PREFIX$TAB_HARDSTATUS_PROMPT"
screen_set $tab_title $tab_hardstatus
}
fi

use strict;
use vars qw($VERSION %IRSSI);
 
use Irssi 20011211;
$VERSION = "0.01";
%IRSSI = (
authors     => "Zmx",
contact     => "larouanne\@gmail.com",
name        => "Screen tab autorename",
description => "Change the screen tab name to the last HiLite information",
license     => "Public Domain",
url         => "http://zmx.cc/irssi/",
);
 
sub update_status {
my ($origitem, $oldstatus) = @_;
my $active = 0;
my $activeName = $origitem->{name};
if ($origitem->{data_level} != 3 ){
for my $window ( sort { $a->{refnum} <=> $b->{refnum} } Irssi::windows() ) {
 
for my $item ( $window->items() ) {
if ($item->{data_level} > 2 ){
$active = 1;
$activeName = $item->{name};
}
}
}
}else{
$active = 1;
}
if ($active) {
#  set the tab window title (%t) for screen
print STDERR "33k$activeName33\\";
}else{
print STDERR "33k" . Irssi::settings_get_str('screentitle') . "33\\";
}
}