workgroups2 Changeset - 421e37bf803c

Changeset - 421e37bf803c

Parent rev.

Child rev.

[Not reviewed]

Merge

0 1 0

Sergey Pashinin - 12 years ago 2014-02-28 17:26:06
sergey@pashinin.com

Merge pull request #32 from builtinnya/master

Fixed mode-line to be attached face correctly

1 file changed with 20 insertions and 20 deletions:

src/workgroups-functions.el

0 comments (0 inline, 0 general)

src/workgroups-functions.el

➞

Show inline comments

                 ;;(consp (cons :div wg-mode-line-decor-left-brace))
                 ;;(keywordp (car (cons :div wg-mode-line-decor-left-brace)))
                 ;;(:div wg-mode-line-decor-left-brace)
                 wg-mode-line-decor-left-brace
                 (wg-workgroup-name wg)
                 (:brace wg-mode-line-decor-left-brace)
                 (:mode (wg-workgroup-name wg))
                 (if (not wg-mode-line-only-name)
                     (progn
                       wg-mode-line-decor-divider
                       (wg-mode-line-buffer-association-indicator wg)
                       wg-mode-line-decor-divider
                       (if (window-dedicated-p)
                                  wg-mode-line-decor-window-dedicated
                                wg-mode-line-decor-window-undedicated)
                       wg-mode-line-decor-divider
                       (if (wg-session-modified (wg-current-session))
                                  wg-mode-line-decor-session-modified
                                wg-mode-line-decor-session-unmodified)
                       (if (wg-workgroup-modified wg)
                           wg-mode-line-decor-workgroup-modified
                         wg-mode-line-decor-workgroup-unmodified)))
                 wg-mode-line-decor-right-brace))
                     (concat
                      (wg-add-face :div wg-mode-line-decor-divider)
                      (wg-mode-line-buffer-association-indicator wg)
                      (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)
                      (if (wg-workgroup-modified wg)
                          wg-mode-line-decor-workgroup-modified
                        wg-mode-line-decor-workgroup-unmodified)))
                 (:brace wg-mode-line-decor-right-brace)))
           (t (if wg-display-nowg
                  (progn
                    (wg-fontify " "
                      wg-mode-line-decor-left-brace
                      wg-nowg-string
                      wg-mode-line-decor-right-brace))
                      (:brace wg-mode-line-decor-left-brace)
                      (:mode wg-nowg-string)
                      (:brace wg-mode-line-decor-right-brace)))
                "")))))
 (defun wg-add-mode-line-display ()

0 comments (0 inline, 0 general)