madiazm.eo...@gmail.com schrieb am 17.05.2024 um 00:05:
Hi,
I used some code from the meta-fun manual to recreate a labelled frame around
my sections. But the first framedtext protrudes a couple of mm into the margin.
Only the first one in the page. I intentionaly added other sections and the
frames aline to the margin ok.
I tried to put something before the first frame (noindentation, dontleavehmode)
because I sometimes read it solves problems, but not the case here.
so Why is the first frame protruding and only the first?
[...]
Include only setups in your examples which are necessary to show the
problem, the custom layout isn't necessary and can be left out.
\startuseMPgraphic{FunnyFrame}
picture p ; numeric w, h, o ;
p := textext.rt(\MPstring{FunnyFrame}) ;
w := OverlayWidth ; h := OverlayHeight ; o := BodyFontSize ;
p := p shifted (2o,h-ypart center p) ; draw p ;
drawoptions (withpen pencircle scaled .25pt withcolor blue) ;
draw (2o,h)--(0,h)--(0,0)--(w,0)--(w,h)--(xpart urcorner p,h) ;
%draw boundingbox p ; %%%quitamos el frame pequeño
setbounds currentpicture to unitsquare xyscaled(w,h) ;
\stopuseMPgraphic
\defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}]
\defineframedtext[FunnyText][width=.85\textwidth, height=20mm, frame=off,
background=FunnyFrame, align=flushright,location=right,
after={\blank[2*big]}]%foregroundsytel amplía la palabra Apartado
\def\FrameTitle#1%
{\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut \color[blue]{\tfx Apartado
#1}\hss}}}
\setMPtext{FunnyFrame}{} % initialize the text variable
\define[2]\firstHeadings{%
\dontleavehmode \switchtobodyfont[miCorm]
\FrameTitle#1%
\dontleavehmode \startFunnyText {\switchtobodyfont[miCorm,20.7pt] #2}
\stopFunnyText
}
\setuphead [section] [color=blue, command=\firstHeadings, indentnext=no]
Get rid of \dontleavehmode in your custom section layout, avoid blank
lines in definitions and move the font changes to \setuphead.
\define[2]\firstHeadings
{\FrameTitle{#1}%
\startFunnyText
#2%
\stopFunnyText}
\setuphead
[section]
[color=blue,
style={\switchtobodyfont[miCorm]},
textstyle={\switchtobodyfont[20.7pt]},
command=\firstHeadings,
indentnext=no]
\startsection[title=Aspectos generales]
Esta guía contiene toda la documentación necesaria para administrar la prueba
unificada de certificación que ha diseñado la comisión de alemán. Se ruega al
profesorado\footnote{Todas las alusiones a la forma del masculino genérico que
se recogen en este documento deberán entenderse referidas a la condición
masculina o femenina de cada persona según corresponda.} que se familiarice con
las secciones del documento a través del índice y acuda a ellas según vaya
siendo necesario, de manera que se pueda administrar y corregir la prueba de la
manera más satisfactoria posible.
\stopsection
Use dummy text when it possible to keep the example short and clean.
\startsection[title=Aspectos generales]
\samplefile{lorem}
\stopsection
Wolfgang
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl /
https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive : https://github.com/contextgarden/context
wiki : https://wiki.contextgarden.net
___________________________________________________________________________________
