Move emms track information to new dwm status bar

3 files changed, 6 insertions, 13 deletions

diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el
index 84182ab..d939691 100644
--- a/.config/emacs/modules/bd--emms.el
+++ b/.config/emacs/modules/bd--emms.el
@@ -15,6 +15,9 @@ playback."
 (use-package emms
   :bind (("C-z C-s" . 'emms-quickstart)
          ("C-z C-p" . 'emms-play-playlist))
+  :hook
+  (emms-playlist-selection-changed . (lambda ()
+                                       (start-process-shell-command "refreshstatus" nil "refreshstatus")))
   :config
   (emms-all)
   (require 'emms-player-mpd)
@@ -36,9 +39,8 @@ playback."
   (emms-source-file-default-directory (expand-file-name "~/ik/playlists/"))
   (emms-volume-change-function 'emms-volume-mpd-change)
   ;; misc
-  (emms-mode-line-format "%s ")
   (emms-playlist-buffer-name "*Playlist*")
-  (emms-mode-line-icon-enabled-p nil))
+  (emms-mode-line-disable))
 
 
 (provide 'bd--emms)
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index 986ca23..249e55b 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -78,18 +78,9 @@
   "Formats the checked out git repository.")
 
 
-;;;; emms
-(defvar-local bd/emms-mode-line
-    '(:eval (when (and (mode-line-window-selected-p) emms-mode-line-string)
-              (format "%s %s" emms-mode-line-string
-                      emms-playing-time-string)))
-  "Formats the currently playing emms track.")
-
-
 (dolist (construct '(bd/time-mode-line
                      bd/buffer-identification-mode-line
                      bd/vc-mode-line
-                     bd/emms-mode-line
                      bd/line-position))
   (put construct 'risky-local-variable t))
 
@@ -106,7 +97,6 @@
                mode-line-modified
                bd/vc-mode-line
                "      "
-               bd/emms-mode-line
                (mode-line-fill 35)
                bd/line-position
                "  "
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index 166fea8..c4eb197 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -18,7 +18,8 @@ to.")
  bd/enable-variable-pitch-in-hooks)
 
 (set-face-attribute 'variable-pitch nil
-                    :family "Dejavu Serif")
+                    :family "Dejavu Serif"
+                    :height 102)
 (set-face-attribute 'fixed-pitch nil
                     :family "Terminus"
                     :height 120)