1 files changed, 11 insertions, 3 deletions
diff --git a/emacs/.emacs.d/init/ycp-emms.el b/emacs/.emacs.d/init/ycp-emms.el
index 458a6b0..e49209f 100644
--- a/emacs/.emacs.d/init/ycp-emms.el
+++ b/emacs/.emacs.d/init/ycp-emms.el
@@ -34,6 +34,7 @@
   (emms-all)
   (setq emms-playing-time-resume-from-last-played t)
   (add-to-list 'emms-info-functions 'emms-info-ytdl)
+  (add-to-list 'emms-info-functions 'my-emms-info-ffprobe)
   ;; emms-info-native is not very useful
   (delete 'emms-info-native emms-info-functions)
   (setq emms-source-file-default-directory (locate-user-emacs-file "emms"))
@@ -46,6 +47,7 @@
   (setq emms-source-file-directory-tree-function
         'emms-source-file-directory-tree-find)
   (setq emms-info-ytdl-using-torsocks t)
+  (setq emms-info-auto-update nil)
   (add-hook 'emms-playlist-mode-hook #'hl-line-mode)
   (add-hook 'emms-metaplaylist-mode-hook #'hl-line-mode)
   )
@@ -81,8 +83,8 @@
     "C-<return>" #'my-emms-playlist-mode-make-current
     "w" #'my-emms-playlist-kill-track-name-at-point
     "D" #'my-emms-playlist-delete-at-point
-    "R" #'my-emms-random-album
-    "N" #'my-emms-next-track-or-random-album
+    "R" #'my-emms-playlist-random-group
+    "N" #'my-emms-next-track-or-random-group
     )
   (add-hook 'emms-player-started-hook 'my-emms-maybe-seek-to-last-played)
   (my-override emms-mode-line-enable)
@@ -92,11 +94,17 @@
             'my-emms-output-current-track-to-i3bar-file)
   (add-hook 'emms-player-finished-hook 'my-emms-score-up-playing)
   (add-hook 'emms-player-started-hook 'my-emms-score-up-chosen-bonus)
-  (setq emms-player-next-function 'my-emms-next-track-or-random-album)
+  (add-hook 'emms-player-started-hook 'my-emms-playlist-maybe-mark-bounds)
+  (add-hook 'emms-player-started-hook 'my-emms-maybe-get-duration-for-current-track)
+  (setq emms-player-next-function 'my-emms-next-track-or-random-group)
   (setq emms-players-preference-f 'my-emms-players-preference)
   (my-keybind dired-mode-map "e" #'my-dired-add-to-emms)
   (my-override emms-track-simple-description)
   (my-emms-add-all)
+  (my-timer emms-save-scores-timer nil 900 'emms-score-save-hash)
+  (my-override emms-mode-line-playlist-current)
+  (my-override emms-score-show-playing)
+  ;; (my-override emms-playing-time-mode-line)
   )
 
 (provide 'ycp-emms)