workgroups2 Changeset - b0edcf4aa1c0

Changeset - b0edcf4aa1c0

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-30 12:12:06
sergey@pashinin.com

removed wg-mode-line-disable

Use wg-mode-line-display-on

1 file changed with 2 insertions and 9 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -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
 (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))

0 comments (0 inline, 0 general)