gitara 0.0.1 → 0.1.0

data/lib/gitara/node/base/voiced_node.rb

@@ -0,0 +1,22 @@
+module Gitara
+  module Node
+    class Base
+      class VoicedNode < Valuable
+        has_value :node
+        has_value :voice
+
+        def call_name
+          "\\#{definition_name}"
+        end
+
+        def children
+          node.children.map{|child| child.voiced_as(voice) }
+        end
+
+        def definition_name
+          "#{voice.definition_name}#{node.class.to_s.split('::').last}#{node.name}"
+        end
+      end
+    end
+  end
+end

data/lib/gitara/node/line.rb

@@ -0,0 +1,6 @@
+module Gitara
+  module Node
+    class Line < Base
+    end
+  end
+end

data/lib/gitara/node/note_set.rb

@@ -0,0 +1,6 @@
+module Gitara
+  module Node
+    class NoteSet < Base
+    end
+  end
+end

data/lib/gitara/node/score.rb

@@ -0,0 +1,6 @@
+module Gitara
+  module Node
+    class Score < Base
+    end
+  end
+end

data/lib/gitara/node/tab.rb

@@ -0,0 +1,21 @@
+module Gitara
+  module Node
+    class Tab < Base
+      def self.parse(text)
+        Transform.new.apply(Parser.new.parse(text))
+      end
+
+      def max_number_of_voices
+        definitions(Node::Bar).map{|bar| bar.note_sets.size}.max
+      end
+
+      def playable_child
+        children.last
+      end
+
+      def voices
+        @voices ||= Array.new(max_number_of_voices){|i| Voice.new(:id => i + 1, :parent => self)}
+      end
+    end
+  end
+end

data/lib/gitara/pow/base.rb

@@ -0,0 +1,11 @@
+module Pow
+  class Base
+    def read!
+      if exists?
+        read
+      else
+        raise PowError, "#{self} does not exist"
+      end
+    end
+  end
+end

data/lib/gitara/template/bar.erb

@@ -0,0 +1,3 @@
+<% self.voiced_as(self.root.voices).each do |voiced_bar| %>
+<%= voiced_bar.definition_name %> = { <%= voiced_bar.matching_note_set.value %> }
+<% end %>

data/lib/gitara/template/line.erb

@@ -0,0 +1,3 @@
+<% self.voiced_as(self.root.voices).each do |voiced_line| %>
+<%= voiced_line.definition_name %> = { <%= voiced_line.children.map(&:call_name).join(' ') %> \break }
+<% end %>

data/lib/gitara/template/score.erb

@@ -0,0 +1,3 @@
+<% self.voiced_as(self.root.voices).each do |voiced_score| %>
+<%= voiced_score.definition_name %> = { <%= voiced_score.children.map(&:call_name).join(' ') %> }
+<% end %>

data/lib/gitara/template/tab.erb

@@ -0,0 +1,91 @@
+\version "2.12.3"
+\include "english.ly"
+
+%-----------------------------------------------------------------------
+% Bars
+
+<% definitions(Gitara::Node::Bar).each do |bar| %>
+<%= Gitara.render('bar', bar) %>
+<% end %>
+
+%-----------------------------------------------------------------------
+% Lines
+
+<% definitions(Gitara::Node::Line).each do |line| %>
+<%= Gitara.render('line', line) %>
+<% end %>
+
+%-----------------------------------------------------------------------
+% Scores
+
+<% definitions(Gitara::Node::Score).each do |score| %>
+<%= Gitara.render('score', score) %>
+<% end %>
+
+%-----------------------------------------------------------------------
+% Voices
+
+<% voices.each do |voice| %>
+<%= Gitara.render('voice', voice) %>
+<% end %>
+
+\score {
+  \new StaffGroup <<
+    \new Staff <<
+      \tempo 4 = 75
+      \clef "treble_8"
+
+      <% voices.each do |voice| %>
+      \new Voice {
+        <%= voice.stem_type %>
+        <%= voice.call_name %>
+      }
+      <% end %>
+    >>
+
+    \new TabStaff <<
+      <% voices.each do |voice| %>
+      \new TabVoice {
+        \slurUp
+        <%= voice.call_name %>
+      }
+      <% end %>
+    >>
+  >>
+
+  \layout {
+    \context { \Staff
+      \override TimeSignature #'style = #'numbered
+      \override StringNumber #'transparent = ##t
+    }
+    \context { \TabStaff
+      \override TimeSignature #'style = #'numbered
+    }
+    \context { \Voice
+      \remove Slur_engraver
+    }
+    \context { \TabVoice
+      \remove Dots_engraver
+      \remove Stem_engraver
+      \remove Rest_engraver
+    }
+  }
+}
+
+% showLastLength = R1*4
+\score {
+  \new Staff \with {midiInstrument = #"acoustic guitar (nylon)"} <<
+    \tempo 4 = 75
+    \clef "treble_8"
+
+    <% voices.each do |voice| %>
+    \new Voice {
+      \unfoldRepeats {
+        <%= voice.call_name %>
+      }
+    }
+    <% end %>
+  >>
+
+  \midi {}
+}

data/lib/gitara/template/voice.erb

@@ -0,0 +1 @@
+<%= definition_name %> = { <%= parent.playable_child.voiced_as(self).call_name %> }

data/lib/gitara/version.rb

@@ -1,3 +1,3 @@
 module Gitara
-  VERSION = "0.0.1"
+  VERSION = "0.1.0"
 end

data/lib/gitara/voice.rb

@@ -0,0 +1,20 @@
+module Gitara
+  class Voice < Valuable
+    include IdAsWord
+
+    has_value :id
+    has_value :parent
+
+    def call_name
+      "\\#{definition_name}"
+    end
+
+    def definition_name
+      "v#{id_as_word}"
+    end
+
+    def stem_type
+      "\\voice#{id_as_word}"
+    end
+  end
+end

data/spec/lib/gitara/app_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe App do
+  describe "export" do
+    it "can convert a tab without a reused bar to lilypond" do
+      app = Gitara::App.new
+      app.invoke :export, ['examples/tab.rb'], "target-directory" => test_tmp_dir.path, "run-lilypond" => false
+
+      (test_tmp_dir / 'tab.ly').read.should == Pow('examples/tab.ly').read
+    end
+  end
+end

data/spec/lib/gitara/dsl_spec.rb

@@ -0,0 +1,173 @@
+require 'spec_helper'
+
+describe Gitara do
+  describe Dsl do
+    describe "bar(name, &block)" do
+      it "should add a bar with the name" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.bar 'Intro'
+
+        dsl.node.own_children.should have(1).bar
+
+        bar = dsl.node.own_children[0]
+        bar.name.should == 'Intro'
+        bar.own_children.should be_empty
+      end
+
+      it "should add the children declared in the block to the bar" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        note_set = Node::NoteSet.new
+
+        dsl.bar 'Intro' do
+          add note_set
+        end
+
+        dsl.node.own_children.should have(1).bar
+        dsl.node.own_children[0].name.should == 'Intro'
+
+        bar = dsl.node.own_children[0]
+        bar.own_children.should have(1).note_set
+        bar.own_children[0].should == note_set
+      end
+    end
+
+    describe "add(child, &block)" do
+      it "should add the child to the dsl's node" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        bar = Node::Bar.new(:name => 'Intro')
+
+        dsl.add bar
+
+        dsl.node.own_children.should have(1).bar
+        dsl.node.own_children[0].should == bar
+      end
+
+      it "should add the children in the block to the child" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        bar = Node::Bar.new
+        note_set = Node::NoteSet.new
+
+        dsl.add bar do
+          add note_set
+        end
+
+        dsl.node.own_children.should have(1).bar
+        dsl.node.own_children[0].should == bar
+
+        bar.own_children.should have(1).note_set
+        bar.own_children[0].should == note_set
+      end
+    end
+
+    describe "notes(value)" do
+      it "should add a note set with the value" do
+        dsl = Dsl.new(:node => Node::Bar.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.notes 'test'
+
+        dsl.node.own_children.should have(1).note_set
+        dsl.node.own_children[0].value.should == 'test'
+      end
+    end
+
+    describe "line(name, &block)" do
+      it "should add a line with the name" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.line 'Intro'
+
+        dsl.node.own_children.should have(1).line
+
+        line = dsl.node.own_children[0]
+        line.name.should == 'Intro'
+        line.own_children.should be_empty
+      end
+
+      it "should add the children declared in the block to the line" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        bar = Node::Bar.new
+
+        dsl.line 'Intro' do
+          add bar
+        end
+
+        dsl.node.own_children.should have(1).line
+        dsl.node.own_children[0].name.should == 'Intro'
+
+        line = dsl.node.own_children[0]
+        line.own_children.should have(1).bar
+        line.own_children[0].should == bar
+      end
+    end
+
+    describe "add_names(o)" do
+      it "should add a node with o[:name] of o[:node_class] to the node" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.add_names :names => [:Intro, :Intro], :node_class => Node::Bar
+
+        dsl.node.own_children.should have(2).bars
+        dsl.node.own_children.each do |child|
+          child.should be_a(Node::Bar)
+          child.name.should == :Intro
+        end
+      end
+
+      it "should add a node with nil name if the o[:names] is blank" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.add_names :names => [], :node_class => Node::Bar
+
+        dsl.node.own_children.should have(1).bar
+        dsl.node.own_children[0].attributes[:name].should be_nil
+        dsl.node.own_children[0].should be_a(Node::Bar)
+      end
+    end
+
+    describe "score(name, &block)" do
+      it "should add a score with the name" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        dsl.score
+
+        dsl.node.own_children.should have(1).score
+
+        score = dsl.node.own_children[0]
+        score.should be_a(Node::Score)
+        score.own_children.should be_empty
+      end
+
+      it "should add the children declared in the block to the score" do
+        dsl = Dsl.new(:node => Node::Tab.new)
+        dsl.node.own_children.should be_empty
+
+        note_set = Node::NoteSet.new
+
+        dsl.score do
+          add note_set
+        end
+
+        dsl.node.own_children.should have(1).score
+
+        score = dsl.node.own_children[0]
+        score.own_children.should have(1).note_set
+        score.own_children[0].should == note_set
+      end
+    end
+  end
+end

data/spec/lib/gitara/node/bar/voiced_node_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+describe 'Bar::VoicedNode' do
+  describe "matching_note_set" do
+    it "should be the note_set matching this voiced bar" do
+      note_set = Node::NoteSet.new
+
+      bar = Node::Bar.new
+      bar.add note_set
+
+      voice = Voice.new(:id => 1)
+
+      voiced_bar = Node::Bar::VoicedNode.new(:node => bar, :voice => voice)
+      voiced_bar.matching_note_set.should == note_set
+    end
+  end
+end

data/spec/lib/gitara/node/bar_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+
+describe 'Bar' do
+  describe "note_sets" do
+    it "should be the note sets of its definition" do
+      definition_bar = Node::Bar.new(:name => 'Intro').tap {|bar|
+        bar.children = [
+          Node::NoteSet.new,
+          Node::NoteSet.new
+        ]
+      }
+
+      call_bar = Node::Bar.new(:name => 'Intro')
+
+      tab = Node::Tab.new.tap {|tab|
+        tab.children = [definition_bar, call_bar]
+      }
+
+      call_bar.note_sets.should have(2).note_sets
+    end
+  end
+end