Opened 8 years ago

Last modified 8 years ago

#1291 assigned defect

lowdown: markdown->sxml produces unnormalised SXML

Reported by: Norman Gray Owned by: Moritz Heidkamp
Priority: major Milestone: someday
Component: extensions Version: 4.10.x
Keywords: lowdown Cc:
Estimated difficulty: medium


% csi

(c) 2008-2015, The CHICKEN Team
(c) 2000-2007, Felix L. Winkelmann
Version 4.10.0 (rev b259631)
macosx-unix-clang-x86-64 [ 64bit manyargs dload ptables ]
compiled 2015-08-04 on (Linux)

#;1> (use lowdown sxpath)
; loading /Data/tools/chicken-4.10.0/lib/chicken/7/ ...
#;2> (define testdoc "Title\n=====\n\n  * [link](uri)\n")
#;3> (define sx-test (with-input-from-string testdoc (lambda () (markdown->sxml (current-input-port)))))
#;4> sx-test
((h1 ("Title")) (ul (li ((a (@ (href "uri")) "link")))))
#;5> ((sxpath '(// a)) sx-test)
#;6> (define (tidy-sxml sx)
      (cond ((not (list? sx)) sx)
            ((and (= (length sx) 1)
                  (list? (car sx)))
             ;; turn ((node ...)) into (node ...)
             (tidy-sxml (car sx)))
            (else (map tidy-sxml sx))))
#;7> ((sxpath '(// a)) (tidy-sxml sx-test))
((a (@ (href "uri")) "link"))

I think the parsed sx-test is not invalid, but it does appear to be
sufficiently unnormalised that it confuses sxpath.

The function tidy-sxml works in this case, but is probably too simple-minded to work in general.

Change History (2)

comment:1 Changed 8 years ago by Mario Domenech Goulart

Owner: set to Moritz Heidkamp
Status: newassigned

comment:2 Changed 8 years ago by sjamaan

Estimated difficulty: medium
Note: See TracTickets for help on using tickets.