screenomat 0.0.1

data/.gitignore

@@ -0,0 +1,2 @@
+.bundle/*
+*.gem

data/.project

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>screenie</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+	</buildSpec>
+	<natures>
+		<nature>com.aptana.ruby.core.rubynature</nature>
+	</natures>
+</projectDescription>

data/.screenomat

@@ -0,0 +1,4 @@
+session do
+	screen! "bundle exec autotest", :title => 'autotest'
+	screen :title => 'command prompt'
+end

data/Gemfile

@@ -0,0 +1,3 @@
+source :rubygems
+
+gemspec

data/Gemfile.lock

@@ -0,0 +1,33 @@
+PATH
+  remote: .
+  specs:
+    screenomat (0.0.1)
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    ZenTest (4.4.1)
+    autotest (4.4.6)
+      ZenTest (>= 4.4.1)
+    diff-lcs (1.1.2)
+    mocha (0.9.10)
+      rake
+    rake (0.8.7)
+    rspec (2.2.0)
+      rspec-core (~> 2.2)
+      rspec-expectations (~> 2.2)
+      rspec-mocks (~> 2.2)
+    rspec-core (2.2.1)
+    rspec-expectations (2.2.0)
+      diff-lcs (~> 1.1.2)
+    rspec-mocks (2.2.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  autotest
+  bundler (>= 1.0.0)
+  mocha
+  rspec
+  screenomat!

data/README.md

@@ -0,0 +1,85 @@
+# screenomat
+
+You like screen, I like screen. Make getting those big multi-command line-running projects
+even easier to get started up with `screenomat`.
+
+## How?
+
+Make a `.screenomat` file in your app and write:
+
+<pre>
+session do
+  screen "bundle exec autotest", :title => "autotest"
+  screen "rails c", :title => "dev console"
+  screen "rails s", :title => "dev server"
+  screen "less +F -fr log/test.log", :title => "test log tail"
+  screen! :title => "bash"
+end
+</pre>
+
+Then run:
+
+    screenomat
+
+_~~whoa~~_
+
+### More?
+
+<pre>
+session :backend do
+  screen "bundle exec autotest", :title => "autotest"
+  screen "less +F -fr log/test.log", :title => "test log tail"
+  screen! :title => "bash"
+end
+
+session :frontend do
+  screen "bundle exec autotest", :title => "autotest"
+  screen "rails c", :title => "console"
+  screen "rails s", :title => "server"
+  screen "rake jasmine", :title => "jasmine"
+  screen! :title => "bash"
+end
+</pre>
+
+Then run:
+
+    screenomat backend
+
+or even:
+
+    screenomat frontend
+
+## Defaults?
+
+Like magic `screenomat` bits anywhere? `~/.screenomat` is what you want! Same syntax!
+
+## Ruby? DRY?
+
+Just like `Gemfile`, `*.gemspec`, and other modern Ruby things, `.screenomat` is Ruby code. Like
+DRYing things? You can do it!
+
+<pre>
+class Screenomat::DSL::Session
+  def whoa(&block)
+    screen :title => "first"
+    instance_eval(&block)
+    screen :title => "last"
+  end
+end
+
+session :first do
+  whoa do
+    screen "bundle exec autotest", :title => 'autotest'
+  end
+end
+
+session :second do
+  whoa do
+    screen %{echo "cats"}
+  end
+end
+</pre>
+
+## What's left?
+
+A _bunch_. I write what I need. Feel like adding fun things and/or tests? Fork, hack, pull request. You know the drill.

data/autotest/discover.rb

@@ -0,0 +1 @@
+Autotest.add_discovery { "rspec2" }

data/bin/screenomat

@@ -0,0 +1,33 @@
+#!which ruby
+
+require 'getoptlong'
+require 'screenomat/dsl/builder'
+
+opt = GetoptLong.new(
+  [ '--input', '-i', GetoptLong::REQUIRED_ARGUMENT ]
+)
+
+files = %w{.screenomat ~/.screenomat}
+
+opt.each do |key, value|
+  case key
+    when '--input'
+      files = [ value ]
+  end
+end
+
+session_name = ARGV.shift
+
+files.each do |path|
+  if File.exist?(target = File.expand_path(path))
+    sessions = Screenomat::DSL::Builder.new(File.read(target))
+
+    if !session_name || session_name.empty?
+      session = sessions.first
+    else
+      session = sessions[session_name.to_sym]
+    end
+
+    session.to_cmd.each { |cmd| system cmd }
+  end
+end

data/lib/screenomat.rb

@@ -0,0 +1,3 @@
+module Screenomat
+
+end

data/lib/screenomat/dsl/builder.rb

@@ -0,0 +1,35 @@
+require 'screenomat/dsl/session'
+
+module Screenomat
+  module DSL
+    class Builder
+      attr_reader :sessions
+
+      def initialize(code = '', &block)
+        @sessions = []
+
+        if !code.empty?
+          instance_eval(code)
+        else
+          instance_eval(&block)
+        end
+      end
+
+      def session(name = nil, &block)
+        name ||= "screenie-#{Time.now.to_i}"
+
+        session = Session.new(name.to_sym, &block)
+
+        @sessions << session
+      end
+
+      def first
+        @sessions.first
+      end
+
+      def [](key)
+        @sessions.find { |session| session.name == key }
+      end
+    end
+  end
+end

data/lib/screenomat/dsl/screen.rb

@@ -0,0 +1,47 @@
+module Screenomat
+  module DSL
+    class Screen
+      attr_accessor :screen_id
+
+      def initialize(*options)
+        @options = options
+        @screen_id = nil
+
+        if @options.first.kind_of?(::Fixnum)
+          @screen_id = @options.shift
+        end
+      end
+
+      def stuff
+        output = [ %{-p #{@screen_id || 0} stuff} ]
+
+        if @options.first.kind_of?(::String)
+          output << %{"#{@options.first}\n"}
+        end
+
+        output * ' '
+      end
+
+      def screen
+        title = nil
+        if @options.last.kind_of?(::Hash)
+          opts = @options.last
+          title = opts[:title]
+        end
+
+        if @screen_id == 0
+          output = []
+          output << %{-p 0 title "#{title}"} if title
+        else
+          output = %w{screen}
+
+          output << %{-t "#{title}"} if title
+
+          output << (@screen_id || 0)
+        end
+
+        output * ' '
+      end
+    end
+  end
+end

data/lib/screenomat/dsl/session.rb

@@ -0,0 +1,54 @@
+require 'screenomat/dsl/screen'
+
+module Screenomat
+  module DSL
+    class Session
+      attr_accessor :name
+
+      def initialize(name = '', code = '', &block)
+        @name = name
+        @screens = []
+        @start_screen = 0
+
+        @start_screen_to_use = nil
+
+        if !code.empty?
+          instance_eval(code)
+        else
+          instance_eval(&block)
+        end
+      end
+
+      def screen(*opts)
+        @screens << Screen.new(*opts)
+      end
+
+      def screen!(*opts)
+        @start_screen_to_use = Screen.new(*opts)
+        @screens << @start_screen_to_use
+      end
+
+      def to_cmd
+        output = [ %{screen -dmS "#{@name}"} ]
+
+        available_screen_ids = (0..9).to_a
+
+        output += @screens.collect { |screen|
+          if !screen.screen_id
+            screen.screen_id = available_screen_ids.shift
+          end
+
+          commands = []
+          commands << %{screen -X -S "#{@name}" #{screen.screen}} if !screen.screen.empty?
+          commands << %{screen -X -S "#{@name}" #{screen.stuff}}
+        }.flatten
+
+        @start_screen = @start_screen_to_use.screen_id if @start_screen_to_use
+
+        output << %{screen -x "#{@name}" -p #{@start_screen}}
+
+        output
+      end
+    end
+  end
+end

data/lib/screenomat/version.rb

@@ -0,0 +1,3 @@
+module Screenomat
+  VERSION = '0.0.1'
+end

data/screenomat.gemspec

@@ -0,0 +1,24 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path("../lib/screenomat/version", __FILE__)
+
+Gem::Specification.new do |s|
+  s.name        = "screenomat"
+  s.version     = Screenomat::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = []
+  s.email       = []
+  s.homepage    = "http://johnbintz.com/"
+  s.summary     = "DSL for making GNU screen obey your will"
+  s.description = "DSL for making GNU screen obey your will"
+
+  s.required_rubygems_version = ">= 1.3.6"
+
+  s.add_development_dependency "bundler", ">= 1.0.0"
+  s.add_development_dependency "rspec"
+  s.add_development_dependency "mocha"
+  s.add_development_dependency "autotest"
+
+  s.files        = `git ls-files`.split("\n")
+  s.executables  = `git ls-files`.split("\n").map{|f| f =~ /^bin\/(.*)/ ? $1 : nil}.compact
+  s.require_path = 'lib'
+end

data/spec/lib/screenomat/dsl/builder_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+require 'screenomat/dsl/builder'
+
+describe Screenomat::DSL::Builder do
+  describe '#sessions' do
+    context 'from block' do
+      subject { Screenomat::DSL::Builder.new { session("cats") {  } }}
+
+      specify { subject[:cats].should_not be_nil }
+    end
+
+    context 'from code' do
+      subject { Screenomat::DSL::Builder.new(%{session("cats") {  } })}
+
+      specify { subject[:cats].should_not be_nil }
+    end
+  end
+
+  describe '#first' do
+    subject { Screenomat::DSL::Builder.new { session do; end }}
+
+    its(:first) { should be_a_kind_of(Screenomat::DSL::Session) }
+  end
+end

data/spec/lib/screenomat/dsl/screen_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+require 'screenomat/dsl/screen'
+
+describe Screenomat::DSL::Screen do
+  describe '#to_cmd' do
+    let(:screen) { Screenomat::DSL::Screen.new(*params) }
+
+    subject { screen }
+
+    context 'blank' do
+      let(:params) { [] }
+
+      its(:screen) { should == 'screen 0' }
+    end
+
+    context 'with command' do
+      let(:params) { ["command"] }
+
+      its(:screen) { should == 'screen 0' }
+      its(:stuff) { should == %{-p 0 stuff "command
+"} }
+    end
+
+    context 'with number id' do
+      let(:params) { [ 1 ] }
+
+      its(:screen) { should == "screen 1" }
+
+      specify { screen.screen_id.should == 1 }
+    end
+
+    context 'with number id and command' do
+      let(:params) { [ 1, "command" ] }
+
+      its(:screen) { should == "screen 1" }
+      its(:stuff) { should == %{-p 1 stuff "command
+"} }
+      specify { screen.screen_id.should == 1 }
+    end
+
+    context 'with title' do
+      let(:params) { [ { :title => 'My title' } ] }
+
+      its(:screen) { should == %{screen -t "My title" 0} }
+      specify { screen.screen_id.should == nil }
+    end
+  end
+end

data/spec/lib/screenomat/dsl/session_spec.rb

@@ -0,0 +1,66 @@
+require 'spec_helper'
+require 'screenomat/dsl/session'
+
+describe Screenomat::DSL::Session do
+  describe '#to_cmd' do
+    context 'one screen' do
+      subject {
+        Screenomat::DSL::Session.new("my-session") { screen "test" }.to_cmd
+      }
+
+      it { should == [
+        %{screen -dmS "my-session"},
+        %{screen -X -S "my-session" -p 0 stuff "test
+"},
+        %{screen -x "my-session" -p 0}
+      ] }
+    end
+
+    context 'two screens' do
+      subject {
+        Screenomat::DSL::Session.new("my-session") { screen "test"; screen "test2" }.to_cmd
+      }
+
+      it { should == [
+        %{screen -dmS "my-session"},
+        %{screen -X -S "my-session" -p 0 stuff "test
+"},
+        %{screen -X -S "my-session" screen 1},
+        %{screen -X -S "my-session" -p 1 stuff "test2
+"},
+        %{screen -x "my-session" -p 0}
+      ] }
+    end
+  end
+
+  describe 'from string' do
+    subject {
+      Screenomat::DSL::Session.new("my-session", <<-EOR).to_cmd
+screen "test"
+      EOR
+    }
+
+    it { should == [
+      %{screen -dmS "my-session"},
+      %{screen -X -S "my-session" -p 0 stuff "test
+"},
+      %{screen -x "my-session" -p 0}
+    ] }
+  end
+
+  describe 'screen!' do
+    subject {
+      Screenomat::DSL::Session.new("my-session") { screen "test"; screen! "test2" }.to_cmd
+    }
+
+    it { should == [
+      %{screen -dmS "my-session"},
+      %{screen -X -S "my-session" -p 0 stuff "test
+"},
+      %{screen -X -S "my-session" screen 1},
+      %{screen -X -S "my-session" -p 1 stuff "test2
+"},
+      %{screen -x "my-session" -p 1}
+    ] }
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,3 @@
+RSpec.configure do |config|
+  config.mock_with :mocha
+end

metadata

@@ -0,0 +1,144 @@
+--- !ruby/object:Gem::Specification 
+name: screenomat
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: []
+
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-09 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: bundler
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 23
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: mocha
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: autotest
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id004
+description: DSL for making GNU screen obey your will
+email: []
+
+executables: 
+- screenomat
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- .project
+- .screenomat
+- Gemfile
+- Gemfile.lock
+- README.md
+- autotest/discover.rb
+- bin/screenomat
+- lib/screenomat.rb
+- lib/screenomat/dsl/builder.rb
+- lib/screenomat/dsl/screen.rb
+- lib/screenomat/dsl/session.rb
+- lib/screenomat/version.rb
+- screenomat.gemspec
+- spec/lib/screenomat/dsl/builder_spec.rb
+- spec/lib/screenomat/dsl/screen_spec.rb
+- spec/lib/screenomat/dsl/session_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://johnbintz.com/
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 23
+      segments: 
+      - 1
+      - 3
+      - 6
+      version: 1.3.6
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: DSL for making GNU screen obey your will
+test_files: []
+