rabbit 0.6.2

data/lib/rabbit/theme-browser/ext/block-verbatim.rb

@@ -0,0 +1,39 @@
+require 'rabbit/parser/rd'
+
+module Rabbit
+  class ThemeBrowser
+    module Ext
+      class BlockVerbatim < Parser::RD::Ext::Base
+        include Parser::RD::Ext::Image
+
+        def default_ext_block_verbatim(label, source, content, visitor)
+          Proc.new do
+            visitor.tag("verbatim-block") do
+              visitor.insert(content)
+            end
+          end
+        end
+
+        def ext_block_verb_img(label, source, content, visitor)
+          return nil unless /^(?:image|img)$/i =~ label
+          src, prop = parse_source(source)
+          return nil if prop['src'].nil?
+          image = make_image(visitor, prop['src'], prop)
+          return nil if image.nil?
+          Proc.new do
+            visitor.tag("image-description") do
+              w = image.original_width
+              h = image.original_height
+              visitor.insert("(#{w}x#{h})")
+              visitor.insert("\n")
+            end
+            visitor.tag("image") do
+              visitor.insert(image.pixbuf)
+              visitor.insert("\n")
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/theme-browser/page.rb

@@ -0,0 +1,133 @@
+require 'forwardable'
+
+require 'gtk2'
+
+require 'rabbit/rabbit'
+require 'rabbit/theme-browser/tree'
+require 'rabbit/theme-browser/document'
+
+module Rabbit
+  class ThemeBrowser
+    class Page
+      extend Forwardable
+
+      def_delegators(:@browser, :logger) 
+      
+      attr_reader :widget
+        
+      def initialize(browser)
+        super()
+        @browser = browser
+        @back_paths = []
+        @forward_paths = []
+        @forwarding = true
+        init_gui
+      end
+        
+      def change_document(name, type)
+        prev_name = @document.name
+        unless prev_name.nil?
+          paths = @forwarding ? @back_paths : @forward_paths
+          paths.push([prev_name, @document.type])
+        end
+        update_move_button
+        @document.change_buffer(name, type)
+        @up.sensitive = @document.type == "theme"
+      end
+
+      def change_tree(name, type)
+        @tree.select(name, type)
+      end
+        
+      def themes
+        @browser.themes
+      end
+
+      def default_size_changed(width, height)
+        @hpaned.position = width * 0.25
+      end
+        
+      def reload
+        position = @hpaned.position
+        name, type = @document.name, @document.type
+        @widget.remove(@hpaned)
+        @browser.load_themes
+        
+        Tag.reload_tag_infos
+        init_view
+        
+        @hpaned.position = position
+        @hpaned.show_all
+        change_tree(name, type) if name and type
+      end
+      
+      private
+      def init_gui
+        @widget = Gtk::VBox.new
+        init_toolbar
+        @widget.pack_start(@toolbar, false)
+        init_view
+      end
+
+      def init_toolbar
+        @toolbar = Gtk::Toolbar.new
+        @toolbar.toolbar_style = Gtk::Toolbar::ICONS
+
+        append_move_button
+        @toolbar.append_space
+        
+        append_up_button
+        @up.sensitive = false
+        @toolbar.append_space
+        
+        append_reload_button
+      end
+
+      def init_view
+        @hpaned = Gtk::HPaned.new
+        @widget.pack_start(@hpaned)
+        @tree = Tree.new(self)
+        @document = Document.new(self)
+        @hpaned.add1(wrap_by_scrolled_window(@tree.view))
+        @hpaned.add2(wrap_by_scrolled_window(@document.view))
+      end
+
+      def append_move_button
+        @back = @toolbar.append(Gtk::Stock::GO_BACK, _("Go back")) do
+          @forwarding = false
+          change_tree(*@back_paths.pop)
+          @forwarding = true
+        end
+        @forward = @toolbar.append(Gtk::Stock::GO_FORWARD, _("Go forward")) do
+          change_tree(*@forward_paths.pop)
+        end
+      end
+
+      def update_move_button
+        @back.sensitive = !@back_paths.empty?
+        @forward.sensitive = !@forward_paths.empty?
+      end
+
+      def append_up_button
+        @up = @toolbar.append(Gtk::Stock::GO_UP, _("Go up")) do
+          entry = themes.find {|e| e.name == @document.name}
+          change_tree(entry.category, "category")
+        end
+      end
+
+      def append_reload_button
+        @reload = @toolbar.append(Gtk::Stock::REFRESH, _("Reload")) do
+          reload
+        end
+      end
+
+      def wrap_by_scrolled_window(widget)
+        scrolled_window = Gtk::ScrolledWindow.new
+        scrolled_window.set_policy(Gtk::PolicyType::AUTOMATIC,
+                                   Gtk::PolicyType::AUTOMATIC)
+        scrolled_window.add(widget)
+        scrolled_window
+      end
+    end
+  end
+end

data/lib/rabbit/theme-browser/rd2document-lib.rb

@@ -0,0 +1,181 @@
+require "rabbit/parser/rd"
+require "rabbit/element"
+require 'rabbit/theme-browser/tag'
+require 'rabbit/theme-browser/ext/block-verbatim'
+
+module Rabbit
+  class ThemeBrowser
+    class RD2DocumentVisitor < Parser::RD::Visitor
+      EXTENSIONS = {
+        "block_verbatim" => Ext::BlockVerbatim,
+      }
+
+      @@itemize_icon = nil
+
+      attr_reader :logger
+      def initialize(buffer, iter, logger)
+        @buffer = buffer
+        @iter = iter
+        @logger = logger
+        load_itemize_icon
+        super()
+      end
+
+      def apply_to_DocumentElement(element, contents)
+        tag("body") do
+          insert_children(contents, "top-level-")
+        end
+      end
+
+      def apply_to_Headline(element, contents)
+        Proc.new do |*args|
+          tag("heading#{element.level}") do
+            insert_children(contents)
+            insert("\n")
+          end
+        end
+      end
+
+      def apply_to_ItemList(element, items)
+        Proc.new do |*args|
+          items.each do |item|
+            tag("item") do
+              @buffer.insert(@iter, @@itemize_icon)
+              @buffer.insert(@iter, " ")
+              tag("item-content") do
+                item.call
+              end
+            end
+          end
+        end
+      end
+
+      def apply_to_DescList(element, items)
+        Proc.new do |*args|
+          items.each do |item|
+            tag("description") do
+              item.call
+            end
+          end
+        end
+      end
+
+      def apply_to_ItemListItem(element, contents)
+        Proc.new do |*args|
+          contents.each do |content|
+            content.call
+          end
+        end
+      end
+
+      def apply_to_DescListItem(element, term, description)
+        Proc.new do |*args|
+          tag("description-term") do
+            insert_children(term)
+          end
+          @buffer.insert(@iter, "\n")
+          tag("description-content") do
+            insert_children(description)
+          end
+        end
+      end
+
+      def apply_to_TextBlock(element, contents)
+        Proc.new do |*args|
+          prefix, = args
+          tag("#{prefix}paragraph") do
+            insert_children(contents)
+            insert("\n")
+          end
+        end
+      end
+
+      def apply_to_Verbatim(element)
+        content = []
+        element.each_line do |line|
+          content << line
+        end
+        content_str = content.join("")
+        /\A#\s*([^\n]+)(?:\n)?(?m:(.*)?)\z/ =~ content_str
+        apply_to_extension("block_verbatim", $1, $2.to_s, content_str)
+      end
+      
+      def apply_to_StringElement(element)
+        element.content.gsub(/\n\s*/, '')
+      end
+
+      def apply_to_Reference_with_RDLabel(element, contents)
+        source = []
+        contents.each do |elem|
+          if elem.respond_to?(:call)
+            elem.call
+          else
+            source << elem
+          end
+        end
+        source = source.join("")
+        Proc.new do |*args|
+          insert_link(element.label.element_label, source)
+        end
+      end
+
+      def apply_to_Code(element, contents)
+        Proc.new do |*args|
+          tag("code") do
+            insert_children(contents)
+          end
+        end
+      end
+
+      def apply_to_Var(element, contents)
+        Proc.new do |*args|
+          tag("variable") do
+            insert_children(contents)
+          end
+        end
+      end
+
+      def insert(text, *args)
+        @buffer.insert(@iter, text, *args)
+      end
+      
+
+      def insert_link(name, text=nil)
+        text ||= _(name)
+        tag("theme-link-#{name}") do
+          insert(text, "link")
+        end
+      end
+
+      def tag(name)
+        start_offset = @iter.offset
+        yield
+        @buffer.apply_tag(name,
+                          @buffer.get_iter_at_offset(start_offset),
+                          @iter)
+      end
+
+      def insert_children(children, *args)
+        children.each do |child|
+          if child.respond_to?(:call)
+            child.call(*args)
+          else
+            insert(child)
+          end
+        end
+      end
+      
+      private
+      def load_itemize_icon
+        unless @@itemize_icon
+          image_theme = Theme::Searcher.find_theme("rabbit-images", true)
+          icon_file = Theme::Searcher.find_file("green-item.png",
+                                                [image_theme])
+          loader = ImageLoader.new(icon_file)
+          loader.resize(10, 10)
+          @@itemize_icon = loader.pixbuf
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/theme-browser/tag.rb

@@ -0,0 +1,67 @@
+require 'yaml'
+
+require 'gtk2'
+
+require 'rabbit/rabbit'
+require 'rabbit/utils'
+
+module Rabbit
+  class ThemeBrowser
+    module Tag
+      INFOS = {}
+      
+      module_function
+      def update_info_by_yaml_file(filename, *args)
+        filename = File.join(filename, *args)
+        if File.exist?(filename)
+          target = filename
+        else
+          target = Utils.find_path_in_load_path(filename)
+        end
+        raise NotExistError.new(filename) if target.nil?
+        result = File.open(target) do |f|
+          YAML.load(f.read)
+        end
+        INFOS.update(infos_pangoize(result))
+      end
+
+      def infos_pangoize(infos)
+        result = {}
+        infos.each_key do |name|
+          props = {}
+          result[name] = props
+          (infos[name] || {}).each do |key, value|
+            case key
+            when "size"
+              prop_value = value * Pango::SCALE
+            when "weight"
+              weight = "WEIGHT_#{value.upcase}"
+              prop_value = Pango::FontDescription.const_get(weight)
+            when "style"
+              style = "STYLE_#{value.upcase}"
+              prop_value = Pango::FontDescription.const_get(style)
+            when "underline"
+              underline = value.upcase
+              prop_value = Pango::AttrUnderline.const_get(underline)
+            else
+              prop_value = value
+            end
+            props[key] = prop_value
+          end
+        end
+        result
+      end
+
+      def reload_tag_infos
+        INFOS.clear
+        update_info_by_yaml_file("rabbit", "theme-browser", "default-tag.yaml")
+        begin
+          update_info_by_yaml_file("rabbit", "theme-browser", "tag.yaml")
+        rescue NotExistError
+        end
+      end
+
+      reload_tag_infos
+    end
+  end
+end

data/lib/rabbit/theme-browser/tree.rb

@@ -0,0 +1,91 @@
+require 'gtk2'
+
+require 'rabbit/rabbit'
+
+module Rabbit
+  class ThemeBrowser
+    class Tree
+      include GetText
+      
+      MODEL = [
+        [:name, String],
+        [:title, String],
+        [:type, String],
+      ]
+      
+      attr_reader :view
+      
+      def initialize(page)
+        @page = page
+        init_gui
+      end
+      
+      def select(name, type)
+        name_column = column(:name)
+        depth = type == "category" ? 1 : 2
+        @view.model.each do |model, path, iter|
+          if depth == path.depth and name == iter.get_value(name_column)
+            @view.expand_to_path(path)
+            @view.selection.select_iter(iter)
+            break
+          end
+        end
+      end
+      
+      private
+      def column(key)
+        MODEL.index(MODEL.assoc(key))
+      end
+      
+      def init_gui
+        @view = Gtk::TreeView.new
+        model_types = MODEL.collect {|key, type| type}
+        model = Gtk::TreeStore.new(*model_types)
+        @view.set_model(model)
+        init_columns
+        init_model
+      end
+      
+      def init_columns
+        renderer = Gtk::CellRendererText.new
+        params = {
+          "text" => column(:title),
+        }
+        @view.insert_column(-1, _("Theme"), renderer, params)
+        @view.selection.signal_connect("changed") do |selection|
+          iter = selection.selected
+          if iter
+            name = iter.get_value(column(:name))
+            type = iter.get_value(column(:type))
+            @page.change_document(name, type)
+          end
+          false
+        end
+      end
+      
+      def init_model
+        model = @view.model
+        type = column(:type)
+        name = column(:name)
+        title = column(:title)
+        categories = {}
+        @page.themes.each do |entry|
+          category = entry.category
+          iter = categories[category]
+          if iter.nil?
+            iter = model.append(nil)
+            categories[category] = iter
+            iter[type] = "category"
+            iter[name] = category
+            iter[title] = _(category)
+          end
+          child_iter = model.append(iter)
+          child_iter[type] = "theme"
+          child_iter[name] = entry.name
+          child_iter[title] = _(entry.title)
+        end
+        # @view.expand_all
+      end
+    end
+  end
+end