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

core/core-workgroups.el

@@ -4,7 +4,9 @@
 (use-package workgroups2
   :when window-system
   :init
-  (setq wg-session-file          (expand-file-name "wg-default" narf-temp-dir)
+  (setq split-height-threshold 15
+
+        wg-session-file          (expand-file-name "wg-default" narf-temp-dir)
         wg-workgroup-directory   (expand-file-name "workgroups" narf-temp-dir)
         wg-first-wg-name         "main"
         wg-session-load-on-start t

core/lib/defuns-workgroup.el

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