From 8fb71977a7dddf8f481f6b76bff864d98f00ffac Mon Sep 17 00:00:00 2001
From: Frank Fuhlbrück
Date: Wed, 9 Feb 2022 15:40:44 +0100
Subject: fragile framed exercises with lua

---
 exsh_lexercise.lua | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'exsh_lexercise.lua')

diff --git a/exsh_lexercise.lua b/exsh_lexercise.lua
index b05d29e..85a298b 100644
--- a/exsh_lexercise.lua
+++ b/exsh_lexercise.lua
@@ -1,5 +1,5 @@
 exsh_texprintlines = function(s)
-  for line in s:gmatch("[^\n]+") do
+  for line in s:gmatch("[^\n]*") do
     tex.print(line)
   end
 end
@@ -117,3 +117,20 @@ exercise = function(ex)
   return ece
 end
 
+fragileframed = function(s)
+  local frames,p,pn,n,i = {},1,1,#s,0
+  pn = s:find([[\newframe]],p) or n+1
+  while p < n do
+    i = i+1
+    frames[i] = [[
+      \begin{frame}[t,fragile] 
+      \solutiontitle[\textwidth]
+      ]] .. s:sub(p,pn-1) .. [[
+      \end{frame}
+    ]] 
+    p = pn + 9
+    pn = s:find([[\newframe]],p) or n+1
+  end
+  return table.concat(frames,"")
+end
+
-- 
cgit v1.2.3