← Back to branch summary

~ubuntu-branches/ubuntu/saucy/texmacs/saucy-proposed

« back to all changes in this revision

Viewing changes to TeXmacs/progs/convert/html/tmhtml.scm

  • Committer: Bazaar Package Importer
  • Author(s): Atsuhito KOHDA
  • Date: 2011-04-04 13:58:09 UTC
  • mfrom: (4.1.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110404135809-6f6jvotefb694vgp
Tags: 1:1.0.7.10-1
http://bugs.debian.org/582228
* New Upstream Release.
* Added gostscript to Build-Depends.  (Closes: #582228)

Show diffs side-by-side

added added

removed removed

Lines of Context:
TeXmacs/progs/convert/html/tmhtml.scm
167
167
                       `(concat ,(tmhtml-force-string title)
168
168
                                " (FSF GNU project)"))
169
169
                      (else (tmhtml-force-string title))))
170
 
    (if (or (in? "tmdoc" styles) (in? "tmweb" styles) (in? "mmxdoc" styles))
171
 
        (with ss (if (in? "mmxdoc" styles)
 
170
    (if (or (in? "tmdoc" styles) (in? "tmweb" styles)
 
171
            (in? "mmxdoc" styles) (in? "magix-web" styles))
 
172
        (with ss (if (or (in? "mmxdoc" styles) (in? "magix-web" styles))
172
173
                     "http://www.texmacs.org/css/mmxdoc.css"
173
174
                     "http://www.texmacs.org/css/tmdoc.css")
174
175
          (set! css `(h:link (@ (rel "stylesheet")
683
684
           (string-append (number->htmlstring val) "px"))
684
685
          (css? len)
685
686
          (else (number->htmlstring (* cmpx val incm))))))
686
 
 
 
687
 
687
688
(define (tmlength->px len)
688
689
  (and-let* ((tmlen (string->tmlength len))
689
690
             (dummy? (not (tmlength-null? tmlen)))
1037
1038
  (tmhtml-png (cons 'graphics l)))
1038
1039
 
1039
1040
(define (tmhtml-image-name name)
 
1041
  ;; FIXME: we should replace ~, environment variables, etc.
1040
1042
  (with u (url-relative current-save-target (string->url name))
1041
1043
    (if (and (or (string-ends? name ".ps") (string-ends? name ".eps"))
1042
1044
             (url-exists? u))