diff --git a/modules/extra-demo.el b/modules/extra-demo.el index 33b2ed22b..32c669065 100644 --- a/modules/extra-demo.el +++ b/modules/extra-demo.el @@ -1,4 +1,4 @@ -;;; extra-demo.el --- for collaboration and demonstrations +;;; extra-demo.el --- -*- no-byte-compile: t; -*- (defvar powerline-height) @@ -9,13 +9,14 @@ ;; + TODO peer programming collab ;; Big-mode settings -(defconst big-mode-font (font-spec :family "Inconsolata" :size 18)) +(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 (httpd-start impatient-mode)) + :commands impatient-mode + :config (httpd-start)) (defvar big-mode--line-spacing line-spacing) (defvar big-mode--powerline-height powerline-height) @@ -28,7 +29,16 @@ 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