emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

big-mode: big-mode+neotree fix + use Hack font

Browse source
This commit is contained in:
Henrik Lissner 2016-05-26 18:58:43 -04:00
parent 2ee2d0ef0d
commit b3e131f90d
1 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/extra-demo.el
View file

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