 (global-set-key (kbd "C-c I") 'find-user-init-file)
 
 (setq-default indent-tabs-mode nil)  ; Use spaces, not tabs.
+
+;;; Adjust font size.
+(dolist
+    (s (list "s-+" "s-=" "s--" "s-0"))
+  (global-set-key (kbd s) 'text-scale-adjust))
 
 (require 'package)
 (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

(add-to-list 'auto-mode-alist '("\\.m$" . octave-mode))
(add-hook 'octave-mode-hook
          (lambda () (setq octave-block-offset 4)))

;;; GNU global
;;; https://github.com/leoliu/ggtags

(dolist
    (m '(c-mode python-mode sh-mode rust-mode html-mode js-mode haskell-mode
                markdown-mode yaml-mode ruby-mode org-mode emacs-lisp-mode
                sql-mode elm-mode dhall-mode))
  (font-lock-add-keywords m
   ; Fontify "XXX", even in comments.
   '(("\\<\\(XXX\\)" 1 'font-lock-warning-face prepend))))
