Re: Gnus elisp source for Now-Playing

[Henrik Enberg <henrik+news@enberg.org>]

sean@tcob1.net (Sean Rima) writes:

> Some where on the web I found and lost a segment of text that allowed
> for adding a X-XMMS-NOW-PLAYING header but I cannot find it. If
> anyone has something similar please share it,Please :)

put this in ~/.gnus:

(defun xmms-now-playing ()
  (let ((track (shell-command-to-string "xmms-now-playing")))
    (unless (string-equal "" track)
      (save-excursion
	(goto-char (point-min))
	(re-search-forward "^--text follows this line--")
	(forward-line 0)
	(insert "X-Now-Playing: " track "\n")))))

(add-hook 'message-setup-hook 'xmms-now-playing)

you also need the below C program. put it in a directory on $PATH when
you've compiled it.  Also, this requires the XMMS development headers to
be installed.  Use "apt-get install xmms-dev" if you're on on Debian.

---- xmms-now-playing.c ----

/* compile with:  
 gcc -O2 -Wall `xmms-config --cflags --libs` -o xmms-now-playing xmms-now-playing.c
 */

#include <xmmsctrl.h>
#include <glib.h>

int
main (void)
{
  int n = -1;

  if ((n = xmms_remote_get_playlist_pos (0)) > -1)
    {
      char *title;

      if ((title = xmms_remote_get_playlist_title (0, n)))
	{
	  g_print ("%s", title);
	  g_free (title);
	}
    }
  return 0;
}