texlive[69254] Master/texmf-dist: beamer-rl

[commits+karl at tug.org]

Revision: 69254
          https://tug.org/svn/texlive?view=revision&revision=69254
Author:   karl
Date:     2023-12-31 22:36:40 +0100 (Sun, 31 Dec 2023)
Log Message:
-----------
beamer-rl

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/lualatex/beamer-rl/README.txt
    trunk/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.cls

Modified: trunk/Master/texmf-dist/doc/lualatex/beamer-rl/README.txt
===================================================================
--- trunk/Master/texmf-dist/doc/lualatex/beamer-rl/README.txt	2023-12-31 21:25:45 UTC (rev 69253)
+++ trunk/Master/texmf-dist/doc/lualatex/beamer-rl/README.txt	2023-12-31 21:36:40 UTC (rev 69254)
@@ -1,5 +1,5 @@
 The beamer-rl class
-v1.8
+v1.9
 
 This class provides patchs of some beamer templates and commands 
 for right to left presentation, the class require babel with lualatex engine  
@@ -9,7 +9,7 @@
 
   <https://github.com/seloumi/beamer-rl/issues>
 
-Current version release date: 2023/02/03 
+Current version release date: 2023/12/24 
 
 ___________________
 Salim Bou

Modified: trunk/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.cls
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.cls	2023-12-31 21:25:45 UTC (rev 69253)
+++ trunk/Master/texmf-dist/tex/lualatex/beamer-rl/beamer-rl.cls	2023-12-31 21:36:40 UTC (rev 69254)
@@ -1,6 +1,6 @@
 \NeedsTeXFormat{LaTeX2e}[2022-11-01]
 \ProvidesClass{beamer-rl}
-[2023/02/03 v1.8  LaTeX class to patch beamer for right to left presentation with babel]
+[2023/12/24 v1.9  LaTeX class to patch beamer for right to left presentation with babel]
 
 \DeclareKeys
   {
@@ -462,6 +462,62 @@
 	\kern4pt%
 }
 
+
+%% beamerouterthemedefault
+
+\redefbeamertemplate*{note page}{default}
+{%
+  {%
+    \scriptsize
+    \usebeamerfont{note title}\usebeamercolor[fg]{note title}%
+    \ifbeamercolorempty[bg]{note title}{}{%
+      \insertvrule{.25\paperheight}{note title.bg}%
+      \vskip-.25\paperheight%
+      \nointerlineskip%
+    }%
+    \vbox{
+      \beamer at tempdim=0.2cm
+      \ifnum\textdirection=\@ne \multiply \beamer at tempdim by -2\fi
+      \hfill\insertslideintonotes{0.25}\hskip-\Gm at rmargin\hskip0pt%
+      \vskip-0.25\paperheight%
+      \nointerlineskip
+      \begin{pgfpicture}{0cm}{0cm}{0cm}{0cm}
+        \begin{pgflowlevelscope}{\pgftransformrotate{90}}
+          {\pgftransformshift{\pgfpoint{-2cm}{\beamer at tempdim}}%
+          \pgftext[base,left]{\usebeamerfont{note date}\usebeamercolor[fg]{note date}\the\year-\ifnum\month<10\relax0\fi\the\month-\ifnum\day<10\relax0\fi\the\day}}
+        \end{pgflowlevelscope}
+      \end{pgfpicture}}
+    \nointerlineskip 
+    \vbox to .25\paperheight{\vskip0.5em
+      \hbox{\insertshorttitle[width=0.75\textwidth]}%
+      \setbox\beamer at tempbox=\hbox{\insertsection}%
+      \hbox{\ifdim\wd\beamer at tempbox>1pt{\hskip4pt\raise3pt\hbox{\vrule
+            width0.4pt height7pt\vrule width 9pt
+            height0.4pt}}\hskip1pt\hbox{\begin{minipage}[t]{0.71\textwidth}\def\breakhere{}\insertsection\end{minipage}}\fi%
+      }%
+      \setbox\beamer at tempbox=\hbox{\insertsubsection}%
+      \hbox{\ifdim\wd\beamer at tempbox>1pt{\hskip17.4pt\raise3pt\hbox{\vrule
+            width0.4pt height7pt\vrule width 9pt
+            height0.4pt}}\hskip1pt\hbox{\begin{minipage}[t]{0.71\textwidth}\def\breakhere{}\insertsubsection\end{minipage}}\fi%
+      }%
+      \setbox\beamer at tempbox=\hbox{\insertshortframetitle}%
+      \hbox{\ifdim\wd\beamer at tempbox>1pt{\hskip30.8pt\raise3pt\hbox{\vrule
+            width0.4pt height7pt\vrule width 9pt
+            height0.4pt}}\hskip1pt\hbox{\insertshortframetitle[width=0.67\textwidth]}\fi%
+      }%
+      \vfil}%
+  }%
+  \ifbeamercolorempty[bg]{note page}{}{%
+    \nointerlineskip%
+    \insertvrule{.75\paperheight}{note page.bg}%
+    \vskip-.75\paperheight%
+  }%
+  \vskip.25em
+  \nointerlineskip
+  \insertnote
+}
+
+
 %% beamerbasenavigation
 
 % User Buttons