summaryrefslogtreecommitdiffstats
path: root/emacs/.emacs.d/init.el
diff options
context:
space:
mode:
authorGravatar Tom Willemse2015-12-17 01:51:53 +0100
committerGravatar Tom Willemse2015-12-17 01:51:53 +0100
commit999e50bb115f75e2a5ad1f5d2c492005c6ba4bde (patch)
treed31d0ff5505e1ee90b7d9310a4b2d43aa953e28d /emacs/.emacs.d/init.el
parentfc977b29f03a784f13510a0625cf2e16b38c7af2 (diff)
downloaddotfiles-999e50bb115f75e2a5ad1f5d2c492005c6ba4bde.tar.gz
dotfiles-999e50bb115f75e2a5ad1f5d2c492005c6ba4bde.zip
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.
Diffstat (limited to 'emacs/.emacs.d/init.el')
-rw-r--r--emacs/.emacs.d/init.el13
1 files changed, 0 insertions, 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