src/TeXmacs/packages/header/title-base.ts

   1 <TeXmacs|1.0.7.4>
   2
   3 <style|<tuple|source|std-pattern>>
   4
   5 <\body>
   6   <active*|<\src-title>
   7     <src-package-dtd|title-base|1.0|header-title|1.0>
   8
   9     <\src-purpose>
  10       Common macros for title information
  11     </src-purpose>
  12
  13     <src-copyright|1998--2004|Joris van der Hoeven>
  14
  15     <\src-license>
  16       This software falls under the <hlink|GNU general public license,
  17       version 3 or later|$TEXMACS_PATH/LICENSE>. It comes WITHOUT ANY
  18       WARRANTY WHATSOEVER. You should have received a copy of the license
  19       which the software. If not, see <hlink|http://www.gnu.org/licenses/gpl-3.0.html|http://www.gnu.org/licenses/gpl-3.0.html>.
  20     </src-license>
  21   </src-title>>
  22
  23   <\active*>
  24     <\src-comment>
  25       Special texts.
  26     </src-comment>
  27   </active*>
  28
  29   <assign|by-text|<macro|<localize|by>>>
  30
  31   <assign|email-text|<macro|<localize|Email>>>
  32
  33   <assign|homepage-text|<macro|<localize|Web>>>
  34
  35   <assign|abstract-text|<macro|<localize|Abstract>>>
  36
  37   <assign|keywords-text|<macro|<localize|Keywords>>>
  38
  39   <assign|AMS-class-text|<macro|<localize|A.M.S. subject classification>>>
  40
  41   <assign|with-TeXmacs-text|<macro|This document has been written using the
  42   GNU <TeXmacs> text editor (see <hlink|<with|font-family|tt|www.texmacs.org>|http://www.texmacs.org>).>>
  43
  44   <\active*>
  45     <\src-comment>
  46       DRD properties of tags with title and author data.
  47
  48       FIXME: running title and author should be made ``hidden''.
  49     </src-comment>
  50   </active*>
  51
  52   <drd-props|doc-data|arity|<tuple|repeat|1|1>|accessible|all>
  53
  54   <drd-props|doc-title|border|no>
  55
  56   <drd-props|doc-subtitle|border|no>
  57
  58   <drd-props|doc-author-data|arity|<tuple|repeat|1|1>|border|no|accessible|all>
  59
  60   <drd-props|doc-date|border|no>
  61
  62   <drd-props|doc-note|border|no>
  63
  64   <drd-props|doc-inactive|arity|1|border|no|accessible|all>
  65
  66   <drd-props|doc-running-title|arity|1|accessible|all>
  67
  68   <drd-props|doc-running-author|arity|1|accessible|all>
  69
  70   <drd-props|doc-keywords|arity|<tuple|repeat|1|1>|accessible|all>
  71
  72   <drd-props|doc-AMS-class|arity|<tuple|repeat|1|1>|accessible|all>
  73
  74   <drd-props|author-name|border|no>
  75
  76   <drd-props|author-address|border|no>
  77
  78   <drd-props|author-email|border|no>
  79
  80   <drd-props|author-homepage|border|no>
  81
  82   <drd-props|author-note|border|no>
  83
  84   <\active*>
  85     <\src-comment>
  86       Rendering the title.
  87     </src-comment>
  88   </active*>
  89
  90   <assign|doc-title-block|<macro|body|<tabular*|<tformat|<twith|table-width|1par>|<cwith|1|1|1|1|cell-lsep|0spc>|<cwith|1|1|1|1|cell-rsep|0spc>|<cwith|1|1|1|1|cell-bsep|0spc>|<cwith|1|1|1|1|cell-tsep|0spc>|<cwith|1|1|1|1|cell-hyphen|t>|<table|<row|<\cell>
  91     <\with|par-mode|center>
  92       <arg|body>
  93     </with>
  94   </cell>>>>>>>
  95
  96   <assign|doc-make-title|<macro|body|<surround||<vspace|2fn>|<doc-title-block|<arg|body>>>>>
  97
  98   <assign|doc-render-title|<macro|x|<\surround|<vspace*|0.5fn>|<vspace|0.5fn>>
  99     <doc-title-block|<font-magnify|1.682|<with|math-font-series|bold|font-series|bold|<arg|x>>>>
 100   </surround>>>
 101
 102   <assign|doc-title|<macro|body|<doc-render-title|<style-with|src-compact|none|<arg|body><doc-footnote-ref|<quasi|<doc-data-note|<unquote*|<quote-value|the-doc-data>>>>>>>>>
 103
 104   <assign|doc-subtitle|<macro|x|<\surround|<vspace*|0.25fn>|<vspace|0.5fn>>
 105     <doc-title-block|<font-magnify|1.297|<with|math-font-series|bold|font-series|bold|<arg|x>>>>
 106   </surround>>>
 107
 108   <assign|doc-author|<macro|body|<\surround|<vspace*|1fn>|<vspace|1fn>>
 109     <\with|par-par-sep|0fn>
 110       <doc-title-block|<arg|body>>
 111     </with>
 112   </surround>>>
 113
 114   <assign|doc-authors|<\macro|body>
 115     <\doc-author>
 116       <font-magnify|0.917|<arg|body>>
 117     </doc-author>
 118   </macro>>
 119
 120   <assign|doc-date|<macro|body|<style-with|src-compact|none|<vspace*|0.5fn><doc-title-block|<with|font-shape|italic|<arg|body>>><vspace|0.5fn>>>>
 121
 122   <assign|doc-running-title|<macro|body|<if|<unequal|<arg|body>|<uninit>>|<header-title|<arg|body>>>>>
 123
 124   <assign|doc-running-author|<macro|body|<if|<unequal|<arg|body>|<uninit>>|<header-author|<arg|body>>>>>
 125
 126   <assign|doc-inactive|<\macro|body>
 127     <\quasi>
 128       <\surround|<vspace*|0.5fn>|>
 129         <doc-title-block|<style-with|src-compact|none|<inline-tag|<unquote|<get-label|<quote-arg|body>>>|<unquote*|<quote-arg|body>>>>>
 130       </surround>
 131     </quasi>
 132   </macro>>
 133
 134   <active*|<src-short-comment|For backward compatability>>
 135
 136   <assign|address-block|<macro|x|<tformat|<cwith|1|-1|1|1|cell-lsep|1.5fn>|<cwith|1|-1|-1|-1|cell-rsep|1.5fn>|<twith|table-valign|T>|<arg|x>>>>
 137
 138   <\active*>
 139     <\src-comment>
 140       Rendering the abstract.
 141     </src-comment>
 142   </active*>
 143
 144   <assign|doc-abstract|<\macro|body>
 145     <\padded-normal|2fn|1fn>
 146       <\with|par-left|15mm|par-right|15mm>
 147         <\small>
 148           <sectional-centered-bold|<abstract-text>><vspace|0.5fn>
 149
 150           <arg|body>
 151         </small>
 152       </with>
 153     </padded-normal>
 154   </macro>>
 155
 156   <assign|doc-abstract*|<\macro|body|note>
 157     <\quasi>
 158       <\doc-abstract>
 159         <surround||<vspace|0.5fn>|<unquote|<quote-arg|body>>>
 160
 161         <\with|par-par-sep|0.25fn>
 162           <unquote*|<arg|note>>
 163         </with>
 164       </doc-abstract>
 165     </quasi>
 166   </macro>>
 167
 168   <assign|doc-keywords|<xmacro|args|<style-with|src-compact|none|<no-indent><theorem-name|<keywords-text><localize|:>
 169   ><concat-tuple|<copy|<quote-arg|args>>|, >>>>
 170
 171   <assign|msc-ref|<macro|x|<style-with|src-compact|none|<hlink|<arg|x>|<style-with|src-compact|none|<merge|http://www.ams.org/mathscinet/search/mscbrowse.html?sk=default&sk=|<arg|x>|&submit=Search>>>>>>
 172
 173   <assign|doc-AMS-class|<xmacro|args|<style-with|src-compact|none|<no-indent><theorem-name|<AMS-class-text><localize|:>
 174   ><concat-tuple|<copy|<map|msc-ref|<quote-arg|args>>>|, >>>>
 175
 176   \;
 177
 178   <assign|abstract|<\macro|body>
 179     <style-with|src-compact|none|<with|abstract-note|<look-up|<quasi|<doc-data-abstract|<unquote*|<quote-value|the-doc-data>>>>|0>|<style-with|src-compact|none|<compound|<style-with|src-compact|none|<if|<equal|<get-arity|<quote-value|abstract-note>>|0>|doc-abstract|doc-abstract*>>|<arg|body>|<quote-value|abstract-note>>>>>
 180   </macro>>
 181
 182   <\active*>
 183     <\src-comment>
 184       Rendering footnotes.
 185     </src-comment>
 186   </active*>
 187
 188   <new-counter|doc-note>
 189
 190   <assign|the-doc-note|<macro|<number|<value|doc-note-nr>|fnsymbol>>>
 191
 192   <assign|doc-author-note-next|<macro|<inc-doc-note><the-doc-note>>>
 193
 194   \;
 195
 196   <assign|doc-footnote-ref|<macro|body|<style-with|src-compact|none|<if|<quasi|<unequal|<get-arity|<unquote|<quote-arg|body>>>|0>>|<rsup|<doc-author-note-next>>>>>>
 197
 198   <assign|doc-footnote-sub|<macro|x|; <arg|x>>>
 199
 200   <assign|doc-footnote|<macro|body|<style-with|src-compact|none|<if|<unequal|<get-arity|<quote-arg|body>>|0>|<quasi|<style-with|src-compact|none|<render-footnote|<unquote|<doc-author-note-next>>|<arg|body|0><map-args|doc-footnote-sub|concat|body|1>>>>>>>>
 201
 202   \;
 203
 204   <assign|doc-title-note|<macro|body|<quasi|<doc-footnote|<unquote|<quote-arg|body>>>>>>
 205
 206   <assign|doc-author-note|<macro|body|<quasi|<doc-footnote|<unquote|<quote-arg|body>>>>>>
 207
 208   <\active*>
 209     <\src-comment>
 210       Document titles.
 211     </src-comment>
 212   </active*>
 213
 214   <assign|doc-data-main|<\xmacro|data>
 215     <\quasi>
 216       <unquote*|<select|<quote-arg|data>|doc-title>>
 217
 218       <unquote*|<select|<quote-arg|data>|doc-subtitle>>
 219
 220       <unquote*|<select|<quote-arg|data>|doc-author-data>>
 221
 222       <unquote*|<select|<quote-arg|data>|doc-date>>
 223
 224       <unquote*|<select|<quote-arg|data>|doc-inactive>>
 225     </quasi>
 226   </xmacro>>
 227
 228   <assign|doc-data-main*|<\xmacro|data>
 229     <\quasi>
 230       <unquote*|<select|<quote-arg|data>|doc-title>>
 231
 232       <unquote*|<select|<quote-arg|data>|doc-subtitle>>
 233
 234       <doc-authors-data|<unquote*|<select|<quote-arg|data>|doc-author-data>>>
 235
 236       <unquote*|<select|<quote-arg|data>|doc-date>>
 237
 238       <unquote*|<select|<quote-arg|data>|doc-inactive>>
 239     </quasi>
 240   </xmacro>>
 241
 242   <assign|doc-note|<macro|body|>><active*|<src-short-comment|Added as a
 243   temporary fix for problem with doc-note>>
 244
 245   <assign|doc-data-hidden|<xmacro|data|<quasi|<style-with|src-compact|none|<style-with|src-compact|none|<doc-note|<unquote*|<select|<quote-arg|data>|doc-note>>>><doc-data-bis|<unquote*|<quote-arg|data>>><doc-authors-data-bis|<unquote*|<select|<quote-arg|data>|doc-author-data>>><style-with|src-compact|none|<doc-running-title|<unquote*|<select|<quote-arg|data>|doc-title|0>>>><style-with|src-compact|none|<doc-running-title|<unquote*|<select|<quote-arg|data>|doc-running-title|0>>>><doc-running-author|<style-with|src-compact|none|<author-from-authors|<unquote*|<select|<quote-arg|data>|doc-author-data|author-name|0>>>>><style-with|src-compact|none|<doc-running-author|<unquote*|<select|<quote-arg|data>|doc-running-author|0>>>>>>>>
 246
 247   <assign|doc-data-abstract|<\xmacro|data>
 248     <\quasi>
 249       <unquote*|<select|<quote-arg|data>|doc-keywords>>
 250
 251       <unquote*|<select|<quote-arg|data>|doc-AMS-class>>
 252     </quasi>
 253   </xmacro>>
 254
 255   <assign|doc-data-note|<xmacro|data|<\quasi>
 256     <unquote*|<select|<quote-arg|data>|doc-note|document|<pat-any>>>
 257   </quasi>>>
 258
 259   <assign|doc-data|<\xmacro|data>
 260     <style-with|src-compact|none|<\surround|<assign|the-doc-data|<quote-arg|data>>|<with|doc-note-nr|0|<quasi|<doc-data-hidden|<unquote*|<quote-arg|data>>>>>>
 261       <\doc-make-title>
 262         <with|doc-note-nr|0|<\quasi>
 263           <style-with|src-compact|none|<compound|<unquote|<style-with|src-compact|none|<if|<lesseq|<length|<select|<quote-arg|data>|doc-author-data>>|1>|<value|doc-data-main>|<value|doc-data-main*>>>>|<unquote*|<quote-arg|data>>>>
 264         </quasi>>
 265       </doc-make-title>
 266     </surround>>
 267   </xmacro>>
 268
 269   <assign|doc-data-bis|<xmacro|body|<quasi|<style-with|src-compact|none|<doc-title-note|<unquote|<quasi|<doc-data-note|<unquote*|<quote-arg|body>>>>>>>>>>
 270
 271   <\active*>
 272     <\src-comment>
 273       Rendering author infomation.
 274     </src-comment>
 275   </active*>
 276
 277   <assign|doc-author-block|<\macro|body>
 278     <style-with|src-compact|none|<space|0pt><tabular*|<tformat|<cwith|1|1|1|1|cell-lsep|0spc>|<cwith|1|1|1|1|cell-rsep|0spc>|<cwith|1|1|1|1|cell-bsep|0spc>|<cwith|1|1|1|1|cell-tsep|0spc>|<cwith|1|1|1|1|cell-hyphen|t>|<cwith|1|1|1|1|cell-hmode|min>|<cwith|1|1|1|1|cell-width|1par>|<table|<row|<\cell>
 279       <\with|par-mode|center>
 280         <arg|body>
 281       </with>
 282     </cell>>>>>>
 283   </macro>>
 284
 285   <assign|author-by|<macro|body|<by-text> <arg|body>>>
 286
 287   <assign|author-from-authors*|<macro|x|, <arg|x>>>
 288
 289   <assign|author-from-authors|<xmacro|x|<style-with|src-compact|none|<if|<unequal|<get-arity|<quote-arg|x>>|0>|<arg|x|0><map-args|author-from-authors*|concat|x|1>>>>>
 290
 291   <assign|author-render-name|<macro|x|<surround|<vspace*|0.5fn>|<vspace|0.5fn>|<doc-author-block|<name|<arg|x>>>>>>
 292
 293   <assign|author-name|<macro|x|<author-render-name|<style-with|src-compact|none|<author-by|<arg|x>><style-with|src-compact|none|<doc-footnote-ref|<quasi|<doc-author-data-note|<unquote*|<quote-value|the-author-data>>>>>>>>>>
 294
 295   <assign|author-address|<\macro|x>
 296     <surround|<vspace*|0.5fn>|<vspace|0.5fn>|<doc-author-block|<arg|x>>>
 297   </macro>>
 298
 299   <assign|author-email|<macro|x|<doc-author-block|<style-with|src-compact|none|<with|font-shape|italic|<email-text><localize|:>
 300   ><with|font-family|tt|<arg|x>>>>>>
 301
 302   <assign|author-homepage|<macro|x|<doc-author-block|<style-with|src-compact|none|<with|font-shape|italic|<homepage-text><localize|:>
 303   ><with|font-family|tt|<arg|x>>>>>>
 304
 305   <assign|author-note|<\macro|x>
 306     <arg|x>
 307   </macro>>
 308
 309   <\active*>
 310     <\src-comment>
 311       Documents with one author.
 312     </src-comment>
 313   </active*>
 314
 315   <assign|doc-author-main|<\macro|data>
 316     <\quasi>
 317       <unquote*|<select|<quote-arg|data>|author-name>>
 318
 319       <unquote*|<select|<quote-arg|data>|author-address>>
 320
 321       <unquote*|<select|<quote-arg|data>|author-email>>
 322
 323       <unquote*|<select|<quote-arg|data>|author-homepage>>
 324     </quasi>
 325   </macro>>
 326
 327   <assign|doc-author-data-note|<xmacro|data|<\quasi>
 328     <unquote*|<select|<quote-arg|data>|author-note|document|<pat-any>>>
 329   </quasi>>>
 330
 331   <assign|doc-author-data|<\xmacro|data>
 332     <\quasi>
 333       <\with|the-author-data|<quote-arg|data>>
 334         <\doc-author>
 335           <doc-author-block|<doc-author-main|<unquote|<quote-arg|data>>>>
 336         </doc-author>
 337       </with>
 338     </quasi>
 339   </xmacro>>
 340
 341   <assign|doc-author-data-bis|<macro|body|<quasi|<style-with|src-compact|none|<doc-author-note|<unquote|<quasi|<doc-author-data-note|<unquote*|<quote-arg|body>>>>>>>>>>
 342
 343   <\active*>
 344     <\src-comment>
 345       Documents with several authors.
 346     </src-comment>
 347   </active*>
 348
 349   <assign|doc-authors-block|<\macro|body>
 350     <style-with|src-compact|none|<space|0pt><tabular*|<tformat|<twith|table-valign|T>|<cwith|1|1|1|1|cell-lsep|0spc>|<cwith|1|1|1|1|cell-rsep|0spc>|<cwith|1|1|1|1|cell-bsep|0.75fn>|<cwith|1|1|1|1|cell-tsep|0.75fn>|<cwith|1|1|1|1|cell-hyphen|t>|<cwith|1|1|1|1|cell-hmode|min>|<cwith|1|1|1|1|cell-width|1par>|<table|<row|<\cell>
 351       <\with|par-mode|center>
 352         <arg|body>
 353       </with>
 354     </cell>>>>>>
 355   </macro>>
 356
 357   <assign|doc-author-data*|<macro|data|<quasi|<style-with|src-compact|none|<space|1em><with|the-author-data|<quote-arg|data>|<style-with|src-compact|none|<doc-authors-block|<doc-author-main|<unquote|<quote-arg|data>>>>>><space|1em><line-break>>>>>
 358
 359   <assign|doc-authors-data|<\xmacro|data>
 360     <\style-with|src-compact|none>
 361       <\quasi>
 362         <\with|author-by|<macro|body|<arg|body>>>
 363           <\doc-authors>
 364             <space|0spc><unquote*|<map|doc-author-data*|<quote-arg|data>>>
 365           </doc-authors>
 366         </with>
 367       </quasi>
 368     </style-with>
 369   </xmacro>>
 370
 371   <assign|doc-authors-data-bis|<xmacro|x|<style-with|src-compact|none|<quasi|<space|0spc><unquote*|<map|doc-author-data-bis|<quote-arg|x>>>>>>>
 372
 373   \;
 374 </body>
 375
 376 <\initial>
 377   <\collection>
 378     <associate|preamble|true>
 379   </collection>
 380 </initial>