qwik2md 0.1.0

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

@@ -0,0 +1,380 @@
+# -*- 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_ExtPresen = {
+      :dt => 'Presentaion mode',
+      :dd => 'You can show the page in presentation mode.',
+      :dc => "* How to
+ [[FrontPage.presen]]
+[[FrontPage.presen]]
+Follow this link and you'll see the presen mode of the FrontPage.
+ {{presen}}
+You can show a link to presentation mode.
+** Specify Presentation theme
+ {{presen_theme(qwikblack)}}
+You can specify the presentation theme by this plugin.
+{{presen_theme_list}}
+You can choose from this list.
+* Thanks
+I use
+[[S5: A Simple Standards-Based Slide Show System|http://www.meyerweb.com/eric/tools/s5/]]
+by Mr. Eric Meyer for this presentation mode.  Thank you very much.
+"
+    }
+
+    D_ExtPresen_ja = {
+      :dt => 'プレゼン・モード',
+      :dd => 'プレゼン・モードで表示します。',
+      :dc => '* 使い方
+ [[FrontPage.presen]]
+[[FrontPage.presen]]
+このリンクをたどると、FrontPageをプレゼン・モードで表示します。
+ {{presen}}
+あるページをプレゼン・モードにするリンクを表示したい場合は、
+このプラグインをご利用下さい。
+** プレゼンテーマ指定
+ {{presen_theme(qwikblack)}}
+このようにして、プレゼンテーマを指定できます。
+{{presen_theme_list}}
+この一覧の中から選べます。
+* 感謝
+プレゼン・モードには、Eric Meyer氏による
+[[S5: A Simple Standards-Based Slide Show System|http://www.meyerweb.com/eric/tools/s5/]]
+を使わせていただいております。どうもありがとうございます。
+'
+    }
+
+    def plg_presen_switch
+      return nil if ! defined?(@req.base) || @req.base.nil?
+      return plg_ext('presen', _('Present')) if /^Presen/ =~ @req.base
+      return nil
+    end
+
+    def plg_presen
+      return nil if ! defined?(@req.base) || @req.base.nil?
+      return page_attribute('presen', _('Presentation mode'))
+    end
+    alias plg_show_presen plg_presen	# FIXME: Make this obsolete.
+
+    def plg_presen_theme(theme)
+      return	# Do nothing.
+    end
+
+    def plg_presen_theme_list
+      return [:ul, *presen_theme_list.map {|t| [:li, t] }]
+    end
+
+    PRESEN_THEME_IGNORE_DIR = %(default)
+
+    def presen_theme_list
+      themes = []
+      theme_path = @config.theme_dir.path+'s5'
+      theme_path.each_entry {|d|
+	s = d.to_s
+	next if /\A\./ =~ s
+	next if PRESEN_THEME_IGNORE_DIR.include?(s)
+	dir = theme_path+d
+	next unless dir.directory?
+	themes << d.to_s
+      }
+      return themes.sort
+    end
+
+    # ============================== ext_presen
+    PRESEN_DEFAULT_THEME = 'qwikworld'
+
+    def ext_presen
+      c_require_pagename
+      c_require_page_exist
+      c_require_no_path_args
+      c_require_no_ext_args
+
+      # Get theme.
+      page = @site[@req.base]
+      content = page.load
+
+      w = c_parse(content)
+      theme = presen_get_theme(w)
+      theme ||= PRESEN_DEFAULT_THEME
+
+      w = c_res(content)
+
+      w = presen_patch(w)
+
+      c_set_html
+      c_set_no_cache
+      @res.body = PresenGenerator.generate(@site, @req.base, w, theme)
+    end
+
+    def presen_patch(wabisabi)
+      if wabisabi.is_a?(String)		# for test
+	wabisabi = c_parse(wabisabi)
+      end
+
+      nw = []
+      wabisabi.each {|ele|
+	if ele.is_a?(Array) && ele[0] == :plugin &&
+	    ele.attr[:method] == 'com'
+	  # do nothing
+	else
+	  nw << ele
+	end
+      }
+      return nw
+    end
+
+    def presen_get_theme(wabisabi)
+      if wabisabi.is_a?(String)		# for test
+	wabisabi = c_parse(wabisabi)
+      end
+
+      theme = nil
+      wabisabi.each {|ele|
+	if ele.is_a?(Array) && ele[0] == :plugin &&
+	    ele.attr[:method] == 'presen_theme'
+	  theme = ele.attr[:param]
+	end
+      }
+      return theme
+    end
+
+    def nu_presen_get_theme(content)
+      theme = 'i18n'
+      wabisabi = c_res(content)
+      wabisabi.each {|ele|
+	if ele.is_a?(Array) && ele[0] == :plugin &&
+	    ele.attr[:method] == 'presen_theme'
+	  theme = ele.attr[:param]
+	end
+      }
+      theme
+    end
+  end
+
+  class PresenGenerator
+    def self.generate(site, pagename, wabisabi, theme=nil)
+      page = site[pagename]
+      title = page.get_title
+
+      wabisabi = resolve_h(wabisabi)
+      wabisabi = resolve_slide(wabisabi)
+
+      #theme ||= 'i18n'
+      theme ||= 'qwikworld'
+      #theme = 'qwikblack'
+      #theme = 'qwikborder'
+
+      return html_page(title, theme, wabisabi, pagename)
+    end
+
+    REPLACE_H = {:h2=>:h1, :h3=>:h2, :h4=>:h3, :h5=>:h4, :h6=>:h5}
+    def self.resolve_h(wabisabi)
+      wabisabi.each_tag(:h2, :h3, :h4, :h5, :h6){|w|
+	w[0] = REPLACE_H[w[0]]
+	w
+      }
+    end
+
+    def self.resolve_slide(wabisabi)
+      presentation = []
+      slide = []
+      presentation << slide
+      wabisabi.each {|e|
+	if e.is_a?(Array) && e[0] == :h1 && 0 < slide.size
+	  slide = []
+	  presentation << slide
+	end
+	slide << e
+      }
+
+      return presentation.map {|slide|
+	[:div, {:class=>'slide'}, slide]
+      }
+    end
+
+    private
+
+    def self.html_page(title, theme, wabisabi, pagename)
+      theme_href = ".theme/s5/#{theme}/slides.css"
+      html = [[:"!DOCTYPE", 'html', 'PUBLIC',
+	  '-//W3C//DTD HTML 4.01 Transitional//EN',
+	  'http://www.w3.org/TR/html4/loose.dtd'],
+	[:html,
+	  {:'xmlns'=>'http://www.w3.org/1999/xhtml',
+	    :'xmlns:v'=>'urn:schemas-microsoft-com:vml'},
+	  [:head,
+	    [:title, title],
+	    [:meta, {:name=>'defaultView', :content=>'slideshow'}],
+	    [:meta, {:name=>'controlVis', :content=>'hidden'}],
+	    [:link, {:rel=>'stylesheet', :href=>theme_href,
+		:type=>'text/css', :media=>'projection', :id=>'slideProj'}],
+	    [:link, {:rel=>'stylesheet', :href=>'.theme/s5/default/outline.css',
+		:type=>'text/css', :media=>'screen', :id=>'outlineStyle'}],
+	    [:link, {:rel=>'stylesheet', :href=>'.theme/s5/default/print.css',
+		:type=>'text/css', :media=>'print', :id=>'slidePrint'}],
+	    [:link, {:rel=>'stylesheet', :href=>'.theme/s5/default/opera.css',
+		:type=>'text/css', :media=>'projection', :id=>'operaFix'}],
+	    [:style, {:type=>'text/css', :media=>'all'}, ''],
+	    [:script, {:src=>'.theme/s5/default/slides.js',
+		:type=>'text/javascript'}, '']],
+	  [:body,
+	    [:div, {:class=>'layout'},
+	      [:div, {:id=>'controls'}, ''],
+	      [:div, {:id=>'currentSlide'}, ''],
+	      [:div, {:id=>'header'}, ''],
+	      [:div, {:id=>'footer'},
+		[:h1, [:a, {:href=>"#{pagename}.html"}, title]]]],
+	    [:div, {:class=>'presentation'}, wabisabi]]]]
+      return html
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActPresen < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_presen
+      ok_wi [:span, {:class=>'attribute'}, [:a, {:href=>'1.presen'},
+		'Presentation mode']], '{{presen}}'
+
+      # test_plg_presen_switch
+      ok_wi [], '{{presen_switch}}'
+
+      page = @site.create("PresenTest")
+      page.store('{{presen_switch}}')
+      res = session('/test/PresenTest.html')
+      ok_in([:a, {:href=>"PresenTest.presen"}, "Present"],
+	    "//div[@class='section']")
+    end
+
+    def test_plg_presen_theme
+      ok_wi [], '{{presen_theme(q)}}'
+    end
+
+    def test_act_presen
+      t_add_user
+
+      page = @site.create_new
+      page.store('* あ')
+      res = session('/test/1.presen')
+      assert_text('あ', 'title')
+    end
+
+    def test_get_theme
+      res = session
+      ok_eq(nil, @action.presen_get_theme('a'))
+      ok_eq('q', @action.presen_get_theme('{{presen_theme(q)}}'))
+      ok_eq('q', @action.presen_get_theme('a
+{{presen_theme(q)}}
+b
+'))
+    end
+  end
+
+  class TestPresenGenerator < Test::Unit::TestCase
+    include TestSession
+
+    def ok_re(e, w)
+      ok_eq(e, Qwik::PresenGenerator.resolve_h(w))
+    end
+
+    def ok_slide(e, w)
+      ok_eq(e, Qwik::PresenGenerator.resolve_slide(w))
+    end
+
+    def test_resolve_h
+      res = session
+      ok_re([[:h1, 'h']], [[:h2, 'h']])
+      ok_re([[:h1, 'h', 'h2']], [[:h2, 'h', 'h2']])
+      ok_re([[:h1, 'h', [:b, 'b'], 'c']], [[:h2, 'h', [:b, 'b'], 'c']])
+      ok_re([[:h2, 'h']], [[:h3, 'h']])
+    end
+
+    def test_resolve_slide
+      c = Qwik::PresenGenerator
+
+      # test_resolve_slide
+      ok_slide([[:div, {:class=>'slide'}, [[:h1, 'h']]]],
+	       [[:h1, 'h']])
+      ok_slide([[:div, {:class=>'slide'}, [[:h1, 'h'], [:p, 'p']]]],
+	       [[:h1, 'h'], [:p, 'p']])
+      ok_slide([[:div, {:class=>'slide'}, [[:h1, 'h'], [:p, 'p']]],
+		 [:div, {:class=>'slide'}, [[:h1, 'h'], [:p, 'p']]]],
+	       [[:h1, 'h'], [:p, 'p'], [:h1, 'h'], [:p, 'p']])
+    end
+
+    def test_get_html
+      res = session
+
+      c = Qwik::PresenGenerator
+      page = @site.create_new
+      page.store("* h\np\n* h2\np2\n")
+      wabisabi = @action.c_page_res(page.key)
+      w = c.generate(@site, page.key, wabisabi)
+
+      wpage = [[:'!DOCTYPE',
+	  'html',
+	  'PUBLIC',
+	  '-//W3C//DTD HTML 4.01 Transitional//EN',
+	  'http://www.w3.org/TR/html4/loose.dtd'],
+	[:html,
+	  {:'xmlns:v'=>'urn:schemas-microsoft-com:vml',
+	    :xmlns=>'http://www.w3.org/1999/xhtml'},
+	  [:head,
+	    [:title, 'h'],
+	    [:meta, {:content=>'slideshow', :name=>'defaultView'}],
+	    [:meta, {:content=>'hidden', :name=>'controlVis'}],
+	    [:link,
+	      {:id=>'slideProj',
+		:rel=>'stylesheet',
+		:type=>'text/css',
+		:href=>'.theme/s5/qwikworld/slides.css',
+		:media=>'projection'}],
+	    [:link,
+	      {:id=>'outlineStyle',
+		:rel=>'stylesheet',
+		:type=>'text/css',
+		:href=>'.theme/s5/default/outline.css',
+		:media=>'screen'}],
+	    [:link,
+	      {:id=>'slidePrint',
+		:rel=>'stylesheet',
+		:type=>'text/css',
+		:href=>'.theme/s5/default/print.css',
+		:media=>'print'}],
+	    [:link,
+	      {:id=>'operaFix',
+		:rel=>'stylesheet',
+		:type=>'text/css',
+		:href=>'.theme/s5/default/opera.css',
+		:media=>'projection'}],
+	    [:style, {:type=>'text/css', :media=>'all'}, ''],
+	    [:script, {:type=>'text/javascript',
+		:src=>'.theme/s5/default/slides.js'}, '']],
+	  [:body,
+	    [:div,
+	      {:class=>'layout'},
+	      [:div, {:id=>'controls'}, ''],
+	      [:div, {:id=>'currentSlide'}, ''],
+	      [:div, {:id=>'header'}, ''],
+              [:div, {:id=>"footer"}, [:h1, [:a, {:href=>"1.html"}, "h"]]]],
+	    [:div,
+	      {:class=>'presentation'},
+	      [[:div, {:class=>'slide'}, [[:h1, 'h'], [:p, 'p']]],
+		[:div, {:class=>'slide'}, [[:h1, 'h2'], [:p, 'p2']]]]]]]]
+      ok_eq(wpage, w)
+    end
+  end
+end

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

@@ -0,0 +1,133 @@
+# 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_ExtRedirect = {
+      :dt => 'Redirect mode',
+      :dd => 'You can use redirect at all external link on your site.',
+      :dc => '* How to
+Go to [[_SiteConfig]] page, find this line.
+ :redirect:false
+Change the line to this.
+ :redirect:true
+
+All external links will be redirect link.  When you are using redirect,
+nobody can see the referere to know where the link come from.
+'
+    }
+
+    D_ExtRedirect_ja = {
+      :dt => 'リダイレクト・モード',
+      :dd => '外部リンクを全てリダイレクトにします。',
+      :dc => '* 使い方
+[[_SiteConfig]]のページにいき、
+ :redirect:false
+という行を、
+ :redirect:true
+としてください。サイト内の外部URLへのリンクが、一旦リダイレクトされて
+から飛ぶようになります。こうすると、どのWikiページからリンクされている
+のかが、リファラを見てもわからないようになります。
+'
+    }
+
+    def pre_act_redirect
+      url = @req.query['url']
+      if url
+	return c_notice('redirect', url) {
+	  [:p, 'redirect', [:br], [:strong, url]]
+	}
+      end
+      return old_redirect
+    end
+
+    def old_redirect
+      if @req.unparsed_uri
+	url = @req.unparsed_uri
+      else
+	url = '/'+@req.path_args[0]
+      end
+
+      if /\A\/((?:http|https|ftp|file)):\// =~ url
+	scheme = $1
+	url = url.sub(/\A\/#{scheme}:\//, "#{scheme}:/")
+      end
+
+      c_notice('redirect', url) {
+	[:p, 'redirect', [:br], [:strong, url]]
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActRedirect < Test::Unit::TestCase
+    include TestSession
+
+    def test_redirect
+      res = session("/test/.redirect?url=http://e.com/")
+      ok_title('redirect')
+      ok_xp([:p, 'redirect', [:br], [:strong, 'http://e.com/']], '//p')
+    end
+
+    def test_old_redirect
+      res = session('/http://e.com/')
+      ok_title('redirect')
+      ok_in(['http://e.com/'], '//p/strong')
+
+      res = session('/http://e.com')
+      ok_in(['http://e.com'], '//p/strong')
+
+      res = session('/https://e.com/')
+      ok_in(['https://e.com/'], '//p/strong')
+
+      res = session('/ftp://e.com/')
+      ok_in(['ftp://e.com/'], '//p/strong')
+    end
+
+    def test_normal_external_links
+      ok_wi([:p, [:a, {:class=>'external', :href=>'http://example.com/'},
+		'http://example.com/']], "[[http://example.com/]]")
+      ok_wi([:p, [:a, {:href=>'http://example.com/', :class=>'external'},
+		'http://example.com/']], 'http://example.com/')
+      ok_wi([:p,[:a, {:href=>'http://example.com/', :class=>'external'}, 't']],
+	    "[[t|http://example.com/]]")
+    end
+
+    def ok_res(e, w, site=@site)
+      res = session
+      w = Qwik::Resolver.resolve(site, @action, w)
+      ok_eq(e, w)
+    end
+
+    def test_redirect_config
+      ok_res([[:a, {:href=>'http://e.com/', :class=>'external'}, 'e']],
+	     [[:a, {:href=>'http://e.com/'}, 'e']])
+
+      page = @site['_SiteConfig']
+      page.store(':redirect:true')
+      ok_res([[:a, {:href=>".redirect?url=http://e.com/", :class=>'external'},
+		 'e']],
+	     [[:a, {:href=>'http://e.com/'}, 'e']])
+    end
+
+    # can not test this for now...
+    def nu_test_with_query
+      res = session("/http://e.com/?q=a&p=b")
+      assert_text("redirect : http://e.com/?q=a&p=b", 'title')
+    end
+
+    #def test_redirect
+    #  @req.parse_path('/http://e.com/')
+    #  ok_eq(['redirect', ['http://e.com/']], [@req.plugin, @req.path_args])
+    #end
+  end
+end