[emacs] start to rewrite the code to manage the UI

1 files 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)