Make initial height a multiple of screen height

akkana · Mar 13, 2013 · 5ea5316 · 5ea5316
1 parent ac77700
commit 5ea5316
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/.emacs-lisp/dotemacs.el b/.emacs-lisp/dotemacs.el
@@ -665,9 +665,12 @@
     ;; from the screen height (for panels, menubars and
     ;; whatnot), then divide by the height of a char to
     ;; get the height we want
-    (add-to-list 'default-frame-alist 
+    (add-to-list 'default-frame-alist
-         (cons 'height (/ (- (x-display-pixel-height) 100)
+                 ; was    (- (x-display-pixel-height) 100)
-                             (frame-char-height)))))))
+                 ; That produces an int, but with * we must convert
+                 ; from float to int with floor.
+         (cons 'height (floor (/ (* (x-display-pixel-height) 0.85)
+                                 (frame-char-height))))))))
 
 (set-frame-size-according-to-resolution)