From de9c33f5047ab880438a5039764d444fad03aadd Mon Sep 17 00:00:00 2001
From: Evie Litherland-Smith <evie.litherland-smith@ukaea.uk>
Date: Wed, 29 Nov 2023 16:23:33 +0000
Subject: [PATCH] Add doc-view customisations to increase resolution

Use modus-theme built in load function to ensure other themes are disabled
---
 home/emacs/init.el  | 13 ++++++++++++-
 home/emacs/init.org | 20 ++++++++++++++++++--
 2 files changed, 30 insertions(+), 3 deletions(-)

diff --git a/home/emacs/init.el b/home/emacs/init.el
index 0f1146ad..9d47ace5 100644
--- a/home/emacs/init.el
+++ b/home/emacs/init.el
@@ -138,7 +138,8 @@
 ;; Theme
 (use-package modus-themes
   :ensure t
-  :config (load-theme 'modus-vivendi-tinted :noconfirm))
+  :custom (modus-themes-disable-other-themes t)
+  :config (modus-themes-load-theme 'modus-vivendi-tinted))
 
 ;; Nerd-Icons modes
 (use-package nerd-icons
@@ -895,6 +896,16 @@
   (emms-mpris-enable)
   (add-hook 'emms-player-started-hook #'emms-show))
 
+(use-package doc-view
+  :defer t
+  :ensure t
+  :custom
+  (doc-view-resolution 200)
+  (doc-view-continuous t)
+  (doc-view-imenu-enabled t)
+  (doc-view-scale-internally t)
+  (doc-view-image-width 850))
+
 ;;; Whitespace
 (defun crafted-writing-configure-whitespace (use-tabs &optional use-globally &rest enabled-modes)
   "Helper function to configure `whitespace' mode.
diff --git a/home/emacs/init.org b/home/emacs/init.org
index e651849a..b3b54b4f 100644
--- a/home/emacs/init.org
+++ b/home/emacs/init.org
@@ -171,7 +171,8 @@
   ;; Theme
   (use-package modus-themes
     :ensure t
-    :config (load-theme 'modus-vivendi-tinted :noconfirm))
+    :custom (modus-themes-disable-other-themes t)
+    :config (modus-themes-load-theme 'modus-vivendi-tinted))
 
   ;; Nerd-Icons modes
   (use-package nerd-icons
@@ -1038,7 +1039,22 @@ For reference information, see [[https://orgmode.com][Org-mode website]]
     (add-hook 'emms-player-started-hook #'emms-show))
 #+END_SRC
 
-* TODO Writing
+* Writing
+
+** Doc-view
+#+begin_src emacs-lisp :tangle yes
+  (use-package doc-view
+    :defer t
+    :ensure t
+    :custom
+    (doc-view-resolution 200)
+    (doc-view-continuous t)
+    (doc-view-imenu-enabled t)
+    (doc-view-scale-internally t)
+    (doc-view-image-width 850))
+#+end_src
+
+** TODO Crafted Config
 #+BEGIN_SRC emacs-lisp
   ;;; Whitespace
   (defun crafted-writing-configure-whitespace (use-tabs &optional use-globally &rest enabled-modes)