workgroups2 Changeset - 811d54617711

Changeset - 811d54617711

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 12 years ago 2013-09-25 19:28:45
sergey@pashinin.com

new variable wg-mode-line-disable + powerline fix

wg-mode-line-disable is by default (featurep 'powerline)

2 files changed with 8 insertions and 2 deletions:

src/workgroups-functions.el

src/workgroups-variables.el

0 comments (0 inline, 0 general)

src/workgroups-functions.el

➞

Show inline comments

@@ @@ -1620,9 +1620,10 @@ for display by `other-buffer' in the current workgroup." @@
 (defun wg-add-mode-line-display ()
   "Add Workgroups' mode-line format to `mode-line-format'."
   (unless (assq 'wg-mode-line-display-on mode-line-format)
   (unless (or (assq 'wg-mode-line-display-on mode-line-format)
               wg-mode-line-disable)
     (let ((format '(wg-mode-line-display-on (:eval (wg-mode-line-string))))
           (pos (wg-position 'mode-line-position mode-line-format)))
+          (pos (or (wg-position 'mode-line-position mode-line-format) 10)))
       (set-default 'mode-line-format
                    (wg-insert-after format mode-line-format pos))
       (force-mode-line-update))))

src/workgroups-variables.el

➞

Show inline comments

@@ @@ -599,6 +599,11 @@ 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."
   :type 'boolean
   :group 'workgroups)
 (defcustom wg-mode-line-only-name t
   "Display only workgroup name in modeline without any flags."
   :type 'boolean

0 comments (0 inline, 0 general)