   :ensure t
   :bind (("C-c n" . nlinum-mode)))
 
-;XXX; ;;; Disable italic font style in comments and documentation.
-;XXX; (set-face-italic 'font-lock-comment-face nil)
-;XXX; (set-face-italic 'font-lock-doc-face nil)
-
-;XXX; (use-package use-package-chords
-;XXX;   :ensure t
-;XXX;   :config (key-chord-mode 1))
+;;; Set default font.
+;;;
+;;; See http://ergoemacs.org/emacs/emacs_list_and_set_font.html
+(cond
+ ((eq system-type 'windows-nt)
+  (when (member "Consolas" (font-family-list))
+    (set-frame-font "Consolas" t t)))
+ ((eq system-type 'darwin)  ; MacOS
+  (when (member "Menlo" (font-family-list))
+    (set-frame-font "Menlo" t t)))
+ ((eq system-type 'gnu/linux)
+  (when (member "DejaVu Sans Mono" (font-family-list))
+    (set-frame-font "DejaVu Sans Mono-13" nil t))))
 
  

          (if (eq frame-background-mode 'dark) 'light 'dark))
    (load-theme 'solarized t)
    (mapc 'frame-set-background-mode (frame-list)))
  (global-set-key (kbd "C-M-8") 'toggle-solarized-light))

(global-set-key (kbd "M-`") 'repeat)  ; instead of 'tmm-menubar

;;; "Undo" (and "redo") changes in the window configuration with the
;;; key commands `C-c left' and `C-c right'.

;;; https://github.com/purcell/exec-path-from-shell
(when (memq window-system '(mac ns x))
  (use-package exec-path-from-shell
    :ensure t
    :config (exec-path-from-shell-initialize)))

;; Always perform yes-or-no prompts using the echo area and keyboard input.
