;;
;; amarok now playing
;
(setq ics-np-format "set 10 :`````````````````````````````````````````````````````````````````````````: : : Now playing: %-58s : : : (This note automatically updated using amaroK, a Tcl script and ics.el) : : :,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,:")

(defun ics-set-amarok-now-playing (track-name)
  ""
  (save-excursion
    (if (get-buffer-process "*ICC:Sheridan*")
	(progn (set-buffer "*ICC:Sheridan*")
	       (ics-send-command (format ics-np-format track-name)))
      (message (format "no ics buffer to display track: %s" track-name)))))