]> (define %inner-footer-literal% (literal "Инфосистемы \"Джет\", " (ru-year))) (define (page-inner-footer gi) (make display-group font-posture: 'italic (make rule line-thickness: 0pt ) ; (debug %inner-footer-literal%) )) ;(define (page-center-footer gi) ; (make display-group ; font-posture: 'italic ; (make rule) ; (literal "1998"))) ;;;This is an option for standalone ARTICLE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (toc-depth nd) (if (string=? (gi nd) "BOOK") 3 3)) (define %generate-article-titlepage-on-separate-page% #t) (define %generate-article-toc% #t) (define %generate-article-toc-on-titlepage% #f) (define %section-autolabel% #t) ;;;This is an option for standalone ARTICLE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (toc-depth nd) (if (string=? (gi nd) "BOOK") 3 3)) (define %generate-article-titlepage-on-separate-page% #t) (define %generate-article-toc% #t) (define %section-autolabel% #t) ;;; REquirements of ЦБ (define %section-title-quadding% 'center) (define %component-title-quadding% 'center) (define %toc-title-quadding% 'center) (define %gentext-ru-chapter% "") (define %gentext-ru-label-title-sep-orderedlist% ") ") (define %generate-article-titlepage-on-separate-page% #f) (define %generate-article-toc% #f) (define %section-autolabel% #f) ;;; REquirements of ЦБ (define %section-title-quadding% 'center) (define %component-title-quadding% 'center) ;;;;; for printing protocols (define %section-title-quadding% 'center) (element XARTICLE (make sequence ; ($$build-titlepage$$) (make simple-page-sequence page-number-restart?: (or %page-number-restart% (book-start?) (first-chapter?)) page-number-format: ($page-number-format$) use: para-style ;; set defaults for text in this simple page sequence ; left-header: ($left-header$) ; center-header: ($center-header$) ; right-header: ($right-header$) ; left-footer: ($left-footer$) ; center-footer: ($center-footer$) ; right-footer: ($right-footer$) start-indent: %body-start-indent% input-whitespace-treatment: 'collapse quadding: %default-quadding% (make sequence ; ($component-title$) ($$generate-toc$$) (process-children)) (make-endnotes)))) ;;;;;;;;;;;;;;;;;;;;; HTML ???? ;;;;;;;;;;;;;;;;;;;; (define %html-ext% ".html") (define %use-id-as-filename% #t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; PROC INSTRUCTIONS ;; nav-banner -- if present then nav-banner? always #t ;; nav-banner-href -- href to some place to which nav-banner is pointing ;; nav-banner-string -- content of nav-banner anchor ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (nav-banner? elemnode) (pi-value (sgml-root-element) "nav-banner")) (define %shade-verbatim% #t) (define %section-autolabel% #t) (define (nav-banner elemnode) (let ((anchor (pi-value (sgml-root-element) "nav-banner-href")) (nav-string (pi-value (sgml-root-element) "nav-banner-string")) (root (sgml-root-element))) (if nav-string (if anchor (make element gi: "a" attributes: `(("href" ,anchor)) (literal nav-string)) (literal nav-string)) (if anchor (make element gi: "a" attributes: `(("href" ,anchor)) (element-title-sosofo root)) (element-title-sosofo root))))) ;;;; currrent daytime ;(define (pp-time->string tm) ; (let* ((d/t (split (time->string tm) '(#\T))) ; (foo (debug d/t)) ; ) ; (string-append (car d/t) " " (car (cdr d/t))))) (element (ARTICLE ARTHEADER DATE) (make paragraph quadding: 'center font-posture: 'bold (literal (ru-date) ", " (ru-time)) (process-children))) (define rtf #f) (define tex #f) (define html #f) ;(define %visual-acuity% "presbyopic") (define %visual-acuity% "normal") (define %paper-type% "A4") (define *output-type* (cond (rtf "rtf") (tex "tex") (else #f))) (define %title-font-family% (case *output-type* (("rtf") "Arial Cyr") ;; (("tex") "Pragmatica") (("tex") "cmss") ( else "Arial"))) (define %body-font-family% (case *output-type* (("rtf") "Times New Roman Cyr") ;; (("tex") "College") (("tex") "cmr") ( else "Times New Roman"))) (define %mono-font-family% (case *output-type* (("rtf") "Courier New Cyr") ;; (("tex") "College") (("tex") "cmtt") ( else "Courier New"))) (define %admon-font-family% (case *output-type* (("rtf") "Arial Cyr") ;; (("tex") "College") (("tex") "cmss") ( else "Arial"))) ;;;;;;;;; optional including comments (element COMMENT (let ((hs (HSIZE 2)) ) (make box display?: #t box-type: 'border line-thickness: 2pt start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt) end-indent: (inherited-end-indent) (make sequence ;; space-before: %para-sep% ;; space-after: %para-sep% ; start-indent: 1em ; end-indent: 1em ; font-family-name: %title-font-family% ; font-weight: 'bold ; font-size: hs ; line-spacing: (* hs %line-spacing-factor%) ; quadding: 'center ;; keep-with-next?: #t (literal "Комментарий: ") (process-children)) ))) ;; -> '(year month day hour min sec) as strings (define (ru-date-time) (split (time->string (time)) '(#\T #\- #\:))) (define (ru-date) (let ((dt (ru-date-time))) (string-append (list-ref dt 2) "/" (list-ref dt 1) "/" (list-ref dt 0)))) (define (ru-time) (car(cdr (split (time->string (time)) '(#\T))))) (define (ru-year) (car (split (time->string (time)) '(#\-))))