diff --git a/src/workgroups2.el b/src/workgroups2.el index ed33be03f68715cd7dd07977259dd79652b1cd2b..b6ff8502a9038c7680eb9b26e2482ba5a98bb300 100644 --- a/src/workgroups2.el +++ b/src/workgroups2.el @@ -166,7 +166,7 @@ Don't do it with Emacs --daemon option." :type 'string :group 'workgroups) -(defcustom wg-mode-line-display-on t +(defcustom wg-mode-line-display-on (not (featurep 'powerline)) "Toggles Workgroups' mode-line display." :type 'boolean :group 'workgroups @@ -181,12 +181,6 @@ and inactive mode-lines, so this feature defaults to off." :type 'boolean :group 'workgroups) -(defcustom wg-mode-line-disable (featurep 'powerline) - "Do not do any modeline modifications. -There are problems with powerline." - :type 'boolean - :group 'workgroups) - (defcustom wg-mode-line-decor-left-brace "(" "String displayed at the left of the mode-line display." :type 'string @@ -1708,8 +1702,7 @@ Frame defaults to `selected-frame'. See `wg-buffer-auto-association'." (defun wg-change-modeline () "Add Workgroups' mode-line format to `mode-line-format'." - (unless (or (assq 'wg-mode-line-display-on mode-line-format) - wg-mode-line-disable) + (unless (assq 'wg-mode-line-display-on mode-line-format) (let ((format '(wg-mode-line-display-on (:eval (wg-mode-line-string)))) (pos (or (cl-position 'mode-line-position mode-line-format) 10))) (set-default 'mode-line-format (-insert-at (1+ pos) format mode-line-format))