Loads and loads of misc updates

[syinit] / 17-emchat-sy.el

diff --git a/17-emchat-sy.el b/17-emchat-sy.el
index 353d442..40b7dc5 100644 (file)
--- a/17-emchat-sy.el
+++ b/17-emchat-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:17:23 steve>
+;; Time-stamp: <Thursday Aug 22, 2013 23:56:57 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/17-emchat-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -141,7 +141,8 @@
 (when (getenv "DISPLAY")
   (setq  emchat-use-sound-flag t))
 
-(customize-set-variable 'emchat-auto-away-timeout 1200)
+;; Lets not auto-away.
+(customize-set-variable 'emchat-auto-away-timeout 0)
 
 (emchat-world-update)
 
@@ -169,17 +170,10 @@
 ;:*=======================
 ;:* Addons/extensions
 
-(defvar **mpd-var-Title* nil)
-(defvar **mpd-var-Artist* nil)
 (defun sy-emchat-now-playing ()
   "Return title/artist of current song."
   (interactive)
-  (let ((song (if **mpd-var-Title*
-                 (format "%s --- [%s]"
-                         **mpd-var-Title*
-                         **mpd-var-Artist*)
-               "The Sounds of Silence --- [Marcel Marceau]")))
-    (format "NP: %s" song)))
+  (format "NP: %s" (mpd-now-playing)))
 
 (defun sy-emchat-send-now-playing ()
   "Send title/artist of current song."