Hopefully finish trusted-files.el

init.el

@@ -38,6 +38,9 @@
   (no-littering-theme-backups)
   (setq custom-file (no-littering-expand-etc-file-name "custom.el")))
 
+;; load things saved with custom
+(load custom-file t t)
+
 ;; diminish
 (use-package diminish
   :config
@@ -624,6 +627,11 @@ With NO-EDGE, return nil if beg or end fall on the edge of the range."
   (advice-add 'sp-region-ok-p :around 'my/-evil-cp-region-ok-p-no-string)
   (advice-add 'evil-cp--balanced-block-p :around 'my/-evil-cp-block-ok-p-no-string))
 
+;; be (hopefully) safer
+(require 'trusted-files)
+(keymap-global-set "C-c t" 'trusted-files-map)
+(trusted-files-modeline-mode)
+
 ;; better lisp editing
 (use-package adjust-parens
   :hook (prog-mode . adjust-parens-mode)
@@ -1053,7 +1061,7 @@ to `posframe-show' if the display is graphical."
 
 ;; flycheck
 (use-package flycheck
-  :hook ((sh-mode emacs-lisp-mode) . flycheck-mode)
+  :hook ((sh-mode emacs-lisp-mode) . trusted-files-flycheck-mode-if-safe)
   :custom
   (flycheck-indication-mode 'left-margin)
   :init
@@ -1199,7 +1207,7 @@ With PROJECT, give diagnostics for all buffers in the current project."
   :init
   ;; (defun my/eglot-in-text-mode-only ()
   ;;   (when (eq major-mode 'text-mode)
-  ;;     (eglot-ensure)))
+  ;;     (trusted-files-eglot-ensure-if-safe)))
   (defvar my/-eglot-documentation-buffer nil
     "Buffer for showing documentation for `my/eglot-documentation-at-point'.")
   (defun my/eglot-documentation-at-point ()
@@ -1577,7 +1585,7 @@ otherwise, call `bibtex-find-text'."
   :hook ((LaTeX-mode . turn-on-reftex)
          (LaTeX-mode . LaTeX-math-mode)
          (LaTeX-mode . my/-setup-LaTeX-mode)
-         (LaTeX-mode . flycheck-mode))
+         (LaTeX-mode . trusted-files-flycheck-mode-if-safe))
   :bind (:map TeX-mode-map
          ("C-c ?" . latex-help))
   :init
@@ -1630,17 +1638,17 @@ otherwise, call `bibtex-find-text'."
 
 ;; blueprint
 (use-package blueprint-ts-mode
-  :hook (blueprint-ts-mode . eglot-ensure)
+  :hook (blueprint-ts-mode . trusted-files-eglot-ensure-if-safe)
   :after eglot)
 
 ;; python-ts-mode
 (use-package python-ts-mode
   :ensure nil
-  :hook (python-ts-mode . eglot-ensure))
+  :hook (python-ts-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; java-ts-mode
 (use-package java-ts-mode
-  :hook ((java-ts-mode . eglot-ensure)
+  :hook ((java-ts-mode . trusted-files-eglot-ensure-if-safe)
          (java-ts-mode . my/-setup-java-ts-mode))
   :config
   (defun my/-setup-java-ts-mode ()
@@ -1654,7 +1662,7 @@ otherwise, call `bibtex-find-text'."
 ;; c-ts-mode
 (use-package c-ts-mode
   :after evil
-  :hook ((c-ts-mode c++-ts-mode) . eglot-ensure)
+  :hook ((c-ts-mode c++-ts-mode) . trusted-files-eglot-ensure-if-safe)
   :init
   (setq-default c-ts-mode-indent-offset 4)
   :config
@@ -1673,11 +1681,11 @@ otherwise, call `bibtex-find-text'."
 
 ;; php-mode
 (use-package php-mode
-  :hook (php-mode . eglot-ensure))
+  :hook (php-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; web-mode
 (use-package web-mode
-  :hook (web-mode . eglot-ensure)
+  :hook (web-mode . trusted-files-eglot-ensure-if-safe)
   :init
   (add-to-list 'eglot-server-programs
                '(web-mode . ("vscode-html-language-server" "--stdio"))))
@@ -1685,12 +1693,12 @@ otherwise, call `bibtex-find-text'."
 ;; JavaScript
 (use-package js
   :ensure nil
-  :hook (js-ts-mode . eglot-ensure))
+  :hook (js-ts-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; TypeScript
 (use-package typescript-ts-mode
   :ensure nil
-  :hook (typescript-ts-mode . eglot-ensure)
+  :hook (typescript-ts-mode . trusted-files-eglot-ensure-if-safe)
   :init
   (add-to-list 'auto-mode-alist `(,(rx ".ts" eos) . typescript-ts-mode)))
 
@@ -1721,24 +1729,24 @@ otherwise, call `bibtex-find-text'."
 ;; go mode
 (use-package go-mode
   :defer nil
-  :hook (go-mode . eglot-ensure))
+  :hook (go-mode . trusted-files-eglot-ensure-if-safe))
 (use-package go-ts-mode
   :ensure nil
-  :hook (go-ts-mode . eglot-ensure))
+  :hook (go-ts-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; rust
 (use-package rust-mode)
 (use-package rust-ts-mode
   :ensure nil
-  :hook (rust-ts-mode . eglot-ensure))
+  :hook (rust-ts-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; zig
 (use-package zig-mode
-  :hook (zig-mode . eglot-ensure))
+  :hook (zig-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; lua
 (use-package lua-mode
-  :hook (lua-mode . eglot-ensure))
+  :hook (lua-mode . trusted-files-eglot-ensure-if-safe))
 
 ;; markdown
 (use-package markdown-mode
@@ -1758,7 +1766,7 @@ otherwise, call `bibtex-find-text'."
 
 ;; json
 (use-package json-ts-mode
-  :hook (json-ts-mode . eglot-ensure))
+  :hook (json-ts-mode . trusted-files-eglot-ensure-if-safe))
 (use-package json-mode)
 
 ;; csv
@@ -1769,7 +1777,7 @@ otherwise, call `bibtex-find-text'."
 
 ;; yaml
 (use-package yaml-ts-mode
-  :hook ((yaml-ts-mode . eglot-ensure)
+  :hook ((yaml-ts-mode . trusted-files-eglot-ensure-if-safe)
          (yaml-ts-mode . my/-setup-yaml-ts-mode))
   :init
   (defun my/-setup-yaml-ts-mode ()
@@ -2382,7 +2390,7 @@ R is rest of the arguments to OLDFUN."
 ;; ledger
 (use-package ledger-mode)
 (use-package flycheck-ledger
-  :hook (ledger-mode . flycheck-mode))
+  :hook (ledger-mode . trusted-files-flycheck-mode-if-safe))
 
 ;; khard contacts
 (require 'khard)
@@ -2533,7 +2541,7 @@ The name is compared with the field name using TESTFN (defaults to `equal')."
   "Setup up stuff in `org-mu4e-compose' buffers."
   (setq-local ltex-eglot-variable-save-method 'file)
   ;; this should come last so it can pick up the above
-  ;; (eglot-ensure)
+  ;; (trusted-files-eglot-ensure-if-safe)
   )
 (add-hook 'org-mu4e-compose-mode-hook #'my/-setup-org-mu4e-compose-mode)
 
@@ -2780,7 +2788,8 @@ one of the normal rainbow-delimiters-depth-N-face faces."
       (dashboard-refresh-buffer)
       (setq my/-dashboard-did-fix-image t)))
   (defun my/-dashboard-setup-function ()
-    (add-hook 'window-configuration-change-hook 'my/-dashboard-fix-image nil t))
+    (add-hook 'window-configuration-change-hook 'my/-dashboard-fix-image nil t)
+    (setq-local display-line-numbers nil))
   (add-hook 'dashboard-mode-hook 'my/-dashboard-setup-function)
   (set-face-background 'dashboard-banner-logo-title nil)
   (dashboard-setup-startup-hook)