* [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages
@ 2014-08-04 17:39 Tomi Ollila
2014-11-01 10:47 ` [PATCH v2 2/1] devel: man-to-mdwn.pl: add GPLv3+ notice to manpages.mdwn Tomi Ollila
2014-11-02 19:04 ` [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages David Bremner
0 siblings, 2 replies; 3+ messages in thread
From: Tomi Ollila @ 2014-08-04 17:39 UTC (permalink / raw)
To: notmuch; +Cc: tomi.ollila
The new manual pages converted from rst using sphinx or rst2man
has somewhat different syntax. man-to-mdwn.pl is now adjusted
to produce even better output from this syntax. The changes also
include using utf-8 locale (e.g. for tables and generated hypens)
and and quite a few bugs fixes.
This tool still produces better results than just using the
html pages generated using sphinx / rst2html. For example those
tools don't create inter-page hyperlinks -- and the preformatted
pages written by man-to-mdwn.pl just works well with manual page
content.
---
This is version 2 of id:1399497879-27392-1-git-send-email-tomi.ollila@iki.fi
The changes in notmuch-wiki commit 6562766 (Mon Aug 4 10:15:07 2014 +0300)
were generated with this tool, now on Fedora 20 (should be comparable with
Debian testing David used). Thanks to David for that -- quite a few things
did now work on these systems compared to Scientific Linux 6.2.
devel/man-to-mdwn.pl | 42 ++++++++++++++++++++++--------------------
1 file changed, 22 insertions(+), 20 deletions(-)
diff --git a/devel/man-to-mdwn.pl b/devel/man-to-mdwn.pl
index 4b59bd663698..5024569e5d84 100755
--- a/devel/man-to-mdwn.pl
+++ b/devel/man-to-mdwn.pl
@@ -6,18 +6,18 @@
# This program is used to generate mdwn-formatted notmuch manual pages
# for notmuch wiki. Example run:
#
-# $ ./devel/man-to-mdwn.pl man ../notmuch-wiki
+# $ ./devel/man-to-mdwn.pl doc/_build/man ../notmuch-wiki
#
# In case taken into more generic use, modify these comments and examples.
-use 5.8.1;
+use 5.10.1;
use strict;
use warnings;
unless (@ARGV == 2) {
warn "\n$0 <source-directory> <destination-directory>\n\n";
# Remove/edit this comment if this script is taken into generic use.
- warn "Example: ./devel/man-to-mdwn.pl man ../notmuch-wiki\n\n";
+ warn "Example: ./devel/man-to-mdwn.pl doc/_build/man ../notmuch-wiki\n\n";
exit 1;
}
@@ -48,11 +48,6 @@ while (<P>)
}
close P;
-#undef $ENV{'GROFF_NO_SGR'};
-#delete $ENV{'GROFF_NO_SGR'};
-$ENV{'GROFF_NO_SGR'} = '1';
-$ENV{'TERM'} = 'vt100'; # does this matter ?
-
my %htmlqh = qw/& & < < > > ' ' " "/;
# do html quotation to $_[0] (which is an alias to the given arg)
sub htmlquote($)
@@ -70,8 +65,11 @@ while (my ($k, $v) = each %fhash)
#next if -l $v; # skip symlinks here. -- not... references there may be.
my @lines;
- #open I, '-|', qw/groff -man -T utf8/, $v;
- open I, '-|', qw/groff -man -T latin1/, $v; # this and GROFF_NO_SGR='1'
+ open I, '-|', qw/env -i/, "PATH=$ENV{PATH}",
+ qw/TERM=vt100 LANG=en_US.utf8 LC_ALL=en_US.utf8/,
+ qw/GROFF_NO_SGR=1 MAN_KEEP_FORMATTING=1 MANWIDTH=80/,
+ qw/man/, $v or die "$!";
+ binmode I, ':utf8';
my ($emptyline, $pre, $hl) = (0, 0, 'h1');
while (<I>) {
@@ -79,13 +77,15 @@ while (my ($k, $v) = each %fhash)
$emptyline = 1;
next;
}
- s/(?<=\S)\s{8,}.*//; # $hl = 'h1' if s/(?<=\S)\s{8,}.*//;
- htmlquote $_;
+ # keep only leftmost in lines like 'NOTMUCH(1) notmuch NOTMUCH(1)'
+ s/\S\K\s{8,}\S.+\s{8,}\S.*//; # $hl = 'h1' if s/(?<=\S)\s{8,}.*//;
s/[_&]\010&/&/g;
- s/((?:_\010[^_])+)/<u>$1<\/u>/g;
+ s/((?:_\010[^_])+)/\001u\002$1\001\/u\002/g;
s/_\010(.)/$1/g;
- s/((?:.\010.)+)/<b>$1<\/b>/g;
+ s/((?:.\010.)+)/\001b\002$1\001\/b\002/g;
s/.\010(.)/$1/g;
+ htmlquote $_;
+ s/\001/</g; s/\002/>/g;
if (/^\S/) {
$pre = 0, push @lines, "</pre>\n" if $pre;
@@ -111,16 +111,18 @@ while (my ($k, $v) = each %fhash)
$lines[0] =~ s/^\n//;
$k = "$ARGV[1]/manpages/$k.mdwn";
open O, '>', $k or die;
+ binmode O, ':utf8';
print STDOUT 'Writing ', "'$k'\n";
select O;
- my $pe = '';
+ my ($pe, $hyphen) = ('', '');
foreach (@lines) {
+ #print $_; next;
if ($pe) {
- if (s/^(\s+)<b>([^<]+)<\/b>\((\d+)\)//) {
+ if (s/^(\s+)<b>([^<]+)\((\d+)\)<\/b>//) {
my $link = maymakelink "$pe-$2-$3";
$link = maymakelink "$pe$2-$3" unless $link;
if ($link) {
- print "<a href='$link'>$pe-</a>\n";
+ print "<a href='$link'>$pe$hyphen</a>\n";
print "$1<a href='$link'>$2</a>($3)";
}
else {
@@ -132,8 +134,8 @@ while (my ($k, $v) = each %fhash)
}
$pe = '';
}
- s/<b>([^<]+)<\/b>\((\d+)\)/mayconvert($1, $2)/ge;
- $pe = $1 if s/<b>([^<]+)-<\/b>\s*$//;
+ s/<b>([^<]+)\((\d+)\)<\/b>/mayconvert($1, $2)/ge;
+ ($pe, $hyphen) = ($1, $2) if s/<b>([^<]+)([-\x{2010}])<\/b>\s*$//;
print $_;
}
}
@@ -169,7 +171,7 @@ foreach (sort srt values %fhash)
open I, '<', $in or die $!;
my $s;
while (<I>) {
- if (/^\s*[.]TH\s+\S+\s+(\S+)/) {
+ if (/^\s*[.]TH\s+\S+\s+"?(\S+?)"?\s/) {
$s = $1;
last;
}
--
2.0.0
^ permalink raw reply related [flat|nested] 3+ messages in thread
* [PATCH v2 2/1] devel: man-to-mdwn.pl: add GPLv3+ notice to manpages.mdwn
2014-08-04 17:39 [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages Tomi Ollila
@ 2014-11-01 10:47 ` Tomi Ollila
2014-11-02 19:04 ` [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages David Bremner
1 sibling, 0 replies; 3+ messages in thread
From: Tomi Ollila @ 2014-11-01 10:47 UTC (permalink / raw)
To: notmuch; +Cc: tomi.ollila
Make the generated head manual page (in the notmuchmail wiki)
display the licence information the whole notmuch software is licenced
under.
---
devel/man-to-mdwn.pl | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/devel/man-to-mdwn.pl b/devel/man-to-mdwn.pl
index 5024569e5d84..ea284d083146 100755
--- a/devel/man-to-mdwn.pl
+++ b/devel/man-to-mdwn.pl
@@ -197,3 +197,9 @@ foreach (sort srt values %fhash)
print "* $line";
#warn $line;
}
+print <<'EOF';
+
+The manual pages are licensed under
+[the GNU General Public License](http://www.gnu.org/licenses/gpl.txt),
+either version 3.0 or at your option any later version.
+EOF
--
2.0.0
^ permalink raw reply related [flat|nested] 3+ messages in thread
* Re: [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages
2014-08-04 17:39 [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages Tomi Ollila
2014-11-01 10:47 ` [PATCH v2 2/1] devel: man-to-mdwn.pl: add GPLv3+ notice to manpages.mdwn Tomi Ollila
@ 2014-11-02 19:04 ` David Bremner
1 sibling, 0 replies; 3+ messages in thread
From: David Bremner @ 2014-11-02 19:04 UTC (permalink / raw)
To: Tomi Ollila, notmuch; +Cc: tomi.ollila
Tomi Ollila <tomi.ollila@iki.fi> writes:
> The new manual pages converted from rst using sphinx or rst2man
> has somewhat different syntax. man-to-mdwn.pl is now adjusted
> to produce even better output from this syntax. The changes also
> include using utf-8 locale (e.g. for tables and generated hypens)
> and and quite a few bugs fixes.
> This tool still produces better results than just using the
> html pages generated using sphinx / rst2html. For example those
> tools don't create inter-page hyperlinks -- and the preformatted
> pages written by man-to-mdwn.pl just works well with manual page
> content.
Pushed, along with the successor.
d
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2014-11-02 19:05 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-08-04 17:39 [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages Tomi Ollila
2014-11-01 10:47 ` [PATCH v2 2/1] devel: man-to-mdwn.pl: add GPLv3+ notice to manpages.mdwn Tomi Ollila
2014-11-02 19:04 ` [PATCH v2] devel: make man-to-mdwn.pl to work with generated manual pages David Bremner
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).