From 999e50bb115f75e2a5ad1f5d2c492005c6ba4bde Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 17 Dec 2015 01:51:53 +0100
Subject: Don't show current song in modeline

Since SVG Modeline Themes don't use the same modeline elements it isn't
that useful right now.
---
 emacs/.emacs.d/init.el | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'emacs/.emacs.d/init.el')

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 62036f4..7ed086a 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -141,18 +141,6 @@ MODE1 is enabled and vice-versa."
   "Set the `disabled' property for each item in FUNCTIONS to nil."
   (mapc #'(lambda (f) (put f 'disabled nil)) functions))
 
-(defun oni:mode-line-current-song ()
-  "Extract current song information from a path.
-
-EMMS only shows me the absolute path of a song, this function
-extracts the parts I want to know about."
-  (let ((song (emms-track-name (emms-playlist-current-selected-track))))
-    (if (string-match "\\([^/]+\\)/\\([0-9]\\{4\\}\\) - \\(.+\\)/\\([0-9]\\{2,3\\}\\) - \\(.+\\)\\..\\{3,4\\}$" song)
-        (let ((band (substring song (match-beginning 1) (match-end 1)))
-              (title (substring song (match-beginning 5) (match-end 5))))
-          (format "[%s - %s]" band title))
-      song)))
-
 (defun oni:move-beginning-of-dwim ()
   "Move to beginning of line either after indentation or before."
   (interactive)
@@ -650,7 +638,6 @@ If no direction is given, don't split."
   (require 'emms-mode-line))
 
 (stante-after emms-mode-line
-  (setq emms-mode-line-mode-line-function 'oni:mode-line-current-song)
   (emms-mode-line 1))
 
 (stante-after emms-player-mpd
-- 
cgit v1.2.3-54-g00ecf