From f47c9b6c231fa20bc000a69072a89b1b4b231bf4 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Wed, 26 Oct 2016 15:46:34 -0700 Subject: [emacs] Some changes to the UI. --- emacs.d/lib/my-settings.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/emacs.d/lib/my-settings.el b/emacs.d/lib/my-settings.el index efdc410..e8931ea 100644 --- a/emacs.d/lib/my-settings.el +++ b/emacs.d/lib/my-settings.el @@ -1,3 +1,6 @@ +(dolist (mode '(tool-bar-mode scroll-bar-mode)) + (when (fboundp mode) (funcall mode -1))) + ;; auto close bracket insertion (electric-pair-mode 1) @@ -38,14 +41,9 @@ ;; show parenthesis (show-paren-mode +1) -;; no blink cursor +;; no blinking cursor (blink-cursor-mode -1) -(when window-system - (tool-bar-mode 0) - (scroll-bar-mode 0) - (menu-bar-mode -1)) - ;; I don't want a frindge on the right (fringe-mode '(4 . 0)) @@ -53,7 +51,7 @@ (setq frame-title-format '( "%b" " [" (:eval mode-name) "]")) ;; Set default font. Large font for the main window, but small font for the modeline -(set-face-attribute 'default nil :family "Menlo" :height 150 :weight 'normal :width 'normal) -(set-face-attribute 'mode-line nil :height 120) +(set-face-attribute 'default nil :family "Menlo" :height 130 :weight 'normal :width 'normal) +(set-face-attribute 'mode-line nil :height 110) (provide 'my-settings) -- cgit 1.4.1