rabbit 0.6.2

data/lib/rwiki/soap/common.rb

@@ -0,0 +1,5 @@
+module RWiki
+  module SOAP
+    NS = 'http://pub.cozmixng.org/~the-rwiki/0.0.1/'
+  end
+end

data/lib/rwiki/soap/driver.rb

@@ -0,0 +1,43 @@
+require 'logger'
+require 'soap/rpc/driver'
+
+require 'rwiki/soap/common'
+
+module RWiki
+  module SOAP
+    class Driver < ::SOAP::RPC::Driver
+  
+      APP_NAME = 'RWikiSOAPDriver'
+
+      def initialize(end_point, soap_action=nil)
+        super(end_point, RWiki::SOAP::NS, soap_action)
+
+        add_method('allow_get_page')
+        add_method('page', 'name')
+
+        add_method('drb_host_and_port')
+
+        add_method('include', 'name')
+        add_method('find', 'str')
+        add_method('src', 'name')
+        add_method('body', 'name')
+        add_method('modified', 'name')
+        add_method('revision', 'name')
+        add_method('rd2content', 'src')
+        add_method('recent_changes')
+        add_method('copy', 'name', 'src')
+        add_method('append', 'name', 'src')
+        add_method('submit', 'name', 'src', 'rev', 'log')
+      end
+
+      def log_dir=(new_value)
+        if new_value.nil?
+          self.wiredump_file_base = nil
+        else
+          self.wiredump_file_base = File.join(new_value, APP_NAME)
+        end
+      end
+
+    end
+  end
+end

data/lib/rwiki/soap/servant.rb

@@ -0,0 +1,78 @@
+require 'forwardable'
+require 'socket'
+require 'uri'
+require 'drb/drb'
+
+require 'rwiki/soap/common'
+
+module RWiki
+  module SOAP
+    class Servant
+      extend Forwardable
+
+      def_delegators(:@rwiki, :find, :src, :modified)
+      def_delegators(:@rwiki, :recent_changes)
+
+      if ALLOW_GET_PAGE
+        def_delegators(:@rwiki, :page)
+      end
+
+      def initialize(rwiki)
+        @rwiki = rwiki
+
+        uri = URI.parse(@rwiki.__drburi)
+        @drb_host = uri.host
+        @drb_port = uri.port
+
+        if @drb_host.empty?
+          @drb_host = Socket.gethostbyname(Socket.gethostname)[0]
+        else
+          @drb_host = Socket.gethostbyname(@drb_host)[0]
+        end
+      end
+
+      def allow_get_page # XML element name cann't include '?'.
+        ALLOW_GET_PAGE ? true : false
+      end
+
+      def include(name) # XML element name cann't include '?'.
+        @rwiki.include?(name)
+      end
+
+      def revision(name)
+        page = @rwiki.page(name)
+        page.revision
+      end
+
+      def copy(name, src, rev, log_message)
+        page = @rwiki.page(name)
+        set_src(page, src, rev, log_message)
+        name
+      end
+
+      def append(name, src, rev, log_message)
+        page = @rwiki.page(name)
+        set_src(page, page.src.to_s + src, rev, log_message)
+        name
+      end
+
+      def submit(name, src, rev, log_message)
+        page = @rwiki.page(name)
+        set_src(page, src, rev, log_message)
+        name
+      end
+
+      def drb_host_and_port
+        [@drb_host, @drb_port]
+      end
+
+      private
+      def set_src(page, src, rev, log_message)
+        props = {"commit_log" => log_message}
+        page.set_src(src, rev) do |key|
+          props[key]
+        end
+      end
+    end
+  end
+end

data/misc/emacs/README.ja

@@ -0,0 +1,177 @@
+# -*- rd -*-
+
+= README.ja
+
+$Id: README.ja 892 2007-06-04 03:43:48Z kou $
+
+== rabbit-mode.el
+
+Rabbitのソースファイル用のEmacsメジャーモードです．
+
+== インストール
+
+.emacsに以下を記述してください．
+
+  (autoload 'rabbit-mode "rabbit-mode" "major mode for Rabbit" t)
+  (add-to-list 'auto-mode-alist '("\\.\\(rbt\\|rab\\)$" . rabbit-mode))
+
+== 目次
+
+=== Rabbitの操作
+  * ((<EmacsからRabbitを起動する>))
+
+=== 移動
+  * ((<次のスライドへ移動する>))
+  * ((<前のスライドへ移動する>))
+
+=== 挿入
+  * ((<タイトルを挿入する>))
+  * ((<画像のテンプレートを挿入する>))
+  * ((<スライドを挿入する>))
+  * ((<箇条書きを挿入する>))
+
+=== スライド操作
+  * ((<スライドを削除する>))
+  * ((<スライドをコピーする>))
+  * ((<スライドを複写する>))
+
+=== 設定
+  * ((<画像テンプレートのデフォルトのサイズ指定方法を変える>))
+  * ((<rabbit-modeの変数>))
+
+== Rabbitの操作
+=== EmacsからRabbitを起動する
+
+rabbit-run-rabbitを実行します．デフォルトのキーバインドはC-c C-rです．
+
+(('*'))Rabbit<ファイル名>*というバッファが作られ，Rabbitのメッセージが書き込
+まれます．
+
+== 移動
+=== 次のスライドへ移動する
+
+rabbit-next-slideを実行します．デフォルトのキーバインドはM-nです．
+
+=== 前のスライドへ移動する
+
+rabbit-previous-slideを実行します．デフォルトのキーバインドはM-pです．
+
+== 挿入
+=== タイトルを挿入する
+
+rabbit-insert-title-templateを実行します．デフォルトのキーバインドは
+C-c C-tです．
+
+プレゼンテーションのタイトルとメタデータを入力します．デフォルトのメタ
+データを変数に設定可能です．設定できるメタデータは
+
+  * rabbit-author(著者)
+  * rabbit-institution(所属)
+  * rabbit-theme(テーマ)
+
+です．
+
+=== 画像のテンプレートを挿入する
+
+画像サイズは割合で指定するのが便利だと思いますので，割合指定がデフォル
+トになっています．
+
+==== 画像サイズを割合で指定する場合
+
+rabbit-insert-image-template-defaultを呼びます．デフォルトのキーバイン
+ドはC-c C-iです．
+
+画像ファイルのパス，キャプション，画像サイズの割合を入力します．ファイ
+ルパス以外は省略可能です．
+
+==== 画像サイズの指定方法も決める場合
+
+rabbit-insert-image-templateを呼びます．デフォルトのキーバインドはC-c iです．
+
+画像ファイルのパス，キャプション，サイズ指定の方法，サイズを入力します．
+ファイルパス以外は省略可能です．
+
+サイズ指定の方法は
+
+* relative
+* normalized
+* pixel(幅と高さを指定)
+
+から選びます．
+
+=== スライドを挿入する
+
+rabbit-insert-slideを呼びます．デフォルトのキーバインドはC-c C-sです．
+
+=== 箇条書きを挿入する
+
+rabbit-insert-itemsを呼びます．キーバインドは割り当てられていません．
+
+項目を入力していき，空文字を入力すると修了します．
+
+== スライド操作
+=== スライドを削除する
+
+rabbit-delete-slideを実行します．デフォルトのキーバインドはC-c C-dです．
+
+=== スライドをコピーする
+
+rabbit-copy-slideを実行します．キーバインドは割り当てられていません．
+
+現在のスライドがキルリングに保存されます．
+
+=== スライドを複写する
+
+rabbit-duplicate-slideを実行します．キーバインドは割り当てられていません．
+
+現在のスライドのコピーを，次のスライドとして挿入します．現在のスライド
+の内容を少しだけ変えたい場合に便利です．
+
+=== 画像テンプレートのデフォルトのサイズ指定方法を変える
+
+変数rabbit-default-image-size-unitにサイズ指定方法をセットします．デフォ
+ルトは"relative"です．
+
+有効な値
+  * "relative"
+  * "normalized"
+  * "pixel"
+
+== 変数
+
+: rabbit-command
+
+   Rabbitの起動コマンドです(デフォルトは"rabbit")．
+
+: rabbit-author
+
+   著者名です．タイトルページのテンプレートで使われます(デフォルトはnil)．
+
+: rabbit-institution
+
+   著者の所属です．タイトルページのテンプレートで使われます(デフォルトはnil)．
+
+: rabbit-theme
+
+   プレゼンテーションのテーマです(デフォルトは"rabbit")．
+
+: rabbit-default-image-size-unit
+
+   画像ファイルのテンプレート挿入で使われるデフォルトのサイズ
+   指定方法です(デフォルトは"relative")．
+
+: Faces
+
+   rabbit-modeの各faceです．
+
+     * rabbit-heading-face
+     * rabbit-emphasis-face
+     * rabbit-verbatim-face
+     * rabbit-term-face
+     * rabbit-footnote-face
+     * rabbit-link-face
+     * rabbit-code-face
+     * rabbit-description-face
+     * rabbit-keyboard-face
+     * rabbit-variable-face
+     * rabbit-comment-face

data/misc/emacs/rabbit-mode.el

@@ -0,0 +1,375 @@
+;;; -*- mode: Emacs-Lisp; indent-tabs-mode: nil -*-
+;;; rabbit-mode.el
+;;  Emacs major mode for Rabbit
+;;; Copyright (c) 2006 - 2008 Atsushi TAKEDA <tkdats@kono.cis.iwate-u.ac.jp>
+;;; Copyright (c) 2009 Kouhei Sutou <kou@cozmixng.org>
+;;; $Id: rabbit-mode.el 1285 2009-09-04 14:44:32Z kou $
+
+(require 'cl)
+(require 'rd-mode)
+
+(defvar rabbit-mode-hook nil
+  "Hooks run when entering `rabbit-mode' major mode")
+(defvar rabbit-command "rabbit")
+(defvar rabbit-command-command "rabbit-command")
+(defvar rabbit-output-buffer nil)
+(defvar rabbit-author nil)
+(defvar rabbit-institution nil)
+(defvar rabbit-theme "rabbit")
+
+(defvar rabbit-title-metadata
+  '("subtitle" "content_source" "author" "institution" "theme"))
+
+(defvar rabbit-slide-header-regexp "^=[ \t]*\\(.*\\)")
+
+(defvar rabbit-heading-face 'font-lock-keyword-face)
+(defvar rabbit-emphasis-face 'font-lock-function-name-face)
+(defvar rabbit-verbatim-face 'font-lock-function-name-face)
+(defvar rabbit-term-face 'font-lock-function-name-face)
+(defvar rabbit-footnote-face 'font-lock-function-name-face)
+(defvar rabbit-link-face 'font-lock-function-name-face)
+(defvar rabbit-code-face 'font-lock-function-name-face)
+(defvar rabbit-description-face 'font-lock-constant-face)
+(defvar rabbit-comment-face 'font-lock-comment-face)
+(defvar rabbit-keyboard-face 'font-lock-function-name-face)
+(defvar rabbit-variable-face 'font-lock-function-name-face)
+(defvar rabbit-font-lock-keywords
+  (list
+   '("^==+ .*$"
+     0 rabbit-comment-face)
+   `(,rabbit-slide-header-regexp
+     0 rabbit-heading-face)
+   '("((\\*[^*]*\\*+\\([^)*][^%]*\\*+\\)*))"    ; ((* ... *))
+     0 rabbit-emphasis-face)
+   '("((%[^%]*%+\\([^)%][^%]*%+\\)*))"      ; ((% ... %))
+     0 rabbit-keyboard-face)
+   '("((|[^|]*|+\\([^)|][^|]*|+\\)*))"      ; ((| ... |))
+     0 rabbit-variable-face)
+   '("(('[^']*'+\\([^)'][^']*'+\\)*))"      ; ((' ... '))
+     0 rabbit-verbatim-face)
+   '("((:[^:]*:+\\([^):][^:]*:+\\)*))"      ; ((: ... :))
+     0 rabbit-term-face)
+   '("((-[^-]*-+\\([^)-][^-]*-+\\)*))"      ; ((- ... -))
+     0 rabbit-footnote-face)
+   '("((<[^>]*>+\\([^)>][^>]*>+\\)*))"      ; ((< ... >))
+     0 rabbit-link-face)
+   '("(({[^}]*}+\\([^)}][^}]*}+\\)*))"      ; (({ ... }))
+     0 rabbit-code-face)
+   '("^:.*$"
+     0 rd-description-face)
+   '("^#.*$"
+      0 rabbit-comment-face)
+   ))
+
+(defvar rabbit-block-indent-size 2)
+
+(defvar rabbit-image-size-unit-table
+  '(("relative")
+    ("normalized")
+    ("pixel")))
+
+(defvar rabbit-default-image-size-unit
+  "relative")
+
+(defvar rabbit-image-size-unit-history nil)
+
+(define-derived-mode rabbit-mode rd-mode "Rabbit"
+  (setq comment-start "#")
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults '((rabbit-font-lock-keywords) t nil))
+  (make-local-variable 'font-lock-keywords)
+  (setq font-lock-keywords rabbit-font-lock-keywords)
+  (rabbit-setup-keys)
+  (run-hooks 'rabbit-mode-hook))
+
+;;; interactive
+
+(defun rabbit-run-rabbit ()
+  "Emacs major mode for rabbit."
+  (interactive)
+  (let ((filename (rabbit-buffer-filename))
+	(outbuf (rabbit-output-buffer)))
+    (set-buffer outbuf)
+    (if (get-buffer-process outbuf)
+        (error "Rabbit is already running")
+      (progn
+	(start-process "Rabbit" outbuf rabbit-command filename)
+        (if (one-window-p)
+            (set-window-buffer (split-window) outbuf)
+          (set-window-buffer (previous-window) outbuf))))))
+
+;;; insert functions
+
+(defun rabbit-insert-title-template (title)
+  "insert a title template."
+  (interactive "spresentation's title: ")
+  (insert (concat
+           (rabbit-join-without-empty-string
+            `(,(concat "= " title "\n")
+              ,@(rabbit-make-metadata-strings))
+            "\n")
+           "\n")))
+
+(defun rabbit-insert-image-template (file)
+  "insert a image template."
+  (interactive "fimage file: ")
+  (rabbit-insert-image-template-real file (rabbit-read-size-unit)))
+
+(defun rabbit-insert-image-template-default (file)
+  "insert a image template with default image size unit."
+  (interactive "fimage file: ")
+  (rabbit-insert-image-template-real file))
+
+(defun rabbit-insert-items ()
+  (interactive)
+  (let ((item (read-from-minibuffer "item: ")))
+    (unless (string-equal item "")
+      (insert (rabbit-block-indent (concat "* " item "\n")))
+      (rabbit-insert-items))))
+
+;;; slide functions
+
+(defun rabbit-insert-slide (slide-title)
+  "insert a slide."
+  (interactive "sslide title: ")
+  (insert (concat "= " slide-title "\n\n")))
+
+(defun rabbit-delete-slide ()
+  "delete a current slide."
+  (interactive)
+  (rabbit-fancall-with-current-point 'delete-region))
+
+(defun rabbit-copy-slide ()
+  "copy a current slide."
+  (interactive)
+  (rabbit-fancall-with-current-point 'kill-ring-save))
+
+(defun rabbit-duplicate-slide ()
+  "copy a current slide and yank it as next slide."
+  (interactive)
+  (rabbit-copy-slide)
+  (rabbit-next-slide)
+  (yank))
+
+;;; move functions
+
+(defun rabbit-next-slide ()
+  "move to next slide."
+  (interactive)
+  (rabbit-forward-slide)
+;;   (forward-line 1)
+;;   (goto-char )
+  (recenter))
+
+(defun rabbit-previous-slide ()
+  "move to previous slide."
+  (interactive)
+  (rabbit-backward-slide)
+;;   (goto-char )
+  (recenter))
+
+(defun rabbit-remote (&rest args)
+  (shell-command-to-string
+   (mapconcat 'identity (cons rabbit-command-command args) " ")))
+
+(defun rabbit-remote-next ()
+  "move to the next in Rabbit."
+  (interactive)
+  (rabbit-remote "--next-slide"))
+
+(defun rabbit-remote-previous ()
+  "move to the previous in Rabbit."
+  (interactive)
+  (rabbit-remote "--previous"))
+
+(defun rabbit-remote-next-slide ()
+  "move to the next slide in Rabbit."
+  (interactive)
+  (rabbit-remote "--next-slide"))
+
+(defun rabbit-remote-previous-slide ()
+  "move to the previous slide in Rabbit."
+  (interactive)
+  (rabbit-remote "--previous-slide"))
+
+(defun rabbit-remote-first-slide ()
+  "move to the first slide in Rabbit."
+  (interactive)
+  (rabbit-remote "--first-slide"))
+
+(defun rabbit-remote-last-slide ()
+  "move to the last slide in Rabbit."
+  (interactive)
+  (rabbit-remote "--last-slide"))
+
+(defun rabbit-remote-current-slide-rd ()
+  "get RD of the current slide in Rabbit."
+  (interactive)
+  (rabbit-remote "--current-slide-rd"))
+
+(defun rabbit-remote-toggle-fullscreen ()
+  "toggle fullscreen in Rabbit."
+  (interactive)
+  (rabbit-remote "--toggle-fullscreen"))
+
+(defun rabbit-remote-toggle-index-mode ()
+  "toggle index mode in Rabbit."
+  (interactive)
+  (rabbit-remote "--toggle-index-mode"))
+
+(defun rabbit-remote-toggle-whiteout ()
+  "toggle whiteout in Rabbit."
+  (interactive)
+  (rabbit-remote "--toggle-whiteout"))
+
+(defun rabbit-remote-toggle-blackout ()
+  "toggle blackout in Rabbit."
+  (interactive)
+  (rabbit-remote "--toggle-blackout"))
+
+(defun rabbit-remote-quit ()
+  "quit Rabbit."
+  (interactive)
+  (rabbit-remote "--quit"))
+
+;;; private
+
+(defun rabbit-setup-keys ()
+  "define default key bindings."
+  (define-key rabbit-mode-map "\C-c\C-r" 'rabbit-run-rabbit)
+  (define-key rabbit-mode-map "\C-c\C-t" 'rabbit-insert-title-template)
+  (define-key rabbit-mode-map "\C-c\C-i" 'rabbit-insert-image-template-default)
+  (define-key rabbit-mode-map "\C-ci" 'rabbit-insert-image-template)
+  (define-key rabbit-mode-map "\C-c\C-s" 'rabbit-insert-slide)
+  (define-key rabbit-mode-map "\C-c\C-d" 'rabbit-delete-slide)
+  (define-key rabbit-mode-map "\M-n" 'rabbit-next-slide)
+  (define-key rabbit-mode-map "\M-p" 'rabbit-previous-slide))
+
+(defun rabbit-make-metadata-strings ()
+  (let ((result '(""))
+        (rabbit-subtitle nil)
+        (rabbit-content_source nil))
+    (dolist (metadata rabbit-title-metadata (reverse result))
+      (let ((valuable (intern (concat "rabbit-" metadata))))
+        (if (eval valuable)
+            (setq result (cons (rabbit-metadata-string-template metadata
+                                                                (eval valuable))
+                               result))
+          (let ((value (read-from-minibuffer (concat metadata ": "))))
+            (if (string-equal value "")
+                ""
+              (setq result (cons (rabbit-metadata-string-template metadata value)
+                                 result)))))))))
+
+(defun rabbit-metadata-string-template (metadata value)
+  (concat ": " metadata "\n"
+          (rabbit-block-indent " ") value "\n"))
+
+(defun rabbit-read-property (key)
+  "read `key' value from minibuf and return string as \"key = value\"
+format if value is specified, otherwise return \"\"."
+  (let ((value (read-from-minibuffer (concat key ": "))))
+    (if (string-equal value "")
+        ""
+      (concat key " = " value))))
+
+(defun rabbit-block-indent (string)
+  (let ((indent ""))
+    (dotimes (i rabbit-block-indent-size (concat indent string))
+      (setq indent (concat indent " ")))))
+
+(defun rabbit-read-block-property (key)
+  "read `key' value from minibuf and return string as \"key = value\"
+format if value is specified, otherwise return \"\"."
+  (let ((property (rabbit-read-property key)))
+    (if (string-equal property "")
+        ""
+      (rabbit-block-indent (concat "# " property)))))
+
+(defun rabbit-buffer-filename ()
+  "return file name relating current buffer."
+  (or (buffer-file-name)
+      (error "This buffer is empty buffer")))
+
+(defun rabbit-output-buffer ()
+  "return buffer for rabbit output."
+  (let* ((bufname (concat "*Rabbit<"
+			  (file-relative-name (rabbit-buffer-filename))
+			  ">*"))
+	 (buf (get-buffer-create bufname)))
+    buf))
+
+(defun rabbit-read-size-unit ()
+  "read what unit use for image size."
+  (completing-read "image size unit: "
+		   rabbit-image-size-unit-table
+                   nil t nil
+                   'rabbit-image-size-unit-history
+                   rabbit-default-image-size-unit))
+
+(defun rabbit-filter (predicate lst)
+  (let ((result '()))
+    (dolist (item lst (reverse result))
+      (unless (funcall predicate item)
+        (setq result (cons item result))))))
+
+(defun rabbit-not-empty-string (string)
+  (and string (not (string-equal string ""))))
+
+(defun rabbit-join-without-empty-string (strings separator)
+  (let ((result "")
+        (not-empty-strings (rabbit-filter
+                            '(lambda (string)
+                               (not (rabbit-not-empty-string string)))
+                            strings)))
+    (if (null not-empty-strings)
+        ""
+      (dolist (string (cdr not-empty-strings)
+                      (concat (car not-empty-strings) result))
+        (setq result (concat result separator string))))))
+
+(defun rabbit-insert-image-template-real (filename &optional unit)
+  "insert a image template."
+  (insert (concat
+           (rabbit-join-without-empty-string
+            `(,(rabbit-block-indent "# image")
+              ,(rabbit-block-indent (concat "# src = "
+                                            (file-relative-name filename)))
+              ,(rabbit-read-block-property "caption")
+              ,@(rabbit-read-size-value
+                 (or unit rabbit-default-image-size-unit)))
+            "\n")
+           "\n")))
+
+(defun rabbit-read-size-value (unit)
+  "return strings that specify image size."
+  (let ((prefix (if (string-equal unit "pixel")
+                    ""
+                  (concat unit "_"))))
+    (mapcar '(lambda (key)
+               (rabbit-read-block-property (concat prefix key)))
+            '("width" "height"))))
+
+(defun rabbit-fancall-with-current-point (func)
+  (multiple-value-bind (beg end)
+      (rabbit-current-slide-point)
+    (funcall func beg end)))
+
+(defun rabbit-current-slide-point ()
+  (values (save-excursion (rabbit-forward-slide)
+                          (point))
+          (save-excursion (end-of-line)
+                          (rabbit-backward-slide)
+                          (point))))
+
+(defun rabbit-forward-slide ()
+  (end-of-line)
+  (or (re-search-forward rabbit-slide-header-regexp nil t)
+      (end-of-buffer))
+  (beginning-of-line))
+
+(defun rabbit-backward-slide ()
+  (or (re-search-backward rabbit-slide-header-regexp nil t)
+      (beginning-of-buffer)))
+
+(provide 'rabbit-mode)