56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
(rem (caddr tmp)))
res))
(define (s:html-filter->string input-text allowed-tags)
(let ((ostr (open-output-string)))
;;; (s:output-new ostr (s:html-filter input-text allowed-tags))
(s:output-new ostr (car (eval (s:html-filter input-text allowed-tags))))
(get-output-string ostr)))
;; (if (null? rem)
;; res '())
;; (s:toks->stml (if (list? res) res '()) #f rem allowed-tags))))
(define (s:str->toks str)
(apply append (map (lambda (tok)
|
|
|
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
(rem (caddr tmp)))
res))
(define (s:html-filter->string input-text allowed-tags)
(let ((ostr (open-output-string)))
;;; (s:output-new ostr (s:html-filter input-text allowed-tags))
(s:output-new ostr (car (eval (s:html-filter input-text allowed-tags))))
(string-chomp (get-output-string ostr)))) ;; don't need the linefeed, could stop adding it ...
;; (if (null? rem)
;; res '())
;; (s:toks->stml (if (list? res) res '()) #f rem allowed-tags))))
(define (s:str->toks str)
(apply append (map (lambda (tok)
|