mailing-list for TeXmacs Users

[David Allouche <address@hidden>]

On Thu, Oct 17, 2002 at 03:58:07PM +0200, Joris van der Hoeven wrote:
> 
> > What CVS do not give is the difference between the current english
> > version of the document and the version which was used to write this
> > translation.
> > 
> > Maybe it would just be enough to write down the revision number or the
> > orginal document in the translated document.
> > 
> > To this end, it would be useful to include '$Revision$' keywords in
> > documents, within an appropriate environment. I think '$Name$' keywords
> > would also make it easier to navigate through the documentation
> > hierarchy.
> > 
> > So, is it okay?
> 
> Yes, I can provide such markup.
> We mainly need "tmdoc-revision" or "tmdoc-version";
> we already do have "tmdoc-title", which should be used as
> a comprehensive name (a short name is included in the filename itself).

$Name$ provides the CVS name of the document. That is useful because I
have found myself several times making F2 just to know in which
directory was located the file I was editing.

I propose we use the two definitions given in the attached patch.

The following function application should by added just after
tmdoc-title (or tmdoc-title*), on the same line.

    <apply|tmdoc-cvsinfo|$Author$|$Date$|$Name$|$Revision$|$State$>

That way, the whole table can be hidden, without leaving any
additional whitespace, just by rededifining the tmdoc-cvsinfo
function.

The following macro expansion should be added just after
tmdoc-cvsinfo, on the same line:

    <expand|tmdoc-translation|(name)|(revision)>

-- 
David Allouche         | GNU TeXmacs -- Writing is a pleasure
Free software engineer |    http://www.texmacs.org
   http://ddaa.net     |    http://alqua.com/tmresources
   address@hidden  |    address@hidden
TeXmacs is NOT a LaTeX front-end and is unrelated to emacs.

*** 
TeXmacs-1.0.0.18-src/TeXmacs-1.0.0.18/packages/documentation/tmdoc-traversal.ts
--- 
TeXmacs-1.0.0.18-src/TeXmacs-1.0.0.18/packages/documentation/tmdoc-traversal.ts
***************
*** 1,4 ****
! <TeXmacs|1.0.0.14>
  
  <\body>
    <assign|tmdoc-traversal-package|1.0>
--- 1,4 ----
! <TeXmacs|1.0.0.18>
  
  <\body>
    <assign|tmdoc-traversal-package|1.0>
***************
*** 40,45 ****
--- 40,82 ----
  
    \;
  
+   <assign|tmdoc-cvsinfo|<func|author|date|name|revision|state|<with|font
+   size|0.84|color|dark grey|<format|next 
line><tabular|<tformat|<cwith|1|-1|1\
+   |-1|cell background|broken white>|<twith|table
+   width|1par>|<cwith|1|-1|2|2|cell hyphen|t>|<cwith|1|-1|1|1|cell
+   lborder|0.5ln>|<cwith|-1|-1|1|-1|cell bborder|0.5ln>|<cwith|1|1|1|-1|cell
+   tborder|0.5ln>|<cwith|1|-1|-1|-1|cell rborder|0.5ln>|<cwith|1|-1|2|2|cell
+   lsep|0spc>|<cwith|1|1|1|-1|cell tsep|1spc>|<cwith|-1|-1|1|-1|cell
+   bsep|1spc>|<cwith|1|-1|2|2|cell hpart|1>|<cwith|1|-1|1|1|cell
+   halign|r>|<table|<row|<cell|<with|color|black|<with|font
+   series|bold|Name:>>>|<cell|<with|color|black|font
+   family|tt|<value|name>>>>|<row|<cell|<with|color|black|<with|font
+   series|bold|Last modified:>>>|<cell|<with|color|black|font
+   family|tt|<value|date>>>>|<row|<cell|<with|color|black|<with|font
+   series|bold|Last editor:>>>|<cell|<with|color|black|font
+   family|tt|<value|author>>>>|<row|<cell|<with|font
+   series|bold|State:>>|<cell|<with|color|black|<with|font
+   family|tt|<value|state>> (<with|font family|tt|Exp>erimental, <with|font
+   family|tt|Sta>ble or <with|font 
family|tt|Rel>eased)>>>|<row|<cell|<with|co\
+   lor|black|<with|font series|bold|Revision:>>>|<cell|<with|color|black|font
+   family|tt|<value|revision>>>>>>>>>>
+ 
+   <assign|tmdoc-translation|<macro|translator|original revision|<with|font
+   size|0.84|color|dark grey|<format|next 
line><tabular|<tformat|<cwith|1|-1|1\
+   |-1|cell background|broken white>|<twith|table
+   width|1par>|<cwith|1|-1|2|2|cell hyphen|t>|<cwith|1|-1|1|1|cell
+   lborder|0.5ln>|<cwith|-1|-1|1|-1|cell bborder|0.5ln>|<cwith|1|1|1|-1|cell
+   tborder|0.5ln>|<cwith|1|-1|-1|-1|cell rborder|0.5ln>|<cwith|1|-1|2|2|cell
+   lsep|0spc>|<cwith|1|1|1|-1|cell tsep|1spc>|<cwith|-1|-1|1|-1|cell
+   bsep|1spc>|<cwith|1|-1|2|2|cell hpart|1>|<cwith|1|-1|1|1|cell
+   halign|r>|<table|<row|<cell|<with|color|black|font
+   series|bold|Translator:>>|<cell|<with|color|black|font
+   family|tt|<arg|translator>>>>|<row|<cell|<with|color|black|font
+   series|bold|Original revision:>>|<cell|<with|color|black|font
+   family|tt|<arg|original revision>>>>>>>>>>
+ 
+   \;
+ 
    
<assign|tmdoc-copyright-ssub|<func|what|<look_up|<value|what>|0><if|<is_tup\
    le|<look_up|<value|what>|1>>|, 
<apply|tmdoc-copyright-ssub|<look_up|<value|\
    what>|1>>>>>

Diff finished at Thu Oct 17 23:38:23