qwik2md 0.1.0

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

@@ -0,0 +1,164 @@
+# -*- 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? '..'
+
+module Qwik
+  class Action
+    D_PluginTextarea = {
+      :dt => 'Textarea plugin',
+      :dd => 'You can show a simple textarea field.',
+      :dc => "* Example
+{{textarea
+This is an example for textarea.
+}}
+ {{textarea
+ This is an example for textarea.
+ }}
+You can show an editable text field.
+"
+    }
+
+    D_PluginTextarea_ja = {
+      :dt => 'テキストエリアプラグイン',
+      :dd => '編集可能なテキストエリアを表示します。',
+      :dc => "* 例
+ {{textarea
+ これはテキストエリアのサンプルです。
+ }}
+{{textarea
+これはテキストエリアのサンプルです。
+}}
+編集可能なテキストエリアです。
+"
+    }
+
+    TEXTAREA_MIN_COLS = 50
+    TEXTAREA_MIN_ROWS = 4
+    TEXTAREA_MAX_COLS = 100
+    TEXTAREA_MAX_ROWS = 50
+    def plg_textarea
+      # @textarea_num is global for an action.
+      @textarea_num = 0 if ! defined?(@textarea_num)
+      @textarea_num += 1
+      action = "#{@req.base}.#{@textarea_num}.textarea"
+
+      content = ''
+      content = yield if block_given?
+
+      cols = rows = 1
+      content.each {|line|
+	len = line.chomp.length
+	cols = len if cols < len
+	rows += 1
+      }
+      cols = TEXTAREA_MIN_COLS if cols < TEXTAREA_MIN_COLS
+      rows = TEXTAREA_MIN_ROWS if rows < TEXTAREA_MIN_ROWS
+      cols = TEXTAREA_MAX_COLS if TEXTAREA_MAX_COLS < cols
+      rows = TEXTAREA_MAX_ROWS if TEXTAREA_MAX_ROWS < rows
+
+      return [:div, {:class=>'textarea'},
+	[:form, {:method=>'POST', :action=>action},
+	  [:textarea, {:name=>'t', :cols=>cols, :rows=>rows}, content],
+	  [:br],
+	  [:input, {:type=>'submit', :value=>_('Update')}]]]
+    end
+
+    def ext_textarea
+      c_require_post
+      c_require_page_exist
+
+      num = @req.ext_args[0].to_i
+      return c_nerror(_('Error')) if num < 1
+
+      text = @req.query['t']
+      return c_nerror(_('No text.')) if text.nil? || text.empty?
+      text = text.normalize_newline
+
+      begin
+	plugin_edit(:textarea, num) {|content|
+	  text
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	return mcomment_error(_('Page collision detected.'))
+      end
+
+      c_make_log('textarea')	# TEXTAREA
+
+      url = "#{@req.base}.html"
+      return c_notice(_('Edit text done.'), url){
+	[[:h2, _('Edit text done.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTextarea < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_textarea
+      ok_wi([:div, {:class=>"textarea"},
+	      [:form, {:action=>"1.1.textarea", :method=>"POST"},
+		[:textarea, {:rows=>4, :name=>"t", :cols=>50}, "a\n"],
+		[:br],
+		[:input, {:value=>"Update", :type=>"submit"}]]],
+	    "{{textarea
+a
+}}")
+      ok_wi([:div, {:class=>"textarea"},
+	      [:form, {:action=>"1.1.textarea", :method=>"POST"},
+		[:textarea, {:rows=>4, :name=>"t", :cols=>55},
+		  "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\n"],
+		[:br],
+		[:input, {:value=>"Update", :type=>"submit"}]]],
+	    "{{textarea
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+}}")
+      ok_wi([:div, {:class=>"textarea"},
+	      [:form, {:action=>"1.1.textarea", :method=>"POST"},
+		[:textarea, {:rows=>7, :name=>"t", :cols=>50},
+		  "a\nb\nc\nd\ne\nf\n"],
+		[:br],
+		[:input, {:value=>"Update", :type=>"submit"}]]],
+	    "{{textarea
+a
+b
+c
+d
+e
+f
+}}")
+    end
+
+    def test_ext_textarea
+      t_add_user
+
+      page = @site.create_new
+      page.store("{{textarea}}\n")
+      res = session('POST /test/1.html')
+      ok_xp([:div, {:class=>"textarea"},
+	      [:form, {:action=>"1.1.textarea", :method=>"POST"},
+		[:textarea, {:rows=>4, :name=>"t", :cols=>50}, ""],
+		[:br],
+		[:input, {:value=>"Update", :type=>"submit"}]]],
+	    "//div[@class='textarea']")
+
+      res = session("POST /test/1.1.textarea?t=a")
+      ok_eq("{{textarea\na\n}}\n", page.load)
+
+      res = session("POST /test/1.1.textarea?t=a2")
+      ok_eq("{{textarea\na2\n}}\n", page.load)
+    end
+  end
+end

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

@@ -0,0 +1,346 @@
+# 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.
+
+require 'uri'
+require 'net/http'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    D_SiteTheme = {
+      :dt => 'Site Theme',
+      :dd => 'You can choose your favorite page design.',
+      :dc => '* How to
+** Choose from themes of qwikWeb
+{{theme_list}}
+You can choose a theme from this list.
+Go to [[_SiteConfig]] page, replace
+ :theme:qwikgreen
+line. The page design will be changed.
+
+\'\'\'Caution:\'\'\' Some themes, such as qwiksystem, are for system pages.
+If you choose to use such themes, the page design will be strange.
+
+** Use your own CSS file
+Go to [[_SiteTheme]] page, attach your css file with the filename
+"\'\'\'theme.css\'\'\'".
+
+\'\'\'Caution:\'\'\' There are several inhibited elements in CSS.
+Please see [[PluginStyle.describe]].
+
+{{warning_for_css}}
+
+** Use CSS file on external Web site
+Goto [[_SiteConfig]] page,
+replace
+ :theme:qwikgreen
+line to something like
+ :theme:http://d.hatena.ne.jp/theme/clover/clover.css
+to specify the css file. The page design will be changed.
+
+\'\'\'Caution:\'\'\' Even if you are using an external CSS file,
+there are several inhibited pattern. Please see [[PluginStyle.describe]].
+'
+    }
+
+    D_SiteTheme_ja = {
+      :dt => 'サイト・テーマ',
+      :dd => 'サイト毎にページ・デザインを指定できます。',
+      :dc => '* 使い方
+** qwikWebが提供するテーマから選ぶ
+{{theme_list}}
+この選択可能なテーマ一覧の中から一つを選び、[[_SiteConfig]]ページにて
+ :theme:qwikgreen
+という一行を書換えてください。ページ・デザインが変更されます。
+
+\'\'\'注意:\'\'\' qwiksystemなどの一部のページは、システム表示のための
+ものです。通常のページ表示に使うと、表示が変になります。
+
+** 自分で作ったCSSファイルを使う
+[[_SiteTheme]]というページに行き、そのページに添付ファイルとして
+「\'\'\'theme.css\'\'\'」というファイル名で自分の好きなCSSファイルを
+添付してください。
+
+\'\'\'注意:\'\'\' CSS中には使えない要素があります。
+詳しくは[[PluginStyle.describe]]をご覧ください。
+
+{{warning_for_css}}
+
+** 外部のWebサイトに置いてあるCSSファイルを使う
+[[_SiteConfig]]ページの
+ :theme:qwikgreen
+という一行を書換えて、
+ :theme:http://d.hatena.ne.jp/theme/clover/clover.css
+という感じにURLを指定してください。ページ・デザインが変更されます。
+
+\'\'\'注意:\'\'\' 外部CSSファイルを使う場合にも、そのCSSファイル中に
+使用禁止要素が含まれている場合には使えません。
+詳しくは[[PluginStyle.describe]]をご覧ください。
+
+'
+    }
+
+    # ============================== site theme
+    SITE_THEME = '_SiteTheme'
+    THEME_FILE = 'theme.css'
+
+    def site_theme
+      return @site.siteconfig['theme']
+    end
+
+    def site_theme_path
+      files = @site.files(SITE_THEME)
+      if files && files.exist?(THEME_FILE)
+	#return "/#{@site.sitename}/.css/theme.css"
+	#return c_relative_to_root(".css/theme.css")
+	return ".css/theme.css"
+      end
+
+      t = site_theme
+      if /\Ahttp:\/\// =~ t
+	#return "/#{@site.sitename}/.css/#{t}"
+	#return c_relative_to_root(".css/#{t}")
+	return ".css/#{t}"
+      end
+
+      return ".theme/#{t}/#{t}.css"
+    end
+
+    # ============================== theme_list
+    def plg_theme_list
+      return [:ul, *theme_list.map {|t| [:li, t] }]
+    end
+
+    THEME_IGNORE_DIR = %(css i js s5 swf)
+
+    def theme_list
+      themes = []
+      theme_path = @config.theme_dir.path
+      theme_path.each_entry {|d|
+	s = d.to_s
+	next if /\A\./ =~ s
+	next if THEME_IGNORE_DIR.include?(s)
+	dir = theme_path+d
+	next unless dir.directory?
+	themes << d.to_s
+      }
+      return themes.sort
+    end
+
+    # ============================== theme
+    def pre_act_theme
+      args = @req.path_args
+      filename = args.join('/')
+      path = @config.theme_dir.path+filename
+      return c_simple_send(path)
+    end
+
+    # from act-archive.rb.  Used for archive.
+    def theme_files(theme)
+      dir = @config.theme_dir.path+theme
+      return unless dir.directory?
+      files = []
+      dir.each_entry {|f|
+	file = dir+f
+	next if file.directory?
+	s = f.to_s
+	next if /\A\./ =~ s || /\~\z/ =~ s || s == 'CVS'
+	files << f.to_s
+      }
+      return files
+    end
+
+    # ============================== CSS
+    def pre_act_css
+      str = ''
+      return nil if @req.path_args.empty?
+
+      if @req.path_args.length == 1
+	filename = @req.path_args[0]
+	content, type = css_get_from_site_theme(filename)
+	return c_notfound if content.nil?
+
+	@res['Content-Type'] = type
+	@res.body = content
+	return
+      end
+
+      url = @req.path_args.join('/')
+      content = css_get_by_url(url)
+      return c_notfound if content.nil?
+      @res['Content-Type'] = 'text/css'
+      @res.body = content
+      return
+    end
+
+    INVALID_CSS_INDICATOR = '/* invalid css */'
+    def css_get_from_site_theme(filename)
+      files = @site.files(SITE_THEME)
+      return nil if files.nil? || ! files.exist?(filename)
+      str = files.get(filename)
+      return nil if str.nil?
+      ext = filename.path.ext
+      type = @res.get_mimetypes ext
+      if type == 'text/css'
+	str = INVALID_CSS_INDICATOR if ! CSS.valid?(str)
+	return str, type
+      elsif /\Aimage\// =~ type
+	return str, type
+      else
+	return nil
+      end
+    end
+
+    def css_get_by_url(url)
+      # Add one more slash.
+      url = url.sub(/\Ahttp:\//, 'http://') if /\Ahttp:\/[^\/]/ =~ url
+      content = c_fetch_by_url(url)
+      return nil if content.nil?
+      return '/* invalid css */' if ! CSS.valid?(content)
+      return content
+    end
+
+    def c_fetch_by_url(url)
+      uri = URI(url)
+      return nil if uri.scheme != 'http'
+      res = nil
+      begin
+	Net::HTTP.start(uri.host, uri.port) {|http|
+	  res = http.get(uri.path)
+	}
+      rescue
+	return nil
+      end
+      return res.body
+    end
+
+    # ============================== warning for CSS
+    def plg_warning_for_css
+      content, type = css_get_from_site_theme('theme.css')
+      return nil if content.nil?
+      if content != INVALID_CSS_INDICATOR
+	return [:span, 'Attached CSS content is safe.']
+      else
+	return [:strong, 'Invalid elements are used in your CSS file.']
+      end
+    end
+
+    # ============================== favicon.ico
+    def pre_ext_ico
+      #p @req.base
+      if ! @req.base == "favicon"
+        #p "Error"
+        return c_nerror(_('Error'))
+      end
+      path = @config.theme_dir.path + "i/favicon.ico"
+      return c_simple_send(path, "image/vnd.microsoft.icon")
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTheme < Test::Unit::TestCase
+    include TestSession
+
+    def test_site_theme
+      res = session
+
+      # test_theme
+      eq 'qwikgreen', @action.site_theme
+
+      # test_theme_path
+      eq '.theme/qwikgreen/qwikgreen.css', @action.site_theme_path
+
+      page = @site['_SiteConfig']
+      page.store(':theme:t')	# No such theme, but this is just a test.
+      eq 't', @action.site_theme
+      eq '.theme/t/t.css', @action.site_theme_path
+
+      # test_site_theme
+      page = @site['_SiteTheme']
+      page.store 't'
+      files = @site.files('_SiteTheme')
+      files.put 'theme.css', 't'
+      eq '.css/theme.css', @action.site_theme_path
+
+      t_with_path {
+	eq '.css/theme.css', @action.site_theme_path
+      }
+
+      t_with_siteurl {
+	eq '.css/theme.css', @action.site_theme_path
+      }
+    end
+
+    def test_act_theme
+      res = session '/.theme/css/base.css'
+      assert_match(/\A\/*/, res.body)
+    end
+
+    def test_theme_all
+      # test_theme_list
+      res = session
+      list = @action.theme_list
+      eq true, list.include?('qwiksystem')
+      eq true, list.include?('qwikborder')
+      eq true, 4 <= list.length		# At least 4 themes.
+
+      # test_plg_theme_list
+      ok_wi(/<li>qwikborder<\/li>/, '{{theme_list}}')
+      ok_wi(/<li>qwiksystem<\/li>/, '{{theme_list}}')
+
+      # test_theme_files
+      list = @action.theme_files('qwikborder')
+      eq ['qwikborder.css', 'qwikborder_ball.png',
+	'qwikborder_h2.png', 'qwikborder_li.png'], list.sort	# It depends.
+      eq true, 4 <= list.length		# At least 4 files.
+    end
+
+    # Please see check-act-theme.rb for external CSS.
+    def test_act_css
+      page = @site['_SiteTheme']
+      page.store 't'
+
+      files = @site.files('_SiteTheme')
+      files.put 'theme.css', '/* test */'
+
+      res = session '/test/.css/theme.css'
+      eq '/* test */', res.body
+      eq 'text/css', res['Content-Type']
+      files.delete 'theme.css'
+
+      # test_invalid_css
+      files.put 'theme.css', '@i'
+      res = session '/test/.css/theme.css'
+      eq '/* invalid css */', res.body
+      files.delete 'theme.css'
+
+      # test_image
+      files.put 't.png', 't'
+      res = session '/test/.css/t.png'
+      eq 't', res.body
+      eq 'image/png', res['Content-Type']
+      files.delete 't.png'
+    end
+
+    def test_ext_ico
+      # FIXME: This test case is broken.
+      res = session("/nosuch.ico")
+      #is "text/html; charset=Shift_JIS", res['Content-Type']
+      #is 894, res.body
+
+      res = session("/favicon.ico")
+      is "image/vnd.microsoft.icon", res['Content-Type']
+      is 894, res.body.size	# This size may vary.
+    end
+
+  end
+end

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

@@ -0,0 +1,112 @@
+# 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-template'
+
+module Qwik
+  class Action
+    REPLACE_TOC = {
+      :h2=>[:ol, 1],
+      :h3=>[:ol, 2],
+      :h4=>[:ol, 3],
+      :h5=>[:ol, 4],
+      :h6=>[:ol, 5],
+    }
+
+    # FIXME: Use tokenes instead of tree.
+    def toc_inside
+      page = @site[@req.base]
+      return nil if page.nil?
+      wabisabi = page.get_body_tree
+      wabisabi ||= []
+
+      res = TDiaryResolver.new(@config, @site, self)
+      
+      tokens = []
+      wabisabi.each_tag(:h2, :h3, :h4, :h5, :h6) {|w|
+	tag = w.element_name
+	head = REPLACE_TOC[tag]
+	name = TDiaryResolver.get_title_name(w)
+	if tag == :h2
+	  label = res.encode_label(name)
+	  link = [[:a, {:href=>"#"+label}, w.text]]
+	  w = head + [link]
+	else
+	  w = head + [w.text]
+	end
+	tokens << w
+      }
+      return nil if tokens.length == 0
+
+      w = TextParser.make_tree(tokens).get_single
+      w = [[:h5, _('Contents')],
+	[:div, {:id=>'tocinside'}, w]]
+      return w
+    end
+
+    def plg_toc # deleted
+      return nil
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTOC < Test::Unit::TestCase
+    include TestSession
+
+    def test_toc
+      t_add_user
+      page = @site.create_new
+
+      page.store("{{toc}}
+*t1
+*t2")
+      session('/test/1.html')
+      ok_in([[:h5, 'Contents'],
+	      [:div, {:id=>'tocinside'},
+		[:ol, [:li, [:a, {:href=>"#t1"}, 't1']],
+		  [:li, [:a, {:href=>"#t2"}, 't2']]]]],
+	    "//div[@class='toc']")
+
+      # test with []
+      page.store("{{toc}}
+*t1
+**t2")
+      session('/test/1.html')
+      ok_in([[:h5, 'Contents'],
+ [:div, {:id=>'tocinside'},
+  [:ol, [:li, [:a, {:href=>"#t1"}, 't1']], [:ol, [:li, 't2']]]]],
+	    "//div[@class='toc']")
+
+      # test with []
+      page.store("{{toc}}
+*[hoge]hhh")
+      session('/test/1.html')
+      ok_in([[:h5, 'Contents'],
+ [:div,
+  {:id=>'tocinside'},
+  [:ol, [:li, [:a, {:href=>"#815417267f76f6f460a4a61f9db75fdb"}, "[hoge]hhh"]]]]],
+	    "//div[@class='toc']")
+
+
+      # test with []
+      page.store("{{toc}}
+*t1
+***[hoge]hhh")
+      session('/test/1.html')
+      ok_in([[:h5, 'Contents'],
+ [:div,
+  {:id=>'tocinside'},
+  [:ol, [:li, [:a, {:href=>"#t1"}, 't1']], [:ol, [:ol, [:li, "[", 'hoge', "]", 'hhh']]]]]],
+	    "//div[@class='toc']")
+
+    end
+  end
+end