2017-06-01 07:31:39 +00:00
|
|
|
# Visualize Screen Dimensions
|
2021-08-07 02:29:23 +00:00
|
|
|
select-buffer screensize
|
2017-06-01 07:31:39 +00: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
|
2021-07-19 08:37:57 +00:00
|
|
|
&sub $pagelen 3 execute-command-line "insert-string &cat ~n &add $curline 1"
|
2017-06-01 07:31:39 +00:00
|
|
|
beginning-of-file
|
|
|
|
unmark-buffer
|
|
|
|
write-message $line
|