From 0d906cf34408e0d8272771a34a73d16b270532bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jes=C3=BAs?= Date: Tue, 17 Jul 2018 17:10:41 -0500 Subject: change fonts to Monospace for deafult "9" --- lisp/init-gui.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'lisp/init-gui.el') diff --git a/lisp/init-gui.el b/lisp/init-gui.el index 86f0177..78445a8 100644 --- a/lisp/init-gui.el +++ b/lisp/init-gui.el @@ -29,6 +29,12 @@ (lambda () (setq line-spacing 0))) +;; Font theme (Monospace, or DejaVu Sans Mono if Monospace is not +;; present) +(condition-case nil + (set-frame-font "Monospace-9") + (error (set-frame-font "DejaVu Sans Mono-10"))) + ;;---------------------------------------------------------------------------- ;; Configure keys ;;---------------------------------------------------------------------------- @@ -37,9 +43,9 @@ (global-set-key (kbd "M-") (lambda () (interactive) (sanityinc/adjust-opacity nil 2))) ; M-up more visibility (global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility (global-set-key (kbd "") 'myemacs/toggle-fullscreen) ; F11 FullScreen -(global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size -(global-set-key (kbd "s-C--") 'sacha/decrease-font-size) ; C-- decrease font size +(global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size +(global-set-key (kbd "s-C--") 'sacha/decrease-font-size) ; C-- decrease font size (global-set-key (kbd "") 'revert-buffer-no-confirm) -(global-set-key (kbd "s-h") 'global-hl-line-mode) ; Highlight current line +(global-set-key (kbd "s-h") 'global-hl-line-mode) ; Highlight current line (provide 'init-gui) -- cgit v1.2.3