Responsive lyout for mingus-mopidy branch

gistfile1.txt

(defun pft/mingus-resize (&optional frame)
  (let ((windows (remove nil
                         (list
                          (get-buffer-window
                           (get-buffer "*Mingus Browser*"))
                          (get-buffer-window
                           (get-buffer "*Mingus*"))))))
    (mapc (lambda (w)
            (with-selected-window
                w
              (when (pft/mingus-needs-redraw w)
               (mingus-redraw-buffer))))
          windows)))

(defun pft/mingus-needs-redraw (w)
  (let* ((pw (window-parameter nil 'pft/mingus-pw))
         (need (and pw (not (= pw (window-width w))))))
    (when (or (not pw) need)
      (set-window-parameter w 'pft/mingus-pw (window-width w)))
    need))

(eval-after-load "mingus"
  '(when (fboundp 'mingus-redraw-buffer)
     (add-hook 'window-size-change-functions
               'pft/mingus-resize)))

Adjust column widths when resizing bufffers.

I updated the gist to memorize previous width to prevent too many redraws and subsequent cursor jumping