diff options
| -rw-r--r-- | toot-toot.tlv | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/toot-toot.tlv b/toot-toot.tlv index ce7b2bd..8b2f070 100644 --- a/toot-toot.tlv +++ b/toot-toot.tlv @@ -166,6 +166,7 @@ menu: >menu = {} >menu['^u'] = 'clear' + >menu['^w'] = "write prose to file 'toot' (edit does NOT save)" - __teliva_timestamp: original update: >function update(window) @@ -190,6 +191,10 @@ > elseif key == 21 then -- ctrl-u > prose = '' > cursor = 1 + > elseif key == 23 then -- ctrl-w + > local out = io.open('toot', 'w') + > out:write(prose, '\n') + > out:close() > elseif key == 10 or (key >= 32 and key < 127) then > prose = prose:insert(string.char(key), cursor-1) > cursor = cursor+1 |