Changeset 14329 in project


Ignore:
Timestamp:
04/22/09 07:25:26 (11 years ago)
Author:
Ivan Raikov
Message:

eggdoc converted to Chicken 4 module system.

Location:
release/4/eggdoc
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/eggdoc/eggdoc.scm

    r3273 r14329  
    1 ;;; -*- Scheme -*-
    2 ;; eggdoc $Revision: 1.20 $ $Date: 2006/07/12 16:26:52 $
    3 
    4 (declare
    5  (export
    6   eggdoc:version
     1
     2
     3(module eggdoc
     4 (eggdoc:version
    75  eggdoc:doctype
    86  eggdoc:css
    97  eggdoc:make-stylesheet
    108  eggdoc:make-defsig
    11   eggdoc->html))
     9  eggdoc->html
     10  )
     11                   
     12  (import scheme chicken data-structures )
     13
     14  (require-extension doctype sxml-transforms )
     15
     16
    1217
    1318;; TODO:
     
    1520;;   'verbatim tag and examples would cease to be special.
    1621
    17 (require-extension sxml-transforms)
    18 (require-extension doctype)
    19 
    20 ;(require-extension regex)  ;; just for eggdoc:version
    21 ;(define eggdoc:version (string-search "Revision: ([0-9.]+)" "$Revision: 1.20 $"))
    22 (define eggdoc:version (string-translate "$Revision: 1.20 $" "$"))
    23 
    24 (define eggdoc:doctype (make-parameter doctype:xhtml-1.0-strict))
    25 
    26 ;; CSS text put verbatim between <style>...</style> tags; must be wrapped
    27 ;; in HTML comments.
    28 (define eggdoc:css (make-parameter #<<EOF
    29  <!--
    30       CODE {
    31             color: #666666;
    32           }
    33 /*   DT.definition EM { font-weight: bold; font-style: normal; } */
    34 
    35      DT.definition {
    36                    background: #eee;
     22  (define eggdoc:version (string-translate "$Revision: 1.20 $" "$"))
     23
     24  (define eggdoc:doctype (make-parameter xhtml-1.0-strict))
     25
     26
     27   ;; CSS text put verbatim between <style>...</style> tags; must be wrapped
     28   ;; in HTML comments.
     29  (define eggdoc:css (make-parameter #<<EOF
     30<!--
     31       CODE {
     32             color: #666666;
     33           }
     34 /*   DT.definition EM { font-weight: bold; font-style: normal; } */
     35;      DT.definition {
     36                    background: #eee;
    3737                   color: black;
    3838                   padding: 0.2em 1em 0.2em 0.7em;
     
    351351    (SRV:send-reply (pre-post-order doc ss))))
    352352
     353)
  • release/4/eggdoc/eggdoc.setup

    r14319 r14329  
    1 ;;;; eggdoc.setup -*- Scheme -*-
     1;;;; eggdoc.setup -*- Hen -*-
    22
    33(compile -s -O2 -d0 eggdoc.scm -j eggdoc)
Note: See TracChangeset for help on using the changeset viewer.