     (setq emms-info-functions '(emms-info-libtag))
 
     (if (eq system-type 'darwin)
-	(progn
-	  (setq emms-player-vlc-command-name
-		"/Applications/VLC.app/Contents/MacOS/VLC")))
+        (progn
+          (setq emms-player-vlc-command-name
+                "/Applications/VLC.app/Contents/MacOS/VLC")))
 
     (setq emms-source-file-default-directory my-music-directory
-	  emms-playlist-buffer-name "*Music Playlist*"
-	  emms-playlist-default-major-mode 'emms-playlist-mode
-	  emms-show-format "♪ %s"
-	  emms-browser-default-covers (list (concat (file-name-as-directory my-music-directory) "cover_small.jpg")
-					    (concat (file-name-as-directory my-music-directory) "cover_med.jpg")
-					    nil)
-	  emms-browser-info-artist-format "%i● %n"
-	  emms-browser-info-album-format "%i◎%cS%n (%y)"
-	  emms-browser-info-genre-format "%i● %n"
-	  emms-browser-info-title-format "%i♪ %T. %n"
-	  emms-browser-playlist-info-artist-format emms-browser-info-artist-format
-	  emms-browser-playlist-info-album-format emms-browser-info-album-format
-	  emms-browser-playlist-info-title-format emms-browser-info-title-format))
+          emms-playlist-buffer-name "*Music Playlist*"
+          emms-playlist-default-major-mode 'emms-playlist-mode
+          emms-show-format "♪ %s"
+          emms-browser-default-covers (list (concat (file-name-as-directory my-music-directory) "cover_small.jpg")
+                                            (concat (file-name-as-directory my-music-directory) "cover_med.jpg")
+                                            nil)
+          emms-browser-info-artist-format "%i● %n"
+          emms-browser-info-album-format "%i◎%cS%n"
+          emms-browser-info-genre-format "%i● %n"
+          emms-browser-info-title-format "%i♪ %T. %n"
+          emms-browser-playlist-info-artist-format emms-browser-info-artist-format
+          emms-browser-playlist-info-album-format emms-browser-info-album-format
+          emms-browser-playlist-info-title-format emms-browser-info-title-format))
 
   (defun my-music-layout ()
     (interactive)

    """Diff files in dired mode by pressing 'e'. From https://oremacs.com/2017/03/18/dired-ediff."""
    (interactive)
    (let ((files (dired-get-marked-files))
	  (wnd (current-window-configuration)))
      (if (<= (length files) 2)
	  (let ((file1 (car files))
		(file2 (if (cdr files)
			   (cadr files)
			 (read-file-name
			  "file: "
			  (dired-dwim-target-directory)))))
	    (if (file-newer-than-file-p file1 file2)
		(ediff-files file2 file1)
	      (ediff-files file1 file2))
	    (add-hook 'ediff-after-quit-hook-internal
		      (lambda ()
			(setq ediff-after-quit-hook-internal nil)
			(set-window-configuration wnd))))
	(error "No more than 2 files should be marked"))))
  (define-key dired-mode-map "e" 'dired-ediff-files))



  "Notify that the compilation is finished, close the *compilation* BUFFER if the compilation is successful, and set the focus back to Emacs frame (show MSG)."
  (if (string-match "^finished" msg)
      (progn
        (delete-windows-on buffer)
        (message success-message)
        (when (display-graphic-p)
          (tooltip-show success-message))
        )
    (message fail-message)
    (when (display-graphic-p)
      (tooltip-show fail-message))
    (setq compilation-last-buffer nil) ;; resets compile buffer so as not to interfere with 'compile-again
    )
  (defvar current-frame (car (car (cdr (current-frame-configuration)))))
  (select-frame-set-input-focus current-frame))

(add-to-list 'compilation-finish-functions
             'notify-compilation-result)


;;================================================================================
