uemacs/screensize.cmd

# Visualize Screen Dimensions
select-buffer screensize
insert-string &cat $curwidth &cat "x" $pagelen
insert-string &rig "---------+" &sub 10 $curcol
&sub &div $curwidth 10 1 insert-string "---------+"
insert-string &lef "1234567890" &mod $curwidth 10
&sub $pagelen 3 execute-command-line "insert-string &cat ~n &add $curline 1"
beginning-of-file
unmark-buffer
write-message $line
Insure virtual screen dimensions support maximum zoom out with mintty on 180p 2017-06-01 03:31:39 -04:00			`# Visualize Screen Dimensions`
Use explicit buffer name as output for the script. 2021-08-06 22:29:23 -04:00			`select-buffer screensize`
Insure virtual screen dimensions support maximum zoom out with mintty on 180p 2017-06-01 03:31:39 -04:00			`insert-string &cat $curwidth &cat "x" $pagelen`
			`insert-string &rig "---------+" &sub 10 $curcol`
			`&sub &div $curwidth 10 1 insert-string "---------+"`
			`insert-string &lef "1234567890" &mod $curwidth 10`
Avoid extra empty line at EOF. 2021-07-19 04:37:57 -04:00			`&sub $pagelen 3 execute-command-line "insert-string &cat ~n &add $curline 1"`
Insure virtual screen dimensions support maximum zoom out with mintty on 180p 2017-06-01 03:31:39 -04:00			`beginning-of-file`
			`unmark-buffer`
			`write-message $line`