Заблокируйте угол слайда для записи в Zoom

Question

Я готовлю слайды для лекций, которые буду представлять и записывать на Zoom. Моя камера будет отображаться в правом верхнем углу экрана, чтобы студенты могли меня видеть, и я хотел бы, чтобы текст на слайдах автоматически обтекал эту область, без необходимости вручную настраивать его на каждом слайде.

Я пытаюсь использовать wrapfigи everypageвставить изображение в правый верхний угол каждого слайда, вокруг которого будет обтекать текст. (Пока я использую фиктивное изображение, но позже просто сделаю его белым прямоугольником.) Но это не работает: изображение не появляется с правой стороны, и текст не обтекает его должным образом. Он также постоянно генерирует предупреждение Collision between wrapping environments.

Вот код, который я использую:

\documentclass{article}

\usepackage[17pt]{extsizes}
\usepackage[screen, margin=2cm]{geometry}
\pagestyle{empty}
\pagenumbering{gobble}

\usepackage{lipsum}
\usepackage{wrapfig}
\usepackage{everypage}
\usepackage{graphicx}

\AddEverypageHook{
\begin{wrapfigure}{r}{0pt} \includegraphics[width=0.4\textwidth]{example-image-a} \end{wrapfigure}
}

\begin{document}
\lipsum[1-20]
\end{document}

Что здесь не так?

Я был бы очень рад альтернативным решениям этой проблемы (например, не использующим wrapfig/ everypage).

ПРАВКА: Я думаю, что wrapfigв конечном итоге это не сработает, поскольку мои заметки включают в себя theoremокружение, а оно не переносится.

EDIT: Я нашел альтернативное решение. Поскольку стандартное соотношение сторон слайда квадратнее экрана, я сдвинул слайд влево на экране, чтобы освободить место для видеопотока справа. Для этого я сделал слайд шире, но соответственно увеличил размер правого поля и заполнил дополнительное пространство черным прямоугольником, созданным с помощью ответов наэтот вопрос. Вот код:

\documentclass[oneside]{amsart}

\usepackage[20pt]{extsizes}
\pagenumbering{gobble}
\usepackage[paperwidth=320mm, paperheight=180mm, left=2cm, right=8cm]{geometry}

\usepackage{tikz}
\usetikzlibrary{calc}

\usepackage{fancyhdr}
\usepackage{lipsum}

\pagestyle{fancy}
\fancyhf{}
\fancyhead[R]{%
  \begin{tikzpicture}[overlay,remember picture]
      \fill [color=black]
        (current page.north east)
        rectangle
        ($ (current page.south east) + (-6cm,0cm) $);
  \end{tikzpicture}
}

\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{0pt}


\begin{document}

\thispagestyle{fancy}

\lipsum

\end{document}