qwikdoc 0.0.1

data/vendor/qwik/act-tag.rb

@@ -0,0 +1,103 @@
+# 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_show_tags
+      page = @site[@req.base]
+      return if page.nil?
+      tags = page.get_tags
+      return nil if tags.nil?
+      div = [:div, {:class=>'tags'}]
+      tags.each {|tag|
+	div << [:a, {:href=>"#{tag}.tag"}, tag]
+      }
+      return div
+    end
+
+    def self.tag_get_pages(site)
+      pages = Hash.new {|h, k| h[k] = []}
+      site.each {|page|
+	tags = page.get_tags
+	next if tags.nil?
+	tags.each {|tag|
+	  pages[tag] << page.key
+	}
+      }
+      return pages
+    end
+
+    def ext_tag
+      target_tag = @req.base
+
+      all_pages = Action.tag_get_pages(@site)
+      pages = all_pages[target_tag]
+      return c_nerror('no such tag') if pages.empty?
+
+      div = [:div, {:class=>'tag_pages'}]
+      pages.each {|key|
+	page = @site[key]
+	body = surface_get_body(page)
+	div += body
+      }
+      return c_surface("tag : #{target_tag}"){
+	div
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTag < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      # test_plg_show_tags
+      page = @site.create_new
+      page.store("* [t1][t2] t
+{{show_tags}}")
+      res = session('/test/1.html')
+      ok_title 't'
+      ok_xp([:div, {:class=>'tags'},
+	      [:a, {:href=>'t1.tag'}, 't1'],
+	      [:a, {:href=>'t2.tag'}, 't2']], "//div[@class='tags']")
+
+      # Make pages with tag 't1'.
+      page1 = @site['1']
+      page1.store("* [t1] page1
+body1")
+      page2 = @site.create('2')
+      page2.store("* [t1] page2
+body2")
+
+      # test_tag_get_pages
+      pages = Qwik::Action.tag_get_pages(@site)
+      ok_eq({'t1'=>['1', '2']}, pages)
+
+      # test_act_tag
+      res = session('/test/nosuch.tag')
+      ok_title 'no such tag'
+
+      res = session('/test/t1.tag')
+      ok_title 'tag : t1'
+      ok_xp([:div, {:class=>'tag_pages'},
+	      [:div, {:class=>'day'}, '',
+		[:div, {:class=>'body'},
+		  [:div, {:class=>'section'}, [[:p, 'body1']]]]],
+	      [:div, {:class=>'day'}, '',
+		[:div, {:class=>'body'},
+		  [:div, {:class=>'section'}, [[:p, 'body2']]]]]],
+	    "//div[@class='tag_pages']")
+    end
+  end
+end

data/vendor/qwik/act-text.rb

@@ -0,0 +1,70 @@
+# 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_text
+      str = yield
+      return c_res(str)
+    end
+
+    def plg_pre_text
+      str = yield
+      return c_pre_text { str }
+    end
+
+    def c_pre_text
+      str = yield
+      tokens = TextTokenizer.tokenize(str, true)
+      tree = TextParser.make_tree(tokens)
+      w = Resolver.resolve(@site, self, tree)
+      return w
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActText < Test::Unit::TestCase
+    include TestSession
+
+    def ok_day(e, w, user=DEFAULT_USER)
+      assert_path(e, w, user, "//div[@class='day']")
+    end
+
+    def test_plg_text
+      ok_day([[:h2, {:id=>'8f03c3a6dbec1d0f1a5af60947b7b052'}, '��'],
+	       [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]],
+	     "{{text\n* ��\n}}")
+      ok_day([[:h2, {:id=>'7657b04993b557a2ee9b36bf280a3ec4'}, '��'],
+	       [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]],
+	     "{{text\n* ��\n}}")
+      ok_wi([:p, '<'], "{{text\n<\n}}")
+      @site['1'].delete
+      @site.erase_all
+      ok_wi([[:dl, [:dt, 'dt1'], [:dd, 'dd1']],
+	      [:p, 'p1'], [:dl, [:dd, 'dd2']]],
+	    "{{text\n:dt1:dd1\np1\n::dd2\n}}")
+    end
+
+    def test_c_pre_text
+      res = session
+      ok_eq([[:p, 'a']], @action.c_pre_text { 'a' })
+      ok_eq([[:br]], @action.c_pre_text { '{{br}}' })
+      ok_eq([[:div, {:class=>'ref'},
+		[:a, {:href=>'FrontPage.files/a.jpg'},
+		  [:img, {:src=>'.theme/i/broken.gif',
+		      :class=>'icon', :alt=>'a.jpg'}],
+		  [:br],
+		  'a.jpg']]],
+	    @action.c_pre_text { '{{file(a.jpg)}}' })
+    end
+  end
+end

data/vendor/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 => '�e�L�X�g�G���A�v���O�C��',
+      :dd => '�ҏW�”\�ȃe�L�X�g�G���A��\�����܂��B',
+      :dc => "* ��
+ {{textarea
+ ����̓e�L�X�g�G���A�̃T���v���ł��B
+ }}
+{{textarea
+����̓e�L�X�g�G���A�̃T���v���ł��B
+}}
+�ҏW�”\�ȃe�L�X�g�G���A�ł��B
+"
+    }
+
+    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/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 => '�T�C�g�E�e�[�}',
+      :dd => '�T�C�g���Ƀy�[�W�E�f�U�C�����w��ł��܂��B',
+      :dc => '* �g����
+** qwikWeb���񋟂���e�[�}����I��
+{{theme_list}}
+���̑I���”\�ȃe�[�}�ꗗ�̒������‚�I�сA[[_SiteConfig]]�y�[�W�ɂ�
+ :theme:qwikgreen
+�Ƃ�����s���������Ă��������B�y�[�W�E�f�U�C�����ύX����܂��B
+
+\'\'\'����:\'\'\' qwiksystem�Ȃǂ̈ꕔ�̃y�[�W�́A�V�X�e���\���̂��߂�
+���̂ł��B�ʏ�̃y�[�W�\���Ɏg���ƁA�\�����ςɂȂ�܂��B
+
+** �����ō����CSS�t�@�C�����g��
+[[_SiteTheme]]�Ƃ����y�[�W�ɍs���A���̃y�[�W�ɓY�t�t�@�C���Ƃ���
+�u\'\'\'theme.css\'\'\'�v�Ƃ����t�@�C�����Ŏ����̍D����CSS�t�@�C����
+�Y�t�����������B
+
+\'\'\'����:\'\'\' CSS���ɂ͎g���Ȃ��v�f������܂��B
+�ڂ�����[[PluginStyle.describe]]���������������B
+
+{{warning_for_css}}
+
+** �O����Web�T�C�g�ɒu���Ă���CSS�t�@�C�����g��
+[[_SiteConfig]]�y�[�W��
+ :theme:qwikgreen
+�Ƃ�����s���������āA
+ :theme:http://d.hatena.ne.jp/theme/clover/clover.css
+�Ƃ���������URL���w�肵�Ă��������B�y�[�W�E�f�U�C�����ύX����܂��B
+
+\'\'\'����:\'\'\' �O��CSS�t�@�C�����g���ꍇ�ɂ��A����CSS�t�@�C������
+�g�p�֎~�v�f���܂܂�Ă���ꍇ�ɂ͎g���܂���B
+�ڂ�����[[PluginStyle.describe]]���������������B
+
+'
+    }
+
+    # ============================== 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