Methods:	Source:	Variables:
[All Methods \| Documented Methods \| Hide Methods]	[Display Source \| Hide Source]	[Show Variables \| Hide Variables]

::xotcl::Object ::xowiki::tidy

::xotcl::Object create ::xowiki::tidy

Methods

proc clean

::xowiki::tidy proc clean text {
    if {[[::xo::cc package_id] get_parameter tidy 0] 
        && [info command ::util::which] ne ""} { 
      set tidycmd [::util::which tidy]
      if {$tidycmd ne ""} {
	set in_file [ns_tmpnam]
	::xowiki::write_file $in_file $text
	catch {exec $tidycmd -q -w 0 -ashtml < $in_file 2> /dev/null} output
	file delete $in_file
	#my msg o=$output
	regexp <body>\n(.*)\n</body> $output _ text
	#my msg o=$text
	return $text
      }
    }
    return $text
  }

Methods:	Source:	Variables:
[All Methods \| Documented Methods \| Hide Methods]	[Display Source \| Hide Source]	[Show Variables \| Hide Variables]