add "is listening to" in ERC with emms

 

File modified: lisp/emacs.d/ivan-erc.el

Change296 at Sat Jun 05 11:22:52 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 778cf21c537d -r b562ba1be2d1 lisp/emacs.d/ivan-erc.el
--- a/lisp/emacs.d/ivan-erc.el	Sun May 30 13:19:37 2010 +0200
+++ b/lisp/emacs.d/ivan-erc.el	Sat Jun 05 11:22:52 2010 +0200
@@ -47,7 +47,8 @@
 
 (defun ivan-erc-mode-hook ()
   (ivan-keymap-define erc-mode-map
-                      "\C-c\C-c" ivan-erc-clear-buffer
+                      "C-c C-c" ivan-erc-clear-buffer
+                      "C-c l" ivan-erc-listen
                       "<home>" beginning-of-buffer
                       "<backtab>" erc-button-previous)
   (if (string= "#nihongo" (buffer-name))
@@ -57,6 +58,19 @@
 (add-hook 'erc-join-hook 'ivan-erc-join)
 (add-hook 'erc-mode-hook 'ivan-erc-mode-hook)
 
+(defun ivan-erc-listen ()
+  (interactive)
+  (let ((file (cdr (assoc 'name (emms-playlist-current-selected-track)))))
+    (insert
+     (concat
+      "/me listens to "
+      (nth 2 (nreverse (split-string file "/")))
+      " - "
+      (replace-regexp-in-string
+       ".*[0-9][0-9] - " ""
+       (file-name-sans-extension
+        (file-name-nondirectory file)))))))
+
 (setq
  erc-auto-query 'window-noselect
  erc-button-alist '((erc-button-url-regexp 0 t browse-url 0))

back