Coupla small changes

early-init.el

@@ -77,6 +77,7 @@ See `no-littering' for examples.")
 ;;; Fonts
 (progn
   ;; Set default faces
+  (+with-message "Setting default faces"
     (let ((font-name system-default-font)
           (font-size system-default-height)
           (variable-font-name system-variable-pitch-font)
@@ -86,9 +87,10 @@ See `no-littering' for examples.")
       (set-face-attribute 'italic nil :family font-name
                           :height font-size :slant 'italic)
       (set-face-attribute 'variable-pitch nil :family variable-font-name
-                       :height variable-font-size))
+                          :height variable-font-size)))
 
   ;; Emoji fonts
+  (+with-message "Adding emoji fonts"
     (let ((ffl (font-family-list)))
      (dolist (font '("Noto Color Emoji"
                      "Noto Emoji"
@@ -100,7 +102,8 @@ See `no-littering' for examples.")
                      "Unifont"
                      "Symbola"))
        (when (member font ffl)
-       (set-fontset-font t 'symbol (font-spec :family font) nil :append)))))
+         (message "Found font: %s" font)
+         (set-fontset-font t 'symbol (font-spec :family font) nil :append))))))
 
 ;;; Packages
 
@@ -118,8 +121,9 @@ See `no-littering' for examples.")
 ;; Bootstrap straight.el
 ;; https://github.com/raxod502/straight.el
 
-(defvar bootstrap-version)
-(let ((bootstrap-file
+(+with-message "Bootstrapping straight"
+  (defvar bootstrap-version)
+  (let ((bootstrap-file
          (expand-file-name
           "straight/repos/straight.el/bootstrap.el"
           straight-base-dir))
@@ -132,7 +136,7 @@ See `no-littering' for examples.")
            'silent 'inhibit-cookies)
         (goto-char (point-max))
         (eval-print-last-sexp)))
-  (load bootstrap-file nil 'nomessage))
+    (load bootstrap-file nil 'nomessage)))
 
 ;; Early-loaded packages -- those that, for some reason or another,
 ;; need to be ensured to be loaded first.

init.el

@@ -1266,9 +1266,11 @@ See also `crux-reopen-as-root-mode'."
   )
 
 (setup (:straight org-visibility)
+  ;; I think this is causing hangups on Windows .. ?
   (:option org-visibility-state-file (.etc "org-visibility")
            org-visibility-include-regexps '("\\.org\\'"))
-  (org-visibility-enable-hooks))
+  ;; (org-visibility-enable-hooks)
+  )
 
 (setup (:straight orglink)
   (global-orglink-mode +1))

lisp/reading.el

@@ -58,9 +58,7 @@ FUNC should be a function with the signature (THING REMEMBERED-SETTING)."
 ;;;###autoload
 (define-minor-mode reading-mode
   "A mode for reading."
-  :init-value nil
   :lighter " Read"
-  :keymap (make-sparse-keymap)
   (if reading-mode
       ;; turn on
       (progn