transient: error: (error "Invalid face" shadow) when loading radian

[hrehfeld]

I have a weird problem where loading via radian causes transient to throw this really weird error, but loading via my "inner" init file just works fine. As a consequence I cannot use radian atm 😢

edit:

wait. If I disable magit-todos and dirvish, radian loads fine. emacs --debug-init --eval "(straight-use-package 'dirvish)" also loads fine. What's happening here? Is this a bug in dirvish that only happens from inside radian? But no, magit-todos is also causing the same error. If I disable both the error is gone. So there's definitely a problem here.

I have zero idea at this point what is happening, other than debugging radian myself.

This is after straight-x-fetch-all and straight-merge-all earlier today (on two machines). Radian is on 20c0c9d

the error

$ emacs --debug-init
Loading /home/hrehfeld/.emacs.d/config/my-before-straight.el (source)...
Loading /home/hrehfeld/.emacs.d/config/my-before-straight.el (source)...done
Building git-gutter...
Building git-gutter...done
Building git-link...
Building git-link...done
Building atomic-chrome...
Building atomic-chrome → Building websocket...
Building atomic-chrome → Building websocket...done
Building atomic-chrome...
Building atomic-chrome...done
Loading /home/hrehfeld/.emacs.d/my-init.el (source)...
Created cite link.
Created citet link.
Created tag link.
Building org-tidy...
Building org-tidy...done
org-super-agenda-mode enabled.
../my-init.el: Warning: Missing format argument
Loading /home/hrehfeld/.emacs.d/var/elgrep-data.el (source)...
Loading /home/hrehfeld/.emacs.d/var/elgrep-data.el (source)...done
Debugger entered--Lisp error: (error "Invalid face" shadow)
  internal-get-lisp-face-attribute(shadow :foreground nil)
  face-attribute(shadow :foreground nil t)
  (let ((color (face-attribute 'shadow :foreground nil t))) (or (and (not (eq color 'unspecified)) color) "grey60"))
  (list ':line-width (if (>= emacs-major-version 28) (cons -1 -1) -1) ':color (let ((color (face-attribute 'shadow :foreground nil t))) (or (and (not (eq color 'unspecified)) color) "grey60")))
  (list t ':box (list ':line-width (if (>= emacs-major-version 28) (cons -1 -1) -1) ':color (let ((color (face-attribute 'shadow :foreground nil t))) (or (and (not (eq color 'unspecified)) color) "grey60"))))
  (list (list t ':box (list ':line-width (if (>= emacs-major-version 28) (cons -1 -1) -1) ':color (let ((color (face-attribute 'shadow :foreground nil t))) (or (and (not (eq color ...)) color) "grey60")))))
  (custom-declare-face 'transient-higher-level (list (list t ':box (list ':line-width (if (>= emacs-major-version 28) (cons -1 -1) -1) ':color (let ((color (face-attribute ... :foreground nil t))) (or (and (not ...) color) "grey60"))))) "Face optionally used to highlight suffixes on high..." :group 'transient-faces)
  require(transient)
  byte-code("\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\312\313\314DD\315\307\304\316\317&\7\210\310\320\312\313\321DD\322\307\304\316\323&\7\210\310\324\312\313..." [require dired transient custom-declare-group dirvish nil "A better Dired." :group custom-declare-variable dirvish-attributes funcall function #f(compiled-function () #<bytecode 0x1980187dd5054>) "File attributes showing in file lines.\nDirvish shi..." :type (repeat (symbol :tag "Dirvish attribute")) dirvish-preview-dispatchers #f(compiled-function () #<bytecode 0x31574b1067014>) "List of preview dispatchers.\nEach dispatcher in th..." (repeat (symbol :tag "Dirvish preview methods")) dirvish-preview-disabled-exts #f(compiled-function () #<bytecode 0x193b340382b14>) "Do not preview files end with these extensions." (repeat (string :tag "File name extension")) dirvish-preview-environment #f(compiled-function () #<bytecode 0x19800016fe914>) "Variables which are bound for default file preview..." alist dirvish-cache-dir #f(compiled-function () #<bytecode -0x6b44ffc27d96f36>) "Preview / thumbnail cache directory for dirvish." string dirvish-default-layout #f(compiled-function () #<bytecode 0x1ecc2b74dc09f317>) "Default layout recipe for fullscreen Dirvish sessi..." (list (integer :tag "number of parent windows") (float :tag "max width of parent windows") (float :tag "width of preview windows"))] 8)
  (dirvish-override-dired-mode)
  (condition-case err (dirvish-override-dired-mode) ((debug error) (funcall use-package--warning250 :init err)))
  (condition-case err (condition-case err (dirvish-override-dired-mode) ((debug error) (funcall use-package--warning250 :init err))) ((debug error) (funcall use-package--warning250 :catch err)))
  eval-buffer(#<buffer  *load*-835878> nil "/home/hrehfeld/.emacs.d/my-init.el" nil t)  ; Reading at buffer position 82512
  load-with-code-conversion("/home/hrehfeld/.emacs.d/my-init.el" "/home/hrehfeld/.emacs.d/my-init.el" nil nil)
  load("/home/hrehfeld/.emacs.d/my-init.el" nil nil t)
  load-file("~/.emacs.d/my-init.el")
  (progn (my-radian-fixes) (load-file (concat user-emacs-directory "my-init.el")))
  eval((progn (my-radian-fixes) (load-file (concat user-emacs-directory "my-init.el"))) t)
  radian-local--after-init()
...
  load-with-code-conversion("/home/hrehfeld/.emacs.d/radian/emacs/radian.el" "/home/hrehfeld/.emacs.d/radian/emacs/radian.el" nil t)
  load("/home/hrehfeld/.emacs.d/radian/emacs/radian.el" nil nomessage nosuffix)
  (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix))
  (if stale-bytecode (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))
  (let* ((radian-original-file-name-handler-alist file-name-handler-alist) (file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix))))
  (unwind-protect (let* ((radian-original-file-name-handler-alist file-name-handler-alist) (file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook))
  (let* ((this-file (or user-init-file (expand-file-name "init.el" user-emacs-directory))) (link-target (file-symlink-p this-file))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist" radian-lib-file)) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (defvar radian-original-file-name-handler-alist nil "The value of `file-name-handler-alist' during load...") (unwind-protect (let* ((radian-original-file-name-handler-alist file-name-handler-alist) (file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file ...)) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook)))
  (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let* ((this-file (or user-init-file (expand-file-name "init.el" user-emacs-directory))) (link-target (file-symlink-p this-file))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist" radian-lib-file)) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (defvar radian-original-file-name-handler-alist nil "The value of `file-name-handler-alist' during load...") (unwind-protect (let* ((radian-original-file-name-handler-alist file-name-handler-alist) (file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw ... nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn ...) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook))))
  (cond ((and (not after-init-time) radian--init-file-loaded-p)) (alternate-user-emacs-directory (setq alternate-user-emacs-directory (file-name-as-directory alternate-user-emacs-directory)) (setq user-emacs-directory alternate-user-emacs-directory) (setq user-init-file (expand-file-name "init.el" user-emacs-directory)) (load user-init-file 'noerror 'nomessage)) (t (setq radian--init-file-loaded-p t) (defvar radian-minimum-emacs-version "27.1" "Radian Emacs does not support any Emacs version be...") (defvar radian-local-init-file (expand-file-name "init.local.el" user-emacs-directory) "File for local customizations of Radian.") (setq package-enable-at-startup nil) (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) (load custom-file 'noerror 'nomessage) (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let* ((this-file (or user-init-file (expand-file-name "init.el" user-emacs-directory))) (link-target (file-symlink-p this-file))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist" radian-lib-file)) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (defvar radian-original-file-name-handler-alist nil "The value of `file-name-handler-alist' during load...") (unwind-protect (let* ((radian-original-file-name-handler-alist file-name-handler-alist) (file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if ... ...) (load ... nil ...) (setq stale-bytecode nil)) (if stale-bytecode (progn ... ...))) (run-hooks 'radian--finalize-init-hook))))))
  (let ((alternate-user-emacs-directory (getenv "USER_EMACS_DIRECTORY"))) (defvar radian--init-file-loaded-p nil "Non-nil if the init-file has already been loaded.\n...") (cond ((and (not after-init-time) radian--init-file-loaded-p)) (alternate-user-emacs-directory (setq alternate-user-emacs-directory (file-name-as-directory alternate-user-emacs-directory)) (setq user-emacs-directory alternate-user-emacs-directory) (setq user-init-file (expand-file-name "init.el" user-emacs-directory)) (load user-init-file 'noerror 'nomessage)) (t (setq radian--init-file-loaded-p t) (defvar radian-minimum-emacs-version "27.1" "Radian Emacs does not support any Emacs version be...") (defvar radian-local-init-file (expand-file-name "init.local.el" user-emacs-directory) "File for local customizations of Radian.") (setq package-enable-at-startup nil) (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) (load custom-file 'noerror 'nomessage) (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let* ((this-file (or user-init-file ...)) (link-target (file-symlink-p this-file))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist" radian-lib-file)) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (defvar radian-original-file-name-handler-alist nil "The value of `file-name-handler-alist' during load...") (unwind-protect (let* (... ... ... ...) (catch ... ... ... ...) (if stale-bytecode ...)) (run-hooks 'radian--finalize-init-hook)))))))
  eval-buffer(#<buffer  *load*-933820> nil "/home/hrehfeld/.emacs.d/init.el" nil t)  ; Reading at buffer position 5490
  load-with-code-conversion("/home/hrehfeld/.emacs.d/init.el" "/home/hrehfeld/.emacs.d/init.el" nil t)
  load("/home/hrehfeld/.emacs.d/init.el" nil nomessage nosuffix)
  (if (getenv "USER_EMACS_DIRECTORY") nil (defalias 'radian--advice-fix-display-graphic-p #'(lambda (func &optional display) "Fix `display-graphic-p' so it works while loading ..." (if display (funcall func display) initial-window-system))) (advice-add #'display-graphic-p :around #'radian--advice-fix-display-graphic-p) (defalias 'radian--advice-fix-xw-display-color-p #'(lambda (func &optional display) "Fix `xw-display-color-p' so it works while loading..." (if (or display after-init-time) (funcall func display) initial-window-system))) (advice-add #'xw-display-color-p :around #'radian--advice-fix-xw-display-color-p) (defalias 'radian--advice-disable-x-resource-application #'(lambda nil "Disable `x-apply-session-resources'.\nNow, `x-apply...")) (advice-add #'x-apply-session-resources :override #'radian--advice-disable-x-resource-application) (load (expand-file-name "init.el" user-emacs-directory) nil 'nomessage 'nosuffix) (advice-remove #'display-graphic-p #'radian--advice-fix-display-graphic-p) (advice-remove #'xw-display-color-p #'radian--advice-fix-xw-display-color-p))
  eval-buffer(#<buffer  *load*> nil "/home/hrehfeld/.emacs.d/early-init.el" nil t)  ; Reading at buffer position 2406
  load-with-code-conversion("/home/hrehfeld/.emacs.d/early-init.el" "/home/hrehfeld/.emacs.d/early-init.el" t t)
  load("/home/hrehfeld/.emacs.d/early-init" noerror nomessage)
  startup--load-user-init-file(#f(compiled-function () #<bytecode -0x1873941f39170d90>))
  command-line()
  normal-top-level()

Saving file /home/hrehfeld/.emacs.d/var/elgrep-data.el...
Wrote /home/hrehfeld/.emacs.d/var/elgrep-data.el
Saving session
Saving session...DONE

the files

My init.local.el looks like this: (you can probably ignore all of my-radian-fixes. It sets straight variables and then loads my-init.el in after-init

(when (display-graphic-p)
  (tool-bar-mode -1))
(setq radian-org-enable-contrib t)
(setq radian-color-theme-enable nil)
(setq radian-font nil)
(setq radian-font-size nil)

(setq radian-disabled-packages
      '(zerodark-theme
        lsp-python-ms
        smartparens
        undo-tree
        ))


(defun my-radian-fixes ()
  ;; try fixing weird errors
  (setq load-path (delete "/usr/share/emacs/28.0.91/lisp/org" load-path))

  (unless (fboundp #'org-file-name-concat)
    (defalias #'org-file-name-concat #'file-name-concat))
  (auto-fill-mode -1)
  (turn-off-auto-fill)
  ;; this should ACTUALLY do the trick
  (setq-default auto-fill-function nil)

  (setq make-backup-files t)

  ;; don't delete selected text when inserting chars
  (delete-selection-mode -1)
  ;; fix radian overwriting dabbrev-expand which we ALWAYS ALWAYS want
  ;; undo-tree-redo is avalaible with C-S-/ instead, which is easy
  (with-eval-after-load 'undo-tree-map
    (bind-key--remove (kbd "M-/") undo-tree-map))

  ;; radian rebinds mwheel to custom functions, so mouse-wheel-follow-mouse doesn't work anymore
  (global-set-key (kbd "<mouse-4>") #'mwheel-scroll)
  (global-set-key (kbd "<mouse-5>") #'mwheel-scroll)

  ;; zerodark installs a box, which clashes with buffer-modeline-color
  (set-face-attribute 'mode-line nil :box nil)
  (set-face-attribute 'mode-line-inactive nil :box nil)

  ;;company
  (use-package company
    :bind (:filter company-mode
                   ("<tab>" . #'company-complete))
    :bind (:map company-active-map
                ([remap company-complete-selection] . #'company-complete-common-or-cycle))
    :init (company-prescient-mode -1)
    :config (setq company-dabbrev-other-buffers 'all)
    )

  (use-feature apheleia
    :config (add-to-list 'apheleia-formatters
                         '(clang-format "clang-format" file))
    (add-to-list 'apheleia-mode-alist '(c++-mode . clang-format))
    (add-to-list 'apheleia-mode-alist '(c-mode . clang-format))
    :init
    ;; this not a good idea if you work on existing code
    (apheleia-global-mode -1)

    (defun my-apheleia-enable-via-dir-local-variable (directory)
      (interactive "Enable apheleia-mode auto-formatting for the current major-mode in the following directory:")
      (add-dir-local-variable major-mode 'eval '(apheleia-mode))
      (message "Permanently enabled apheila-mode for `%s' in %s" major-mode directory)
      )
    )

  ;; (smartparens-global-mode -1)
  ;; (add-hook 'lisp-mode-hook #'smartparens-mode)
  ;; (add-hook 'emacs-lisp-mode-hook #'smartparens-mode)

  ;; fix paredit obsessive bindings
  ;; (define-key smartparens-mode-map (kbd "M-s") nil)
  ;; (define-key smartparens-mode-map (kbd "M-r") nil)
  ;; (define-key smartparens-mode-map (kbd "M-j") nil)

  ;; (define-key smartparens-mode-map (kbd "C-M-j") 'sp-join-sexp)



  ;; https://github.com/raxod502/radian/issues/490
  (setq help-enable-symbol-autoload t)


  )

(radian-local-on-hook before-straight
  (load-file (concat user-emacs-directory "config/my-before-straight.el")))

(radian-local-on-hook after-init
  (my-radian-fixes)

  ;;prefer over adding .emacs.d to load-path
  (load-file (concat user-emacs-directory "my-init.el"))
  )

my-before-straight.el is trivially setting variables

(setq straight-host-usernames
      (let ((hrehfeld "hrehfeld"))
        `((github . ,hrehfeld)
          (gitlab . ,hrehfeld)
          (bitbucket . ,hrehfeld)))
      ;; straight-repository-branch "master"
      )
(setq straight-recipe-overrides
      '(nil .
            ((dash :fork t :protocol ssh)
             ;; we need a recent magit version for `compat' compatability
             (magit :branch "main")
             (forge :branch "main")
             )))
(provide 'my-before-straight)

my-init.el is my main config that pulls in all the packages. The only relevant part should be how I setup straight and use-package at the bottom (before the cut):

;; -*- lexical-binding: t; -*-
;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
;(package-initialize)

;;(require 'my-early)


;; straight requires reloading everything on init
(defvar my-features-pre-init nil "list of features before we started requiring things.")

;; so we just hack features so every require reloads
(if my-features-pre-init
    ;; either reset features
    (setq features my-features-pre-init)
  ;; or save the initial features
  (setq my-features-pre-init features))


;; add config paths to load path
(defvar my-init-directories
	(mapcar
   (lambda (dir) (concat user-emacs-directory dir))
	 '("package-config" "config" "private-config"))
	"List of directories where my init files reside.")

(mapc (lambda (d) (add-to-list 'load-path d)) my-init-directories)

(defvar my/package-dirs (list (concat user-emacs-directory "my-packages")) "List of directories to scan for sub-packages.")


;; initialize straight and use-package if radian didn't already do it for us
(unless (featurep 'straight)
  (require 'my-straight))
(unless (featurep 'my-use-package)
  (require 'my-use-package))

...

my-straight.el just bootstraps straight after requiring my-before-straight.el:

(require 'my-before-straight)

(setq package-enable-at-startup nil)

(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name
        "straight/repos/straight.el/bootstrap.el"
        (or (bound-and-true-p straight-base-dir)
            user-emacs-directory)))
      (bootstrap-version 7))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))
)

(provide 'my-straight)

my-use-package.el sets up wrappers for use-package so that I have a form that works like use-package with package.el. probably not too interesting, but might be relevant, because all later requires/use-packages use the my-use-package foo :ensure t) form

;; use-package compatability

(straight-use-package 'use-package)


(unless (fboundp #'use-feature)
  (defmacro use-feature (name &rest args)
    "Like `use-package', but with `straight-use-package-by-default' disabled.
NAME and ARGS are as in `use-package'."
    (declare (indent defun))
    `(use-package ,name
       ,@(unless (member :straight args)
           '(:straight nil))
       ,@args)))

(require 'map)
(defmacro my-use-package (name &rest args)
  "Like `use-package', but with `straight-use-package-by-default' enabled
NAME and ARGS are as in `use-package'."
  (declare (indent defun))
  `(use-package ,name
     ,@(unless (member :straight args)
         (list :straight (when (plist-get args :ensure) name)))
     ,@(when (member :demand args)
         (let* ((demand (plist-get args :demand))
                (demand (cond ((eq demand t)
                               '(:demand (my-use-package-demand-random-time)))
                              ((eq demand 'now)
                               ('(:demand t))))))
           (when demand
             (setq args (map-delete args :demand))
             demand)))
     ;;,@(cons :ensure (cons nil args))
     ,@args))

(defmacro require-feature (name &rest args)
  "Similar to `use-package', but demand a local feature."
  (declare (indent defun))
  (cl-assert (not (member :ensure args)) args)
  `(my-use-package ,name
     ,@(unless (member :demand args)
         '(:demand t))
     ,@args
     ))

(defun my-use-package-demand-random-time ()
  (1+ (random 15)))

(provide 'my-use-package)

manual loading

Now, if I do this:

emacs -Q --eval '(load-file (concat user-emacs-directory "my-init.el"))'

I get a few warnings, but otherwise everything loads fine:

*Messages*

For information about GNU Emacs and the GNU system, type C-h C-a.
Loading /home/hrehfeld/.emacs.d/my-init.el (source)...
Created cite link.
Created citet link.
Created tag link.
Importing package-keyring.gpg...done
Contacting host: elpa.gnu.org:443
Package refresh done
Contacting host: elpa.nongnu.org:443
Package refresh done
org-super-agenda-mode enabled.
‘nov’ package not found
ATTENTION: org-noter-nov needs the package ‘nov’
‘djvu’ package not found
ATTENTION: org-noter-djvu needs the package ‘djvu’
../my-init.el: Warning: Missing format argument
Local variables list is not properly terminated
Loading /home/hrehfeld/.emacs.d/org-recent-headings...done
org-recent-headings-mode enabled.
Loading /home/hrehfeld/.emacs.d/elgrep-data.el (source)...done
Building magit...
Building magit → Building git-commit...done
Building magit → Building magit-section...done
Building magit...done
../my-init.el: Warning: Unknown type: window-configuration
Function provided is already compiled [8 times]
Importing package-keyring.gpg...done
Contacting host: elpa.gnu.org:443 [2 times]
Package refresh done
Contacting host: elpa.nongnu.org:443
Package refresh done
../straight/build/slime/slime.el: Warning: Obsolete calling convention for 'sit-for'
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-1-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-2-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-3-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-4-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-5-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-6-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-7-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Warning: setting attribute ‘:foreground’ of face ‘rainbow-blocks-depth-8-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Importing package-keyring.gpg...done
Contacting host: elpa.gnu.org:443
Package refresh done
Contacting host: elpa.nongnu.org:443
Package refresh done
ad-handle-definition: ‘align-regexp’ got redefined
Package cl is deprecated
Beginning of buffer [3 times]
Vterm needs `vterm-module' to work.  Compile it now? (y or n) n
../straight/build/pointless/pointless.el: Warning: Unknown type: number-or-marker [3 times]
../straight/build/pointless/pointless.el: Warning: Unknown type: pointless--tree-position [2 times]
../straight/build/pointless/pointless.el: Warning: Missing format argument [2 times]
Warning: setting attribute ‘:background’ of face ‘highlight-indent-guides-character-face’: nil value is invalid, use ‘unspecified’ instead. [2 times]
Loading /home/hrehfeld/.emacs.d/my-init.el (source)...done

[raxod502]

This is after straight-x-fetch-all and straight-merge-all earlier today

Wouldn't that update all packages to the latest version? Don't you want straight-thaw-versions to use the versions that in Radian's lockfile? More recent versions might work, but I haven't tested them yet.