[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Subject: DOCBOOK-APPS: Admonition graphics customization
hi, The following DSSSL customization allow to get admonitions the following way in PS/PDF: _______ | | Admonition text here and there. Admonition text here and there. | Adm. | Admonition text here and there. Admonition text here and there. | Graph.| Admonition text here and there. Admonition text here and there. | | Admonition text here and there. Admonition text here and there. |_______| Admonition text here and there. Admonition text here and there. Admonition text here and there. Admonition text here and there. I thaught it might be of interest to some of you. Many thanks to Pascal Lo Re. Camille. ;; Define the size of the admonition picture ;; The size must be placed between quotes. (define %admonImageSize% "24pt") ;; Define the size of the space between the picture and the text ;; and the width of the text (define %admonColumnSpace% "0.3cm") (define %admonTextWidth% "9cm") ;; Redifine of the $graphical-admonition$ function (define ($graphical-admonition$) (let* ((adm (current-node)) (title (select-elements (children adm) (normalize "title"))) (title? (not (node-list-empty? title))) (adm-title (if title? (with-mode title-sosofo-mode (process-node-list (node-list-first title))) (literal (gentext-element-name adm)))) (f-child (node-list-first (children (current-node)))) (r-child (node-list-rest (children (current-node))))) (make display-group space-before: %block-sep% space-after: %block-sep% start-indent: (+ (inherited-start-indent) ($admon-graphic-width$)) font-family-name: %admon-font-family% font-size: (- %bf-size% 1pt) font-weight: 'medium font-posture: 'upright line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%) (if title? (sosofo-append (make paragraph font-family-name: %title-font-family% font-weight: 'bold adm-title) (make formatting-instruction data: (string-append "\\begin{tabular}{rc}\\parbox{" %admonImageSize% "}{\\includegraphics[width=" %admonImageSize% ",keepaspectratio=true]{" ($admon-graphic$) "}}&\\parbox{" %admonTextWidth% "}{")) (process-children) (process-children) (make formatting-instruction data: "}\\end{tabular}") ) (sosofo-append (make formatting-instruction data: (string-append "\\begin{tabular}{c@{\\hspace{" %admonColumnSpace% "}}c}\\parbox{" %admonImageSize% "}{\\vspace{\\baselineskip}\\includegraphics[width=" %admonImageSize% ",keepaspectratio=true]{" ($admon-graphic$) "}}&\\parbox[t]{" %admonTextWidth% "}{")) (process-node-list (children f-child)) (process-node-list r-child) (make formatting-instruction data: "}\\end{tabular}") ) ) ) ) )
[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Powered by eList eXpress LLC