Automatically 'view' read-only buffers, and 'read' view buffers

init.el

@@ -228,7 +228,8 @@
            w32-pass-apps-to-system nil
            w32-apps-modifier 'hyper
            visible-bell nil
-           ring-bell-function #'flash-mode-line)
+           ring-bell-function #'flash-mode-line
+           view-read-only t)
 
   (defun flash-mode-line ()
     "Flash the modeline as a bell."
@@ -243,6 +244,9 @@
   (tooltip-mode -1)
   (winner-mode +1)
 
+  (add-hook 'view-mode-hook (defun acdw/read-view-mode ()
+                              (acdw/reading-mode (if view-mode +1 -1))))
+
   ;;; Bindings
   (:global "M-SPC" cycle-spacing
            "M-/" hippie-expand