SoundSoftware Code Site

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

          method_name = "macro_#{name}"

          send(method_name, obj, args) if respond_to?(method_name)

        end

        def extract_macro_options(args, *keys)

          options = {}

          while args.last.to_s.strip =~ %r{^(.+)\=(.+)$} && keys.include?($1.downcase.to_sym)

          return [args, options]

        end

      end

      @@available_macros = {}

      class << self

        # Called with a block to define additional macros.

        # Macro blocks accept 2 arguments:

        # * obj: the object that is rendered

        # * args: macro arguments

        # Plugins can use this method to define new macros:

        #   Redmine::WikiFormatting::Macros.register do

        #     desc "This is my macro"

        #     macro :my_macro do |obj, args|

        def register(&block)

          class_eval(&block) if block_given?

        end

      private

        # Defines a new macro with the given name and block.

        def macro(name, &block)

          raise "Can not create a macro without a block!" unless block_given?

          Definitions.send :define_method, "macro_#{name}".downcase, &block

        end

        # Sets description for the next macro to be defined

        def desc(txt)

          @@desc = txt

        end

      end

      # Builtin macros

      desc "Sample macro."

      macro :hello_world do |obj, args|

        "Hello world! Object: #{obj.class.name}, " + (args.empty? ? "Called with no argument." : "Arguments: #{args.join(', ')}")

      end

      desc "Displays a list of all available macros, including description if available."

        out = ''

        @@available_macros.keys.collect(&:to_s).sort.each do |macro|

          out << content_tag('dt', content_tag('code', macro))

        end

        content_tag('dl', out)

      end

      desc "Displays a list of child pages. With no argument, it displays the child pages of the current wiki page. Examples:\n\n" +

             "  !{{child_pages}} -- can be used from a wiki page only\n" +

             "  !{{child_pages(Foo)}} -- lists all children of page Foo\n" +

        pages = ([page] + page.descendants).group_by(&:parent_id)

        render_page_hierarchy(pages, options[:parent] ? page.parent_id : page.id)

      end

      desc "Include a wiki page. Example:\n\n  !{{include(Foo)}}\n\nor to include a page of a specific project wiki:\n\n  !{{include(projectname:Foo)}}"

      macro :include do |obj, args|

        page = Wiki.find_page(args.first.to_s, :project => @project)

# Redmine - project management software

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

require 'redcloth3'

module Redmine

  module WikiFormatting

    module Textile

      class Formatter < RedCloth3

        include ActionView::Helpers::TagHelper

        # auto_link rule after textile rules so that it doesn't break !image_url! tags

        RULES = [:textile, :block_markdown_rule, :inline_auto_link, :inline_auto_mailto]

        def initialize(*args)

          super

          self.hard_breaks=true

          self.no_span_caps=true

          self.filter_styles=true

        end

        def to_html(*rules)

          @toc = []

          super(*RULES).to_s

        end

      private

        # Patch for RedCloth.  Fixed in RedCloth r128 but _why hasn't released it yet.

        # <a href="http://code.whytheluckystiff.net/redcloth/changeset/128">http://code.whytheluckystiff.net/redcloth/changeset/128</a>

          text.gsub!( /(.)\n(?!\n|\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks

        end

        # Patch to add code highlighting support to RedCloth

        def smooth_offtags( text )

          unless @pre_list.empty?

            text.gsub!(/<redpre#(\d+)>/) do

              content = @pre_list[$1.to_i]

              if content.match(/<code\s+class="(\w+)">\s?(.+)/m)

                  Redmine::SyntaxHighlighting.highlight_by_language($2, $1)

              end

              content

            end

          end

        end

        AUTO_LINK_RE = %r{

                        (                          # leading text

                          <\w+.*?>|                # leading HTML tag, or

                          ^                        # beginning of line

                        )

                        (

                        ((?:>)?|[^\w\=\/;\(\)]*?)               # post

                        (?=<|\s|$)

                       }x unless const_defined?(:AUTO_LINK_RE)

        # Turns all urls into clickable links (code from Rails).

        def inline_auto_link(text)

          text.gsub!(AUTO_LINK_RE) do

            end

          end

        end

        # Turns all email addresses into clickable links (code from Rails).

        def inline_auto_mailto(text)

          text.gsub!(/([\w\.!#\$%\-+.]+@[A-Za-z0-9\-]+(\.[A-Za-z0-9\-]+)+)/) do

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

          url = "#{Redmine::Utils.relative_url_root}/help/wiki_syntax.html"

          help_link = link_to(l(:setting_text_formatting), url,

            :onclick => "window.open(\"#{ url }\", \"\", \"resizable=yes, location=no, width=300, height=640, menubar=no, status=no, scrollbars=yes\"); return false;")

          javascript_tag("var wikiToolbar = new jsToolBar($('#{field_id}')); wikiToolbar.setHelpLink('#{escape_javascript help_link}'); wikiToolbar.draw();")

        end

        def initial_page_content(page)

          "h1. #{@page.pretty_title}"

        end

        def heads_for_wiki_formatter

          unless @heads_for_wiki_formatter_included

            content_for :header_tags do