From 0a297c13575bcc98c037219017da3a2695a33eee Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 18 Oct 2017 12:35:52 +0200
Subject: Emacs: Add use-fixed-fonts function

Counterpart to use-variable fonts
---
 emacs/.emacs.d/main.el | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'emacs/.emacs.d/main.el')

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 7508dd0f..1b30808f 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -172,6 +172,11 @@
     (variable-pitch-mode)
     (setq cursor-type '(bar . 1)))
 
+  (defun use-fixed-fonts ()
+    (interactive)
+    (variable-pitch-mode -1)
+    (setq cursor-type 'box))
+
   (defun ap/set-fonts (mono-face mono-font-size variable-face variable-font-size antialias &optional new-line-spacing)
     (if (boundp 'ns-antialias-text)
         (setq ns-antialias-text antialias))
-- 
cgit 1.4.1