init.rb

Redmine::Plugin.register :redmine_include_macro_extension do
  name 'Include macro extension plugin'
  author 'Taiki IKEGAME'
  description 'This plugin makes possible include wiki section.'
  version '1.0.7'
  url 'https://github.com/taikii/redmine_include_macro_extension'
  author_url 'https://github.com/taikii'

  Redmine::WikiFormatting::Macros.register do

    Redmine::WikiFormatting::Macros::Definitions.send :alias_method, "macro_include_original", "macro_include"

    desc "Includes a wiki page. Examples:\n\n" +
        "{{include(Foo)}}\n" +
        "{{include(Foo, Bar)}} -- to include Bar section of Foo page\n" +
        "{{include(projectname:Foo)}} -- to include a page of a specific project wiki"
    macro :include do |obj, args|
      if args.size == 1
        args.push("DUMMY")
        send("macro_include_original", obj, args)
      else
        page = Wiki.find_page(args.first.to_s, :project => @project)
        if page.nil? || !User.current.allowed_to?(:view_wiki_pages, page.wiki.project)
          if args.include?("noraise")
            return ''
          else
            raise 'Page not found'
          end
        end
        @included_wiki_pages ||= []

        secname = args[1].to_s

        regex = nil
        case Setting.text_formatting
        when "textile"
          regex = '(?:\A|\r?\n\s*\r?\n)h\d+(?:(?:<>|<|>|\=|[()]+)*)\.[ \t]+(.*?)(?=\r?\n\s*\r?\n|\z)'
        when "markdown","common_mark"
          regex = '(?:\A|\r?\n)#+ +(.*?)(?=\r?\n|\z)'
        end

        index = 0
        if regex
          page.content.text.scan(/#{regex}/m).each.with_index(1) do |matched, i|
            if matched.first.gsub(/[\r\n]/, '') == secname
              index = i
              break
            end
          end
        end

        sectext = nil
        if index > 0 && Redmine::WikiFormatting.supports_section_edit?
          sectext, hash = Redmine::WikiFormatting.formatter.new(page.content.text).get_section(index)
        end

        if sectext.nil?
          if args.include?("noraise")
            return ''
          else
            raise 'Section not found'
          end
        end

        raise 'Circular inclusion detected' if @included_wiki_pages.include?(page.title) || @included_wiki_pages.include?(page.title + ':' + secname)

        if args.size > 2
          options = args[2..-1]

          if options.include?("nosubsection")
            subsecidx = sectext.index(/#{regex}/m, sectext.index(/#{regex}/m) + 1)
            if subsecidx
              sectext = sectext[0 .. (subsecidx - 1)]
            end
          end
          if options.include?("noheading")
            sectext.sub!(/#{regex}/m, '')
          end
        end

        @included_wiki_pages << page.title + ':' + secname
        out = ''.html_safe
        out = textilizable(sectext, :attachments => page.attachments, :headings => false)
        @included_wiki_pages.pop
        out
      end
    end

    desc "Includes by table wiki pages. Examples:\n\n" +
        "{{include_by_table(Section1, Section2)\n" +
        "Page1\n" +
        "Page2\n" +
        "}}"
    macro :include_by_table do |obj, args, text|
      out = ''.html_safe
      out << content_tag(:table) do
        concat(content_tag(:thead) do
          concat(content_tag(:tr) do
            concat (content_tag(:th))
            args.each {|col|
              concat (content_tag(:th) do
                concat col
              end)
            }
          end)
        end)
        text.lines.map(&:chomp).each {|line|
          next if line.blank?
            concat (content_tag(:tr) do
              concat (content_tag(:td) do
                concat textilizable("[[" + line + "]]")
              end)
              args.each {|col|
                concat (content_tag(:td) do
                  concat send("macro_include", obj, [line, col, "noheading", "nosubsection", "noraise"]).gsub(/[\r\n]/, '').html_safe
                end)
              }
          end)
        }
      end
    end

    desc "Includes by table wiki pages. Examples:\n\n" +
    "{{include_by_table_transpose(Page1, Page2)\n" +
    "Section1\n" +
    "Section2\n" +
    "}}"
    macro :include_by_table_transpose do |obj, args, text|
      out = ''.html_safe
      out << content_tag(:table) do
        concat(content_tag(:thead) do
          concat(content_tag(:tr) do
            concat (content_tag(:th))
            args.each {|col|
              concat (content_tag(:th) do
                concat textilizable("[[" + col + "]]")
              end)
            }
          end)
        end)
        text.lines.map(&:chomp).each {|line|
          next if line.blank?
            concat (content_tag(:tr) do
              concat (content_tag(:td) do
                concat line
              end)
              args.each {|col|
                concat (content_tag(:td) do
                  concat send("macro_include", obj, [col, line, "noheading", "nosubsection", "noraise"]).gsub(/[\r\n]/, '').html_safe
                end)
              }
          end)
        }
      end
    end
  end
end