diff options
| author | Jesús <heckyel@hyperbola.info> | 2018-07-17 17:10:41 -0500 |
|---|---|---|
| committer | Jesús <heckyel@hyperbola.info> | 2018-07-17 17:10:41 -0500 |
| commit | 0d906cf34408e0d8272771a34a73d16b270532bb (patch) | |
| tree | 9f28d15a98e21acf86f5c76ebcdae4b9a04328f2 | |
| parent | 107194da7176797ae86d2d988bbfcba8dcc977ec (diff) | |
| download | emacs-base-0d906cf34408e0d8272771a34a73d16b270532bb.tar.lz emacs-base-0d906cf34408e0d8272771a34a73d16b270532bb.tar.xz emacs-base-0d906cf34408e0d8272771a34a73d16b270532bb.zip | |
change fonts to Monospace for deafult "9"
| -rw-r--r-- | lisp/init-gui.el | 12 |
1 files changed, 9 insertions, 3 deletions
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-<up>") (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 "<f11>") '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 "<f12>") '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) |