Hi Wolfgang, Hi Mikael,
Thanks Wolfgang! I didn’t know that \beginBLOCKNAME \endBLOCKNAME cannot be
used in other macros… There is some mystery in this for me.
Now with
\doifnotmode{*trialtypesetting}
everything works as expected.
Since I don’t know whether, nor where on the wiki, this can be wikified, for
the archives and for other possible users, I copy below the entire example
which allows to have interactive Questions and Answers. One can also easily add
a chapter for Hints, if necessary.
Best regrads: OK
%%%% begin interactive-question-answer.tex
%%%% Here, following Wolfgang Schuster's ideas,
%%%% we define some macros allowing to couple
%%%% Questions and Answers in an automatic way
%%%% Upon clicking on an interactive title for Question or Answer
%%%% one goes to the corresponding Answer or Question
\setupinteraction[state=start]
% We define two counters which follow the numbers
% appearing in Question and Answer
\newcounter\QuestionCounter
\newcounter\AnswerCounter
% We create two commands to be used in the
% enumeration environments
% Note that the check for trial typestting
% \doifnotmode{*trialtypesetting}
% is necessary in order to avoid unwanted incrementation
\define[1]\QuestionTextCommand
{\doifnotmode{*trialtypesetting}
{\doglobal\increment\QuestionCounter
\pagereference[question:\QuestionCounter]}%
\doifreferencefoundelse{answer:\QuestionCounter}
{\goto{#1}[answer:\QuestionCounter]}
{#1}}
\define[1]\AnswerTextCommand
{\doifnotmode{*trialtypesetting}
{\doglobal\increment\AnswerCounter
\pagereference[answer:\AnswerCounter]}%
\doifreferencefoundelse{question:\AnswerCounter}
{\goto{#1}[question:\AnswerCounter]}
{#1}}
% We define here two enumeration environments for
% Questions and Answers
\defineenumeration[question]
[text=Question,
headcommand=\QuestionTextCommand,
number=yes,
prefix=yes,
prefixsegments=chapter,
coupling=answer]
\defineenumeration[answer]
[text=Answer,
headcommand=\AnswerTextCommand,
number=yes,
prefix=yes,
prefixsegments=chapter,
coupling=question]
% Each question is followed immediately by its answer.
% The answers are put in a block which will be used later
\defineblock[answer]
\hideblocks[answer]
% We define a command used after a
% Question for which no Answer is provided
% Since the block commands
% \beginanswer ... \endanswer
% cannot be used directly in a macro definition
% we use a trick...
% In the buffer the two counters associated to Answer
% are incremented...
\startbuffer[noanswer]
\beginanswer
\doglobal\increment\AnswerCounter
\incrementcounter[answer]
\endanswer
\stopbuffer
% ...and then the above buffer is invoked
\define\noanswer
{\getbuffer[noanswer]}
% example of use:
\starttext
\startchapter[title=Questions]
\startquestion[q:1]
Prove that ${\rm e}\sim 2.73$ is irrational.
This is the first question, with its own reference, for later use.
\stopquestion
\beginanswer
\startanswer
This is the answer to the first question (to \in{Question}[q:1]).
\stopanswer
\endanswer
\startquestion
This is the second question, without its own reference.
\stopquestion
\beginanswer
\startanswer[a:Test]
This is the answer to the second question.
(Note that this answer has a reference named \type{a:Test}).
\stopanswer
\endanswer
\startquestion[q:Obvious]
This is the third question, an easy one, without a given solution.
\stopquestion
% we increment here the counters for Answer
\noanswer
\startquestion[q:2]
This is the fourth question with its own reference.
\stopquestion
\beginanswer
\startanswer
This is the answer to the fourth question: use the result of \in{question}[q:1].
\stopanswer
\endanswer
\startquestion
This is the fifth question, without its own reference.
({\it Hint:} look again at \in{Question}[q:Obvious]).
\stopquestion
\beginanswer
\startanswer
This is the answer to the fifth question. Read again \in{Answer}[a:Test].
\stopanswer
\endanswer
\stopchapter
% Here we say ownnumber=1, in order to match the prefix
% of numbers associated to Answer
\startchapter[ownnumber=1,title=Answers and solutions]
\useblocks[answer]
\stopchapter
\stoptext
%%%% end interactive-question-answer.tex
___________________________________________________________________________________
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://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
