Pimki 1.0.092

data/app/models/revision_test.rb

@@ -0,0 +1,252 @@
+require "web"
+require "test/unit"
+require "revision"
+
+class MockWeb < Web; 
+  attr_accessor :markup
+  def pages() MockPages.new end
+  def safe_mode() false end
+end
+class MockPages
+  def [](wiki_word) %w( MyWay ThatWay SmartEngine ).include?(wiki_word) end
+end
+class MockPage
+  attr_accessor :web, :revisions
+  def name() "page" end
+end
+
+class RevisionTest < Test::Unit::TestCase
+
+  def setup
+    @mock_page = MockPage.new
+    @mock_web  = MockWeb.new
+    @mock_page.web = @mock_web
+
+    @mock_web.markup = :textile
+
+    @revision = Revision.new(
+      @mock_page,
+      1,
+      "HisWay would be MyWay in kinda ThatWay in HisWay though MyWay \\OverThere -- see SmartEngine in that SmartEngineGUI", 
+      Time.local(2004, 4, 4, 16, 50),
+      "DavidHeinemeierHansson"
+    )
+    
+    @revision_with_auto_links = Revision.new(
+      @mock_page,
+      1,
+      "http://www.loudthinking.com/ points to ThatWay from david@loudthinking.com", 
+      Time.local(2004, 4, 4, 16, 50),
+      "DavidHeinemeierHansson"
+    )
+
+	@revision_with_aliased_links = Revision.new(
+	  @mock_page,
+	  1,
+      "Would a [[SmartEngine|clever motor]] go by any other name?",
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"
+	)
+
+	@revision_with_wiki_word_in_em = Revision.new(
+	  @mock_page,
+	  1,
+      "_should we go ThatWay or ThisWay _",
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"      
+    )
+
+	@revision_with_pre_blocks = Revision.new(
+	  @mock_page,
+	  1,
+      "A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre>",
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"
+	)
+
+	@revision_with_wikiword_in_tag = Revision.new(
+	  @mock_page,
+	  1,
+      "That is some <em style=\"WikiWord\">Stylish Emphasis</em>",
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"
+	)
+
+	@revision_with_autolink_in_parentheses = Revision.new(
+	  @mock_page,
+      1,
+      'The W3C body (http://www.w3c.org) sets web standards',
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"														 
+	)
+
+	@revision_with_link_in_parentheses = Revision.new(
+	  @mock_page,
+      1,
+      'Instiki is a "Wiki Clone":http://www.c2.com/cgi/wiki?WikiWikiClones ("What is a wiki?":http://wiki.org/wiki.cgi?WhatIsWiki) that\'s so easy to setup',
+	  Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"
+    )
+
+	@revision_with_image_link = Revision.new(
+	  @mock_page,
+      1,
+      'This !http://hobix.com/sample.jpg! is a Textile image link.',
+	  Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"
+    )
+
+	@revision_with_nowiki_text = Revision.new(
+	  @mock_page,
+	  1,
+	  'Do not mark up <nowiki>[[this text]]</nowiki> or <nowiki>http://www.thislink.com</nowiki>.',
+	  Time.local(2004, 4, 4, 16, 50),
+	  "MarkReid"
+	)
+
+	@revision_with_bracketted_wiki_word = Revision.new(
+	  @mock_page,
+	  1,
+	  'This is a WikiWord and a tricky name [[Sperberg-McQueen]].',
+	  Time.local(2004, 4, 4, 16, 50),
+	  "MarkReid"
+    )
+
+  end
+
+  def test_wiki_words
+    assert_equal %w( HisWay MyWay SmartEngine SmartEngineGUI ThatWay ), @revision.wiki_words.sort
+  end
+  
+  def test_existing_pages
+    assert_equal %w( MyWay SmartEngine ThatWay ), @revision.existing_pages.sort
+  end
+  
+  def test_unexisting_pages
+    assert_equal %w( HisWay SmartEngineGUI ), @revision.unexisting_pages.sort
+  end
+  
+  def test_content_with_wiki_links
+    assert_equal "<p><span class=\"newWikiWord\">His Way<a href=\"../show/HisWay\">?</a></span> would be <a class=\"existingWikiWord\" href=\"../show/MyWay\">My Way</a> in kinda <a class=\"existingWikiWord\" href=\"../show/ThatWay\">That Way</a> in <span class=\"newWikiWord\">His Way<a href=\"../show/HisWay\">?</a></span> though <a class=\"existingWikiWord\" href=\"../show/MyWay\">My Way</a> OverThere&#8212;see <a class=\"existingWikiWord\" href=\"../show/SmartEngine\">Smart Engine</a> in that <span class=\"newWikiWord\">Smart Engine <span class=\"caps\">GUI</span><a href=\"../show/SmartEngineGUI\">?</a></span></p>", @revision.display_content
+  end
+
+  def test_bluecloth
+    @mock_web.markup = :markdown
+
+    @revision = Revision.new(
+      @mock_page,
+      1,
+      "My Headline\n===========\n\n that SmartEngineGUI", 
+      Time.local(2004, 4, 4, 16, 50),
+      "DavidHeinemeierHansson"
+    )
+
+	@revision_with_code_block = Revision.new(
+      @mock_page,
+      1,
+      "This is a code block:\n    def a_method(arg)\n    return ThatWay\n\nNice!",
+      Time.local(2004, 4, 4, 16, 50),
+      "MarkReid"      
+    )
+
+    assert_equal "<h1>My Headline</h1>\n\n<p>that <span class=\"newWikiWord\">Smart Engine GUI<a href=\"../show/SmartEngineGUI\">?</a></span></p>", @revision.display_content
+
+	assert_equal "<p>This is a code block:</p>\n\n<pre><code>def a_method(arg)\nreturn ThatWay\n</code></pre>\n\n<p>Nice!</p>", @revision_with_code_block.display_content
+  end
+
+  def test_rdoc
+    @mock_web.markup = :rdoc
+
+    @revision = Revision.new(
+      @mock_page,
+      1,
+      "+hello+ that SmartEngineGUI", 
+      Time.local(2004, 4, 4, 16, 50),
+      "DavidHeinemeierHansson"
+    )
+
+    assert_equal "<tt>hello</tt> that <span class=\"newWikiWord\">Smart Engine GUI<a href=\"../show/SmartEngineGUI\">?</a></span>\n\n", @revision.display_content
+  end
+  
+  def test_content_with_auto_links
+    assert_equal "<p><a href=\"http://www.loudthinking.com/\">http://www.loudthinking.com/</a> points to <a class=\"existingWikiWord\" href=\"../show/ThatWay\">That Way</a> from <a href=\"mailto:david@loudthinking.com\">david@loudthinking.com</a></p>", @revision_with_auto_links.display_content
+  end  
+
+  def test_content_with_aliased_links
+	assert_equal "<p>Would a <a class=\"existingWikiWord\" href=\"../show/SmartEngine\">clever motor</a> go by any other name?</p>", @revision_with_aliased_links.display_content
+  end
+
+  def test_content_with_wikiword_in_em
+	assert_equal "<p><em>should we go <a class=\"existingWikiWord\" href=\"../show/ThatWay\">That Way</a> or <span class=\"newWikiWord\">This Way<a href=\"../show/ThisWay\">?</a></span> </em></p>", @revision_with_wiki_word_in_em.display_content
+  end
+
+  def test_content_with_wikiword_in_tag
+    assert_equal "<p>That is some <em style=\"WikiWord\">Stylish Emphasis</em></p>", @revision_with_wikiword_in_tag.display_content
+  end
+
+  def test_content_with_pre_blocks
+	assert_equal "A <code>class SmartEngine end</code> would not mark up <pre>CodeBlocks</pre>", @revision_with_pre_blocks.display_content
+  end
+
+  def test_content_with_autolink_in_parentheses
+	assert_equal '<p>The <span class="caps">W3C</span> body (<a href="http://www.w3c.org">http://www.w3c.org</a>) sets web standards</p>', @revision_with_autolink_in_parentheses.display_content
+  end
+
+  def test_content_with_link_in_parentheses
+	assert_equal '<p>Instiki is a <a href="http://www.c2.com/cgi/wiki?WikiWikiClones">Wiki Clone</a> (<a href="http://wiki.org/wiki.cgi?WhatIsWiki">What is a wiki?</a>) that&#8217;s so easy to setup</p>', @revision_with_link_in_parentheses.display_content
+  end
+
+  def test_content_with_image_link
+	assert_equal '<p>This <img src="http://hobix.com/sample.jpg" alt="" /> is a Textile image link.</p>', @revision_with_image_link.display_content
+  end
+
+  def test_content_with_nowiki_text
+	assert_equal '<p>Do not mark up [[this text]] or http://www.thislink.com.</p>', @revision_with_nowiki_text.display_content
+  end
+
+  def test_content_with_bracketted_wiki_word
+	@mock_web.brackets_only = true
+	assert_equal '<p>This is a WikiWord and a tricky name <span class="newWikiWord">Sperberg-McQueen<a href="../show/Sperberg-McQueen">?</a></span>.</p>', @revision_with_bracketted_wiki_word.display_content
+  end
+
+  def test_content_for_export
+    assert_equal "<p><span class=\"newWikiWord\">His Way</span> would be <a class=\"existingWikiWord\" href=\"MyWay.html\">My Way</a> in kinda <a class=\"existingWikiWord\" href=\"ThatWay.html\">That Way</a> in <span class=\"newWikiWord\">His Way</span> though <a class=\"existingWikiWord\" href=\"MyWay.html\">My Way</a> OverThere&#8212;see <a class=\"existingWikiWord\" href=\"SmartEngine.html\">Smart Engine</a> in that <span class=\"newWikiWord\">Smart Engine <span class=\"caps\">GUI</span></span></p>", @revision.display_content_for_export
+  end
+
+  def test_double_replacing
+    @revision.content = "VersionHistory\r\n\r\ncry VersionHistory"
+    assert_equal(
+      "<p><span class=\"newWikiWord\">Version History<a href=\"../show/VersionHistory\">?</a></span></p>\n\n\t<p>cry <span class=\"newWikiWord\">Version History<a href=\"../show/VersionHistory\">?</a></span></p>", 
+      @revision.display_content
+    )
+
+    @revision.clear_display_cache
+
+    @revision.content = "f\r\nVersionHistory\r\n\r\ncry VersionHistory"
+    assert_equal(
+      "<p>f<br />\n<span class=\"newWikiWord\">Version History<a href=\"../show/VersionHistory\">?</a></span></p>\n\n\t<p>cry <span class=\"newWikiWord\">Version History<a href=\"../show/VersionHistory\">?</a></span></p>", 
+      @revision.display_content
+    )
+  end  
+
+  def test_difficult_wiki_words
+    @revision.content = "[[It's just awesome GUI!]]"
+    assert_equal(
+      "<p><span class=\"newWikiWord\">It&#8217;s just awesome <span class=\"caps\">GUI</span>!<a href=\"../show/It%27s+just+awesome+GUI%21\">?</a></span></p>", 
+      @revision.display_content
+    )
+  end
+  
+  def test_revisions_diff
+    page = MockPage.new
+    web  = MockWeb.new
+    web.markup = :textile
+    page.web = web
+
+    page.revisions = [ 0 ] 
+    page.revisions << Revision.new(page, 1, "What a blue and lovely morning", Time.local(2004, 4, 4, 16, 50), "DavidHeinemeierHansson")
+    page.revisions << Revision.new(page, 2, "What a red and lovely morning today", Time.local(2004, 4, 4, 16, 50), "DavidHeinemeierHansson")
+    
+    assert_equal "<p>What a <del class=\"diffmod\">blue </del><ins class=\"diffmod\">red </ins>and lovely <del class=\"diffmod\">morning</del><ins class=\"diffmod\">morning today</ins></p>", page.revisions.last.display_diff
+  end
+end

data/app/models/web.rb

@@ -0,0 +1,277 @@
+require "cgi"
+require "page"
+require "page_set"
+require "wiki_words"
+require "zip/zip"
+
+class Web
+  attr_accessor :pages, :name, :address, :password, :menu_type, :menu_content, :rendered_menu, :menu_limit
+  attr_accessor :markup, :color, :safe_mode, :additional_style, :published, :brackets_only, :count_pages
+  
+  @@BLIKI_TEMPLATE = "Try a weekly worksheet:\n\n| / | *Morning* | *Afternoon* |\n" +
+                     "| *Mon* | - | - |\n| *Tue* | - | - |\n| *Wed* | - | - |\n" +
+                     "| *Thu* | - | - |\n| *Fri* | - | - |\n"
+  
+  def bliki
+    @bliki ||= Hash.new
+  end
+  
+  def initialize(name, address, password = nil)
+    @name, @address, @password, @safe_mode = name, address, password, false
+    @pages = {}
+  end
+
+  def add_page(page)
+    @pages[page.name] = page
+  end
+
+  def remove_pages(pages_to_be_removed)
+    pages.delete_if { |page_name, page| pages_to_be_removed.include?(page) }
+  end
+  
+  def revised_on
+    pages.values.sort_by { |page| [page.created_at] }.reverse.first.created_at
+  end
+  
+  def select(&accept)
+    PageSet.new(self, @pages.values, accept)
+  end
+  
+  def revised_on
+    select.most_recent_revision
+  end
+    
+  def authors 
+    select.authors 
+  end
+
+  def categories
+    select.map { |page| page.categories }.flatten.uniq.sort
+  end
+
+  # Create a link for the given page name and link text based
+  # on the render mode in options and whether the page exists
+  # in the this web.
+  def make_link(name, text = nil, options = {})
+    page = pages[name]
+    text = text || WikiWords.separate(name)
+    link = CGI.escape(name)
+    
+    case options[:mode]
+      when :export
+        if page then "<a class=\"existingWikiWord\" href=\"#{link}.html\">#{text}</a>"
+        else "<span class=\"newWikiWord\">#{text}</span>" end
+      when :publish
+        if page then "<a class=\"existingWikiWord\" href=\"../show/#{link}\">#{text}</a>"
+        else "<span class=\"newWikiWord\">#{text}</span>" end
+      else
+        if page then "<a class=\"existingWikiWord\" href=\"../show/#{link}\">#{text}</a>"
+        else "<span class=\"newWikiWord\">#{text}<a href=\"../show/#{link}\">?</a></span>" end
+    end
+  end
+
+
+  # Clears the display cache for all the pages with references to 
+  def refresh_pages_with_references(page_name)
+    select.pages_that_reference(page_name).each { |page| 
+      page.revisions.each { |revision| revision.clear_display_cache }
+    }
+  end
+  
+  def refresh_revisions
+    select.each { |page| page.revisions.each { |revision| revision.clear_display_cache } }
+  end
+  
+  # Default values
+  def markup()        @markup || :textile end
+  def color()         @color  || "008B26" end
+  def brackets_only() @brackets_only || false end
+  def count_pages()   @count_pages   || false end
+  def menu_content()  @menu_content  || ''        end
+  def menu_limit()    @menu_limit    || 20        end
+  def menu_type()
+    (@menu_type.nil? || @menu_type.empty?) ? 'linkers' : @menu_type
+  end
+
+  # create a Mind Map graph and return the PNG and HTML map files generated
+  def create_mind_map(prog, missing, show_authors)
+    dotFile = File.expand_path("#{WikiService.storage_path}/graph.dot")
+    mapFile = File.expand_path("#{WikiService.storage_path}/graph.map")
+    pngFile = File.expand_path("#{WikiService.storage_path}/map.png")
+    
+    File.open(dotFile, "w") do |file|
+    
+      # Graph properties:
+      file.puts "digraph G {"
+      file.puts 'size = "9,11";'
+      file.puts 'concentrate = true;'
+      file.puts 'node [fontsize=8,fontname="Tahoma"];'
+      file.puts 'edge [len=1.5];'
+    
+      # Page Special nodes properties:
+      file.puts "HomePage [color=\"##{color}\",style=bold];"
+    
+      # Links and node properties:
+      nodes = pages.values
+      auths = authors # avoid repeated selects
+      unless show_authors == 'on'
+        nodes.delete_if { |entry|
+          auths.include? entry.name
+        }
+      end
+      nodes.each do |page|
+        file.puts "#{page.name} [URL=\"../show/#{page.name}\"];"
+        page.references.each do |referer|
+          unless page.name == referer.name
+            unless show_authors != 'on' and auths.include? referer.name
+              file.puts "#{referer.name} -> #{page.name};"
+            end
+          end
+        end
+      end
+    
+      # find missing pages:
+      if missing
+        missing.each do |wanted|
+          file.puts "#{wanted} [URL=\"/#{@address}/show/#{wanted}\", fontsize=8,style=filled,color=grey];"
+        end
+        pages.values.each do |page|
+          missing.each do |wanted|
+            if page.content =~ /#{wanted}/
+              file.puts "#{page.name} -> #{wanted};"
+            end
+          end
+        end
+      end
+
+      file.puts "}"
+    end
+
+    system("#{prog} -Tcmap #{dotFile} -o #{mapFile}")
+    system("#{prog} -Tpng #{dotFile} -o #{pngFile}")
+    
+    [pngFile, mapFile]
+  end
+
+  def create_author_graph(prog)
+    dotFile = File.expand_path("#{WikiService.storage_path}/graph.dot")
+    mapFile = File.expand_path("#{WikiService.storage_path}/graph.map")
+    pngFile = File.expand_path("#{WikiService.storage_path}/map.png")
+    
+    File.open(dotFile, "w") do |file|
+    
+      # Graph properties:
+      file.puts "digraph G {"
+      file.puts 'size = "9,11";'
+      file.puts 'concentrate = true;'
+      file.puts 'node [fontsize=8,fontname="Tahoma"];'
+      file.puts 'edge [len=1.5];'
+    
+      # Links and node properties:
+      auths = authors # avoid repeated selects
+      auths.each do |auth|
+        file.puts "#{auth} [style=filled,color=grey,URL=\"../show/#{auth}\"];"
+      end
+
+      nodes = pages.values
+      nodes.delete_if { |entry| auths.include? entry.name }
+      nodes.each do |page|
+        file.puts "#{page.name} [URL=\"../show/#{page.name}\"];"
+        page.authors.each do |auth|
+          file.puts "#{auth} -> #{page.name};"      
+        end
+      end
+
+      file.puts "}"
+    end
+
+    system("#{prog} -Tcmap #{dotFile} -o #{mapFile}")
+    system("#{prog} -Tpng #{dotFile} -o #{pngFile}")
+    
+    [pngFile, mapFile]
+  end
+
+  def create_category_graph(prog, show_authors) #{{{
+    dotFile = File.expand_path("#{WikiService.storage_path}/graph.dot")
+    mapFile = File.expand_path("#{WikiService.storage_path}/graph.map")
+    pngFile = File.expand_path("#{WikiService.storage_path}/map.png")
+    
+    File.open(dotFile, "w") do |file|
+      # Graph properties:
+      file.puts "digraph G {"
+      file.puts 'size = "9,11";'
+      file.puts 'concentrate = true;'
+      file.puts 'node [fontsize=8,fontname="Tahoma"];'
+      file.puts 'edge [len=1.5];'
+    
+      # Page Special nodes properties:
+      file.puts "HomePage [color=\"##{color}\",style=bold];"
+      categories.each do |category|
+        file.puts "#{category} [style=filled,color=grey];"
+      end
+    
+      # Links and node properties:
+      nodes = pages.values
+      auths = authors # avoid repeated selects
+      unless show_authors == 'on'
+        nodes.delete_if { |entry|
+          auths.include? entry.name
+        }
+      end
+      nodes.each do |page|
+        file.puts "#{page.name} [URL=\"../show/#{page.name}\"];"
+        page.categories.each do |category|
+          file.puts "#{category} -> #{page.name};"
+        end
+      end
+
+      file.puts "}"
+    end
+
+    system("#{prog} -Tcmap #{dotFile} -o #{mapFile}")
+    system("#{prog} -Tpng #{dotFile} -o #{pngFile}")
+    
+    [pngFile, mapFile]
+  end #}}}
+  
+  ## Bliki methods
+  
+  def add_bliki_entry(page)
+    bliki[page.name] = page
+  end
+  
+  def bliki_entries_by_date
+    bliki.values.sort_by { |page| page.revisions.first.created_at }.reverse
+  end
+  
+  def bliki_entries_by_name
+    pages.values.sort_by { |page| [page.name] }
+  end
+  
+  def bliki_entries_that_match(regexp)
+    bliki.values.select { |page| page.content =~ /#{regexp}/i }
+  end
+
+  def bliki_entries_that_reference(page_name)
+    bliki.values.select { |page| page.wiki_words.include?(page_name) }
+  end
+
+  def bliki_entries_authored_by(author)
+    bliki.values.select { |page| page.authors.include?(author) }
+  end
+
+  ## End bliki methods
+
+  private
+    # Returns an array of all the wiki words in any current revision
+    def wiki_words
+      pages.values.inject([]) { |wiki_words, page| wiki_words << page.wiki_words }.flatten.uniq
+    end
+    
+    # Returns an array of all the page names on this web
+    def page_names
+      pages.keys
+    end
+end
+
+# jEdit :folding=indent:collapseFolds=1: