qwikdoc 0.0.1

data/vendor/qwik/act-isearch.rb

@@ -0,0 +1,109 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/act-search'
+
+module Qwik
+  class Action
+
+#* Incremental search
+# {{isearch}}
+#{{isearch}}
+#You can also make incremenatl search form.
+
+#* �C���N�������^���E�T�[�`
+# {{isearch}}
+#{{isearch}}
+#���l�ɁA�C���N�������^���E�T�[�`���s���������ł��B
+
+    # ============================== isearch
+    def plg_isearch(focus=false)
+      form = search_form(focus)
+      form[1][:action] = '.isearch'
+      return form
+    end
+
+    def act_isearch
+      query = @req.query['q']
+      if query.nil? || query.empty?
+	search_form_page
+	isearch_patch(@res.body)
+	return
+      end
+
+      ar = @site.isearch(query)
+      if ar.nil? || ar.empty?
+	search_notfound_page(query)
+	isearch_patch(@res.body)
+	return
+      end
+
+      return isearch_result(@site, ar)
+    end
+
+    def isearch_patch(body)	# Destructive for the body
+      form = body.get_path('//form')
+      form[1][:action] = '.isearch'
+    end
+
+    def isearch_result(site, ar)
+      ul = [:ul]
+      ar.each {|key|
+	page = site[key]
+	url = page.url
+	ul << [:li, [:a, {:href=>url}, key]]
+      }
+      div = [:div, {:class=>'day'},
+	[:div, {:class=>'section'},
+	  [:div, {:class=>'search_result'}, ul]]]
+      title = _('Search result')
+      return c_plain(title) { div }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActIncrementalSearch < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_isearch
+      ok_wi([:form, {:action=>'.isearch'},
+	      [:input, {:name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    "{{isearch}}")
+    end
+
+    def test_act_isearch
+      t_add_user
+
+      res = session '/test/.isearch'
+      ok_xp [:form, {:action=>'.isearch'},
+	      [:input, {:class=>'focus', :name=>'q'}],
+	      [:input, {:value=>'Search', :type=>'submit'}]],
+	    '//form'
+
+      res = session "/test/.isearch?q=nosuchkey"
+      assert_text 'Search result', 'h1'
+      ok_in ['No match.'], '//h2'
+
+      page = @site.create_new
+      page.store 'This is a keyword.'
+      res = session "/test/.isearch?q=keyword"
+#      ok_in [:ul, [:li, [:a, {:href=>'1.html'}, '1']]],
+#	    "//div[@class='search_result']"
+
+      page = @site.create_new	# 2.txt
+      page.store "����"
+      res = session "/test/.isearch?q=��"
+#      ok_in [:ul, [:li, [:a, {:href=>'2.html'}, '2']]],
+#	    "//div[@class='search_result']"
+    end
+  end
+end

data/vendor/qwik/act-keywords.rb

@@ -0,0 +1,137 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+begin
+  require 'MeCab'
+  $have_mecab = true
+rescue LoadError
+  $have_mecab = false
+end
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    D_PluginKeywords = {
+      :dt => 'Show keywords plugin',
+      :dd => 'You can see the list of keywords of the page.',
+      :dc => "* Example
+You see the keyword list of FrontPage.
+ {{keywords}}
+{{keywords}}
+You see the keyword list of TextFormat.
+ {{keywords(TextFormat)}}
+{{keywords(TextFormat)}}
+
+\'\'\'Warning:\'\'\' This plugin works only for Japanese document.
+"
+    }
+
+    D_PluginKeywords_ja = {
+      :dt => '�L�[���[�h�\���v���O�C��',
+      :dd => '�y�[�W���̃L�[���[�h�̈ꗗ���\������܂��B',
+      :dc => "* ��
+FrontPage�̃L�[���[�h�ꗗ���\������܂��B
+ {{keywords}}
+{{keywords}}
+TextFormat�y�[�W�̈ꗗ���\������܂��B
+ {{keywords(TextFormat)}}
+{{keywords(TextFormat)}}
+"
+    }
+
+    CLOUD_BASE_FONT_SIZE = 12
+    CLOUD_MAX_FONT_SIZE = 40
+
+    def plg_keywords(pagename=@req.base)
+      return "no mecab" if ! $have_mecab
+
+      page = @site[pagename]
+      return if page.nil?
+
+      content = page.get
+
+      nodes = Action.nodes_get(content)
+
+      hash = Hash.new { 0 }
+      nodes.each {|surface, feature|
+	hash[surface] += 1
+      }
+      w = hash.keys.sort.map {|surface|
+	num = Math.sqrt(hash[surface]) * CLOUD_BASE_FONT_SIZE
+	num = CLOUD_MAX_FONT_SIZE if CLOUD_MAX_FONT_SIZE < num
+	fontsize = "%.2fpx" % num
+	href = "#{surface.escape}.search"
+	[:a, {:style=>"font-size:#{fontsize};",
+	    :href=>href}, surface]
+      }
+      return [:div, {:class=>'keywords'}, *w]
+    end
+
+    PATTERN_SJIS = '[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]'
+    PATTERN_EUC = '[\xa1-\xfe][\xa1-\xfe]'
+    RE_SJIS = Regexp.new(PATTERN_SJIS, 0, 'n')
+    RE_EUC = Regexp.new(PATTERN_EUC, 0, 'n')
+
+    HIRAGANA = "[��-��[�`]"
+    KANJI = "[��-�]"
+
+    def self.nodes_get(content)
+      content.set_sjis
+      euc_content = content.to_euc
+      tagger = MeCab::Tagger.new([$0])
+      n = tagger.parseToNode(euc_content)
+      nodes = []
+      while n.hasNode != 0
+	surface = n.getSurface.set_euc.to_sjis
+	feature = n.getFeature.set_euc.to_sjis
+	if ! surface.empty? &&
+	    RE_SJIS =~ surface &&
+	    /\A([��-��[�`]+)\z/s !~ surface &&
+	    /\A[�D-���A�B]/s !~ surface &&
+	    /\A[�C��]/s !~ surface
+#	    /\A[�@�O-�X���u�v�i�j�A�B]/s !~ surface
+	  nodes << [surface, feature]
+	end
+	n = n.next
+      end
+      return nodes
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+      $KCODE = 's'
+end
+
+if defined?($test) && $test
+  class TestAction < Test::Unit::TestCase
+    include TestSession
+
+    def test_keywords
+      c = Qwik::Action
+#      eq ["��"], c.nodes_get("��")
+#      eq ["����", "��", "�e�X�g", "�ł�", "�B"],
+#	c.nodes_get("����̓e�X�g�ł��B")
+#      eq ["����", "��", "��", "�Ȃ�", "��", "��"],
+#	c.nodes_get("���������Ȃ��Ƃ�")
+#      eq ["���Y", "��", "����", "�{", "��", "��Y", "��", "��", "��",
+#	"����", "��", "�n��", "��", "�B"],
+#	c.nodes_get("���Y�͂��̖{���Y�����������ɓn�����B")
+    end
+
+    def test_plg_keywords
+      return unless $have_mecab
+
+      page = @site.create('2')
+      page.store("��")
+
+      ok_wi [:div, {:class=>"keywords"},
+	[:a, {:style=>"font-size:12.00px;", :href=>"%8E%9A.search"}, "��"]],
+	"{{keywords(2)}}"
+    end
+  end
+end

data/vendor/qwik/act-lang.rb

@@ -0,0 +1,81 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    def plg_lang(lang)
+      # lang should be only two letters length.
+      return 'error' unless /\A[a-z][a-z]\z/ =~ lang
+
+      alang = @req.accept_language[0]
+
+      return '' unless alang && alang == lang
+
+      s = yield
+      return c_res(s)
+    end
+
+    def plg_lang_select
+      pagebase = @req.base
+      if /\A([0-9A-Za-z]+)_([a-z][a-z])\z/ =~ @req.base
+	pagebase = $1
+	lang = $2
+      end
+
+      list = []
+      @req.accept_language.each {|lang|
+	pagename_with_lang = "#{pagebase}_#{lang}"
+	if @site.exist?(pagename_with_lang)
+	  #list << pagename_with_lang
+	  list << lang
+	end
+      }
+
+      return nil if list.empty?
+
+      list.unshift ''
+      return list.map {|lang|
+	page = "#{pagebase}"
+	page = "#{pagebase}_#{lang}" if ! lang.empty?
+	lang = "default" if lang.empty?
+	[:a, {:href=>"#{page}.html"}, lang]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActLang < Test::Unit::TestCase
+    include TestSession
+
+    def test_lang
+      ok_wi('error', "{{lang(nosuchlang)\na\n}}")
+      ok_wi([""], "{{lang(ja)\nj\n}}")
+     #ok_wi([], "{{lang(ja)\nj\n}}")
+      ok_wi([:p, 'e'], "{{lang(en)\ne\n}}")
+
+      ok_wi([:p, 'j'], "{{lang(ja)\nj\n}}") {|req|
+	req.accept_language = ['ja']
+      }
+      ok_wi("", "{{lang(en)\ne\n}}") {|req|
+	req.accept_language = ['ja']
+      }
+    end
+
+    def test_lang_select
+      ok_wi [], '{{lang_select}}'
+
+      page = @site.create('1_en')
+      ok_wi [[:a, {:href=>'1.html'}, 'default'],
+	[:a, {:href=>'1_en.html'}, 'en']], '{{lang_select}}'
+    end
+  end
+end

data/vendor/qwik/act-license.rb

@@ -0,0 +1,63 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    def plg_notice
+      msg = yield
+      w = c_parse(msg)
+      div = [:div, {:class=>'notice'}] + w
+      return div
+    end
+
+    LICENSE = {
+      'cc' => "You can use the files on this site under [[Creative Commons by 2.1|http://creativecommons.org/licenses/by/2.1/jp/]] license.",
+      'cc-by-sa-2.5' => "You can use the files on this site under [[Creative Commons Attribution-ShareAlike 2.5|http://creativecommons.org/licenses/by-sa/2.5/]] license.",
+      'upload-cc-by-sa-2.5' => "The files you uploaded will be under [[Creative Commons Attribution-ShareAlike 2.5|http://creativecommons.org/licenses/by-sa/2.5/]] license."
+    }
+
+    def plg_license(license)
+      text = license_text(license)
+      return if text.nil?
+      w = c_parse(text)
+      return [:div, {:class=>'license'}] + w
+    end
+
+    # TODO: Show CC icon.
+    def license_text(license)
+      msg = LICENSE[license]
+      return '' if msg.nil?
+      newmsg = _(msg)
+      return newmsg
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActLicense < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      ok_wi([:div, {:class=>'notice'}, [:p, 't']], "{{notice\nt\n}}")
+
+      # test_act_license
+      ok_wi([:div, {:class=>'license'},
+	      [:p, 'You can use the files on this site under ',
+		[:a, {:href=>'http://creativecommons.org/licenses/by/2.1/jp/'},
+		  'Creative Commons by 2.1'], ' license.']],
+	    "{{license(cc)}}")
+
+#      @action.plg_license('cc')
+#      @action.plg_license('cc-by-sa-2.5')
+#      @action.plg_license('upload-cc-by-sa-2.5')
+    end
+  end
+end

data/vendor/qwik/act-list.rb

@@ -0,0 +1,287 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    NotYet_D_PluginListEdit = {
+      :dt => 'List editing plugin',
+      :dd => 'You can edit a list in the page.',
+      :dc => "* Example
+{{list
+- A
+- B
+- C
+}}
+You can see a list with three lines.
+
+- By clicking the item, you can edit the item.
+- You can drag-and-drop the list.
+The system automatically save your editing by Ajax method.
+"
+    }
+
+    PLG_LIST_SCRIPT = "
+function qwikSetInPlaceEditor(id, action) {
+  new Ajax.InPlaceEditor(
+    id,
+    action,
+    {
+      onComplete: function(transport, element) {
+        if (element.innerHTML.length == 0) {
+          Element.remove(element.parentNode);
+        }
+      }
+    }
+  )
+}
+
+function qwikCreateSortable(list_id, list_action) {
+  Sortable.create(
+    list_id,
+    {
+      onUpdate: function() {
+        new Ajax.Request(
+          list_action,
+          {
+            asynchronous: true,
+            evalScripts: true,
+            parameters: Sortable.serialize(
+              list_id,
+              {
+                name: 'sortable_list'
+              }
+            )
+          }
+        )
+      }
+    }
+  )
+}
+"
+
+    def plg_list
+      content = nil
+      content = yield if block_given?
+      content ||= ''
+
+      @list_num = 0 if ! defined?(@list_num)
+      @list_num += 1
+      list_num = @list_num
+
+      div = list_make_div(list_num, content)
+
+      return div
+    end
+
+    def list_make_div(list_num, content)
+      w = c_tokenize(content)
+
+      div = [:div, {:class=>'list'}]
+
+      list_id = "list_#{list_num}"
+      ul, inplace_editors = list_make_ul(list_num, list_id, w)
+      div << ul
+
+      script = list_make_script(@req.base, list_num, list_id,
+				inplace_editors)
+      div << script
+
+      return div
+    end
+
+    def list_make_ul(list_num, list_id, w)
+      ul = [:ul, {:id=>list_id}]
+      inplace_editors = []
+      item_num = 1
+      w.each_element(:ul) {|li|
+	#level  = li[1]		# FIXME: Use level info correctly.
+	content = li[2]
+	item_id = "item_#{list_num}_#{item_num}"
+	span_id = "item_edit_area_#{list_num}_#{item_num}"
+	action = "#{@req.base}.#{list_num}.#{item_num}.list_edit"
+	ul << [:li, {:id=>item_id},
+	  [:span, {:class=>"item_edit_area", :id=>span_id}, content]]
+	inplace_editors << [span_id, action]
+	item_num += 1
+      }
+      return ul, inplace_editors
+    end
+
+    def list_make_script(base, list_num, list_id, inplace_editors)
+      list_action = "#{base}.#{list_num}.list_pos"
+      script = ''
+      script << PLG_LIST_SCRIPT if list_num == 1
+      inplace_editors.each {|span_id, action|
+	script << "qwikSetInPlaceEditor('#{span_id}', '#{action}');\n"
+      }
+      script << "qwikCreateSortable('#{list_id}', '#{list_action}');\n"
+      return [:script, {:type=>'text/javascript'}, script]
+    end
+
+    def ext_list_edit
+      list_num = @req.ext_args[0].to_i
+      item_num = @req.ext_args[1].to_i
+      return c_nerror if list_num < 1 || item_num < 1
+
+      query = @req.query
+      # [{""=>"ok", "value"=>"Aa", "_"=>""}]
+      value = query['value']
+
+      begin
+	plugin_edit(:list, list_num) {|content|
+	  new_content = Action.list_edit(content, item_num, value)
+	  new_content
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	return mcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('list_edit') # COMMENT
+
+      c_set_status
+      c_set_no_cache
+      c_set_contenttype('text/plain')
+      body = value
+      c_set_body(body)
+    end
+
+    def self.list_edit(content, item_num, value)
+      tokens = TextTokenizer.tokenize(content)
+      index = 1		# list index starts with 1
+      tokens.each_element(:ul) {|token|
+	if index == item_num
+	  token[2] = value	# Destructive.
+	end
+	index += 1
+      }
+      return tokens_to_s(tokens)
+    end
+
+    def self.tokens_to_s(tokens)
+      token_str = ''
+      tokens.each_element(:ul) {|token|
+	level_s = '-' * token[1]
+	token_str << "#{level_s} #{token[2]}\n"
+      }
+      return token_str
+    end
+
+    def ext_list_pos
+      list_num = @req.ext_args[0].to_i
+      return c_nerror if list_num < 1
+
+      item_list = @req.query["sortable_list[]"].list
+
+      item_list = Action.parse_list(item_list)
+
+      new_content = ''
+      begin
+	plugin_edit(:list, list_num) {|content|
+	  new_content = Action.list_arrange(content, item_list)
+	  pp content, new_content
+	  new_content
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	return mcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('list_pos') # COMMENT
+
+      c_set_status
+      c_set_no_cache
+      c_set_contenttype('text/plain')
+      body = new_content
+      c_set_body(body)
+    end
+
+    def self.parse_list(list)
+      return list.map {|item|
+	/\A(\d+)_(\d+)\z/ =~ item
+	$2.to_i
+      }
+    end
+
+    def self.list_arrange(content, item_list)
+      tokens = TextTokenizer.tokenize(content)
+      new_tokens = []
+      item_list.each {|item_num|
+	new_tokens << tokens[item_num - 1]
+      }
+      return tokens_to_s(new_tokens)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActList < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      c = Qwik::Action
+
+      eq([[:ul, 1, "a"]], Qwik::TextTokenizer.tokenize("-a"))
+      eq([[:ul, 2, "a"]], Qwik::TextTokenizer.tokenize("--a"))
+      eq([[:ul, 1, "a"], [:ul, 1, "b"]],
+	 Qwik::TextTokenizer.tokenize("-a\n-b"))
+
+      # test_tokens_to_s
+      eq("- a\n", c.tokens_to_s([[:ul, 1, "a"]]))
+      eq("-- a\n", c.tokens_to_s([[:ul, 2, "a"]]))
+      eq("- a\n- b\n", c.tokens_to_s([[:ul, 1, "a"], [:ul, 1, "b"]]))
+
+      # test_list_edit
+      eq("- b\n", c.list_edit('-a', 1, 'b'))
+      eq("- c\n- b\n", c.list_edit("-a\n-b", 1, 'c'))
+      eq("- a\n- c\n", c.list_edit("-a\n-b", 2, 'c'))
+
+      # test_parse_list
+      eq([1, 3, 2], c.parse_list(["1_1", "1_3", "1_2"]))
+
+      # test_list_arrange
+      eq("- a\n- b\n", c.list_arrange("-a\n-b", [1, 2]))
+      eq("- b\n- a\n", c.list_arrange("-a\n-b", [2, 1]))
+    end
+
+    def test_all2
+      t_add_user
+
+=begin
+      # test_plg_list
+      ok_wi([:div, {:class=>"list"},
+	      [:form, {:method=>"POST", :action=>""},
+		[[:ul, [:li, "a"]]],
+		[:div, {:class=>"submit"},
+		  [:input, {:value=>"Update", :type=>"submit"}]]]],
+	    "{{list
+- A
+- B
+- C
+}}")
+=end
+
+      page = @site.create_new
+      page.store("{{list
+- a
+- b
+}}
+")
+      res = session("POST /test/1.1.1.list_edit?value=c")
+      eq("{{list\n- c\n- b\n}}\n", page.load)
+
+      res = session("POST /test/1.1.2.list_edit?value=d")
+      eq("{{list\n- c\n- d\n}}\n", page.load)
+    end
+  end
+end