Improve workgroup compatibility + fix invalid nlinum face bug on new-frame

This commit is contained in:
Henrik Lissner 2015-11-04 01:20:07 -05:00
parent d3a7fd08ed
commit 60ba39d709
3 changed files with 18 additions and 6 deletions

View file

@ -57,7 +57,8 @@
(defun narf:workgroup-display ()
(interactive)
(when (wg-current-session t)
(message (wg-display-internal
(message "%s"
(wg-display-internal
(lambda (workgroup index)
(if (not workgroup) wg-nowg-string
(wg-element-display
@ -72,14 +73,16 @@
(interactive "<c>")
(if count
(wg-switch-to-workgroup-at-index (1- count))
(wg-switch-to-workgroup-left)))
(wg-switch-to-workgroup-left))
(narf:workgroup-display))
;;;###autoload (autoload 'narf:switch-to-workgroup-right "defuns-workgroup" nil t)
(evil-define-command narf:switch-to-workgroup-right (count)
(interactive "<c>")
(if count
(wg-switch-to-workgroup-at-index (1- count))
(wg-switch-to-workgroup-right)))
(wg-switch-to-workgroup-right))
(narf:workgroup-display))
;;;###autoload
(defun narf:switch-to-workgroup-at-index (index)