The visor I refer to is a feature of TotalTerminal.

The elisp code is below: