From 6967171048c6a06e904a84bafd918ac9f575a221 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 26 Oct 2007 08:37:23 +0000 Subject: full documentation about KA method --- docs/ka_method/docbook-jadetex.dsssl | 450 +++++++++++++++++++++++++++++++++++ 1 file changed, 450 insertions(+) create mode 100644 docs/ka_method/docbook-jadetex.dsssl (limited to 'docs/ka_method/docbook-jadetex.dsssl') diff --git a/docs/ka_method/docbook-jadetex.dsssl b/docs/ka_method/docbook-jadetex.dsssl new file mode 100644 index 000000000..5b7d8b96d --- /dev/null +++ b/docs/ka_method/docbook-jadetex.dsssl @@ -0,0 +1,450 @@ + +]> + + + + + + + +;;####################################################################### +;; Change the parameters below at your envy... +;;####################################################################### + +;;====================================== +;;General Options +;;====================================== + +;;Do you want to print on both sides of the paper? +(define %two-side% #f) + +;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.) +(define %section-autolabel% #t) + +;;Show URL links? If the text of the link and the URL are identical, +;;the parenthetical URL is suppressed. +(define %show-ulinks% #t) + +;; footnotes at the bottom of each page (and not chapter) +(define bop-footnotes #t) + +;Make Ulinks footnotes to stop bleeding in the edges - this increases +;'jade --> print' time tremendously keep this in mind before +;complaining! +(define %footnote-ulinks% #t) + +(define %no-shade-screen% #f) + +;;Tex Backend on +(define tex-backend #t) + +;;Define Line Spacing +(define %line-spacing-factor% 1.1) + +;;Define the Paragraph Style +;;(define para-style +;; (style +;; font-size: %bf-size% +;; color: *blue* +;; font-weight: 'medium +;; font-posture: 'upright +;; font-family-name: %body-font-family% +;; line-spacing: (* %bf-size% %line-spacing-factor%))) + +(define ($object-titles-after$) + (list (normalize "figure"))) + +;;====================================== +;;Book Options +;;====================================== + +;;Do you want a title page for a Book? +(define %generate-book-titlepage% #t) + +;;Do you want a separate page for the title? +(define %generate-book-titlepage-on-separate-page% #f) + +;;Generate Book TOC? +(define %generate-book-toc% #t) + +;;What depth should the TOC generate? +;;!Only top level of appendixes! +(define (toc-depth nd) + (if (string=? (gi nd) (normalize "book")) + 3 + (if (string=? (gi nd) (normalize "appendix")) + 0 + 1))) + +;;Do you want a TOC for the element part? +(define %generate-part-toc% #f) + +;;Do you want the part toc on the part titlepage or separate? +;(define %generate-part-toc-on-titlepage% +; #t) + +;;Generate Part Title Page? +(define %generate-part-titlepage% #f) + +;;Do you want the Part intro on the part title page? +(define %generate-partintro-on-titlepage% #f) + +;;What elements should have a LOT? +(define ($generate-book-lot-list$) + (list (normalize "equation"))) + +;;Do you want chapters enumerated? +(define %chapter-autolabel% #t) + +;;Do you want Chapter's and Appendix's +;;to have automatic labels? +(define %chap-app-running-head-autolabel% #f) + +;;====================================== +;;Article Options +;;====================================== + +;;Do you want a title page for an Article? +(define %generate-article-titlepage% + #t) + +;;Generate Article TOC? +(define %generate-article-toc% + #t) + +;;Do you want a separate page for the title? +(define %generate-article-titlepage-on-separate-page% + #t) + +;;Do you want the article toc on the titlepage or separate? +(define %generate-article-toc-on-titlepage% + #t) + +;;Do you want to start new page numbers with each article? +(define %article-page-number-restart% + #f) + +;;Titlepage Separate? +(define (chunk-skip-first-element-list) + '()) + +;;Titlepage Not Separate +;(define (chunk-skip-first-element-list) +; (list (normalize "sect1") +; (normalize "section"))) + +;;====================================== +;;Columns +;;====================================== + +;;How many columns do you want? +(define %page-n-columns% 1) + +;;How much space between columns? +(define %page-column-sep% 0.2in) + +;;How many Columns on the titlepage? +(define %titlepage-n-columns% 1) + +;;Balance columns? +(define %page-balance-colums% #t) + +;;====================================== +;;Fonts +;;====================================== + +;;Defines the general size of the text in the document. normal(10), +;;presbyopic(12), and large-type(24). +(define %visual-acuity% "normal") + +;;What font would you like for titles? +(define %title-font-family% "Helvetica") + +;;What font would you like for the body? +(define %body-font-family% "Palatino") + +;;What font would you like for mono-seq? +(define %mono-font-family% "Courier New") + +;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is +;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc +(define %hsize-bump-factor% + 1.1) + +;;What size do you want the body fonts? +(define %bf-size% + (case %visual-acuity% + (("tiny") 8pt) + (("normal") 10pt) + (("presbyopic") 12pt) + (("large-type") 24pt))) + +(define-unit em %bf-size%) + +;;====================================== +;;Margins +;;====================================== + +(define %left-right-margin% 2pi) + +;;How much indentation for the body? +(define %body-start-indent% 1pt) + +;;How big is the left margin? (relative to physical page) +(define %left-margin% 2pi) ;white-paper-column + +;;How big is the right margin? (relative to physical page) +(define %right-margin% 2pi) ;white-paper-column + +;;How big do you want the margin at the top? +(define %top-margin% +(if (equal? %visual-acuity% "large-type") + 7.5pi + 6pi)) + +;;How big do you want the margin at the bottom? +(define %bottom-margin% + (if (equal? %visual-acuity% "large-type") + 7.5pi + 6pi)) + +;;Define the text width. (Change the elements in the formula rather +;;than the formula itself) +;(define %text-width% (- %page-width% (* %left-right-margin% 2))) +(define %text-width% (- %page-width% (+ %left-margin% %right-margin%))) + +;;Define the body width. (Change the elements in the formula rather +;;than the formula itself) +(define %body-width% (- %text-width% %body-start-indent%)) + +;;Define distance between paragraphs +(define %para-sep% (/ %bf-size% 2.0)) + +;;Define distance between block elements (figures, tables, etc.). +(define %block-sep% (* %para-sep% 2.0)) + +;;Indent block elements? +(define %block-start-indent% 0pt) +;0pt + +;;====================================== +;;Admon Graphics +;;====================================== + +;;Do you want admon graohics on? +(define %admon-graphics% #t) + +;;Where are the admon graphics? +(define %admon-graphics-path% "images/") + +;;====================================== +;;Quadding +;;====================================== + +;;What quadding do you want by default; start, center, justify, or end? +(define %default-quadding% 'justify) + +;;What quadding for component titles(Chapter, Appendix, etc)? +(define %component-title-quadding% 'start) + +;;What quadding for section titles? +(define %section-title-quadding% 'start) + +;;What quadding for section sub-titles? +(define %section-subtitle-quadding% 'start) + +;;What quadding for article title? +(define %article-title-quadding% 'center) + +;;What quadding for article sub-titles? +(define %article-subtitle-quadding% 'center) + +;;What quadding for division subtitles? +(define %division-subtitle-quadding% 'start) + +;;What quadding for component subtitles? +(define %component-subtitle-quadding% 'start) + +(define box-start-indent .25in) +(define box-end-indent 5in) + +;;====================================== +;;Paper Options +;;====================================== + +;;What size paper do you need? A4, A5, USletter or USlandscape? +(define %paper-type% + "A4") + +;;Now define those paper types' width +(define %page-width% + (case %paper-type% + (("A4") 210mm) + (("A5") 148.5mm) + (("USletter") 8.5in) + (("USlandscape") 11in))) + +;;Now define those paper types' height +(define %page-height% + (case %paper-type% + (("A4") 297mm) + (("A5") 210mm) + (("USletter") 11in) + (("USlandscape") 8.5in))) + +;;Callouts are confusing in Postscript... fix them. +(define %callout-fancy-bug% #t) + +(define *rgb-color-space* + (color-space "ISO/IEC 10179:1996//Color-Space Family::Device RGB")) +(define *bluet* + (color *rgb-color-space* (/ 16 255) (/ 73 255) (/ 148 255))) +(define *grey* + (color *rgb-color-space* (/ 231 255) (/ 231 255) (/ 231 255))) +(define *bluec* + (color *rgb-color-space* (/ 74 255) (/ 97 255) (/ 173 255))) +(define *black* + (color *rgb-color-space* 0 0 0)) +(define *white* + (color *rgb-color-space* 1 1 1)) + +(element (book title) + (make sequence + color: *black* + ) + ) + +(element (chapter title) + (make paragraph + end-indent: 0.3cm + quadding: 'center + (make box + font-size: 16pt + font-weight: 'bold + background-color: *bluet* + color: *white* + ) + (empty-sosofo) + ) + ) + +(element (title) + (make paragraph + end-indent: 0.3cm + (make box + font-size: 13pt + font-posture: 'oblique + background-color: *bluec* + color: *white* + ) + (empty-sosofo) + ) + ) + +(element (para) + (make sequence + (make paragraph + space-before: 0.3cm + font-size: 10pt + color: *black* + ) + (empty-sosofo) + ) + ) + +(element (itemizedlist) + (make box + background-color: *grey* + color: *black* + ) + ) + +(element (orderedlist) + (make box + background-color: *grey* + color: *black* + ) + ) + +;;====================================== +;;Non-printing Elements +;;====================================== +;;(element TITLEABBREV (empty-sosofo)) +;;(element SUBTITLE (empty-sosofo)) +;;(element SETINFO (empty-sosofo)) +;;(element BOOKINFO (empty-sosofo)) +;;(element BIBLIOENTRY (empty-sosofo)) +;;(element BIBLIOMISC (empty-sosofo)) +;;(element BOOKBIBLIO (empty-sosofo)) +;;(element SERIESINFO (empty-sosofo)) +;;(element DOCINFO (empty-sosofo)) +;;(element ARTHEADER (empty-sosofo)) +;;(element revhistory (empty-sosofo)) +;;(element ADDRESS (empty-sosofo)) + +;;Show comment element? +(define %show-comments% + #t) + +;;====================================== +;;Formalpara titles +;;====================================== + + +;;Change the way Formal Paragraph titles are displayed. The commented +;;out section will run the titles in the paragraphs. +(element (formalpara title) + ;(make sequence + ;font-weight: 'bold + ;($runinhead$)) + ($lowtitle$ 5 7)) + +;;====================================== +;;Inlines +;;====================================== + +(element application ($mono-seq$)) +(element command ($bold-seq$)) +(element filename ($mono-seq$)) +(element function ($mono-seq$)) +(element guibutton ($bold-seq$)) +(element guiicon ($bold-seq$)) +(element guilabel ($italic-seq$)) +(element guimenu ($bold-seq$)) +(element guimenuitem ($bold-seq$)) +(element hardware ($bold-mono-seq$)) +(element keycap ($bold-seq$)) +(element literal ($mono-seq$)) +(element parameter ($italic-mono-seq$)) +(element prompt ($mono-seq$)) +(element symbol ($charseq$)) +(element emphasis ($italic-seq$)) + + + + + \ No newline at end of file -- cgit v1.2.1