Inline Markdown links to Reference links v2 (BBEdit)

inline2ref_bb.rb

#!/usr/bin/env ruby

# change this to your domain to have local links titled appropriately
my_site = "http://brettterpstra.com"

def e_sh(str)
	str.to_s.gsub(/(?=[^a-zA-Z0-9_.\/\-\x7F-\xFF\n])/n, '\\').gsub(/\n/, "'\n'").sub(/^$/, "''")
end

def find_headers(lines)
    in_headers = false
    lines.each_with_index {|line, i|
        if line =~ /^\S[^\:]+\:( .*?)?$/
            in_headers = true
        elsif in_headers === true
            return i
        else
            return false
        end
    }
end

input = ARGF.read

links = input.scan(/\((https?:\/\/([^\)]+))\)/)
refs = input.scan(/^\[([^\]]+)\]: (\S+)$/)
lines = input.split("\n")

bottom = lines[0..-1].join("\n").gsub(/^\[([^\]]+)\]: (\S+)\n?/,'')

norepeat = []
norepeatlinks = []
output = []

refs.each {|ref|
	name = ref[0]
	next if norepeatlinks.include? ref[1]
	while norepeat.include? name
		if name =~ / ?[0-9]$/
			name.next!
		else 
			name = name + " 2"
		end
	end
	output << {'orig' => ref[0], 'title' => name, 'link' => ref[1]}
	norepeat.push name
	norepeatlinks.push ref[1]
}

links.each {|url| 
	next if norepeatlinks.include? url[0]
	if url[0] =~ /#{my_site}.*/
	  name = url[0].scan(/\/([^\/]*?)(?:\.[^\/]*)?$/)[0][0]
	  output << {'orig' => url[0], 'title' => name, 'link' => url[0] }
	  norepeat.push name
	  norepeatlinks.push url[0]
	else
  	domain = url[0].match(/https?:\/\/([^\/]+)/)
  	parts = domain[1].split('.')
  	name = case parts.length
  		when 1 then parts[0]
  		when 2 then parts[0]
  		else parts[1]
  	end
  	while norepeat.include? name
  		if name =~ / ?[0-9]$/
  			name.next!
  		else 
  			name = name + " 2"
  		end
  	end
  	output << {'orig' => url[0], 'title' => name, 'link' => url[0] }
  	norepeat.push name
  	norepeatlinks.push url[0]
  end
}
output = output.sort {|a,b| a['title'] <=> b['title']}
o = []

output.each_with_index { |x,i| 
	o.push("[#{x['title']}]: #{x['link']}")
	bottom = bottom.gsub(/\((#{e_sh x['orig']}|#{e_sh x['link']})\)/,"[#{x['title']}]").gsub(/\[#{e_sh x['orig']}\]/,"[#{x['title']}]")
}
puts bottom + "\n\n#{o.join("\n")}\n"