diff -urw Pod-Simple-Wiki-0.05/lib/Pod/Simple/Wiki.pm Pod-Simple-Wiki-0.05+socialtext/lib/Pod/Simple/Wiki.pm
--- Pod-Simple-Wiki-0.05/lib/Pod/Simple/Wiki.pm	2005-03-31 00:24:58.000000000 +0200
+++ Pod-Simple-Wiki-0.05+socialtext/lib/Pod/Simple/Wiki.pm	2006-11-27 17:21:19.000000000 +0100
@@ -147,6 +147,26 @@
                                     '<h4>'   => "=====",
                                     '</h4>'  => "=====\n",
                                 },
+                'socialtext' => {
+                                    '<b>'    => '*',
+                                    '</b>'   => '*',
+                                    '<i>'    => '_',
+                                    '</i>'   => '_',
+                                    '<tt>'   => '`',
+                                    '</tt>'  => '`',
+                                    '<pre>'  => "\n.pre\n",
+                                    '</pre>' => "\n.pre\n",
+
+                                    '<h1>'   => "^ ",
+                                    '</h1>'  => "\n",
+                                    '<h2>'   => "^^ ",
+                                    '</h2>'  => "\n",
+                                    '<h3>'   => "^^^ ",
+                                    '</h3>'  => "\n",
+                                    '<h4>'   => "^^^^ ",
+                                    '</h4>'  => "\n",
+                                },
+
 );
 
 
@@ -283,6 +303,18 @@
              $self->_append(";" x $indent_level . ' ');
         }
     }
+    elsif ($self->{_format} eq 'socialtext') {
+
+        if    ($item_type eq 'bullet') {
+             $self->_append('*' x $indent_level . ' ');
+        }
+        elsif ($item_type eq 'number') {
+             $self->_append('#' x $indent_level . ' ');
+        }
+        elsif ($item_type eq 'text') {
+             $self->_append(">" x $indent_level . ' ');
+        }
+    }
 }
 
 
@@ -497,7 +529,8 @@
                         $_[0]->_output(" ; ") if $_[0]->{_format} eq 'kwiki';
                         $_[0]->_output(":"  ) if $_[0]->{_format} eq 'usemod';
                         $_[0]->_output(": " ) if $_[0]->{_format} eq 'twiki';
-                        $_[0]->_output(" : ") if $_[0]->{_format} eq 'wikipedia';}
+                        $_[0]->_output(" : ") if $_[0]->{_format} eq 'wikipedia';
+                        $_[0]->_output("\n") if $_[0]->{_format} eq 'socialtext';}
 
 sub _start_over_block  {$_[0]->{_item_indent}++}
 sub _end_over_block    {$_[0]->{_item_indent}--}