    powerline-height
    (if big-mode big-mode-modeline-height big-mode--powerline-height)
    line-spacing
-   (if big-mode big-mode-line-spacing big-mode--line-spacing)))
+   (if big-mode big-mode-line-spacing big-mode--line-spacing))
+  (if big-mode
+      (progn
+        (setq neo-window-width 25)
+        (add-hook 'neo-after-create-hook 'doom|text-scale-1))
+    (setq neo-window-width 28)
+    (remove-hook 'neo-after-create-hook 'doom|text-scale-1)))
+
+(defun doom|text-scale-1 (&rest _) (text-scale-set -1) (setq line-spacing 0))
+(defun doom|text-scale+1 (&rest _) (text-scale-set +1))
 
 (provide 'extra-demo)
 ;;; extra-demo.el ends here

;;; extra-demo.el --- for collaboration and demonstrations

(defvar powerline-height)


;;   + TODO peer programming collab

;; Big-mode settings
(defconst big-mode-font (font-spec :family "Hack" :size 16))
(defconst big-mode-line-spacing 0)
(defconst big-mode-modeline-height 35)

;;
(use-package impatient-mode
  :commands impatient-mode
  :config (httpd-start))

(defvar big-mode--line-spacing line-spacing)
(defvar big-mode--powerline-height powerline-height)
