]> (define (article-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "authorgroup") (normalize "author") (normalize "releaseinfo") (normalize "othercredit") (normalize "copyright") (normalize "pubdate") (normalize "revhistory") (normalize "legalnotice") (normalize "abstract"))) (element emphasis ($bold-seq$)) (define (process-contrib #!optional (sosofo (process-children))) (process-children)) (define (process-othercredit #!optional (sosofo (process-children))) (let ((author-name (author-string)) (author-contrib (select-elements (children (current-node)) (normalize "contrib")))) (make sequence font-size: 10pt (if (first-sibling?) (make paragraph (literal "Remerciements a : ")) (empty-sosofo)) (make paragraph (literal author-name) (literal " - ") (process-node-list author-contrib))))) (mode article-titlepage-recto-mode (element contrib (process-contrib)) (element othercredit (process-othercredit)) ) ; Ici, les exigences spécifiques à JRES: (define %generate-article-toc% ;; Should a Table of Contents be produced for Articles? #f) (define %body-font-family% ;; The font family used in body text "Times New Roman") (define %title-font-family% ;; The font family used in titles "Times New Roman") (define %bf-size% ;; Defines the body font size 10pt) (define %left-margin% ;; Width of left margin 1.7cm) (define %right-margin% 1.7cm) (define %bottom-margin% ;; Height of bottom margin 4cm) (define %top-margin% 2cm) (element (abstract) (make sequence font-size: 10pt (literal "Résumé :") ($italic-seq$ (process-children)))) (define %author-title-quadding% 'start) (mode article-titlepage-recto-mode (element address (make paragraph space-after: (* (HSIZE 2) %head-after-factor%) (process-children))) (element email (make sequence (literal "<") ($mono-seq$) (literal ">"))) (element releaseinfo (make display-group font-size: 8pt quadding: %author-title-quadding% (process-children))) (element affiliation (make display-group font-size: 10pt quadding: %author-title-quadding% (process-children))) (element orgname (make display-group quadding: %author-title-quadding% (process-children))) (element author (let ((author-name (author-string)) (author-affil (select-elements (children (current-node)) (normalize "affiliation")))) (make sequence (make paragraph use: article-titlepage-recto-style font-size: 12pt line-spacing: (* (HSIZE 3) %line-spacing-factor%) space-before: (* (HSIZE 2) %head-before-factor%) quadding: %author-title-quadding% keep-with-next?: #t (literal author-name)) (process-node-list author-affil)))) ) (define (page-outer-footer gi) (empty-sosofo)) (define (first-page-outer-footer gi) (empty-sosofo)) (define (page-outer-header gi) (empty-sosofo)) (define (first-page-outer-header gi) (empty-sosofo)) (define %default-quadding% ;; The default quadding 'justify) (define biblio-number ;; Enumerate bibliography entries. ;; Just remember the attribute xreflabel has precedence #t)