songbookize 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: e5804912b54b4f7e9eb0e75b4ed611e7a7d94aa4
+  data.tar.gz: 4472d45c0fa525c07e2b88a7aecf15da0b8d77a1
+SHA512:
+  metadata.gz: 3be94c1a03624d912a90f56bbd2d6639b249e227c03732fda99a0407d9932716410a897a4084dacd32a2fc2e2ae7a7bffb19f1e9dd0a0b887ce0003521f172eb
+  data.tar.gz: 6df99920eaf27c4c96bcdff1717ecd0fff62d1131532d96d536a64394327283ba67906bb3dc25fcc8d7667f0bc750fa5aeec761ca0433f3b0033814cf16e4243

data/Creator/capo.rb

@@ -0,0 +1,53 @@
+class Song
+  def capo!(fret)
+    capo_melody!(fret) unless melody.nil? or melody.empty?
+    verses.each{|v| v.capo!(fret)}
+    %[key K].each{|k| info[k] = Song.capo(info[k], fret) if info.include?(k)}
+    return self
+  end
+
+  OCTAVE ||= %w[A Bb B C Db D Eb E F Gb G Ab]
+  def self.capo(chord, fret)
+    idx = OCTAVE.index(chord[0])
+    range = 0
+    if idx.nil? then
+      idx =  OCTAVE.index(chord[0..1])
+      range = 0..1
+    end
+    raise StandardError.new("Unknown Chords #{chord}!") if idx.nil?
+
+    chord[range] = OCTAVE[(idx + fret) % OCTAVE.size]
+    return chord
+  end
+
+  private
+  def capo_melody!(fret)
+    Open3.popen2("abc2abc - -t #{fret}") do |i,o,t|
+      i.print(melody.to_s)
+      i.close
+      t.join
+      self.melody = o.read
+    end
+  end
+end
+
+class Song
+  class Verse
+    def capo!(fret)
+      lines.each{|l| l.capo!(fret)}
+    end
+  end
+
+  class Line
+    def capo!(fret)
+      log.debug self
+      log.debug chords
+      return if chords.nil? or chords.empty?
+      chords.each do |chord, pos|
+        Song.capo(chord, fret)
+      end
+      log.debug self
+      log.debug chords
+    end
+  end
+end

data/Creator/html_formatter.rb

@@ -0,0 +1,75 @@
+# encoding: UTF-8
+require 'json'
+require 'date'
+require 'slim'
+require 'ostruct'
+require 'kramdown'
+require_relative 'song'
+
+class Song
+  class Line
+    def to_html
+      return lyrics.gsub("'", "’").strip.each_line.map{|l| %|<span class="lyricline">#{l}</span>|}.join("\n") if chords.nil? or chords.empty?
+      return %|<span class="chords">#{raw_chords}</span><span class="chordlyrics">#{lyrics.gsub("'", "’").strip}</span>|
+
+      return res.gsub("'", "’")
+    end
+  end
+
+  class Verse
+    def to_html
+      lstr = lines.map(&:to_html).join("\n")
+      if chorus_indicator?
+        lstr = "<div class='chorusindicator'>[Chorus]</div>"
+      elsif chorus?
+        lstr = "<span class='chorusindicator'>Chorus:</span>\n<div class='chorus'>#{lstr}</div>"
+      end
+
+      return lstr
+    end
+  end
+
+  class Melody
+    def to_html
+      sub(/^([^:]*)$/, "#{other_info.join("\n")}\\1").to_s
+    end
+  end
+
+  def to_html
+    verses.map(&:to_html).join("\n\n")
+  end
+end
+
+class SongBook
+  def json_info
+    info = {}
+    info['songs'] = songs.reject(&:hidden?).map(&:title)
+    info['songInfo'] = songs.reject(&:hidden?).map do |song|
+      Hash[%w[title slug key author desc emoji].map{|f| [f, song.__send__(f.to_sym)]}]
+    end
+    info['date'] = DateTime.now
+    info['date_format'] = DateTime.now.strftime("%B %-d, %Y")
+
+    return info.to_json
+  end
+
+  def jsonp_info
+    return %|window.songBookInfo = #{json_info};|
+  end
+
+  def to_html(dir, opts = {})
+    scope = OpenStruct.new(book: self)
+    log.info "Creating songbook in #{dir}"
+    File.write("#{dir}/songbook.html", Slim::Template.new(File.join(File.dirname(__FILE__),'songbook.slim')).render(scope))
+    File.write("#{dir}/tv.html", Slim::Template.new(File.join(File.dirname(__FILE__),'tv.slim')).render(scope))
+    log.debug "Options: #{opts}"
+    songs.each do |song|
+      next if opts.has_key?(:only) and not opts[:only].include?(song.slug)
+      log.debug("Creating song page for #{song.title}")
+      scope = OpenStruct.new(song: song)
+      File.write("#{dir}/#{song.slug}.html", Slim::Template.new(File.join(File.dirname(__FILE__),'song.slim')).render(scope))
+      File.write("#{dir}/#{song.slug}_slideable.html", Slim::Template.new(File.join(File.dirname(__FILE__),'slideable_song.slim')).render(scope))
+    end
+    FileUtils.cp Dir["#{File.dirname(__FILE__)}/resources/*"], "#{dir}/"
+  end
+end

data/Creator/latex_formatter.rb

@@ -0,0 +1,113 @@
+#encoding: utf-8
+require 'open3'
+require_relative 'song.rb'
+
+class Song
+  class Line
+    def to_latex
+      return lyrics.gsub("'", "’") if chords.nil? or chords.empty?
+      offset = 0
+      res = lyrics.dup
+      chords.each do |chord, pos|
+        cmd = %|\\ch{#{chord}}|
+        res = res.ljust(pos + offset + 1).insert(pos + offset, cmd)
+        offset += cmd.length
+      end
+
+      return res.gsub("'", "’")
+    end
+  end
+
+  class Verse
+    def to_latex
+      lstr = lines.collect{|l| "#{l.to_latex} \\\\\\*"}.join("\n")
+      return "" if lstr.strip.empty?
+      lstr = "\\chorus\n" + lstr if chorus?
+      template =
+"\\begin{songverse}
+#{lstr}
+\\end{songverse}"
+      return template
+    end
+  end
+
+  def to_latex
+    parts = []
+    case
+    when short? then parts << "\\newshortsong"
+    when song? then parts << "\\newsong"
+    when tune? then parts << "\\newtune"
+    end
+    parts << "\\section{#{title}}"
+    parts << "\\songdesc{#{desc}}\n\n" if desc
+    parts << "\\#{(melody.nil? or melody.empty?) ? "nm" : ""}songinfo{#{"Key of #{key}"}}{#{author}}"
+    parts << "\\melody{#{slug}001.eps}" unless melody.nil? or melody.empty?
+    # parts << "\\begin{abc}[name=#{title.downcase.gsub(/[^\w]/, "")}]\n#{melody}\\end{abc}" unless melody.nil? or melody.empty?
+    # parts << "\\begin{lilypond}[quoted,staffsize=26]\n#{lilypond}\\end{lilypond}" unless melody.nil? or melody.empty?
+
+    unless verses.empty? then
+      parts << "\\begin{lyrics}"
+      parts << verses.collect{|v| v.to_latex}.join("\n")
+      parts << "\\end{lyrics}"
+    end
+
+    return parts.join("\n")
+  end
+
+  def eps!
+    return nil if melody.nil? or melody.empty?
+    Open3.popen2("abcm2ps -E -O #{slug} -") do |i,o,t|
+      other_info = []
+      # other_info << "%%textfont Times-Italic 14"
+      # other_info << "%%text Key of #{self.key}"
+      # other_info << "%%textoption right"
+      # other_info << "%%text #{self.author}"
+      i.print(melody.sub(/^([^:]*)$/, "#{other_info.join("\n")}\\1").to_s)
+      i.close
+      t.join
+    end
+    return "#{slug}001.eps"
+  end
+
+  def preview_latex
+    Dir.chdir("/tmp/") { eps! }
+    File.write("/tmp/preview.tex", SongBook.templatize(to_latex))
+
+    Dir.chdir("/tmp") do
+      return unless system("xelatex -shell-escape /tmp/preview.tex")
+    end
+    spawn("evince /tmp/preview.pdf")
+  end
+end
+
+class SongBook
+  def to_latex(options = {})
+    SongBook.templatize(songs.reject{|s| s.hidden?}.sort_by do |s|
+      #[s.song? ? 0 : 1, s.short? ? 1 :0, File.ctime(s.file)]
+      s.order
+    end.collect{|s| s.to_latex}.join("\n"), options.merge(@info))
+  end
+
+  def build(options = {})
+    filename = options.fetch(:filename, "preview")
+    File.write("#{filename}.tex", to_latex(options.merge(preface:self.preface)))
+    2.times { raise StandardError.new("Could not build #{filename}") unless system("xelatex -shell-escape #{filename}.tex") }
+  end
+
+  def preview(options = {})
+    build(options)
+    spawn("evince #{filename}.pdf")
+  end
+
+  def self.templatize(str, options={})
+    template = File.read(options[:template] || "#{File.dirname(__FILE__)}/../template.tex")
+    if options[:booklet]
+      template.gsub!('documentclass[letterpaper]{article}', 'documentclass[letterpaper]{book}')
+      template.gsub!('usepackage[noprint,1to1]{booklet}', 'usepackage[print,1to1]{booklet}')
+    end
+    template.sub("SONGGOESHERE", str)
+            .sub("PREFACEGOESHERE", options[:preface].to_s)
+            .sub("TITLEGOESHERE", options.fetch(:title, "Untitled Songbook"))
+            .sub("SUBTITLEGOESHERE", options.fetch(:subtitle, ""))
+  end
+end

data/Creator/midi_formatter.rb

@@ -0,0 +1,25 @@
+class Song
+  def to_midi
+    return nil if melody.nil? or melody.empty?
+    Open3.popen2("abc2midi - -o #{slug}.mid") do |i,o,t|
+      other_info = []
+      # other_info << "%%textfont Times-Italic 14"
+      # other_info << "%%text Key of #{self.key}"
+      # other_info << "%%textoption right"
+      # other_info << "%%text #{self.author}"
+      i.print(melody.sub(/^([^:]*)$/, "#{other_info.join("\n")}\\1").to_s)
+      i.close
+      t.join
+    end
+    return "#{slug}.mid"
+  end
+end
+
+class SongBook
+  def to_midi(dir)
+    FileUtils.mkdir_p dir
+    Dir.chdir(dir) do
+      songs.each(&:to_midi)
+    end
+  end
+end

data/Creator/parser.rb

@@ -0,0 +1,150 @@
+# encoding: UTF-8
+require 'logger'
+require 'yaml'
+require 'open-uri'
+require_relative 'song'
+
+Encoding.default_internal = Encoding::UTF_8
+Encoding.default_external = Encoding::UTF_8
+
+def log; $logger ||= Logger.new(STDOUT); return $logger; end
+
+class Song
+  def self.split_chords(line)
+    return line.enum_for(:scan, /\b\w+\b/).map{[Regexp.last_match[0], Regexp.last_match.begin(0)]}
+  end
+
+  def parse_abc(f = nil)
+    f ||= "#{File.dirname(file)}/#{slug}.abc"
+    return log.debug("No such file #{f}") unless File.exist?(f)
+    remove_sections = %w[T Q C N]
+    self.melody = File.read(f)
+    self.file = File.absolute_path(f) if file.nil?
+    self.info.merge!(self.melody.each_line.map{|l|l.split(":")}.reject{|i|i.size != 2}.inject({}){|h,k| h[k[0]]=k[1].strip; h})
+    self.melody = self.melody.each_line.reject{|l| remove_sections.include?(l.split(":").first)}.join
+    return self
+  rescue
+    log "Could not parse ABC for #{f}"
+    raise
+  end
+
+  def parse_song_chords(f)
+    state = :none
+    last_key = :text
+    current_line = Song::Line.new
+    self.file = File.absolute_path(f)
+    File.open(f).each_line do |raw_line|
+      line = raw_line.strip
+      # log.debug("#{state}: #{line[0..20]}")
+      case (state)
+      when :none then
+        if line == "---" then
+          log.debug "Starting header"
+          state = :header
+          next
+        end
+
+        if line.start_with?("Additional Verses") then
+          next
+        end
+
+        unless line.empty? then
+          log.debug "Starting new verse"
+          state = :verse
+          self.verses << Song::Verse.new
+          redo
+        end
+      when :header then
+        if line == "---" then
+          log.debug "Ending header"
+          state = :none
+          next
+        end
+
+        key, value = line.scan(/(\w*):(.*)/).flatten
+        log.debug("k: #{key}, v:#{value}, lk: #{last_key}")
+        if key.nil? or value.nil? then
+          info[last_key] += " " + line.strip
+        elsif last_key
+          info[key] = value.strip
+          last_key = key
+        end
+      when :verse then
+        if line.empty? then
+          state = :none
+          next
+        end
+
+        if line.match(/^\[?[Cc]horus:?\]?$/) then
+          self.verses.last.chorus = true
+          next
+        end
+
+        if raw_line.gsub('\r', '').match(/[ \t]{2}/) then
+          current_line.raw_chords = raw_line.gsub('\t', '  ').gsub('\r', '').gsub('\n', '')
+          current_line.chords = Song.split_chords(raw_line.gsub('\t', '  '))
+          # log.debug "Chords #{current_line.chords}"
+        else
+          current_line.lyrics = line
+          self.verses.last.lines << current_line
+          current_line = Song::Line.new
+        end
+      end
+    end
+
+    return self
+  end
+
+  def self.parse(f)
+    s = Song.new
+    s.parse_song_chords(f)
+    s.parse_abc
+    return s
+  end
+end
+
+class SongBook
+  def parse(dir)
+    if File.exist?("#{dir}/../songbook.yml") then
+      log.debug "Reading info file"
+      @info = Hash[YAML.load(File.read("#{dir}/../songbook.yml")).map{|(k,v)| [k.to_sym,v]}]
+    else
+      raise StandardError.new("No such file #{dir}/songbook.yml")
+    end
+
+    Dir["#{dir}/*.chords"].each do |f|
+      songs << Song.parse(f)
+    end
+
+    Dir["#{dir}/*.abc"].reject{|a| File.exist?("#{dir}/#{File.basename(a, ".abc")}.chords")}.each do |f|
+      songs << Song.new.parse_abc(f)
+    end
+
+    # Allow include: syntax in songbook.yml to include songs from other songbooks
+    @info.fetch(:include, {}).each do |inc_dir, song_list|
+      Dir["#{inc_dir}/*.chords"].each do |f|
+        new_song = Song.parse(f)
+        songs << new_song if song_list.nil? or song_list.empty? or song_list.include?(new_song.slug)
+      end
+      Dir["#{inc_dir}/*.abc"].reject{|a| File.exist?("#{inc_dir}/#{File.basename(a, ".abc")}.chords")}.each do |f|
+        new_song = Song.new.parse_abc(f)
+        songs << new_song if song_list.nil? or song_list.empty? or song_list.include?(new_song.slug)
+      end
+    end
+
+    if File.exist?("#{dir}/order.yml") then
+      # Looks better in the yml file as ##: slug
+      order = Hash[YAML.load(File.read("#{dir}/order.yml")).map{|k,v| [v, k]}] || {}
+      max = order.values.max || 0
+      songs.each{|s| s.order = order.fetch(s.slug, max += 1) || max += 1}
+      songs.sort_by!(&:order)
+      songs.each_with_index{|s, i| s.order = i + 1}
+    end
+
+    return self
+  end
+
+  def self.parse(dir)
+    return SongBook.new.parse(dir)
+  end
+end

data/Creator/slideable_song.slim

@@ -0,0 +1,134 @@
+doctype 1.1
+html
+  head
+    title=song.title
+    meta charset="UTF-8"
+    style type="text/css"==open(URI.encode("https://fonts.googleapis.com/css?family=Cousine|Lora")).read
+    script src="abcjs_basic_2.3-min.js"
+    script src="abcjs_plugin_2.3-min.js"
+    script src="https://d3js.org/d3.v4.min.js"
+    javascript:
+      window.ABCJS.plugin.auto_render_threshold = 100;
+      window.ABCJS.plugin.hide_abc = true;
+    sass:
+      body
+        max-width: 1000px
+        margin: auto
+        padding-top: 50px
+        font-family: 'Junge'
+        background-color: white
+        color: black
+        overflow: visible
+      html
+        overflow-x: hidden
+      .lyrics
+        line-height: 140%
+        font-size: 140%
+        overflow-y: hidden
+        transform-origin: top
+        clear: both
+        font-family: 'Cousine'
+        margin: auto
+        width: 100%
+        padding-top: 1em
+        position: absolute
+        left: 0
+        overflow: visible
+        white-space: pre
+
+      .chordlyrics
+        font-family: 'Cousine', monospace
+
+      .lyricline
+        display: inline-block
+        white-space: pre-wrap
+        text-indent: -2em
+        padding-left: 2em
+
+      .verse
+        position: absolute
+        width: 40%
+
+      .abcrendered
+        margin: auto
+      h2
+        text-align: center
+      .order
+        position: relative
+        top: 10
+        left: 0
+        float: right
+        font-size: 26px
+        font-family: 'Cousine', sans
+      .chords
+        font-family: 'Cousine', monospace
+        font-weight: bold
+        color: #08c
+      .chorusindicator
+        color: #0a5
+        font-weight: bold
+        text-align: center
+        display: block
+      .chorus
+        color: #083
+      .author, .key
+        font-family: 'Lora', serif
+        font-size: 140%
+        text-align: center
+        font-style: italic
+
+      .author
+        float: right
+        margin-right: 120px
+      .key
+        float: left
+        margin-left: 120px
+      .desc
+        clear: both
+        margin-bottom: 2em
+      .melody
+        background: none
+        border: none
+        clear: both
+
+.order=song.order
+a name=song.slug
+h2="#{song.title}"
+.info
+  .desc=song.desc
+  .author=song.author
+  .key="Key of #{song.key}"
+- unless song.melody.nil? or song.melody.empty?
+  pre.melody=song.melody
+- unless song.verses.empty?
+  .lyrics
+script=="window.verses = #{song.verses.each_with_index.map { |v, i| next_verse = song.verses[i + 1]; (v.chorus? && !v.chorus_indicator? ?  %|<span class="chorusindicator">[CHORUS:]\n</span>| : "") + v.lines.map(&:to_html).join("\n") + ((next_verse && next_verse.chorus_indicator? && !v.chorus?) ? %|\n<span class="chorusindicator">[CHORUS]</span>| : "")}.reject(&:empty?).to_json}"
+
+coffee:
+  window.verse_index = 0
+  updateVerses = ->
+    v = d3.select('.lyrics').selectAll('.verse').data(verses)
+    v.enter().append('div')
+     .attr('class', 'verse')
+     .style('left', "3000px")
+     .html((d) -> d)
+
+    d3.select('.lyrics').selectAll('.verse').transition().duration(500)
+     .style 'left', (d, i) ->
+        switch
+          when i < verse_index then "-100%"
+          when i == verse_index then "5%"
+          when i == verse_index + 1 then "55%"
+          else "100%"
+
+  updateVerses()
+  $("body").keydown (e) ->
+    console.log(e.key)
+    switch e.key
+      when "ArrowLeft"
+        verse_index-- if verse_index > 0
+      when "ArrowRight", " "
+        verse_index++ if verse_index < verses.length - 1
+      when "Backspace"
+        window.history.back()
+    updateVerses()

data/Creator/song.rb

@@ -0,0 +1,52 @@
+#encoding: utf-8
+class Song
+  attr_accessor :info, :file, :verses, :melody, :order
+  def initialize
+    @verses = []
+    @info = {}
+  end
+
+  def title; (info["title"] || info["T"]).to_s.gsub("'", "’"); end
+  def desc; (info["desc"] || info["N"]).to_s.gsub("'", "’"); end
+  def key; (info["key"] || info["K"]).to_s.gsub("maj", "").gsub("min", "m"); end
+  def author; info["author"] || info["composer"] || info["C"] || "Traditional"; end
+  def emoji; info.fetch("emoji", "").strip.split(""); end
+
+  def slug; File.basename(file, File.extname(file)); end
+
+  def song?; return !tune?; end
+  def tune?; return verses.empty?; end
+  def hidden?; info['skip'] == "true"; end
+  def short?; info['short'] == 'true'; end
+end
+
+class Song
+  class Verse
+    attr_accessor :lines, :chords, :chorus
+
+    def initialize
+      @lines = []
+    end
+    def chorus?; @chorus; end
+    def chorus_indicator?; chorus? and lines.empty?; end
+  end
+
+  class Line
+    attr_accessor :lyrics, :chords, :raw_chords
+  end
+
+  class Melody
+  end
+end
+
+class SongBook
+  attr_accessor :songs, :preface, :info
+  def initialize
+    @songs = []
+  end
+
+  def title; info[:title]; end
+  def subtitle; info[:subtitle]; end
+
+  def file_safe_title; title.gsub(/[^\w]/,""); end
+end

data/Creator/song.slim

@@ -0,0 +1,82 @@
+html
+  head
+    title=song.title
+    meta charset="UTF-8"
+    / style type="text/css"==open(URI.encode("https://fonts.googleapis.com/css?family=Bitter:400,700|Muli:300,400,i|Montserrat:400,700|Fira+Mono|Junge")).read
+    script src="abcjs_basic_2.3-min.js"
+    script src="abcjs_plugin_2.3-min.js"
+    javascript:
+      window.ABCJS.plugin.auto_render_threshold = 100;
+      window.ABCJS.plugin.hide_abc = true;
+  sass:
+    body
+      max-width: 1000px
+      margin: auto
+      padding-top: 50px
+      font-family: 'Junge'
+    .lyrics
+      line-height: 140%
+      font-size: 140%
+      overflow-y: hidden
+      transform-origin: top
+      clear: both
+      font-family: 'Junge'
+      margin: auto
+      width: fit-content
+      padding-top: 1em
+
+    .chordlyrics
+      font-family: 'Fira Mono', monospace
+    .abcrendered
+      margin: auto
+    h2
+      text-align: center
+    .order
+      position: relative
+      top: 10
+      left: 0
+      float: right
+      font-size: 26px
+      font-family: 'Fira Mono', sans
+    .chords
+      font-family: 'Fira Mono', monospace
+      font-weight: bold
+      color: #08c
+    .chorusindicator
+      color: #0a5
+      font-weight: bold
+      text-align: center
+    .chorus
+      color: #083
+    .author, .key
+      font-family: 'Lora', serif
+      font-size: 140%
+      text-align: center
+      font-style: italic
+
+    .author
+      float: right
+      margin-right: 120px
+    .key
+      float: left
+      margin-left: 120px
+    .desc
+      clear: both
+      margin-bottom: 2em
+    .melody
+      background: none
+      border: none
+      clear: both
+  body
+    .order=song.order
+    a name=song.slug
+    h2="#{song.title}"
+    .info
+      .desc=song.desc
+      .author=song.author
+      .key="Key of #{song.key}"
+    - unless song.melody.nil? or song.melody.empty?
+      pre.melody=song.melody
+    - unless song.verses.empty?
+      pre.melody
+        .lyrics==song.to_html