Dear list, It seems to me that quoted replies in emails are somewhat backwards. The following as an example:
| > > Instead of having higher levels of indentation for text that | > > came first | > | > it would make a lot more sense to reverse the indentation, | | especially when archiving mails that aren't going to be used by | a MUA to correspond. I'd say for a web archive, the following would make a lot more sense: | Text tha came first does not get indented, but instead serves to | as the main text and anchor | | for text which is in reply to the email, which is quotes | | which makes it a lot more obvious to the eye. This allows a reader to easily skip interjections simply by not following indentation levels, and with the proper bit of XHTML/JavaScript/CSS, replies could even become foldable. I had a brief look at mhonarc and found the plugin architecture that makes mhonarc a really cool tool. Unfortunately, my Perl-skills are non-existent. Fortunately, my girlfriend knows the language a bit better, and so she threw together the attached script yesterday, which takes a message and outputs HTML which does the inversion. It is proof-of-concept and several rough edges need to be smoothed out. Do you think it is possible to write a mhonarc plugin on the basis of this logic? Would anyone like to give it a shot? -- martin; (greetings from the heart of the sun.) \____ echo mailto: !#^."<*>"|tr "<*> mailto:" [EMAIL PROTECTED] obviously i was either onto something, or on something. -- larry wall on the creation of perl spamtraps: [EMAIL PROTECTED]
#!/usr/bin/perl -w # # mail2html-invert - converts a mail to HTML and inverts the quoting # # Copyright © 2008 Penny Leach <penny at mjollnir.org> # Released under the GPLv2 # use strict; use warnings; use Text::Quoted; use HTML::Entities; # configurable bits my $printblockquotes = 1; # change this to 0 if you want <p class="leveln"> instead of <blockquote><blockquote> etc my $title = 'email'; # this could helpfully extract the names in the email or such my $raw; # raw body of message my $bodystarted; # flag for end of headers my @newstructure; # post-processed structure my $maxlevel = 0; # for inverting indenting print <<EOH; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <title>$title</title> </head> <body> <p class="headers"> EOH while (<STDIN>) { if (/^$/ && !$bodystarted) { # empty line, start processing body after this $bodystarted = 1; print "</p>\n"; # end the paragraph containing headers next; } unless ($bodystarted) { # if we're still processing headers, just print them chomp; print encode_entities($_) . "<br />\n"; next; } $raw .= $_; } # convert the raw body to some whack datastructure provide but Text::Quoted my $structure = extract($raw); foreach my $item (@$structure) { # process the weird format we have and turn it into something sensible and flatter handleitem($item); } # each 'item' is basically one lump of text with an indent level, which we invert foreach my $item (@newstructure) { my $invertedlevel = $maxlevel - $item->{level}; my $escaped = encode_entities($item->{text}); unless ($printblockquotes) { print '<p class="level' . $invertedlevel . '">' . $escaped . '</p>' . "\n"; next; } my $pre = ''; my $post = ''; for (1..$invertedlevel) { $pre .= '<blockquote>'; $post .= '</blockquote>'; } print $pre . '<p>' . $escaped . '</p>' . $post . "\n"; } print " </body>\n</html>\n"; # -------------------------------------------------- # extract gives us back a weird structure that contains an array of either hashes or arrays # flatten it and add it into @newstructure with an indent level sub handleitem { my $item = shift; my $level = shift || 0; $maxlevel = $level if $maxlevel < $level; if (ref $item eq 'HASH') { return if $item->{empty}; push @newstructure, { 'text' => $item->{text}, 'level' => $level}; } elsif (ref $item eq 'ARRAY') { foreach my $newitem (@$item) { handleitem($newitem, $level+1); } } }
digital_signature_gpg.asc
Description: Digital signature (see http://martin-krafft.net/gpg/)