about summary refs log tree commit diff
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2018-06-14T22·08+0200
committerVincent Ambo <tazjin@gmail.com>2018-06-14T23·15+0200
commit5442d6c0fbe634539cdb92710ef5cf1ae722bf3a (patch)
tree725f2abfcfe5272c5c23afc7a5effcbc861de946
parente941e6b836f343b49f9d67915e16a359f58df249 (diff)
refactor(look-and-feel): Simplify frame configuration
When using EXWM new frames don't just show up the way they used to.
-rw-r--r--init/look-and-feel.el17
1 files changed, 3 insertions, 14 deletions
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)
-