sozdat 0.0.1

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,26 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## Gem bundler
+vendor/gems
+!vendor/gems/cache
+
+## PROJECT::SPECIFIC
+vendor/rgtk

data/Gemfile

@@ -0,0 +1,5 @@
+#gem 'rgtk', :path => 'vendor/rgtk'
+gem 'activesupport'
+gem 'activerecord'
+gem 'ZenTest'
+gem 'autotest-rails'

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Alexander Semyonov
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,18 @@
+= sozdat
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but
+   bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2009 Alexander Semyonov. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,72 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "sozdat"
+    gem.summary = %Q{Rails IDE}
+    gem.description = %Q{Rails IDE from Tokak Studio}
+    gem.email = 'rotuka@tokak.ru'
+    gem.homepage = 'http://github.com/krasivotokak/sozdat'
+    gem.authors = ['Alexander Semyonov']
+    gem.add_development_dependency 'shoulda', '>= 0'
+    gem.add_development_dependency 'yard', '>= 0'
+    gem.add_dependency 'activesupport', '2.3.4'
+    gem.add_dependency 'activerecord', '2.3.4'
+    gem.add_dependency 'ZenTest', '4.1.4'
+    gem.add_dependency 'autotest-rails', '4.1.0'
+    gem.bindir = 'bin'
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+begin
+  require 'yard'
+  YARD::Rake::YardocTask.new
+rescue LoadError
+  task :yardoc do
+    abort "YARD is not available. In order to run yardoc, you must: sudo gem install yard"
+  end
+end
+
+
+task :environment do
+  require "#{File.dirname(__FILE__)}/config/environment"
+end
+
+desc "Migrate DB"
+task :migrate => :environment do
+  App.connect_db
+  ActiveRecord::Migrator.migrate('db/migrate', ENV["VERSION"] ? ENV["VERSION"].to_i : nil)
+end
+
+desc "Bump gem version, release and install"
+task :push => %w(version:bump:patch release gemcutter:release install)

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/app/controllers/about_controller.rb

@@ -0,0 +1,2 @@
+class AboutController < Rgtk::Controller::About
+end

data/app/controllers/browser_controller.rb

@@ -0,0 +1,96 @@
+require 'tab_controller'
+
+class BrowserController < TabController
+  def initialize(main)
+    super
+    @main = main
+    @loading = false
+    @current_uri = nil
+  end
+
+  def open(new_project)
+    unless project?
+      self.project = new_project
+      open_url("http://127.0.0.1:#{project.port}/")
+    end
+  end
+
+  def open_url(url)
+    address(url)
+    webview.open(url)
+  end
+
+protected
+  signals_for(:browser) do
+    # address entry
+    activate(:address) { webview.open(address_entry.text) }
+    # buttons
+    activate(:go_forward) { webview.go_forward }
+    activate(:go_back) { webview.go_back }
+    activate(:stop_or_reload) do
+      if @loading
+        webview.stop_loading
+      else
+        webview.reload
+      end
+    end
+    changed(:title) do |widget, frame, title|
+      address(frame.uri)
+    end
+    changed(:load_progress) do |widget, progress|
+      progress("%s%s loaded" % [progress, "%"])
+    end
+    on(:load_started) do |webview, frame|
+      title("%s loading…" % [webview.uri])
+      loading(true)
+    end
+    on(:load_finished) do |webview, frame|
+      title(webview.title)
+      loading(false)
+    end
+    on(:hovering_over_link) do |webview, title, url|
+      status(webview && url ? url : '')
+    end
+  end
+
+  def address(url)
+    address_entry.text = url
+    @current_uri = url
+  end
+
+  def loading(loading)
+    @loading = loading
+
+    if @loading
+      browser_show_stop_icon
+    else
+      browser_show_reload_icon
+    end
+
+    update_navigation_buttons
+  end
+
+  def progress(progress)
+    status(progress)
+  end
+
+  def status(text, context = nil)
+    main.browser_statusbar.text = text
+  end
+
+  def browser_show_stop_icon
+    stop_or_reload_button.stock_id = Gtk::Stock::CANCEL
+    stop_or_reload_button.set_tooltip_text('Stop')
+  end
+
+  def browser_show_reload_icon
+    stop_or_reload_button.stock_id = Gtk::Stock::REFRESH
+    stop_or_reload_button.set_tooltip_text('Reload')
+  end
+
+  def update_navigation_buttons
+    go_back.sensitive = webview.can_go_back?
+    go_forward.sensitive = webview.can_go_forward?
+  end
+
+end

data/app/controllers/editor_controller.rb

@@ -0,0 +1,23 @@
+require 'vte_controller'
+
+class EditorController < VteController
+  def initialize(main)
+    super(main)
+    @role = 'Editor'
+  end
+
+  def open(new_project)
+    unless project?
+      self.project = new_project
+      echo("#{project} is open")
+      exec("cd #{project.path}")
+      exec("vim config/environment.rb")
+    end
+  end
+
+  def close
+    puts "Editor project is closed"
+    exec(":q")
+    project = nil
+  end
+end

data/app/controllers/main_controller.rb

@@ -0,0 +1,133 @@
+class MainController < Rgtk::Controller::Base
+  module Perspective
+    BROWSER = 4
+    EDITOR = 1
+    TESTS = 3
+    SERVER = 2
+  end
+
+  def initialize
+    super
+    @tabs = {}
+    projects_liststore = Gtk::ListStore.new(String, Project)
+    Project.find_each do |project|
+      iter = projects_liststore.append
+      iter[0] = project.name
+      iter[1] = project
+    end
+    project_selector_combobox.model = projects_liststore
+    renderer = Gtk::CellRendererText.new
+    project_selector_combobox.pack_start(renderer, true)
+    project_selector_combobox.set_attributes(renderer, :text => 0)
+  end
+
+  def open_project(project)
+    @project = project
+    editor.open(@project)
+  end
+
+  def close_project
+    if @project
+      if @project.new_record?
+        #TODO: show_project and add data
+      end
+      @project.save!
+    end
+  end
+
+protected
+  on :application_quit do
+    close_project
+    App.destroy
+  end
+  on :preferences
+  on :about do
+    @about ||= AboutController.new
+    @about.show
+  end
+
+  signals_for(:project) do
+    activate :create
+    activate :open do
+      if project_directory = open_project_dialog
+        project = Project.find_or_create_by_path(project_directory)
+        open_project(project)
+      end
+    end
+    activate :save
+    activate :save_as
+    changed :selector_combobox do
+      open_project(project_selector_combobox.active_iter[1])
+    end
+  end
+
+  changed :action do |radio, group|
+    if radio == group
+      if @project
+        self.current_perspective = group.current_value
+      else
+        puts "No project is open"
+      end
+    end
+  end
+
+  def current_perspective=(perspective)
+    case perspective
+    when Perspective::BROWSER
+      server.open(@project) unless @project.server_started?
+      browser.open(@project)
+    when Perspective::EDITOR
+      editor.open(@project)
+    when Perspective::TESTS
+      tests.open(@project)
+    when Perspective::SERVER
+      server.open(@project)
+    else
+      p perspective
+    end
+  end
+
+  def tab(kind, active = true)
+    unless @tabs[kind]
+      controller = "#{kind}_controller".classify.constantize.new(self)
+      project_notebook.append_page(controller.container, controller.tab_label)
+      @tabs[kind] = {
+        :controller => controller,
+        :page_num => project_notebook.page_num(controller.container)
+      }
+    end
+    if active
+      self[:editor].current_value = Perspective.const_get(kind.upcase)
+      project_notebook.page = @tabs[kind][:page_num]
+    end
+    @tabs[kind][:controller]
+  end
+
+  %w(browser editor server tests).each do |method|
+    define_method(method) { |*args| tab(method, *args) }
+  end
+
+  def open_project_dialog
+    project_directory = nil
+    dialog = Gtk::FileChooserDialog.new(
+                          'Open Project',
+                          container,
+                          Gtk::FileChooser::ACTION_OPEN,
+                          'gnome-vfs',
+                          [Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT],
+                          [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL]
+    )
+    file_filter = Gtk::FileFilter.new
+    file_filter.name = 'Projects'
+    file_filter.add_pattern('Rakefile')
+    dialog.add_filter(file_filter)
+    dialog.add_shortcut_folder(App.config.projects_directory)
+    dialog.run do |response|
+      if response == Gtk::Dialog::RESPONSE_ACCEPT
+        project_directory = File.dirname(dialog.filename)
+      end
+    end
+    dialog.destroy
+    project_directory
+  end
+end

data/app/controllers/server_controller.rb

@@ -0,0 +1,21 @@
+require 'vte_controller'
+
+class ServerController < VteController
+  def initialize(main)
+    super(main)
+    @role = 'Server'
+  end
+
+  def open(new_project)
+    close if project
+
+    project = new_project
+    exec("cd #{project.path}")
+    exec("ruby script/server -p #{project.port}")
+    project.start_server!
+  end
+
+  def close
+    flunk "not implemented"
+  end
+end

data/app/controllers/tab_controller.rb

@@ -0,0 +1,35 @@
+class TabController < Rgtk::Controller::Base
+  attr_accessor :project, :role, :tab_label, :main
+
+  def initialize(main)
+    @main = main
+    super()
+  end
+
+  def role
+    @role ||= controller_name.humanize
+  end
+
+  def tab_label
+    @tab_label ||= Gtk::Label.new(full_title(role))
+  end
+
+  def title(new_title = nil)
+    tab_label.text = full_title(new_title) unless new_title.nil?
+    tab_label.text
+  end
+  alias_method :title=, :title
+
+protected
+  def full_title(title)
+    if project?
+      "#{project.name}: #{title}"
+    else
+      title
+    end
+  end
+
+  def project?
+    @project.present?
+  end
+end