edit: Force string

config/bindings.lua

@@ -86,6 +86,7 @@ return {
          t['d'] = { function(_) ctrl:diff_interactive() end, 'Derivative*' }
          t['i'] = { function(_) ctrl:integrate_interactive() end, 'Integrate*' }
          t['f'] = { function(_) ctrl:call_n_interactive() end, 'Call*' }
+         t['q'] = { function(_) ctrl:seq_interactive() end, 'Seq*' }
          t['right'] = { function(_) ctrl:roll_down() end, 'Roll down' }
          t['left'] = { function(_) ctrl:roll_up() end, 'Roll up' }
 

dialog/input.lua

@@ -176,7 +176,13 @@ function t.display_n(n, options, on_init)
    end
 
    dlg.window:layout_children()
-   if options.text then dlg.edit[1]:insert_text(options.text, true) end
+   if type(options.text) == 'table' then
+      for i, v in ipairs(options.text) do
+         dlg.edit[i]:insert_text(v or "", true)
+      end
+   elseif options.text then
+      dlg.edit[1]:insert_text(options.text, true)
+   end
    if options.cursor then dlg.edit[1]:set_cursor(options.cursor) end
 
    if on_init then

rpn/controller.lua

@@ -611,11 +611,21 @@ function meta:integrate_interactive()
    end
 end
 
+cmd('Seq*', 'seq_interactive')
+function meta:seq_interactive()
+   local top = self.stack:top() and self.stack:top().infix or ""
+   local dlg = ask_n(4, { title = "Seq ...", text = {top, 'x', '1', '10'} })
+   dlg.on_done = function(args)
+      local e, v, i, j = table.unpack(args)
+      self.stack:push_infix(string.format('seq(%s,%s,%s,%s)', e, v, i, j))
+   end
+end
+
 cmd('Call n', 'call_n_interactive')
 function meta:call_n_interactive()
    if not self.stack:top() then return end
 
-   local dlg = ask_n(2, { title = string.format("Call ...", self.stack:top().infix or '?'), text = '' })
+   local dlg = ask_n(2, { title = "Call ...", text = {'f1(x)', '1'} })
    dlg.on_done = function(text)
       local fn, n = table.unpack(text)
       if fn:len() == 0 then return end

views/edit.lua

@@ -198,6 +198,7 @@ end
 ---@param text string   Text to insert at the current cursor position
 ---@param sel  boolean  Select inserted text
 function ui.edit:insert_text(text, sel)
+   text = tostring(text)
    local left, mid, right = self:split_text()
 
    local closing_paren = ui.edit.paren_pairs[text]