From 9652f3c3fa739d6b59c21cb081fda1eb8722ea64 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Mon, 22 Feb 2016 13:54:44 -0800 Subject: [emacs] start to rewrite the code to manage the UI --- emacs.d/core/core-ui.el | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/emacs.d/core/core-ui.el b/emacs.d/core/core-ui.el index 07132f7..4a3e36a 100644 --- a/emacs.d/core/core-ui.el +++ b/emacs.d/core/core-ui.el @@ -1,3 +1,19 @@ +(defvar fcuny/font-family "Source Code Pro") +(defvar fcuny/font-size 140) + +(defun fcuny/set-font-size (size) + (set-face-attribute 'default nil :height size)) + +(defun fcuny/regular-mode () + (interactive) + (set-frame-font fcuny/font-family) + (fcuny/set-font-size fcuny/font-size)) + +(defun fcuny/presentation-mode () + (interactive) + (set-frame-font fcuny/font-family) + (fcuny/set-font-size 190)) + ;; no menu (menu-bar-mode -1) @@ -9,7 +25,7 @@ ;; no startup screen (setq inhibit-startup-message t) -(setq initial-scratch-message ";; scratch buffer") +(setq initial-scratch-message "") ;; highlight the current line (global-hl-line-mode +1) @@ -30,7 +46,7 @@ ;;hide menu-bar (menu-bar-mode +1) ;; set the font size and family - (custom-set-faces '(default ((t (:height 130 :family "Droid Sans Mono")))))) + (fcuny/regular-mode)) (require 'whitespace) (global-whitespace-mode 1) -- cgit 1.4.1