# Caption for each windowsetenva""setenva"$a%?%F"# if the window has the focussetenva"$a%{=d Wk}"# set attribute = {dim, black(k) on bright Write(W)}setenva"$a%:"# elsesetenva"$a%{=d Kk}"# set attribute = {dim, black(k) on bright Black(K)}setenva"$a%?"# end ifsetenva"$a%?%P"# if copy/paste modesetenva"$a%{=d Bk}"# set attribute = {dim, black(k) on bright Blue(B)}setenva"$a%?"# end ifsetenva"$a%n"# window numbersetenva"$a "# spacesetenva"$a%L="# Mark the position for the next truncationsetenva"$a%h"# window' hardstatussetenva"$a%L>"# Truncate %L= ~ %L>, 'L' for > gives marks at the truncation pointsetenva"$a%="# With the last %-0=, it makes right alignment for following linessetenva"$a%?%P"# if copy/paste modesetenva"$a *copy/paste*"# draw this sentencesetenva"$a%?"# end ifsetenva"$a%?%E"# if copy/paste modesetenva"$a ***command**"# draw this sentencesetenva"$a%?"# end ifsetenva"$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>"captionalways"$a"unsetenva
# hardstatussetenva""setenva"$a%{= Kk}"# set attribute = {black(k) on bright Black(K)}setenva"$a%-w"# windows' list up to the current window (shown as "%n %t")setenva"$a%40>"# Mark here as a point to move when truncation# Try to move this point to the 40% pointsetenva"$a%{= Wk}"# set attribute = {black(k) on bright Write(W)}setenva"$a%n"# current window numbersetenva"$a "# spacesetenva"$a%t"# current window titlesetenva"$a%{-}"# remove the set from the current attributessetenva"$a%+w"# windows' list starting with the window after the current one (shown as "%n %t")setenva"$a%-0="# pad the string to the display's width.# About Truncation/Padding(=,<,>)# http://aperiodic.net/screen/truncation_padding_escapeshardstatusalwayslastline"$a"unsetenva