# Caption for each windowsetenv a ""setenv a "$a%?%F"# if the window has the focussetenv a "$a%{=d Wk}"# set attribute = {dim, black(k) on bright Write(W)}setenv a "$a%:"# elsesetenv a "$a%{=d Kk}"# set attribute = {dim, black(k) on bright Black(K)}setenv a "$a%?"# end ifsetenv a "$a%?%P"# if copy/paste modesetenv a "$a%{=d Bk}"# set attribute = {dim, black(k) on bright Blue(B)}setenv a "$a%?"# end ifsetenv a "$a%n"# window numbersetenv a "$a "# spacesetenv a "$a%L="# Mark the position for the next truncationsetenv a "$a%h"# window' hardstatussetenv a "$a%L>"# Truncate %L= ~ %L>, 'L' for > gives marks at the truncation pointsetenv a "$a%="# With the last %-0=, it makes right alignment for following linessetenv a "$a%?%P"# if copy/paste modesetenv a "$a *copy/paste*"# draw this sentencesetenv a "$a%?"# end ifsetenv a "$a%?%E"# if copy/paste modesetenv a "$a ***command**"# draw this sentencesetenv a "$a%?"# end ifsetenv a "$a%-0="# pad the string to the display's width. "-0" means# start from the rightest side# (e.g. 10=: 10% from left, 010, 10 characters from left# ( -10=: 10% from right)# With %L>, %= above, screen tries to truncates the part # in the left of "%L>"caption always "$a"unsetenv a
# hardstatussetenv a ""setenv a "$a%{= Kk}"# set attribute = {black(k) on bright Black(K)}setenv a "$a%-w"# windows' list up to the current window (shown as "%n %t")setenv a "$a%40>"# Mark here as a point to move when truncation# Try to move this point to the 40% pointsetenv a "$a%{= Wk}"# set attribute = {black(k) on bright Write(W)}setenv a "$a%n"# current window numbersetenv a "$a "# spacesetenv a "$a%t"# current window titlesetenv a "$a%{-}"# remove the set from the current attributessetenv a "$a%+w"# windows' list starting with the window after the current one (shown as "%n %t")setenv a "$a%-0="# pad the string to the display's width.# About Truncation/Padding(=,<,>)# http://aperiodic.net/screen/truncation_padding_escapeshardstatus alwayslastline "$a"unsetenv a