diff options
author | Franck Cuny <franckcuny@gmail.com> | 2016-02-22 13:54:44 -0800 |
---|---|---|
committer | Franck Cuny <franckcuny@gmail.com> | 2016-02-22 13:54:44 -0800 |
commit | 9652f3c3fa739d6b59c21cb081fda1eb8722ea64 (patch) | |
tree | 912d930ede99b323c48674550748d0cfff735df8 | |
parent | [emacs] Explain why git is disabled in VC backend (diff) | |
download | emacs.d-9652f3c3fa739d6b59c21cb081fda1eb8722ea64.tar.gz |
[emacs] start to rewrite the code to manage the UI
-rw-r--r-- | emacs.d/core/core-ui.el | 20 |
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) |