diff options
Diffstat (limited to 'emacs/.emacs.d/init.el')
| -rw-r--r-- | emacs/.emacs.d/init.el | 13 |
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 |