From 5442d6c0fbe634539cdb92710ef5cf1ae722bf3a Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Fri, 15 Jun 2018 00:08:58 +0200 Subject: refactor(look-and-feel): Simplify frame configuration When using EXWM new frames don't just show up the way they used to. --- init/look-and-feel.el | 17 +++-------------- 1 file changed, 3 insertions(+), 14 deletions(-) (limited to 'init/look-and-feel.el') diff --git a/init/look-and-feel.el b/init/look-and-feel.el index c011cb14a849..4c9f7008203b 100644 --- a/init/look-and-feel.el +++ b/init/look-and-feel.el @@ -6,6 +6,8 @@ (tool-bar-mode 0) (scroll-bar-mode 0) (menu-bar-mode 0) +(add-hook 'after-make-frame-functions + (lambda (frame) (scroll-bar-mode 0))) ;; Don't do any annoying things: (setq ring-bell-function 'ignore) @@ -22,23 +24,11 @@ (blink-cursor-mode -1)) ;; Configure editor fonts - -;; Determine fontsize based on machine (4K display on stallo): -(letrec ((font-size 12) - (font (format "Input Mono-%d" font-size))) +(let ((font (format "Input Mono-%d" 12))) (setq default-frame-alist `((font-backend . "xft") (font . ,font))) (set-frame-font font t t)) -(defun configure-new-frame (frame) - "Configuration settings to run whenever a new frame is created." - (scroll-bar-mode 0)) ; Disable visual scroll bar (ugh!) - -(add-hook 'after-make-frame-functions 'configure-new-frame) - -;; If this file is evaluating there may also be a new (initial) frame: -(configure-new-frame (selected-frame)) - ;; Configure telephone-line (defun telephone-misc-if-last-window () "Renders the mode-line-misc-info string for display in the @@ -101,4 +91,3 @@ (setq windmove-wrap-around nil) (provide 'look-and-feel) - -- cgit 1.4.1