Commit 1dd56181 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Rewrite feh(1) using -mdoc macros

parent 0da6b6d2
Loading
Loading
Loading
Loading
+636 −656

File changed.

Preview size limit exceeded, changes collapsed.

+1 −1
Original line number Original line Diff line number Diff line
@@ -22,7 +22,7 @@ close($c_fh);
open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!");
open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!");
while (my $line = <$man_fh>) {
while (my $line = <$man_fh>) {


	if ($line =~ /^\.B (?:-(?<short>.), )?--(?<long>[\w-]+)/) {
	if ($line =~ /^\.It Cm (?:-(?<short>.) , )?--(?<long>[\w-]+)/) {
		push(@{$options->{$+{long}}}, ['manual', $+{short}]);
		push(@{$options->{$+{long}}}, ['manual', $+{short}]);
	}
	}