From 999e50bb115f75e2a5ad1f5d2c492005c6ba4bde Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 17 Dec 2015 01:51:53 +0100 Subject: [PATCH] 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(-) 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