workgroups2 Changeset - e29f72b759ee

Changeset - e29f72b759ee

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-25 10:59:33
sergey@pashinin.com

Use wg-flag-modified var

1 file changed with 15 insertions and 18 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -182,11 +182,6 @@ There are problems with powerline." @@
   :type 'boolean
   :group 'workgroups)
 (defcustom wg-mode-line-only-name t
   "Display only workgroup name in modeline without any flags."
   :type 'boolean
   :group 'workgroups)
 (defcustom wg-mode-line-decor-left-brace "("
   "String displayed at the left of the mode-line display."
   :type 'string
 unambiguously pair the two.")
 (make-variable-buffer-local 'wg-buffer-uid)
 (defvar wg-flag-modified t
   "To set or not to set... `modified' flag when changing workgroups.")
 (defcustom wg-flag-modified t
   "Show \"modified\" flags in modeline."
   :type 'boolean
   :group 'workgroups)
 (defvar wg-window-configuration-changed nil
   "Flag set by `window-configuration-change-hook'.")
     (cond (wg (wg-fontify " "
                 (:brace wg-mode-line-decor-left-brace)
                 (:mode (wg-workgroup-name wg))
-                (if (not wg-mode-line-only-name)
+                (if wg-flag-modified
                     (concat
                      (wg-add-face :div wg-mode-line-decor-divider)
                      (wg-add-face :div wg-mode-line-decor-divider)
                      (if (window-dedicated-p)
                          wg-mode-line-decor-window-dedicated
                        wg-mode-line-decor-window-undedicated)
                      (wg-add-face :div wg-mode-line-decor-divider)
                      ;;(if (window-dedicated-p)
                      ;;    wg-mode-line-decor-window-dedicated
                      ;;  wg-mode-line-decor-window-undedicated)
                      ;;(wg-add-face :div wg-mode-line-decor-divider)
                      (if (wg-session-modified (wg-current-session))
                          wg-mode-line-decor-session-modified
                        wg-mode-line-decor-session-unmodified)
                        wg-mode-line-decor-workgroup-unmodified)))
                 (:brace wg-mode-line-decor-right-brace)))
           (t (if wg-display-nowg
                  (progn
                    (wg-fontify " "
                      (:brace wg-mode-line-decor-left-brace)
                      (:mode wg-nowg-string)
                      (:brace wg-mode-line-decor-right-brace)))
                  (wg-fontify " "
                    (:brace wg-mode-line-decor-left-brace)
                    (:mode wg-nowg-string)
                    (:brace wg-mode-line-decor-right-brace))
                "")))))
 (defun wg-change-modeline ()

0 comments (0 inline, 0 general)