memoire

@@ -7,7 +7,7 @@ local recrw = dofile "recrw.lua"

 local review = dofile "review.lua"

 --[[

-    load a deck (a table of tables of `Prompts`) from a Recfile

+    load a deck (a table of tables of `Prompt`s) from a Recfile

 ]]

 local function loaddeck(fname)

     local fh = io.open(fname)

@@ -21,6 +21,22 @@ local function loaddeck(fname)

     return ep

 end

+--[[

+    save a deck (a table of tables of `Prompt`s) to a Recfile

+]]

+local function savedeck(fname, deck)

+    local rrf = {}

+    for i, cg in ipairs(deck) do

+        rrf[i] = Prompt:torec(cg)

+    end

+    local wot = recrw.write(rrf)

+    local fh = io.open(fname, "w")

+    if not fh then io.write("couldn't open output\n") end

+    local wr, err = fh:write(wot)

+    if not wr then io.write("couldn't write to output\n") end

+    fh:close()

+end

+

 --[[

     checks (returns boolean) if a response-string is affirmative

 ]]

@@ -95,18 +111,7 @@ elseif action == "r" then

             end

         end

     end

-    -- write out updated cards

-    -- TODO: split this out into a function

-    local rrf = {}

-    for i, cg in ipairs(deck) do

-        rrf[i] = Prompt:torec(cg)

-    end

-    local wot = recrw.write(rrf)

-    local wfh = io.open(deckfname, "w")

-    if not wfh then io.write("couldn't open output\n") end

-    local _wr, wr = wfh:write(wot)

-    if not _wr then io.write("couldn't write to output\n") end

-    wfh:close()

+    savedeck(deckfname, deck)

 -- Statistics

 elseif action == "s" then

     -- TODO