From: "Wolfgang Schuster" <schuster.wolfgang@googlemail.com>
To: "mailing list for ConTeXt users" <ntg-context@ntg.nl>
Subject: Re: \version[temporary]
Date: Thu, 20 Dec 2007 09:15:20 +0100 [thread overview]
Message-ID: <115224fb0712200015pa80c4d6w99f03eabac16bdff@mail.gmail.com> (raw)
In-Reply-To: <2779FDE6-3B9F-4F64-9BD5-F0D70E832B6F@st.estfiles.de>
2007/12/19, Steffen Wolfrum <context@st.estfiles.de>:
> ... and what about moving it a bit to the right? 10mm maybe?
>
> Steffen
Hi Steffen,
take a look at the following solution, you can change the distance
to the right margin with the distance (you can also use negativ values),
the width key has no real effect, it changes only the length of the box
for the info text.
\unprotect
\definesystemvariable {vs} % VerSion
\startconstants all
register: register
float: float
\stopconstants
\def\dodoversion[#1][#2]%
{\processaction
[#1]
[ \v!final=>\chardef\conceptmode\zerocount
\overfullrule\zeropoint,
\v!concept=>\chardef\conceptmode\plusone, % simple banner
\v!file=>\chardef\conceptmode\plustwo, % full banner
\v!temporary=>\chardef\conceptmode\plusthree % full banner plus
\overfullrule5\points]% % info in the margin
\getparameters[\??vs][#2]%
\doifelse\@@vsreference\v!yes
{\let\referenceinfo\doreferenceinfo}
{\let\referenceinfo\gobbletwoarguments}%
\doifelse\@@vsregister\v!yes
{\let\registerinfo\doregisterinfo}
{\let\egisterinfo\gobbletwoarguments}%
\doifelse\@@vsfloat\v!yes
{\let\floatreference\dofloatreference}
{\let\floatreference\gobbletwoarguments}}
\def\doversion[#1][#2]%
{\ifsecondargument
\dodoversion[#1][#2]%
\else
\doifassignmentelse{#1}
{\dodoversion[][#1]}
{\dodoversion[#1][]}%
\fi}
\def\version
{\dodoubleempty\doversion}
\def\doreferenceinfo{\dotestinfo\referenceinfobox}
\def\doregisterinfo {\dotestinfo\registerinfobox}
\def\dofloatinfo {\dotestinfo\floatinfobox}
\def\doaddstatusinfo#1%
{\setbox#1\vbox to \paperheight
{\vsmashbox#1\box#1%
\offinterlineskip
\vskip\topspace
\hsize\paperwidth
\hfill\hbox{\placetestinfo\hskip\@@vsdistance}\vss
\settexthoffset\hskip\texthoffset % brrrr
%\tlap{\placeversioninfo}\vskip.5cm}}
\vbox to 1cm{\vss\placeversioninfo\vss}}}
\def\dotestinfo#1#2#3%
{\ifinpagebody\else\ifnum\conceptmode=\plusthree
\begingroup
\@EA\convertargument#3\to\ascii
\xdef\extratestinfo
{#2\space\ascii}%
\gdef\totaltestinfo
{\global\setbox#1\vbox
{\unvbox#1\relax
\infofont \setupinterlinespace
\hbox
{\strut
\expanded{\doboundtext{\extratestinfo}{\@@vswidth}{..}}%
\quad}}}%
\endgroup
\ifinner
\aftergroup\totaltestinfo
\else
\totaltestinfo
\fi
\fi\fi}
\version
[\v!final]
[\c!reference=\v!yes,
\c!register=\v!yes,
\c!float=\v!yes,
\c!distance=.5cm,
\c!width=12em]
\protect
\version[temporary][reference=no,distance=-5pt]
%\version[temporary]
%\version[reference=no]
\definepapersize[test][width=157mm,height=232mm]
\setuppapersize[test][test]
\setuplayout
[width=113mm,
backspace=20mm,
location=middle]
%\showframe
\starttext
\dorecurse{10}{text\footnote{note\index{keyword}}\par}
\stoptext
@Hans: Is \conceptmode a global macro I could myself in a third party module.
Wolfgang
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : https://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
next prev parent reply other threads:[~2007-12-20 8:15 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-12-18 10:33 \version[temporary] Steffen Wolfrum
2007-12-19 12:00 ` \version[temporary] Wolfgang Schuster
2007-12-19 12:12 ` \version[temporary] Steffen Wolfrum
2007-12-19 13:38 ` \version[temporary] Wolfgang Schuster
2007-12-20 8:15 ` Wolfgang Schuster [this message]
2007-12-20 11:31 ` \version[temporary] Steffen Wolfrum
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=115224fb0712200015pa80c4d6w99f03eabac16bdff@mail.gmail.com \
--to=schuster.wolfgang@googlemail.com \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).