qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-backup.rb

@@ -0,0 +1,236 @@
+# -*- coding: shift_jis -*-
+# 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/wabisabi-diff'
+
+module Qwik
+  class Action
+    D_ExtBackup = {
+      :dt => 'Backup pages',
+      :dd => 'You can see backup of the page.',
+      :dc => "* How to
+Go edit page, follow 'Backup' link in the right side.
+You see the backup list of the page.
+"
+    }
+
+    D_ExtBackup_ja = {
+      :dt => 'ページ・バックアップ',
+      :dd => 'ページのバックアップを見ることができます。',
+      :dc => "* 使い方
+編集画面の右側に「バックアップ」というリンクがあります。
+そのリンクより、ページのバックアップリストを見ることができます。
+"
+    }
+
+    def plg_backup_list
+      return if @req.user.nil?
+      return if ! defined?(@req.base) || @req.base.nil?
+      return page_attribute('backup', _('Show backup'))
+    end
+
+    def ext_backup
+      c_require_pagename
+      c_require_member
+      #c_require_page_exist # does not require the page is exist
+      # because you can see the list of the page that is already deleted.
+      c_require_no_path_args
+
+      args = @req.ext_args
+      if 0 < args.length # has target
+	return backup_show(@site, @req.base, args)
+      end
+
+      return backup_list_page(@site, @req.base)
+    end
+
+    def backup_show(site, key, args)
+      page = site[key]
+
+      return c_nerror('only one time stamp') if 1 < args.length
+      time = args.shift
+      return c_nerror('should be number') unless /\A[0-9]+\z/ =~ time
+
+      # Is the backup exist?
+      time = Time.at(time.to_i)
+      unless site.backupdb.exist?(key, time)
+	return c_notfound('not found')
+      end
+
+      str = site.backupdb.get(key, time)	# Get the old content.
+=begin
+# Do not show diffs for now. (2009/9/1)
+      list = backup_list(site, key)		# Get the list.
+
+      # Get the index of the content.
+      index = nil
+      list.each_with_index {|a, i|
+	if a[1] == time.to_i
+	  index = i
+	end
+      }
+      return c_notfound('no data?') if index.nil?
+
+      msg = ''
+      if index == 0
+	msg = [:p, _('This is the first page.')]
+      else
+	# FIXME: fix diff function. (2009/9/1)
+	diff = backup_diff(list, index-1, index)
+	msg = [:div, {:class=>'differ'}, *diff]
+      end
+
+      return c_plain("#{key} @ #{time.ymdax}") {
+	[[:div, {:class=>'day'},
+	    [:h2, _('Difference from the previous page')],
+	    [:div, {:class=>'section'}, msg]],
+	  [:div, {:class=>'day'},
+	    [:h2, _('Original data')],
+	    [:div, {:class=>'section'},
+	      [:pre, str]]]]
+      }
+=end
+
+      return c_plain("#{key} @ #{time.ymdax}") {
+	[[:div, {:class=>'day'},
+	    [:h2, _('Original data')],
+	    [:div, {:class=>'section'},
+	      [:pre, str]]]]
+      }
+    end
+
+    def backup_list(site, key)
+      list = []
+      site.backupdb.each_by_key(key) {|v, time|
+	list << [v, time.to_i]
+      }
+      return list
+    end
+
+    def backup_diff(list, last, now)
+      s1, t1 = list[last]
+      s2, t2 = list[now]
+      return DiffGenerator.generate(s1, s2)
+    end
+
+    def backup_list_page(site, key)
+      list = backup_list(site, key)
+
+      ul = list.map {|v, time|
+	[:li, [:a, {:href=>"#{key}.#{time}.backup"},
+	    Time.at(time).format_date]]
+      }
+      if 0 < ul.length
+	ul.last << ' '+_('<-')+' '+ _('Newest')
+      end
+
+      return c_plain(_('Backup list')) {
+	[:div, {:class=>'day'},
+	  [:div, {:class=>'section'},
+	    [:ul, ul]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActBackup < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_backup_list
+      ok_wi [:span, {:class=>'attribute'},
+	[:a, {:href=>'1.backup'}, 'Show backup']],
+	'{{backup_list}}'
+    end
+
+    def test_act_backup2
+      #return if $0 != __FILE__
+
+      # Only members can see the page.
+      res = session '/test/1.html'
+      ok_title 'Members Only'
+      res = session '/test/1.backup'
+      ok_title 'Members Only'
+
+      t_add_user
+
+      # You can see backup page even if the page does not exist.
+      res = session '/test/1.html'
+      ok_title 'Page not found.'
+      res = session '/test/1.backup'
+      ok_in ['Backup list'], '//title'
+
+      page = @site.create_new
+      page.put_with_time('t', 0)
+
+      res = session '/test/1.html'
+      ok_title '1'
+      res = session '/test/1.backup'
+      ok_in ['Backup list'], '//title'
+
+      # Error check.
+      res = session '/test/1.backup/0'
+      ok_title 'Incorrect path arguments.'
+      res = session '/test/1.100.200.backup'
+      ok_title 'only one time stamp'
+      res = session '/test/1.hoge.backup'
+      ok_title 'should be number'
+
+      list = @action.backup_list(@site, '1')
+#      eq 't', list[0][0]
+#      eq '',  list[1][0]
+      eq nil, list[2]
+
+      t1 = list[0][1]
+      res = session "/test/1.#{t1}.backup"
+      assert_text(/\A1 @ /, 'title')
+      assert_text 't', 'pre'
+
+      # Edit the page again.
+      page.put_with_time 't2', 1
+
+      list = @action.backup_list(@site, '1')
+#      eq 't',  list[0][0]
+#      eq 't2', list[1][0]
+#      eq '',   list[2][0]
+      eq nil,  list[3]
+
+      diff = @action.backup_diff(list, 0, 1)
+#      eq [[:del, 't'], [:br], [:ins, 't2'], [:br]], diff
+
+      t2 = list[1][1]
+      res = session "/test/1.#{t2}.backup"
+      assert_text(/\A1 @ /, 'title')
+      assert_text('t2', 'pre')
+#      ok_in [[:del, 't'], [:br], [:ins, 't2'], [:br]],
+#	"//div[@class='differ']"
+
+      # Edit the page again. The 3rd times.
+      page.put_with_time('t3', 2)
+
+      list = @action.backup_list(@site, '1')
+#      eq 't',  list[0][0]
+#      eq 't2', list[1][0]
+#      eq 't3', list[2][0]
+#      eq '',   list[3][0]
+      eq nil,  list[4]
+
+      diff = @action.backup_diff(list, 1, 2)
+#      eq [[:del, 't2'], [:br], [:ins, 't3'], [:br]], diff
+
+      t3 = list[2][1]
+      res = session "/test/1.#{t3}.backup"
+      assert_text 't3', 'pre'
+#      ok_in [[:del, 't2'], [:br], [:ins, 't3'], [:br]],
+#		"//div[@class='differ']"
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-basic.rb

@@ -0,0 +1,325 @@
+# -*- coding: shift_jis -*-
+# 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-describe'
+
+module Qwik
+  class Action
+    D_PluginBasic = {
+      :dt => 'Basic plugins',
+      :dd => 'Simple and Basic plugins.',
+      :dc => '* Description
+** BR plugin
+You can break a line by using <br> element.
+ This is {{br}} a test.
+This is {{br}} a test.
+** Open with new window plugin
+You can make a link to show the page in a new window.
+ {{window(http://qwik.jp/)}}
+{{window(http://qwik.jp/)}}
+** Show last modified plugin
+You can show last modified by this plugin.
+ {{last_modified}}
+{{last_modified}}
+** Information only for a group
+You can specify content only for guests or for members.
+{{only_guest
+You are a guest.
+}}
+{{only_member
+You are a member.
+}}
+ {{only_guest
+ You are a guest.
+ }}
+ {{only_member
+ You are a member.
+ }}
+** Comment out plugin
+You can comment out the content.
+ {{com
+ You can not see this line.
+ You can not see this line also.
+ }}
+{{com
+You can not see this line.
+You can not see this line also.
+}}
+** My group
+You can see your group list.
+ {{my_group}}
+{{my_group}}
+** Plugin list plugin
+プラグインの一覧を表示します。
+ {{plugin_list}}
+{{plugin_list}}
+'
+    }
+
+    D_PluginBasic_ja = {
+      :dt => '基本プラグイン',
+      :dd => '基本的なプラグインの説明です。',
+      :dc => '* 説明
+** BRプラグイン
+改行します。
+ This is {{br}} a test.
+This is {{br}} a test.
+** 新規ウィンドウで表示
+新しいウィンドウを作って、そこで表示させます。
+ {{window(http://qwik.jp/)}}
+{{window(http://qwik.jp/)}}
+** 最終更新プラグイン
+最終更新日時を表示します。
+ {{last_modified}}
+{{last_modified}}
+** 特定グループ向け表示
+ゲストだけに表示する部分、グループだけに表示する部分を指定できます。
+{{only_guest
+あなたはゲストです。
+}}
+{{only_member
+あなたはメンバーです。
+}}
+ {{only_guest
+ あなたはゲストです。
+ }}
+ {{only_member
+ あなたはメンバーです。
+ }}
+** コメントアウト・プラグイン
+ある領域をコメントアウトします。
+ {{com
+ この行は見えない。
+ この行も見えない。
+ }}
+{{com
+この行は見えない。
+この行も見えない。
+}}
+** 自分のグループ
+自分が所属しているグループの一覧を表示します。
+ {{my_group}}
+{{my_group}}
+** プラグインリスト・プラグイン
+プラグインの一覧を表示します。
+ {{plugin_list}}
+{{plugin_list}}
+'
+    }
+
+    # ==============================
+    def plg_qwik_null
+      return ''
+    end
+
+    def plg_qwik_test
+      return 'test'
+    end
+
+    # ==============================
+    def plg_br
+      return [:br]
+    end
+
+    # ==============================
+    def plg_pre
+      content = yield
+      return [:pre, content]
+    end
+
+    # ==============================
+    def plg_window(url, text=nil)
+      text = url if text.nil?
+      a = [:a, {:href=>url, :class=>'external', :target=>'_blank'}, text]
+      # FIXME: Recognize the url is external or not.
+      return a
+    end
+
+    # ==============================
+    def plg_com(*args)	# commentout
+      #str = yield if block_given?
+      return nil	# ignore all
+    end
+
+    # ============================== adminmenu
+    def plg_menu(cmd, msg=nil)
+      return if ! @req.user
+      return if ! defined?(@req.base) || @req.base.nil?
+      return plg_act('new', cmd) if cmd == 'newpage'
+      return plg_ext(cmd) if cmd == 'edit' || cmd == 'wysiwyg'
+      return nil
+    end
+
+    def plg_act(act, msg=act)
+      return [:a, {:href=>".#{act}"}, _(msg)]
+    end
+
+    def plg_ext(ext, msg=ext)
+      return [:a, {:href=>"#{@req.base}.#{ext}"}, _(msg)]
+    end
+
+    # ============================== page attribute
+    def page_attribute(ext, msg, base=@req.base)
+      return [:span, {:class=>'attribute'},
+	  [:a, {:href=>base+'.'+ext}, msg]]
+    end
+
+    def plg_last_modified
+      return if ! defined?(@req.base) || @req.base.nil?
+      page = @site[@req.base]
+      return if page.nil?
+      date = page.mtime
+      return [:span, {:class=>'attribute'}, _('Last modified'), ': ',
+	[:em, date.ymd]]
+    end
+
+    def plg_generate_time
+      return nil if @req.user.nil?
+      return [:span, {:class=>'attribute'}, _('Generation time'), ': ',
+	[:em, "__qwik_page_generate_time__", _('seconds')]]
+    end
+
+    # ============================== member control
+    def plg_only_guest
+      return nil if @req.user
+      s = yield
+      return if s.nil?
+      return c_res(s)
+    end
+
+    def plg_only_member
+      return nil if @req.user.nil?
+      s = yield
+      return if s.nil?
+      return c_res(s)
+    end
+
+    # ============================== group
+    def plg_my_group
+      return nil if @req.user.nil?
+      farm = @memory.farm
+      group_list = farm.get_my_group(@req.user)
+      ul = [:ul]
+      group_list.each {|name|
+	ul << [:li, [:a, {:href=>"/#{name}/"}, name]]
+      }
+      return ul
+    end
+
+    # ============================== meta function
+    def plg_plugin_list
+      desc = descriptions_hash
+      plg_desc = plugin_descriptions(desc)
+
+      ul = [:ul]
+      plugin_list.each {|plugin_name|
+	if plg_desc[plugin_name]
+	  desc_link = plg_desc[plugin_name].first
+	  ul << [:li, [:a, {:href=>"#{desc_link}.describe"}, plugin_name]]
+	else
+	  ul << [:li, plugin_name]
+	end
+      }
+      return ul
+    end
+
+    IGNORE_PLUGINS = [/\Aring_/, /\Amodulobe_/]
+    def plugin_list
+      return self.methods.grep(/\Aplg_/).map {|name|
+	name.sub(/\Aplg_/) {''}
+      }.reject {|name|
+	IGNORE_PLUGINS.any? {|re| re =~ name }
+      }.sort
+    end
+
+    def descriptions_hash
+      desc = {}
+      description_list.each {|name|
+	desc[name] = self.class.const_get("D_#{name}")[:dc]
+      }
+      return desc
+    end
+
+    def plugin_descriptions(desc)
+      plg_desc = {}
+      desc.each {|k, v|
+	v.each {|line|
+	  if /\{\{([a-z_]+)/ =~ line
+	    name = $1
+	    plg_desc[name] = [] if ! plg_desc[name]
+	    if ! plg_desc[name].include? k
+	      plg_desc[name] << k
+	    end
+	  end
+	}
+      }
+      return plg_desc
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActBasic < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      # test_null
+      ok_wi [''], '{{qwik_null}}'
+
+      # test_test
+      ok_wi ['test'], '{{qwik_test}}'
+
+      # test_br
+      ok_wi([:br], '{{br}}')
+
+      # test_pre
+      ok_wi [:pre, "t\n"], '{{pre
+t
+}}'
+
+      # test_window
+      ok_wi [:a, {:class=>"external", :target=>'_blank', :href=>'url'}, 't'],
+	'{{window(url,t)}}'
+      ok_wi [:a, {:class=>"external", :target=>'_blank', :href=>'url'}, 'url'],
+	'{{window(url)}}'
+
+      # test_admin_menu
+      ok_wi([:a, {:href=>'.new'}, 'newpage'], '{{menu(newpage)}}')
+      ok_wi([:a, {:href=>'1.edit'}, 'edit'], '{{menu(edit)}}')
+      ok_wi([], '{{menu(nosuchmenu)}}')
+      # test for not logined mode
+      #ok_wi('', '{{menu(newpage)}}', nil)
+      #ok_wi('', '{{menu(edit)}}', nil)
+      #ok_wi('', '{{menu(nosuchmenu)}}', nil)
+
+      # test_meta_plugin
+      #ok_wi ['test'], '{{plugin_list}}'
+      w = @action.plg_plugin_list
+      eq :ul, w[0]
+    end
+
+    def test_page_attribute
+      # test_last_modified
+      ok_wi(/Last modified: /, '{{last_modified}}')
+
+      # test_generate_time
+      ok_wi(/Generation time: /, '{{generate_time}}')
+
+      # test_only_member_or_guest
+      t_site_open
+      ok_wi([:p, 'm'], "{{only_member\nm\n}}")
+      assert_path([], "{{only_member\nm\n}}", nil, "//div[@class='section']")
+      ok_wi([], "{{only_guest\ng\n}}")
+      assert_path([:p, 'g'], "{{only_guest\ng\n}}",
+		  nil, "//div[@class='section']")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-book.rb

@@ -0,0 +1,161 @@
+# 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
+    D_PluginBook = {
+      :dt => 'Book and ISBN plugins',
+      :dd => 'Add a link to a book or to search by a phrase.',
+      :dc => "* Example
+** ISBN plugin
+Add a link to a book by isbn.
+ {{isbn(4797318325)}}
+{{isbn(4797318325)}}
+ {{isbn_amazon(4797318325)}}
+{{isbn_amazon(4797318325)}}
+ {{isbn_amazon(4797318325,書名)}}
+{{isbn_amazon(4797318325,書名)}}
+** Book Serach plugin
+ {{book_search(Wiki)}}
+{{book_search(Wiki)}}
+ {{book_search(ブログ)}}
+{{book_search(ブログ)}}
+You can edit the book stores list on [[_BookSearch]].
+"
+    }
+
+    D_PluginBook_ja = {
+      :dt => '本とISBNプラグイン',
+      :dd => '本や本の検索へのリンクを作ります。',
+      :dc => "* 例
+** ISBNプラグイン
+ISBNでリンクします。
+ {{isbn(4797318325)}}
+{{isbn(4797318325)}}
+ {{isbn_amazon(4797318325)}}
+{{isbn_amazon(4797318325)}}
+ {{isbn_amazon(4797318325,書名)}}
+{{isbn_amazon(4797318325,書名)}}
+リンク先の一覧は、[[_IsbnLink]]で指定できます。
+** 本の検索プラグイン。
+本を検索します。
+ {{book_search(Wiki)}}
+{{book_search(Wiki)}}
+ {{book_search(ブログ)}}
+{{book_search(ブログ)}}
+検索リンク先の一覧は、[[_BookSearch]]で指定できます。
+"
+    }
+
+    BOOK_SEARCH = '_BookSearch'
+
+    def plg_book(key)
+      page = @site[BOOK_SEARCH]
+      ar = []
+      ar << "book:#{key} "
+      page.wikidb.array.each {|name, args|
+	url, encoding = args
+	sk = key
+	sk = sk.to_sjis.escape if encoding == 'sjis'
+	sk = sk.to_euc.escape  if encoding == 'euc'
+	sk = sk.to_utf8.escape if encoding == 'utf8'
+	url = url.index("$1") ? url.sub(/\$1/, sk) : url+sk
+	ar << [:a, {:href=>url}, name]
+	ar << ' '
+      }
+      return [:div, {:class=>'box'}, ar]
+    end
+    alias plg_book_search plg_book
+
+    def plg_isbn_amazon(isbn, t=nil)
+      isbn = isbn.to_s
+      msg = t
+      msg = "isbn:#{isbn}" if t.nil?
+      a = @site.siteconfig['aid']
+      aid = "/#{a}" if a
+      return [:a, {:href=>"http://www.amazon.co.jp/exec/obidos/ASIN/#{isbn}#{aid}/ref=nosim/"}, msg]
+    end
+
+    ISBN_LINK = '_IsbnLink'
+
+    def plg_isbn(isbn, t=nil)
+      isbn = isbn.to_s
+      isbn1 = isbn.gsub(/ISBN/i, '')
+      isbn2 = isbn1.gsub(/-/, '')
+      a = @site.siteconfig['aid']
+      aid = "/#{a}" if a
+
+      link = @site[ISBN_LINK]
+      db = link.wikidb
+      ar = []
+
+      msg = t
+      msg = "isbn:#{isbn}" if t.nil?
+
+      ar << msg
+      ar << ' '
+
+      db.array.each {|name, args|
+	args = args.dup
+	url = args.shift
+	next if url.nil?
+
+	url = url.sub_str('#{isbn1}', isbn1)
+	url = url.sub_str('#{isbn2}', isbn2)
+	url = url.sub_str('#{aid}',   aid)
+	ar << [:a, {:href=>url}, name]
+	ar << ' '
+      }
+
+      return [:div, {:class=>'box'}, ar]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActBook < Test::Unit::TestCase
+    include TestSession
+
+    def test_book
+      page = @site['_BookSearch']
+      page.store(',utf8,http://example.com/utf8/,utf8
+,sjis,http://example.com/sjis/,sjis
+,euc,http://example.com/euc/,euc')
+
+      ok_wi([:div, {:class=>'box'},
+	      ['book:本 ',
+		[:a, {:href=>'http://example.com/utf8/%E6%9C%AC'},
+		  'utf8'], ' ',
+		[:a, {:href=>'http://example.com/sjis/%96%7B'},
+		  'sjis'], ' ',
+		[:a, {:href=>'http://example.com/euc/%CB%DC'},
+		  'euc'], ' ']],
+	    '{{book_search(本)}}')
+
+      # test_isbn
+      ok_wi([:a, {:href=>'http://www.amazon.co.jp/exec/obidos/ASIN/4797318325/q02-22/ref=nosim/'}, 'isbn:4797318325'], '{{isbn_amazon(4797318325)}}')
+      ok_wi([:a, {:href=>'http://www.amazon.co.jp/exec/obidos/ASIN/4797318325/q02-22/ref=nosim/'}, 't'], '{{isbn_amazon(4797318325,t)}}')
+
+      page = @site['_IsbnLink']
+      page.store(',i1,http://example.com/i1/#{isbn1}
+,i2,http://example.com/i2/#{isbn2}
+,aid,http://example.com/aid/#{isbn2}#{aid}
+')
+
+      ok_wi([:div, {:class=>'box'}, ['isbn:4797318325', ' ',
+		[:a, {:href=>'http://example.com/i1/4797318325'}, 'i1'], ' ',
+		[:a, {:href=>'http://example.com/i2/4797318325'}, 'i2'], ' ',
+		[:a, {:href=>'http://example.com/aid/4797318325/q02-22'},
+		  'aid'], ' ']],
+	    '{{isbn(4797318325)}}')
+    end
+  end
+end