i3status/contrib/wrapper.pl

44 lines
1.3 KiB
Perl
Executable File
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!/usr/bin/env perl
# vim:ts=4:sw=4:expandtab
# © 2012 Michael Stapelberg, Public Domain
# This script is a simple wrapper which prefixes each i3status line with custom
# information. To use it, ensure your ~/.i3status.conf contains this line:
# output_format = "i3bar"
# in the 'general' section.
# Then, in your ~/.i3/config, use:
# status_command i3status | ~/i3status/contrib/wrapper.pl
# In the 'bar' section.
use strict;
use warnings;
# You can install the JSON module with 'cpan JSON' or by using your
# distributions package management system, for example apt-get install
# libjson-perl on Debian/Ubuntu.
use JSON;
# Dont buffer any output.
$| = 1;
# Skip the first line which contains the version header.
print scalar <STDIN>;
# The second line contains the start of the infinite array.
print scalar <STDIN>;
# Read lines forever, ignore a comma at the beginning if it exists.
while (my ($statusline) = (<STDIN> =~ /^,?(.*)/)) {
# Decode the JSON-encoded line.
my @blocks = @{decode_json($statusline)};
# Prefix our own information (you could also suffix or insert in the
# middle).
@blocks = ({
full_text => 'MPD: not running',
name => 'mpd'
}, @blocks);
# Output the line as JSON.
print encode_json(\@blocks) . ",\n";
}