data.map {|lin| lin.gsub!(/width="4.1665in"/, 'width="40%"')}
data.map {|lin| lin.gsub!(/height="[0-9.]+in"/, '')}
+log 0, 'add figure titles required by Docbook for referable figures'
+[
+ ['10000201000008000000045C30360249076453E6.png', 'Enterprise engagements'],
+ ['10000201000007D0000007D0ACF13F8B71EAF0B9.png', 'Aspects of resource management'],
+ ['10000201000009C40000065D9EC4F530BD4DFBE0.png', 'Different views on resources'],
+ ['10000201000009C4000005153EACBD62F00F6BA9.png', 'Long ago'],
+ ['10000201000009C4000005150F069409C1CC12F0.png', 'State takeover of the commons'],
+ ['10000201000009C400000515F1CAA15B223F6BAF.png', 'Today'],
+].each do |fig|
+ at = data.index {|i| i.include? fig[0]}
+ if at.nil?
+ raise RuntimeError, 'No figure named «%s» found' % fig[0]
+ end
+ data[at].gsub!(/!\[\]\(Pictures/, '
+end
+
log 0, 'Writing processed file'
File.open(dstfile, 'w') {|f| f.puts data.join("\n")}