1 files changed, 17 insertions, 0 deletions

@@ -1253,6 +1253,23 @@ specific to most general, they are these:
            "C-M-\\" #'crux-cleanup-buffer-or-region
            "C-x 4 t" #'crux-transpose-windows)
 
+  (el-patch-feature crux)
+  (with-eval-after-load 'crux
+    (el-patch-defun crux-reopen-as-root ()
+      "Find file as root if necessary.
+
+Meant to be used as `find-file-hook'.
+See also `crux-reopen-as-root-mode'."
+      (unless (or
+               ;; This helps fix for `nov-mode', and possibly others.
+               (el-patch-add (null buffer-file-name))
+               (tramp-tramp-file-p buffer-file-name)
+               (equal major-mode 'dired-mode)
+               (not (file-exists-p (file-name-directory buffer-file-name)))
+               (file-writable-p buffer-file-name)
+               (crux-file-owned-by-user-p buffer-file-name))
+        (crux-find-alternate-file-as-root buffer-file-name))))
+
   (crux-reopen-as-root-mode +1))
 
 ;; (setup (:straight-when