commit 5c0ec7bd6389d5fb5677c037467cf4e4b112c98d
Author: stackptr <corey@x64.co>
Date:   Sun Jan 5 11:41:25 2014 -0500

    Initial commit

diff --git a/Readme.md b/Readme.md
new file mode 100644
index 0000000..df44c72
--- /dev/null
+++ b/Readme.md
@@ -0,0 +1,6 @@
+np.pl
+===
+
+This prints the currently playing song in mpd to a weechat buffer. Allows custom now playing format and coloring. Requires access to mpc.
+
+To install, place in $WEECHAT\_HOME/perl or in the autoload subdirectory. Invoke using `/np`
\ No newline at end of file
diff --git a/np.pl b/np.pl
new file mode 100644
index 0000000..2de5616
--- /dev/null
+++ b/np.pl
@@ -0,0 +1,83 @@
+# np.pl
+# github.com/stackptr
+#
+# Colorized now playing script for mpd/mpc.
+#
+# Use /np to print current song to buffer
+
+use strict;
+use warnings;
+
+my $descr = 'Colorized now playing script for mpd';
+weechat::register('np', 'byte', '0.1', 'GPL3', $descr, '', '');
+weechat::hook_command('np', $descr, '',
+"Settings:
+
+Turn on/off color formatting for messages:
+  /set plugins.var.perl.np.use_color <on|off>
+  Default: On
+  
+Define colors for messages:
+  /set plugins.var.perl.np.color.{title,artist,album,date} <\"color\">
+  Defaults:  title - lightmagenta
+            artist - blue
+             album - lightgreen
+              date - yellow
+
+Define format for now playing:
+  /set plugins.var.perl.np.format <format>
+  \%title\%, \%artist\%, \%album\%, \%date\% in addition to text
+  Default: \"\%title\% by \%artist\% from \%album\% (\%date\%)\"
+
+
+", '', 'start', '');
+return weechat::WEECHAT_RC_OK;
+
+
+sub start {
+  
+  my $output = "/me is now playing: ";
+  
+  my %data = (
+    "title" => `mpc -f %title% | head -n 1`,
+    "artist" =>`mpc -f %artist% | head -n 1`,
+    "album" => `mpc -f %album% | head -n 1`,
+    "date" => `mpc -f %date% | head -n 1`
+  );
+  chomp %data;
+  
+  %data = addColor(\%data) unless weechat::config_get_plugin("use_color") eq "off";
+  
+  # Todo: Add ability to change foramt
+  $output .= $data{"title"}." by ".$data{"artist"}." from ".$data{"album"}." (".$data{"date"}.")";
+  
+  weechat::command(weechat::current_buffer, $output)
+}
+
+sub addColor {
+  # Color table to translate names to color codes
+  my %color_table = (white => "00", black => "01", darkblue => "02", darkgreen => "03", lightred => "04",
+		                 darkred => "05", magenta => "06", orange => "07", yellow => "08", lightgreen => "09",
+		                 cyan => "10", lightcyan => "11", lightblue => "12", lightmagenta => "13", gray => "14",
+		                 lightgray => 15);
+  
+  # Make sure colors are either defined or defaults
+  weechat::config_set_plugin("color.title", "lightmagenta") if weechat::config_get_plugin("color.title") eq "";
+  weechat::config_set_plugin("color.artist", "lightblue") if weechat::config_get_plugin("color.artist") eq "";
+  weechat::config_set_plugin("color.album", "lightgreen") if weechat::config_get_plugin("color.album") eq "";
+  weechat::config_set_plugin("color.date", "yellow") if weechat::config_get_plugin("color.date") eq "";
+  
+  # Convert to raw color codes
+  my $color_title = "\cC" . $color_table{(weechat::config_get_plugin("color.title"))};
+  my $color_artist = "\cC" . $color_table{(weechat::config_get_plugin("color.artist"))};
+  my $color_album = "\cC" . $color_table{(weechat::config_get_plugin("color.album"))};
+  my $color_date = "\cC" . $color_table{(weechat::config_get_plugin("color.date"))};
+  my $reset_color = "\cC00";
+  
+  return (
+    "title" => $color_title.$_[0]{"title"}.$reset_color,
+    "artist" => $color_artist.$_[0]{"artist"}.$reset_color,
+    "album" => $color_album.$_[0]{"album"}.$reset_color,
+    "date" => $color_date.$_[0]{"date"}.$reset_color
+  )
+}