songbooks 0.1.0

data/app/tex/songbook.tex

@@ -0,0 +1,12 @@
+\documentclass[10pt,a4paper,twoside]{article}
+\usepackage[latin1]{inputenc}
+\usepackage{amsmath}
+\usepackage{amsfonts}
+\usepackage{amssymb}
+\usepackage{graphicx}
+\begin{document}
+	\begin{tabular}{|r|l|}
+		asdf  & fdsa \\ 
+		ss & gg \\ 
+	\end{tabular} 
+\end{document}

data/app/views/application.haml

@@ -0,0 +1,54 @@
+!!! 5
+%html{'ng-app' => 'songbooks', 'ng-controller' => 'SongsController as songsCtrl'}
+  %head
+    %link{:href => '/stylesheets/bootstrap.min.css', :rel => 'stylesheet'}/
+    %link{:href => '/stylesheets/bootstrap-theme.min.css', :rel => 'stylesheet'}/
+    %link{:href => '/stylesheets/application.css', :rel => 'stylesheet'}/
+
+    - %w(jquery-2.1.4.min angular angular-route angular-local-storage application routes).each do |file|
+      %script{:src => "/javascripts/#{file}.js", :type => 'text/javascript'}
+    - Songbooks::ViewHelper.javascripts.each do |file|
+      %script{:src => "/javascripts/#{file}", :type => 'text/javascript'}
+
+    %title
+      Songbooks
+
+  %body{:ng => {:controller => 'SongbookController as songbook'}}
+    .container-fluid
+      .row
+        .col-sm-3.hidden-print
+          .panel.panel-default
+            .panel-heading
+              %h3.panel-title
+                Available Songs
+                %a.btn.btn-default.btn-sm.pull-right{:ng => {:click => 'songsCtrl.addAllToBook()'}} +
+                %br/
+                %small= Songbooks.folder.path
+            .list-group#songs
+              .list-group-item
+                %input.form-control{:type => 'text', :ng => {:model => 'songsCtrl.filterQuery'}}
+              .list-group-item{:ng => {:click  => 'songsCtrl.setActive(song)',
+                                       :repeat => 'song in songsCtrl.songs() | filter: songsCtrl.filterQuery',
+                                       :class  => "{ 'active': song.active }"},
+                                       :style  => 'cursor: default'}
+                %span.pull-right
+                  %a.btn.btn-sm.btn-default{:ng => {:click => 'songbook.addSong(song)'}} +
+                %song
+        .col-sm-6
+          .panel.panel-default
+            .panel-body#main-content{:ng => {:view => true}}
+        .col-sm-3.hidden-print
+          .panel.panel-default
+            .panel-heading
+              %h3.panel-title
+                {{ songbook.title() }}
+                %a.btn.btn-default.btn-sm.pull-right{:ng => {:click => 'songbook.sendToServer()'}} PDF
+                %a.btn.btn-default.btn-sm.pull-right{:ng => {:click => 'songbook.clear()'}} Clear
+                .clearfix
+            .list-group#songs
+              .list-group-item
+                %input.form-control{:type => 'text', :ng => {:model => 'songbook.filterQuery'}}
+              .list-group-item{:ng => {:repeat => 'song in songbook.songs() | filter: songbook.filterQuery'}}
+                %span.pull-right
+                  %a.btn.btn-sm.btn-default{:ng => {:click => 'songbook.removeSong(song)'}} -
+                %song

data/app/views/layouts/application.haml

@@ -0,0 +1,40 @@
+!!! 5
+
+%html
+  %head
+    %link{:href => '/stylesheets/bootstrap.min.css', :rel => 'stylesheet'}/
+    %link{:href => '/stylesheets/bootstrap-theme.min.css', :rel => 'stylesheet'}/
+    %link{:href => '/stylesheets/application.css', :rel => 'stylesheet'}/
+    %script{:src => '/javascripts/jquery-2.1.4.min.js', :type => 'text/javascript'}
+    %script{:src => '/javascripts/angular.min.js', :type => 'text/javascript'}
+
+  %body
+    .container-fluid
+      .row
+        .col-sm-3
+          .panel.panel-default
+            .panel-heading
+              %h3.panel-title
+                Verfügbare Lieder
+                %br/
+                %small= Songbooks.chords_directory.path
+            .list-group#file-list
+              - Songbooks.chords_directory.song_list.songs.each do |song|
+                %a.list-group-item{:href => "/songs/#{song.identifier}", :data => {:remote => true}}
+                  = song.title
+                  = ' - '
+                  %i= song.artist
+        .col-sm-6
+          .panel.panel-default
+            .panel-heading
+              %h3.panel-title Inhalt
+            .panel-body#main-content
+              = yield
+        .col-sm-3
+          .panel.panel-default
+            .panel-heading
+              %h3.panel-title
+                Ausgewählte Lieder
+            .panel-body
+              ll
+

data/app/views/songbook.prawn

@@ -0,0 +1,80 @@
+#----------------------------------------------------------------
+#                        Fonts
+#----------------------------------------------------------------
+
+pdf.font_families.update('DejaVuSansMono' => {
+    :normal => Songbooks.font_file('DejaVuSansMono'),
+    :italic => Songbooks.font_file('DejaVuSansMono-Oblique'),
+    :bold => Songbooks.font_file('DejaVuSansMono-Bold'),
+    :bold_italic => Songbooks.font_file('DejaVuSansMono-BoldOblique')
+})
+
+@toc = {}
+
+pdf.start_new_page
+
+@songs.each do |song|
+  pdf.text song.title, :size => 18
+  pdf.text song.artist
+
+  @toc["#{song.title} - #{song.artist}"] = pdf.page_count
+
+  song_y = pdf.cursor
+  text_x = pdf.width_of(song.longest_section_caption) + 10
+
+  pdf.font 'DejaVuSansMono', :size => 9 do
+
+    song.sections.each do |section|
+      pdf.draw_text section.name, :at => [text_x - pdf.width_of(section.name) - 10, song_y], :style => :bold
+
+      section.lines.each do |line|
+        line_x = text_x
+
+        line.each do |component|
+          case component
+            when Songbooks::Components::Literal
+              pdf.draw_text component.to_s, :at => [line_x, song_y]
+            when Songbooks::Components::Chord
+              pdf.fill_color '8B0000'
+              pdf.draw_text component.to_s, :at => [line_x, song_y]
+              pdf.fill_color '000000'
+          end
+
+          line_x += pdf.width_of(component.to_s)
+        end
+        song_y -= 12
+
+        if song_y < 10
+          pdf.start_new_page
+          song_y = 700
+        end
+      end
+    end
+  end
+
+  pdf.start_new_page unless song == @songs.last
+end
+
+pdf.go_to_page 1
+
+#----------------------------------------------------------------
+#                     Table of Contents
+#----------------------------------------------------------------
+
+pdf.font 'DejaVuSansMono', :size => 11 do
+  @toc.keys.sort.each do |k|
+    min_width = pdf.width_of("#{k}    #{@toc[k]}")
+    dots = ''
+    dots << '.' while pdf.width_of(dots) < (530 - min_width)
+
+    pdf.text "#{k}  #{dots}  #{@toc[k]}"
+  end
+end
+
+#----------------------------------------------------------------
+#                        Page Numbers
+#----------------------------------------------------------------
+
+pdf.number_pages '<page>',
+                 :page_filter => lambda{ |pg| pg != 1 },
+                 :at => [pdf.bounds.right - 50, 0]

data/app/views/songs/component.haml

@@ -0,0 +1,2 @@
+%chord{:ng => {:if => 'component.component_type == "chord"'}}<>
+%literal{:ng => {:if => 'component.component_type == "literal"'}}<>

data/app/views/songs/index.jbuilder

@@ -0,0 +1,5 @@
+json.data do
+  json.array!(@songs) do |song|
+    json.(song, :identifier, :title, :artist)
+  end
+end

data/app/views/songs/show.haml

@@ -0,0 +1,23 @@
+.pull-right
+  %a{:ng => {:click => 'songbook.addSong(songCtrl.song())'}} Add
+
+%h3
+  %small
+    {{ songCtrl.song().artist }}
+  %br/
+  {{ songCtrl.song().title }}
+
+%p
+  %span{ng: {repeat: 'i in [-6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6]'}}
+    %input{type: 'radio', name: 'transposed_by', ng: {model: 'songCtrl.song().transposedBy'}} {{ i }}
+
+
+%table
+  %tbody
+    %tr{:ng => {:repeat => 'section in songCtrl.song().sections'}}
+      %td.text-right{:style => 'vertical-align: top; padding: 10px; padding-top: 0'}
+        %strong
+          {{ section.name }}
+      %td
+        %div{:ng => {:repeat => 'line in section.lines'}}
+          %song-component{:ng => {:repeat => 'component in line'}}

data/app/views/songs/show.jbuilder

@@ -0,0 +1,24 @@
+json.data do
+  json.(@song, :identifier, :title, :artist)
+
+  json.sections @song.sections do |section|
+    json.(section, :name)
+
+    json.lines section.lines do |line|
+      json.array! line do |component|
+        case component
+        when Songbooks::Components::Literal
+          json.component_type 'literal'
+          json.content component.to_s
+        when Songbooks::Components::Chord
+          json.component_type 'chord'
+          json.name component.name
+          json.transposed_by component.transposed_by.to_s
+        else
+          json.type 'unknown'
+          json.content 'unknown component: '
+        end
+      end
+    end
+  end
+end

data/app/views/songs/song.haml

@@ -0,0 +1,4 @@
+%small
+  {{ song.artist }}
+%br/
+{{ song.title }}

data/exe/sb_server

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'bundler/setup'
+require 'songbooks'
+require 'songbooks/CLI'
+Songbooks::CLI.start

data/lib/prawn_ext/font/afm.rb

@@ -0,0 +1,20 @@
+# class Prawn::Font::AFM
+#   # Patch normalize_encoding method to handle conversion more gracefully.
+#   #
+#   # Any valid utf-8 characters that cannot be encoded to windows-1252 are
+#   # replaced with the logic "not" symbol and a warning is issued identifying
+#   # the text that cannot be converted.
+#   def normalize_encoding(text)
+#     text.encode('utf-8')
+#     #text.encode 'windows-1252'
+#   rescue ::Encoding::UndefinedConversionError
+#     warn 'The following text could not be fully converted to the Windows-1252 character set:'
+#     warn %(#{text.gsub(/^/, '| ').rstrip})
+#     warn ''
+#     text.encode 'windows-1252', undef: :replace, invalid: :replace, replace: 'x'
+#   rescue ::Encoding::InvalidByteSequenceError
+#     raise Prawn::Errors::IncompatibleStringEncoding,
+#       %(Your document includes text that's not compatible with the Windows-1252 character set.
+#         If you need full UTF-8 support, use TTF fonts instead of PDF's built-in (AFM) fonts\n.)
+#   end
+# end

data/lib/songbooks.rb

@@ -0,0 +1,32 @@
+module Songbooks
+  # Gem requires
+  require 'haml'
+  require 'sinatra'
+  require 'active_support/all'
+  require 'prawn'
+  require 'sinatra/prawn'
+  require 'sinatra/jbuilder'
+  require 'json'
+
+  # Ruby requires
+  require 'pathname'
+
+  # Internal requires
+  require 'songbooks/folder'
+
+  def self.root
+    Pathname.new(File.dirname(__dir__))
+  end
+
+  def self.font_file(name)
+    root.join('app', 'fonts', "#{name}.ttf").to_s
+  end
+
+  def self.initialize_folder(directory_path)
+    @folder = Songbooks::Folder.new(directory_path)
+  end
+
+  def self.folder
+    @folder
+  end
+end

data/lib/songbooks/CLI.rb

@@ -0,0 +1,13 @@
+require 'thor'
+require 'songbooks/server'
+
+module Songbooks
+  class CLI < Thor
+    desc :start, 'Starts a songbook server'
+    def start(directory = '.')
+      Songbooks.initialize_folder(File.expand_path(directory))
+      puts Songbooks.folder.inspect
+      Songbooks::Server.run!
+    end
+  end
+end

data/lib/songbooks/components/chord.rb

@@ -0,0 +1,98 @@
+module Songbooks
+  module Components
+    class Chord
+
+      #----------------------------------------------------------------
+      #                          CONSTANTS
+      #----------------------------------------------------------------
+
+      NOTES = %w(C Db D Eb E F Gb G Ab A Bb B)
+
+      NOTE_MAPPING = [
+          %w(C# Db),
+          %w(D# Eb),
+          %w(E# F),
+          %w(Fb, E),
+          %w(F# Gb),
+          %w(G# Ab),
+          %w(A# Bb),
+          %w(B#, C)
+      ].each_with_object({}) do |(n1, n2), h|
+        h[n1] = n2
+        h[n2] = n1
+      end
+
+      CHORD_REGEXP = /[A-G](?:b|#)?(?:(?:m(?:aj)?|M|aug|dim|sus)?(?:[2-7]|9|13)?)?(?:\/[A-G](?:b|#)?)?/
+      NOTE_REGEXP  = /\A[A-G](b|#)*/
+
+      # A chord in a line has to appear either right before a space or punctuation symbol
+      # or be the only thing left in a string
+      CHORD_OCCURRENCE_REGEXP = /\A(#{CHORD_REGEXP})(?:\s+|[\.,\|])|\A(#{CHORD_REGEXP})\z/
+
+      #----------------------------------------------------------------
+      #                            Parsing
+      #----------------------------------------------------------------
+
+      #
+      # Tries to parse the beginning of the given text as a chord
+      #
+      # If the text starts with a chord, this part of the string is automatically deleted.
+      #
+      # @return [Chord, NilClass] a chord object if the given text started with a valid chord
+      #   or +nil+ otherwise.
+      #
+      def self.munch_chord(text)
+        if (match = text.match(CHORD_OCCURRENCE_REGEXP))
+          chord_name = match[1..-1].compact.first
+          text[0, chord_name.length] = ''
+          return Chord.new(chord_name)
+        end
+        nil
+      end
+
+      def self.starts_with_chord?(text)
+        CHORD_OCCURRENCE_REGEXP === text
+      end
+
+      def initialize(chord_name, transposed_by: 0)
+        @chord_name    = chord_name
+        @transposed_by = transposed_by
+      end
+
+      attr_reader :transposed_by
+
+      def name
+        @chord_name
+      end
+
+      def base_note
+        name.match(NOTE_REGEXP)[0]
+      end
+
+      def transpose!(count)
+        note            = base_note
+        note            = NOTE_MAPPING[base_note] unless NOTES.include?(base_note)
+        index           = NOTES.index(note)
+        transposed_note = NOTES[(index + number) % NOTES.size]
+        @transposed_by  = count
+        @chord_name.sub!(note, transposed_note)
+      end
+
+      def transpose(count)
+        dup.transpose!(count)
+      end
+
+      def ==(other_chord)
+        name == other_chord.name
+      end
+
+      def to_s
+        name
+      end
+
+      def to_str
+        name
+      end
+    end
+  end
+end