Changeset 15505 in project

Timestamp:

08/17/09 04:38:34 (10 years ago)

Author:

Ivan Raikov

Message:

Some fixes to the qwiki LaTeX driver

File:

• release/4/qwiki/trunk/qwiki-sxml.scm (modified) (10 diffs)

release/4/qwiki/trunk/qwiki-sxml.scm

@@ -43 +43 @@
 (import chicken scheme)
 
-(use posix srfi-1 srfi-13 data-structures regex)
+(use posix srfi-1 srfi-13 data-structures regex )
 (use sxml-transforms doctype uri-generic)
 
@@ -237 +237 @@
         "\\end{" env-name "}" nl))
 
-(define (LaTeX-use-package package-name options)
+(define (LaTeX-use-package package-name . options)
   (list "\\usepackage{" package-name "}" 
         (if (pair? options) (list "[" options "]") '()) 
         nl))
+
+(define (LaTeX-label str)
+  (define (f0 str)
+    (let* ((cs   (string-split str " "))
+           (ins  (map (lambda (s) 
+                        (let ((s (string-downcase s)))
+                          (string-copy s 0 (min 3 (- (string-length s) 1))))) cs)))
+      (string-concatenate ins)))
+  (cond ((pair? str)   (string-concatenate (map f0 str)))
+        (else          (f0 (->string str)))))
 
 (define (qwiki-LaTeX-transformation-rules content)
@@ -300 +310 @@
                    ((4) "subsubsection")
                    (else (error "unsupported section level: " level)))
-                 "{" head-word elems "}" nl)))
+                 "{" head-word elems "}"  nl
+                 (if (= level 1) 
+                     (list "\\label{" (LaTeX-label head-word)  "}") 
+                     (list)) nl)))
 
      (TOC . ,(lambda (tag . elems) (list nl "\\tableofcontents{}" nl)))
@@ -321 +334 @@
       . ,(lambda (tag href . contents)
            (add-LaTeX-package! 'hyperref "hypertex")
-           `("\\href{" (href ,href) "}"
-             "{" ,(if (pair? contents) contents href) "}")))
+           `((tex "\\hyperref[" ,(LaTeX-label href) "]")
+             (tex "{") 
+             ,(if (null? contents) href (or contents href)) 
+             (tex "}"))))
 
      ; Standard typography
+     (small
+      . ,(lambda (tag . elems)
+           (list "{\\small{}" elems "}")))
+
+     (strong
+      . ,(lambda (tag . elems)
+           (list "{\\rmfamily\\bfseries{}" elems "}")))
+
+     (type
+      . ,(lambda (tag . elems)
+           (list "{\\ttfamily{}" elems "}")))
+
      (em
       . ,(lambda (tag . elems)
@@ -340 +367 @@
       . ,(lambda (tag)
            (list "\\\\ ")))
+
+     (hr . ,(lambda (tag) 
+              (list "\\begin{center}" 
+                    "\\rule{0.8\\textwidth}{0.4pt}" 
+                    "\\end{center}" nl)))
 
      (indent
@@ -384 +416 @@
         
 
-     (blockquote
-      . ,(lambda (tag . elems)
-           (in-LaTeX-env "quote" '() elems)))
-
-     (definition
-       *macro*
-       . ,(lambda (_ type . contents)
-            (in-LaTeX-env "description" '()
-                        `(type ,@contents))))
-     
      (special
       *macro*
@@ -399 +421 @@
            `(,(string->symbol (string-upcase (symbol->string name))) ,arg)))
 
+     (definition
+       . ,(lambda (_ type . elems)
+            (in-LaTeX-env "description" '()
+               (list "{\\ttfamily{}" elems "}"))))
+
+     (blockquote
+      . ,(lambda (tag . elems)
+           (in-LaTeX-env "quote" '() elems)))
+
      (preformatted
       *macro*
@@ -404 +435 @@
            `(verbatim ,elems)))
           
-     (type
-      *macro*
-      . ,(lambda (tag . terms)
-           `("\\begin{texttt}" ,@terms "\\end{texttt}")))
-
 
      (verbatim  ; set off pieces of code: one or several lines
@@ -624 +650 @@
 
 
-     (small
-      . ,(lambda (tag . elems)
-           (list "{\\small{}" elems "}")))
-
-     (strong
-      . ,(lambda (tag . elems)
-           (list "{\\rmfamily\\bfseries{}" elems "}")))
-
      (history . ,(lambda (history items) (list)))
      (page-specific-links . ,(lambda _ (list)))
@@ -637 +655 @@
      (tex      ; raw tex expression
        *preorder*
-       . ,(lambda (tag str) str))
+       . ,(lambda (tag . str) str))
             
      )))