ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't show current song in modeline

Browse source 
Since SVG Modeline Themes don't use the same modeline elements it isn't
that useful right now.
This commit is contained in:
Tom Willemse 2015-12-17 01:51:53 +01:00
parent fc977b29f0
commit 999e50bb11
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs/.emacs.d/init.el
View file

@ -141,18 +141,6 @@ MODE1 is enabled and vice-versa."
"Set the `disabled' property for each item in FUNCTIONS to nil." "Set the `disabled' property for each item in FUNCTIONS to nil."
(mapc #'(lambda (f) (put f 'disabled nil)) functions)) (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 () (defun oni:move-beginning-of-dwim ()
"Move to beginning of line either after indentation or before." "Move to beginning of line either after indentation or before."
(interactive) (interactive)
@ -650,7 +638,6 @@ If no direction is given, don't split."
(require 'emms-mode-line)) (require 'emms-mode-line))
(stante-after emms-mode-line (stante-after emms-mode-line
(setq emms-mode-line-mode-line-function 'oni:mode-line-current-song)
(emms-mode-line 1)) (emms-mode-line 1))
(stante-after emms-player-mpd (stante-after emms-player-mpd