Function to set the window title

[nomeata]

Currently, the browser tab displaying the blank canvas app says Blank Canvas. Which is a lie as soon as the canvas is filled :-).

I propose a function setTitle :: Text -> Canvas () that would, well, set the the title.

[RyanGlScott]

Good idea! Luckily, this kind of thing is super-easy to add to blank-canvas.

The trickiest part is adding the JavaScript functionality. You'd need to add something like this to static/index.html:

function SetTitle(newTitle) { // :: Text -> Canvas ()
    return function(u, c) {
        document.title = newTitle;
        $.kc.reply(u, []); // Return unit tuple
    };
}

Once that's done, all you need to do is add a new SetTitle constructor to the Query datatype, as well as corresponding cases to the InstrShow instance and parseQueryResult.

Then setTitle simply becomes:

setTitle :: Text -> Canvas ()
setTitle = procedure . Query . SetTitle