acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Change initial frame setup

This commit is contained in:
Case Duckworth 2021-10-05 20:05:22 -05:00
parent 96407712a7
commit a96f8301a5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
early-init.el
View File

@ -26,7 +26,8 @@
(require 'acdw-frame) (require 'acdw-frame)
;;; Frame settings ;;; Frame settings
(setq default-frame-alist (setq initial-frame-alist '(fullscreen . maximized)
default-frame-alist
`((tool-bar-lines . 0) `((tool-bar-lines . 0)
(menu-bar-lines . 0) (menu-bar-lines . 0)
(vertical-scroll-bars . nil) (vertical-scroll-bars . nil)
@ -63,15 +64,14 @@ say, `tool-bar-mode' once to toggle the tool bar back on."
(defun after-make-frame@setup (&rest args) (defun after-make-frame@setup (&rest args)
(ignore args) (ignore args)
(let ((fixed-pitch-faces (let ((fixed-pitch-faces
'((:font "Fantasque Sans Mono" :height 110) '((:font "Fantasque Sans Mono" :height 115)
(:font "Go Mono" :height 110) (:font "Go Mono" :height 110)
(:font "DejaVu Sans Mono" :height 110) (:font "DejaVu Sans Mono" :height 110)
(:font "monospace" :height 100))) (:font "monospace" :height 100)))
(variable-pitch-faces (variable-pitch-faces
'((:font "Inter" :height 120) '((:font "Inter" :height 120)
(:font "Go" :height 120) (:font "Go" :height 120)
(:font "sans-serif" (:font "sans-serif" :height 100))))
:height 100))))
(acdw/set-first-face-attribute 'default (acdw/set-first-face-attribute 'default
fixed-pitch-faces) fixed-pitch-faces)
(acdw/set-first-face-attribute 'fixed-pitch (acdw/set-first-face-attribute 'fixed-pitch