Pimki 1.0.092

data/app/models/web_test.rb

@@ -0,0 +1,53 @@
+require "test/unit"
+require "wiki_service"
+
+class WebTest < Test::Unit::TestCase
+  def setup
+    @web = Web.new "Instiki", "instiki"
+  end
+
+  def test_wiki_word_linking
+    @web.add_page(Page.new(@web, "SecondPage", "Yo, yo. Have you EverBeenHated", Time.now, "DavidHeinemeierHansson"))
+    assert_equal(
+      "<p>Yo, yo. Have you <span class=\"newWikiWord\">Ever Been Hated<a href=\"../show/EverBeenHated\">?</a></span></p>",
+      @web.pages["SecondPage"].display_content
+    )
+    
+    @web.add_page(Page.new(@web, "EverBeenHated", "Yo, yo. Have you EverBeenHated", Time.now, "DavidHeinemeierHansson"))
+    assert_equal(
+      "<p>Yo, yo. Have you <a class=\"existingWikiWord\" href=\"../show/EverBeenHated\">Ever Been Hated</a></p>", 
+      @web.pages["SecondPage"].display_content
+    )
+  end
+  
+  def test_pages_by_revision
+    add_sample_pages
+    assert_equal "EverBeenHated", @web.select.by_revision.first.name
+  end
+  
+  def test_pages_by_match
+    add_sample_pages
+    assert_equal 2, @web.select { |page| page.content =~ /me/i }.length
+    assert_equal 1, @web.select { |page| page.content =~ /Who/i }.length
+    assert_equal 0, @web.select { |page| page.content =~ /none/i }.length
+  end
+  
+  def test_references
+    add_sample_pages
+    assert_equal 1, @web.select.pages_that_reference("EverBeenHated").length
+    assert_equal 0, @web.select.pages_that_reference("EverBeenInLove").length
+  end
+  
+  def test_delete
+    add_sample_pages
+    assert_equal 2, @web.pages.length
+    @web.remove_pages([ @web.pages["EverBeenInLove"] ])
+    assert_equal 1, @web.pages.length
+  end
+  
+  private
+    def add_sample_pages
+      @web.add_page(Page.new(@web, "EverBeenInLove", "Who am I me", Time.local(2004, 4, 4, 16, 50), "DavidHeinemeierHansson"))
+      @web.add_page(Page.new(@web, "EverBeenHated", "I am me EverBeenHated", Time.local(2004, 4, 4, 16, 51), "DavidHeinemeierHansson"))
+    end
+end

data/app/models/wiki_content.rb

@@ -0,0 +1,113 @@
+require 'cgi'
+require 'chunks/engines'
+require 'chunks/category'
+require 'chunks/include'
+require 'chunks/todo'
+require 'chunks/wiki'
+require 'chunks/literal'
+require 'chunks/uri'
+require 'chunks/nowiki'
+
+# Wiki content is just a string that can process itself with a chain of
+# actions. The actions can modify wiki content so that certain parts of
+# it are protected from being rendered by later actions.
+#
+# When wiki content is rendered, it can be interrogated to find out 
+# which chunks were rendered. This means things like categories, wiki 
+# links, can be determined.
+#
+# Exactly how wiki content is rendered is determined by a number of 
+# settings that are optionally passed in to a constructor. The current
+# options are:
+#  * :engine 
+#    => The structural markup engine to use (Textile, Markdown, RDoc)
+#  * :engine_opts
+#    => A list of options to pass to the markup engines (safe modes, etc)
+#  * :pre_engine_actions
+#    => A list of render actions or chunks to be processed before the
+#       markup engine is applied. By default this is:    
+#       Category, Include, URIChunk, WikiChunk::Link, WikiChunk::Word
+#  * :post_engine_actions
+#    => A list of render actions or chunks to apply after the markup 
+#       engine. By default these are:    
+#       Literal::Pre, Literal::Tags
+#       ToDo items
+#  * :mode
+#    => How should the content be rendered? For normal display (:display), 
+#       publishing (:publish) or export (:export)?
+#
+# AUTHOR: Mark Reid <mark @ threewordslong . com>
+# CREATED: 15th May 2004
+# UPDATED: 22nd May 2004
+class WikiContent < String
+
+  # Moved URIChunk from pre-engine to post-engine, as it clashed with the textile
+  # markup of "link":URL.
+  PRE_ENGINE_ACTIONS  = [ NoWiki, Category, Include, WikiChunk::Link, WikiChunk::Word ] 
+  POST_ENGINE_ACTIONS = [ Literal::Pre, Literal::Tags, URIChunk, Todo ]
+  
+
+  DEFAULT_OPTS = {
+    :pre_engine_actions  => PRE_ENGINE_ACTIONS,
+    :post_engine_actions => POST_ENGINE_ACTIONS,
+    :engine              => Engines::Textile,
+    :engine_opts         => [],
+    :mode                => [:display]
+  }
+
+  attr_reader :web, :options, :rendered
+
+  # Create a new wiki content string from the given one.
+  # The options are explained at the top of this file.
+  def initialize(revision, options = {})
+    @revision = revision
+    @web = @revision.page.web
+
+    # Deep copy of DEFAULT_OPTS to ensure that changes to PRE/POST_ENGINE_ACTIONS stay local
+    @options = Marshal.load(Marshal.dump(DEFAULT_OPTS)).update(options)
+    @options[:engine] = Engines::MAP[@web.markup] || Engines::Textile
+    @options[:engine_opts] = (@web.safe_mode ? [:filter_html, :filter_styles] : [])
+
+    @options[:pre_engine_actions].delete(WikiChunk::Word) if @web.brackets_only
+
+    super(@revision.content)
+
+    begin
+      render!(@options[:pre_engine_actions] + [@options[:engine]] + @options[:post_engine_actions])
+    rescue => e
+      @rendered = "<strong>#{e.message}</strong><br/><br/>#{e.backtrace.join('<br/>')}"
+    end
+  end
+
+  # Call @web.page_link using current options.
+  def page_link(name, text) 
+    @web.make_link(name, text, @options) 
+  end
+
+  # Find all the chunks of the given types
+  def find_chunks(chunk_type)
+    rendered.select { |chunk| chunk.kind_of?(chunk_type) }
+  end
+
+  # Render this content using the specified actions.
+  def render!(chunk_types)
+    @chunks = []
+    chunk_types.each { |chunk_type| self.apply_type!(chunk_type) }
+    
+    # unmasking order is reversed to allow chuncks that encapsulate other chunks,
+    # e.g. a ToDo item with a WikiWork link.
+    @rendered = @chunks.reverse.map { |chunk| chunk.unmask(self) }.compact
+    (@chunks - @rendered).each { |chunk| chunk.revert(self) }
+  end
+  
+  # Find all the chunks of the given type in this content
+  # Each time the type's pattern is matched, create a new
+  # chunk for it, and replace the occurance of the chunk
+  # in this content with its mask.
+  def apply_type!(chunk_type)
+    self.gsub!( chunk_type.pattern ) do |match|
+      @chunks << chunk_type.new($~)
+      @chunks.last.mask(self)
+    end
+  end
+end

data/app/models/wiki_service.rb

@@ -0,0 +1,137 @@
+
+require "madeleine_service"
+require "web"
+require "page"
+require "author"
+
+class WikiService < MadeleineService
+  attr_reader :webs, :system
+
+  def initialize
+    @webs, @system = {}, {}
+  end
+
+  def setup?
+    !@system.empty?
+  end
+
+  def authenticate(password)
+    password == (@system["password"] || "instiki")
+  end
+
+  def setup(password, web_name, web_address)
+    @system["password"] = password
+    create_web(web_name, web_address)
+  end
+
+  def create_web(name, address, password = nil)
+    @webs[address] = Web.new(name, address, password) unless @webs[address]
+  end
+  
+  def update_web(old_address, new_address, name, markup, color, additional_style, safe_mode = false, 
+      password = nil, published = false, brackets_only = false, count_pages = false)
+    if old_address != new_address
+      @webs[new_address] = @webs[old_address]
+      @webs.delete(old_address)
+      @webs[new_address].address = new_address
+    end
+    
+    web = @webs[new_address]
+    web.refresh_revisions if settings_changed?(web, markup, safe_mode, brackets_only)
+    
+    web.name, web.markup, web.color, web.additional_style, web.safe_mode = 
+      name, markup, color, additional_style, safe_mode
+      
+    web.password, web.published, web.brackets_only, web.count_pages =
+      password, published, brackets_only, count_pages
+  end
+
+  def read_page(web_address, page_name)
+    @webs[web_address].pages[page_name]
+  end
+
+  def write_page(web_address, page_name, content, written_on, author)
+    page = Page.new(@webs[web_address], page_name, content, written_on, author)
+    @webs[web_address].add_page(page)
+    page
+  end
+  
+  def revise_page(web_address, page_name, content, revised_on, author)
+    page = read_page(web_address, page_name)
+    page.revise(content, revised_on, author)
+    page
+  end
+
+  def rollback_page(web_address, page_name, revision_number, created_at, author_id = nil)
+    page = read_page(web_address, page_name)
+    page.rollback(revision_number, created_at, author_id)
+    page
+  end
+  
+  def remove_orphaned_pages(web_address)
+    @webs[web_address].remove_pages(@webs[web_address].select.orphaned_pages)
+  end
+
+  # deletes a page from the web.
+  def delete_page(web_address, page_name) #{{{
+    @webs[web_address].pages.delete(page_name)
+  end #}}}
+  
+  # renames a page in the web.
+  def rename_page(web_address, old_page_name, new_page_name) #{{{
+    web = @webs[web_address]
+    page = web.pages.delete(old_page_name)
+    page or raise "unknown page: #{old_page_name.to_s};; #{pages.keys.join(',')}"
+    page.name = new_page_name
+    web.pages[new_page_name] = page
+  end #}}}
+  
+  def save_menu_pref(web, type, limit, content) #{{{
+    web.menu_type = type
+    web.menu_limit = limit
+    web.menu_content = content
+    if web.menu_type == 'user'
+      # only calculate the rendered content once:
+      web.rendered_menu = Page.new(
+        web, 'menu', @params["content"], Time.now, ''
+      ).revisions.last.display_content
+    end
+  end #}}}
+
+  # Bliki commands -------------------------------------------------------------
+  
+  def read_bliki_entry(web_address, page_name)
+    @webs[web_address].bliki[page_name]
+  end
+
+  def write_bliki_entry(web_address, page_name, content, written_on, author)
+    page = Page.new(@webs[web_address], page_name, content, written_on, author)
+    @webs[web_address].add_bliki_entry(page)
+    page
+  end
+  
+  def revise_bliki_entry(web_address, page_name, content, revised_on, author)
+    page = read_bliki_entry(web_address, page_name)
+    page.revise(content, revised_on, author)
+    page
+  end
+
+  def rollback_bliki_entry(web_address, page_name, revision_number, created_at)
+    page = read_bliki_entry(web_address, page_name)
+    page.rollback(revision_number, created_at)
+    page
+  end
+  
+  def delete_bliki_entry(web_address, page_name) #{{{
+    @webs[web_address].bliki.delete(page_name)
+  end #}}}
+
+  private
+    def settings_changed?(web, markup, safe_mode, brackets_only)
+      web.markup != markup || 
+      web.safe_mode != safe_mode || 
+      web.brackets_only != brackets_only
+    end
+end
+
+# jEdit :folding=indent:collapseFolds=1:

data/app/models/wiki_service_test.rb

@@ -0,0 +1,15 @@
+require "test/unit"
+require "wiki_service"
+
+class WikiServiceTest < Test::Unit::TestCase
+  def setup
+    WikiService.restart
+    @s = WikiService.instance
+    @s.create_web "Instiki", "instiki"
+  end
+
+  def test_read_write_page
+    @s.write_page "instiki", "FirstPage", "Electric shocks, I love 'em", Time.now, "DavidHeinemeierHansson"
+    assert_equal "Electric shocks, I love 'em", @s.read_page("instiki", "FirstPage").content
+  end
+end

data/app/models/wiki_words.rb

@@ -0,0 +1,26 @@
+
+# Contains all the methods for finding and replacing wiki words
+module WikiWords
+  # In order of appearance: Latin, greek, cyrillian, armenian
+  I18N_HIGHER_CASE_LETTERS =
+    "ÀÁÂÃÄÅĀĄĂÆÇĆČĈĊĎĐÈÉÊËĒĘĚĔĖĜĞĠĢĤĦÌÍÎÏĪĨĬĮİIJĴĶŁĽĹĻĿÑŃŇŅŊÒÓÔÕÖØŌŐŎŒŔŘŖŚŠŞŜȘŤŢŦȚÙÚÛÜŪŮŰŬŨŲŴÝŶŸŹŽŻ" + 
+    "ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ" + 
+    "ΆΈΉΊΌΎΏѠѢѤѦѨѪѬѮѰѲѴѶѸѺѼѾҀҊҌҎҐҒҔҖҘҚҜҞҠҢҤҦҨҪҬҮҰҲҴҶҸҺҼҾӁӃӅӇӉӋӍӐӒӔӖӘӚӜӞӠӢӤӦӨӪӬӮӰӲӴӸЖ" +
+    "ԱԲԳԴԵԶԷԸԹԺԻԼԽԾԿՀՁՂՃՄՅՆՇՈՉՊՋՌՍՏՐՑՒՓՔՕՖ"
+
+  I18N_LOWER_CASE_LETTERS =
+    "àáâãäåāąăæçćčĉċďđèéêëēęěĕėƒĝğġģĥħìíîïīĩĭįıijĵķĸłľĺļŀñńňņʼnŋòóôõöøōőŏœŕřŗśšşŝșťţŧțùúûüūůűŭũųŵýÿŷžżźÞþßſÐð" +
+    "άέήίΰαβγδεζηθικλμνξοπρςστυφχψωϊϋόύώΐ" +
+    "абвгдежзийклмнопрстуфхцчшщъыьэюяѐёђѓєѕіїјљћќѝўџѡѣѥѧѩѫѭѯѱѳѵѷѹѻѽѿҁҋҍҏґғҕҗҙқҝҟҡңҥҧҩҫҭүұҳҵҷҹһҽҿӀӂӄӆӈӊӌӎӑӓӕӗәӛӝӟӡӣӥӧөӫӭӯӱӳӵӹ" +
+    "աբգդեզէըթժիլխծկհձղճմյնշոչպջռսվտրցւփքօֆև"
+
+  WIKI_WORD_PATTERN = '[A-Z' + I18N_HIGHER_CASE_LETTERS + '][a-z' + I18N_LOWER_CASE_LETTERS + ']+[A-Z' + I18N_HIGHER_CASE_LETTERS + ']\w+'
+
+  def self.separate(wiki_word, ignore_separation = false)
+    if ignore_separation
+      wiki_word
+    else
+      wiki_word.gsub(/([a-z#{I18N_LOWER_CASE_LETTERS}])([A-Z#{I18N_HIGHER_CASE_LETTERS}])/u, '\1 \2').gsub(/(\d+)/u, ' \1 ')
+    end
+  end
+end

data/app/models/wiki_words_test.rb

@@ -0,0 +1,12 @@
+require "test/unit"
+require "wiki_words"
+
+class WikiWordsTest < Test::Unit::TestCase
+  
+  def test_utf8_characters_in_wiki_word
+    assert_equal "Æåle Øen", WikiWords.separate("ÆåleØen")
+    assert_equal "ÆÅØle Øen", WikiWords.separate("ÆÅØleØen")
+    assert_equal "Æe ÅØle Øen", WikiWords.separate("ÆeÅØleØen")
+    assert_equal "Legetøj", WikiWords.separate("Legetøj")
+  end
+end

data/app/views/bottom.rhtml

@@ -0,0 +1,4 @@
+  </div>
+</div>
+</body>
+</html>

data/app/views/markdown_help.rhtml

@@ -0,0 +1,16 @@
+<div id="TextileHelp" style="float: right; width: 250px; margin-top: 5px">
+		<h3>Markdown formatting tips (<a target="_new" href="http://daringfireball.net/projects/markdown/syntax">advanced</a>)</h3>
+		<table cellspacing="0" cellpadding="0">
+			<tr><td>_your text_</td><td class="arrow">&rarr;</td><td><em>your text</em></td></tr>
+			<tr><td>**your text**</td><td class="arrow">&rarr;</td><td><strong>your text</strong></td></tr>
+			<tr><td>`my code`</td><td class="arrow">&rarr;</td><td><code>my code</code></td></tr>
+			<tr><td>* Bulleted list<br />* Second item</td><td class="arrow">&rarr;</td><td>&#8226; Bulleted list<br />&#8226; Second item</td></tr>
+			<tr><td>1. Numbered list<br />1. Second item</td><td class="arrow">&rarr;</td><td>1. Numbered list<br />2. Second item</td></tr>
+			<tr><td>[link name](URL)</td><td class="arrow">&rarr;</td><td><a href="URL">link name</a></td></tr>
+			<tr><td>***</td><td class="arrow">&rarr;</td><td>Horizontal ruler</td></tr>
+			<tr><td>&lt;http://url><br />&lt;email@add.com></td><td class="arrow">&rarr;</td><td>Auto-linked</td></tr>
+			<tr><td>![Alt text](URL)</td><td class="arrow">&rarr;</td><td>Image</td></tr>
+    </table>
+
+    <%= sub_template "wiki_words_help" %>
+</div>

data/app/views/menu.rhtml

@@ -0,0 +1,20 @@
+<div id="Menu">
+  <p>
+  <table>
+  <% begin %>
+        <tr><th><%= @web.name %> Quick Links</th></tr>
+        <tr><td><a href='../edit_menu/' style="font-size: 9px;">Edit Menu Contents</a></td></tr>
+        <tr><td>&nbsp;</td></tr>
+        <% if @menu_pages.nil? %>
+            <tr><td><%= @menu_content %></td></tr>
+        <% else %>
+          <% for page in @menu_pages %>
+            <tr><td><a href="../show/<%= page.name %>"><%= truncate(page.plain_name, 35) %></a></td></tr>
+          <% end %>
+        <% end %>
+  <% rescue Exception
+     end
+  %>
+  </table>
+</div>
+

data/app/views/navigation.rhtml

@@ -0,0 +1,26 @@
+<%
+def list_item(title, url, description, accesskey = nil)
+  if @title == title
+    "<b class=\"navOn\" title=\"#{description}\" accesskey=\"#{accesskey}\">#{title}</b>"
+  else
+    "<a href=\"#{url}\" title=\"#{description}\" accesskey=\"#{accesskey}\">#{title}</a>"
+  end
+end
+%>
+
+<form id="navigationForm" class="navigation" action="../search/" action="get" style="font-size: 10px">  
+  <%= list_item "Home Page", "../show/HomePage", "Home, Sweet Home", "H" %> | 
+  <%= list_item "All Pages", "../list/", "Alphabetically sorted list of pages", "A" %> |
+  <% if `dot -V 2>&1` =~ /dot version/ %>
+    <%= list_item "Mind Map", "../mind/", "A 'Mind Map' graph of wiki pages", "M" %> |
+  <% end %>
+  <%= list_item "Bliki", "../bliki/", "Bliki", "B" %> |
+  <%= list_item "ToDo", "../todo/", "Todo items from all pages", "T" %> |
+  <%= list_item "Recently Revised", "../recently_revised/", "Pages sorted by when they were last changed", "U" %> |
+  <!-- Moved to bottom of HomePage:
+  <%= list_item "Authors", "../authors/", "Who wrote what" %> | 
+  <%= list_item "Feeds", "../feeds/", "Subscribe to changes by RSS" %> | 
+  <%= list_item "Export", "../export/", "Download a zip with all the pages in this wiki", "X" %> |
+  -->
+  <input type="text" id="searchField" name="query" style="font-size: 10px" value="Search" onClick="this.value == 'Search' ? this.value = '' : true">
+</form>

data/app/views/rdoc_help.rhtml

@@ -0,0 +1,16 @@
+<div id="TextileHelp" style="float: right; width: 250px; margin-top: 5px">
+		<h3>RDoc formatting tips (<a target="_new" href="http://rdoc.sourceforge.net/doc/files/markup/simple_markup_rb.html">advanced</a>)</h3>
+		<table cellspacing="0" cellpadding="0">
+			<tr><td>_your text_</td><td class="arrow">&rarr;</td><td><em>your text</em></td></tr>
+			<tr><td>*your text*</td><td class="arrow">&rarr;</td><td><strong>your text</strong></td></tr>
+			<tr><td>* Bulleted list<br />* Second item</td><td class="arrow">&rarr;</td><td>&#8226; Bulleted list<br />&#8226; Second item</td></tr>
+			<tr><td>1. Numbered list<br />2. Second item</td><td class="arrow">&rarr;</td><td>1. Numbered list<br />2. Second item</td></tr>
+			<tr><td>+my_code+</td><td class="arrow">&rarr;</td><td><code>my_code</code></td></tr>
+			<tr><td>---</td><td class="arrow">&rarr;</td><td>Horizontal ruler</td></tr>
+			<tr><td>[[URL linkname]]</td><td class="arrow">&rarr;</td><td><a href="URL">linkname</a></td></tr>
+			<tr><td>http://url<br />mailto:e@add.com</td><td class="arrow">&rarr;</td><td>Auto-linked</td></tr>
+			<tr><td>imageURL</td><td class="arrow">&rarr;</td><td>Image</td></tr>
+    </table>
+
+    <%= sub_template "wiki_words_help" %>
+</div>