← Back to branch summary

~ubuntu-branches/ubuntu/hoary/texmacs/hoary

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Ralf Treinen
  • Date: 2004-12-22 05:30:36 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20041222053036-y4mxddh1qgw8tiz2
Tags: 1:1.0.4-R3-4
* Re-inserted dependency of the Makefile target on patch target.
* Undid recompression of manpage since this is done by a dpatch
* Removed mention of src-stamp in clean target since this file is 
  not used.

Show diffs side-by-side

added added

removed removed

Lines of Context:
TeXmacs/progs/convert/html/htmltm.scm
538
538
  `(!file ,(htmltm-parse s)))
539
539
 
540
540
(tm-define (html->texmacs html)
541
 
  (:type (object -> object))
542
 
  (:synopsis "Convert a parsed HTML object @t into a TeXmacs object.")
 
541
  (:type (-> stree stree))
 
542
  (:synopsis "Convert a parsed HTML stree @t into a TeXmacs stree.")
543
543
  (let* ((snippet? (not (func? html '!file 1)))
544
544
         (body (if snippet? html (cadr html)))
545
545
         (tm (htmltm-as-serial (sxhtml-correct-table body))))
546
546
    (if snippet? tm
547
 
        (let* ((doc (tree-simplify (object->tree (stm-unary-document tm))))
 
547
        (let* ((doc (tree-simplify (stree->tree (stm-unary-document tm))))
548
548
               (body (tree1 'body doc))
549
549
               (style (tree1 'style (string->tree "browser"))))
550
550
          (tree2 'document body style)))))