From 8e916ea92d65ad8f04ce57b1fdbf9292543e65e2 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Thu, 8 Dec 2022 18:35:18 +0000 Subject: [PATCH] add caption to KSR images (deja vu) --- projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss b/projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss index 8696ea05..19e8f3dd 100644 --- a/projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss +++ b/projects/kiss-spaced-rep/src/kiss_spaced_rep/KSR.kiss @@ -54,11 +54,11 @@ show (noConfirmShow.bind text) score (typeScore.bind text))) -(function :CardSide image [:String path] +(function :CardSide image [:String path &opt :String caption] (object - show ->:Void [engine cc] (engine.showImageCC path cc) + show ->:Void [engine cc] {(when caption (engine.print caption)) (engine.showImageCC path cc)} - score ->:Void [engine :Int->Void resolve] {(engine.showImage path)(engine.print "Score (0-5): ")(engine.input ->:Void str (resolve (Std.parseInt str)))})) + score ->:Void [engine :Int->Void resolve] {(when caption (engine.print caption))(engine.showImage path)(engine.print "Score (0-5): ")(engine.input ->:Void str (resolve (Std.parseInt str)))})) (defMacroVar cardId 0) (defMacroVar groupId 0)