xiki 0.5.0a

data/menus/mysql.rb

@@ -0,0 +1,294 @@
+class Mysql
+  def self.menu
+    "
+    - @tables/
+    - @dbs/
+    - @columns/
+    - .setup/
+      - .start/
+      - .start in background/
+      - stop/
+        @ $ ps -eo pcpu,pid,user,args | grep mysql | grep -v grep
+        @ $ kill _
+      - db/
+        - .use/
+        - .create/
+        - .drop/
+      - table/
+        - .create/
+        - .drop/
+      - .install/
+      - config/
+        > Main config file
+        @ /etc/my.cnf
+
+        > Example config files
+        @ /usr/local/Cellar/mysql/5.5.25/support-files/
+          - **cnf/
+    - misc commands/
+      > Drop db
+      @ % mysqladmin -u root drop foo
+      |
+      > Others
+      @ technologies/mysql/
+    > Or just type some sql here
+    | show tables
+    "
+  end
+
+  def self.install
+    "
+    > Installing Mysql
+    For now, this just has the mac / homebrew instructions.  Fork xiki on github to add docs for other platforms.
+
+    > Install using homebrew
+    - 1. double-click to install) @ % brew install mysql
+    - 2. look at the output) and run the commands it tells you to run
+
+    > More
+    See this link for more info on installing:
+    @http://www.mysql.com/downloads/mysql/
+    "
+  end
+
+  def self.menu_after txt, *args
+    return nil if txt
+    ENV['no_slash'] = "1"
+    Tree.quote self.run(nil, ENV['txt'])
+  end
+
+  def self.default_db db
+    @default_db = db
+  end
+
+  def self.start
+    Console.run "mysqld", :buffer=>"mysql", :dir=>"/tmp/"
+    View.to_buffer "mysql"
+    nil
+  end
+
+  def self.start_in_background
+    Console.run "mysql.server start"
+  end
+
+  def self.tables *args
+    if ! @default_db && ! args[0]
+      @default_db = "dev"   # Temp
+    end
+
+    self.dbs @default_db, *args
+  end
+
+  def self.dbs db=nil, table=nil, row=nil
+
+    # If nothing passed, list db's
+
+    if db.nil?
+      txt = Mysql.run('', 'show databases')
+      return txt.split[1..-1].map{|o| "#{o}/"}
+    end
+
+    db.sub! /\/$/, '' if db
+    table.sub! /\/$/, '' if table
+
+    # If just db passed, list the tables
+
+    if table.nil?
+      txt = Mysql.run(db, 'show tables')
+      if txt.blank?
+        @default_db = db
+        return "> No tables exist.  Create one?\n- @mysql/setup/table/create/"
+      end
+      return txt.split[1..-1].map{|o| "#{o}/"}
+    end
+
+    # If table passed, so show all records
+
+    if row.nil?
+      # Whole table
+
+      if ! $el || ! Keys.prefix_u
+        sql = "select * from #{table} limit 1000"
+        out = self.run(db, sql)
+        out = "No records, create one?\n#{self.dummy_row(db, table)}" if out.blank?
+        return Tree.quote out #.gsub(/^/, '| ')
+      else
+        # Pick out just a few fields
+        fields = self.run db, "select * from #{table} limit 1"
+        fields = fields.sub(/\n.+/m, '').split("\t")
+        fields &= ['id', 'slug', 'name', 'partner_id']
+        fields = ['*'] if fields.blank?
+        sql = "select #{fields.join ', '} from #{table} limit 1000"
+        txt = Mysql.run(db, sql)
+
+        return txt.gsub(/^/, '| ')
+      end
+    end
+
+    # Row passed, so save
+
+    self.save db, table, row
+
+    ".flash - saved record!"
+  end
+
+  def self.dummy_row db=nil, table=nil
+    fields = self.fields db, table
+    examples = {
+      "int"=>"1",
+      "varchar"=>"foo",
+      "text"=>"bar bar",
+      "date"=>"2011-01-01",
+      "time"=>"2011-01-01",
+      }
+    fields = fields.map{|o| examples[o[1]]}
+    fields.join("\t")
+  end
+
+  def self.fields db, table=nil
+    txt = self.run db, "desc #{table}"
+    txt.sub(/^.+\n/, '').split("\n").map{|o|
+      l = o.split("\t")
+      [l[0], l[1].sub(/\(.+/, '')] }
+  end
+
+  def self.use kind=nil, db=nil
+    # If nothing passed, show db's
+
+    if db.nil?
+      return Mysql.dbs
+    end
+
+    @default_db = db
+    ".flash - using db #{db}!"
+  end
+
+  def self.create what, name=nil, columns=nil
+    if name.nil?
+      View.prompt "Type a name"
+      return nil
+    end
+
+    if what == "db"
+      txt = Console.run "mysqladmin -u root create #{name}", :sync=>true
+      return ".flash - created db!"
+    end
+
+    if columns.nil?
+      return "
+        | id int not null auto_increment primary key,
+        | name VARCHAR(20),
+        | details text,
+        | datestamp DATE,
+        | timestamp TIME,
+        "
+    end
+
+    txt = "
+      CREATE TABLE #{name} (
+        #{ENV['txt'].strip.sub(/,\z/, '')}
+      );
+      "
+
+    out = self.run(@default_db, txt)
+
+    ".flash - created table!"
+  end
+
+  def self.drop what, name=nil
+    if name.nil?
+      return what == "db" ? Mysql.dbs : Mysql.tables
+    end
+
+    if what == "db"
+      txt = Console.run "mysqladmin -u root drop #{name}" #, :sync=>true
+      return
+    end
+
+    out = self.run(@default_db, "drop table #{name}")
+
+    ".flash - dropped table!"
+  end
+
+  def self.run db, sql
+    db ||= @default_db
+
+    File.open("/tmp/tmp.sql", "w") { |f| f << sql }
+    out = Console.run "mysql -u root #{db} < /tmp/tmp.sql", :sync=>true
+
+    raise "> Mysql doesn't appear to be running.  Start it?\n- @mysql/setup/start/" if out =~ /^ERROR.+Can't connect/
+    raise "| Select a db first:\n- @mysql/setup/db/use/" if out =~ /^ERROR.+: No database selected/
+    raise "| Database doesn't exist.  Create it?\n- @mysql/setup/db/create/#{$1}/" if out =~ /^ERROR.+Unknown database '(.+)'/
+    raise "| Table doesn't exist.  Create it?\n- @mysql/setup/table/create/#{$1}/" if out =~ /^ERROR.+Table '.+\.(.+)' doesn't exist/
+    raise Tree.quote(out) if out =~ /^ERROR/
+    out
+  end
+
+  def self.save db, table, row
+    fields = self.fields db, table
+    row = row.sub(/^\| /, '').split("\t")
+    txt = fields.map{|o| o[0]}.map_with_index{|o, i| "#{o}='#{row[i]}'"}.join(", ")
+    self.run db, "INSERT INTO #{table} SET #{txt} ON DUPLICATE KEY UPDATE #{txt}"
+  end
+
+  def self.select statement, row=nil
+    table = statement[/from (.+?)( |$)/, 1]
+
+    # If just statement, run it
+
+    if row.nil?
+      txt = Mysql.run nil, statement.sub(/\/$/, '')
+      txt = "No records, create one?\n#{self.dummy_row(@default_db, table)}" if txt.blank?
+      return Tree.quote txt
+    end
+
+    # Row passed, so save it
+
+    ENV['no_slash'] = "1"
+    self.save @default_db, table, row
+
+    ".flash - saved!"
+  end
+end
+
+Keys.enter_list_mysql { Launcher.insert('- Mysql.dbs/') }
+
+Launcher.add /^select \* from($|\/)/ do |path|
+  if path !~ /\//   # If just "select * from", show all tables
+    next Tree.<< Mysql.run(@default_db, 'show tables'), :no_slash=>1
+  end
+
+  # If listed table underneath, collapse to same line
+  CodeTree.kill_siblings
+  Move.backward
+  Deletes.backward
+  Deletes.backward
+  Move.to_end
+
+end
+
+Launcher.add(/^select /) do |path|
+  args = Menu.split(path)
+  Tree.<< Mysql.select(*args), :no_slash=>(args.length > 1)
+end
+
+Launcher.add "tables" do |path|
+  Mysql.tables *Menu.split(path, :rootless=>1)
+end
+
+Launcher.add "dbs" do |path|
+  Mysql.dbs *Menu.split(path, :rootless=>1)
+end
+
+Launcher.add "rows" do |path|
+  args = path.split('/')[1..-1]
+  Mysql.tables(*args)
+end
+
+Launcher.add "columns" do |path|
+  args = path.split('/')[1..-1]
+  if args.size > 0
+    next Mysql.run(@default_db, "desc #{args[0]}").gsub!(/^/, '| ')
+  end
+  Mysql.tables(*args)
+end

data/menus/node.rb

@@ -0,0 +1,88 @@
+class Node
+  def self.menu
+    "
+    > Pass javascript to eval in node
+    | puts(1 + 2)
+    - .controller/
+    - docs/
+      - menu/
+        > To try out controller code
+        | @node/controller/
+        |   | function
+
+      - node/
+        > Snippets
+        @technologies/node_js/
+    "
+  end
+
+  def self.menu_after output, *args
+    return output if output
+
+    if args.empty?
+      View.prompt("Enter some code to run in node.js")
+      return "| "
+    end
+
+    return self.block if args == ['block']
+
+    txt = Tree.leaf args[0]
+    result = Tree.quote self.run(txt)
+
+    result
+  end
+
+  def self.wrap_controller code
+
+    "
+    var http = require('http');
+    http.createServer(function (req, res) {
+
+    #{code}
+    }).listen(8161, '127.0.0.1');
+    console.log('Server running at http://127.0.0.1:8161/');
+    ".unindent
+
+  end
+
+  def self.controller *args
+
+    return "
+      | // Sample controller code
+      | console.log('got a request');
+      | res.end('Hello World');
+      " if args.empty?
+
+    code = self.wrap_controller ENV['txt']
+    self.run_controller code
+  end
+
+  def self.run_controller code
+    File.open("/tmp/controller.js", "w") { |f| f << code }
+
+    Buffers.delete "node" if View.buffer_open? "node"
+
+    Console.run "node controller.js", :dir=>"/tmp/", :buffer=>"node"
+    $el.sit_for 0.2
+    Firefox.url "http://localhost:8161"
+    ".flash - showing in browser!"
+  end
+
+  def self.block
+    left = Line.right + 1
+    ignore, ignore, right = View.block_positions "^>"
+
+    txt = self.run View.txt(right, left)
+    Block >> txt
+
+    nil
+  end
+
+  def self.run txt
+    file = "/tmp/nodejs.js"
+    txt = "function puts (txt){ return console.log(txt) }\n\n#{txt}"
+    File.open(file, "w") { |f| f << txt }
+    Console["node #{file}"]
+  end
+
+end

data/menus/open.rb

@@ -0,0 +1,19 @@
+class Open
+  def self.menu
+    %`
+    > Summary
+    | Keys shortcuts that start with "to+" (ctrl-t) such as to+end.
+    |
+    - frequent/
+      > Jumping cursor around
+      | open+bookmark: jump to a file
+      | open+tree: view a tree of a directory
+      | open+current: shows currently open files
+      | open+edited: shows recently edited files
+      | open+menu: opens view that lets you type a menu (type "-" to see all)
+      |
+    - others/
+      | open+history: shows recently viewed files
+    `
+  end
+end

data/menus/outline.rb

@@ -0,0 +1,24 @@
+class Outline
+  def self.menu *target
+
+    if target.blank?   # If just filter, show results
+      return View.txt.grep(/^> /).select{|o| o !~ /^> ?$/}.join("").gsub(/^/, '| ')
+    end
+    # Navigated to target text
+
+    # Grab line manually, because input will have all lines grouped together
+      # Should there be an option to have just 1 line passed in?
+        # How would it work?
+          # Something in the routing?
+    target = Line.value
+    target.sub! /^ *\| /, ''
+
+    View.to_highest
+    result = Search.forward "^#{target}$"
+
+    View.recenter_top
+    Line.to_beginning
+    nil
+
+  end
+end

data/menus/piano.rb

@@ -0,0 +1,746 @@
+Requirer.require_gem 'midiator', :optional=>1
+
+require "mode"
+
+class Piano
+
+  include MIDIator::Notes rescue nil
+  include MIDIator::Drums rescue nil
+
+  @@midi = nil
+  @@velocity = 126
+  @@tempo = 120
+  @@probability = 100
+  @@melodic = 0
+  @@melodic_accumulator = []
+  @@climb = 0
+  @@pentatonic = false
+  @@variation = 0
+  @@consistency = 0
+  @@mode = 0
+  @@octave = 0
+  @@program = 1
+  @@repeat = 1
+  @@names = ['Acoustic Grand Piano', 'Bright Acoustic Piano', 'Electric Grand Piano', 'Honky-tonk Piano', 'Electric Piano 1', 'Electric Piano 2', 'Harpsichord', 'Clavinet', 'Celesta', 'Glockenspiel', 'Music Box', 'Vibraphone', 'Marimba', 'Xylophone', 'Tubular Bells', 'Dulcimer', 'Drawbar Organ', 'Percussive Organ', 'Rock Organ', 'Church Organ', 'Reed Organ', 'Accordion', 'Harmonica', 'Tango Accordion', 'Acoustic Guitar (nylon)', 'Acoustic Guitar (steel)', 'Electric Guitar (jazz)', 'Electric Guitar (clean)', 'Electric Guitar (muted)', 'Overdriven Guitar', 'Distortion Guitar', 'Guitar harmonics', 'Acoustic Bass', 'Electric Bass (finger)', 'Electric Bass (pick)', 'Fretless Bass', 'Slap Bass 1', 'Slap Bass 2', 'Synth Bass 1', 'Synth Bass 2', 'Violin', 'Viola', 'Cello', 'Contrabass', 'Tremolo Strings', 'Pizzicato Strings', 'Orchestral Harp', 'Timpani', 'String Ensemble 1', 'String Ensemble 2', 'Synth Strings 1', 'Synth Strings 2', 'Choir Aahs', 'Voice Oohs', 'Synth Choir', 'Orchestra Hit', 'Trumpet', 'Trombone', 'Tuba', 'Muted Trumpet', 'French Horn', 'Brass Section', 'Synth Brass 1', 'Synth Brass 2', 'Soprano Sax', 'Alto Sax', 'Tenor Sax', 'Baritone Sax', 'Oboe', 'English Horn', 'Bassoon', 'Clarinet', 'Piccolo', 'Flute', 'Recorder', 'Pan Flute', 'Blown Bottle', 'Shakuhachi', 'Whistle', 'Ocarina', 'Lead 1 (square)', 'Lead 2 (sawtooth)', 'Lead 3 (calliope)', 'Lead 4 (chiff)', 'Lead 5 (charang)', 'Lead 6 (voice)', 'Lead 7 (fifths)', 'Lead 8 (bass + lead)', 'Pad 1 (new age)', 'Pad 2 (warm)', 'Pad 3 (polysynth)', 'Pad 4 (choir)', 'Pad 5 (bowed)', 'Pad 6 (metallic)', 'Pad 7 (halo)', 'Pad 8 (sweep)', 'FX 1 (rain)', 'FX 2 (soundtrack)', 'FX 3 (crystal)', 'FX 4 (atmosphere)', 'FX 5 (brightness)', 'FX 6 (goblins)', 'FX 7 (echoes)', 'FX 8 (sci-fi)', 'Sitar', 'Banjo', 'Shamisen', 'Koto', 'Kalimba', 'Bag pipe', 'Fiddle', 'Shanai', 'Tinkle Bell', 'Agogo', 'Steel Drums', 'Woodblock', 'Taiko Drum', 'Melodic Tom', 'Synth Drum', 'Reverse Cymbal', 'Guitar Fret Noise', 'Breath Noise', 'Seashore', 'Bird Tweet', 'Telephone Ring', 'Helicopter', 'Applause', 'Gunshot']
+
+  begin
+    @@map = {
+      '@'=>BassDrum2, '#'=>BassDrum1,
+      '='=>SnareDrum2, '-'=>SnareDrum1,
+      "'"=>ClosedHiHat, '"'=>OpenHiHat,
+      '^'=>RideCymbal1, '`'=>CrashCymbal1, '*'=>CrashCymbal2, '<'=>Cowbell,
+      '['=>MidTom1,  '_'=>MidTom2,  ']'=>LowTom2,
+      }
+  rescue Exception=>e
+  end
+
+  def self.menu
+
+    %`
+    > Pass in notes
+    | g cdefg c c
+    - .setup/
+      - .instrument/
+        - most common/
+          - Acoustic Grand Piano/
+          - Electric Piano 1/
+          - Glockenspiel/
+          - Vibraphone/
+          - Xylophone/
+          - Drawbar Organ/
+          - Church Organ/
+          - Accordion/
+          - Acoustic Guitar (nylon)/
+          - Distortion Guitar/
+          - Electric Bass (finger)/
+          - Violin/
+          - Tremolo Strings/
+          - Pizzicato Strings/
+          - Orchestral Harp/
+          - Timpani/
+          - String Ensemble 2/
+          - Synth Strings 2/
+          - Choir Aahs/
+          - Synth Choir/
+          - Orchestra Hit/
+          - Trumpet/
+          - Flute/
+          - Pan Flute/
+          - Lead 1 (square)/
+          - Lead 2 (sawtooth)/
+          - Pad 1 (new age)/
+          - Pad 2 (warm)/
+          - Pad 4 (choir)/
+          - Pad 7 (halo)/
+          - Pad 8 (sweep)/
+          - FX 3 (crystal)/
+          - FX 6 (goblins)/
+          - Steel Drums/
+          - Woodblock/
+          - Taiko Drum/
+        - all/
+      - .tempo/
+        - 60
+        - 120
+        - 240
+        - 480
+        - 960
+      - .repeat/
+        - 1
+        - 2
+        - 4
+        - 8
+      - .mode/
+        - lydian) 4
+        - ionian - major) 3
+        - mixolydian) 2
+        - dorian) 1
+        - aeolian - minor) 0
+        - phrygian) -1
+        - locrian) -2
+        - random/
+      - .pentatonic/
+        - off
+        - on
+      - .octave/
+        - 2
+        - 1
+        - 0
+        - -1
+        - -2
+      - .velocity/
+        - 126
+        - 96
+        - 64
+        - 32
+      - .variation/
+        - 0
+        - 1
+        - 2
+        - 3
+      - .consistency/
+        - 0%
+        - 25%
+        - 50%
+        - 75%
+      - .melodic/
+        - 1
+        - 0
+      - .climb/
+        - 1
+        - -1
+        - 0
+      - .probability/
+        - 100%
+        - 75%
+        - 50%
+      - .reset/
+    - .random notes/
+    - examples/
+      - basics/
+        - chords/
+          @piano/
+            | A A A B A
+            | C C D D C
+            | E F F F E
+        - two parts/
+          @piano/
+            | CGcCGc C GaCGa  CGcCGc C GaCGa
+            | cde edc d  c   c de e
+        - three parts/
+          @piano/
+            | ABCDEFGabcdefghijklmnopqrstuv
+            |   B C D E F G a b c d e f g h
+            |     B   C   D   E   F   G   a
+        - sharps/
+          @piano/
+            |             #    # # # #
+            | ce ecbca    Gb baGbG G G a
+            |                    #
+            |  C E C A C L B E B N B L H
+        - drums/
+          @piano/
+            | ' ' ' ' ' '*  '
+            | =@@= @@@=@@= @@@
+        - unofficial xiki theme song/
+          @piano/
+            |                 xiki is so great
+            | P Q P Q P Q P Q P Q P Q P Q P Q
+            | < < < < < < < < < < < < < < < <
+            | @ = @@= @ = @@= @ = @@= @ = @@=
+      - generation/
+        - variation/
+          @piano/
+            | reset()
+            | variation()
+            | aaaaaaaa
+        - probability/
+          @piano/
+            | reset()
+            | variation()
+            | probability(50)
+            | aaaaaaaaaaaa
+        - melodic/
+          @piano/
+            | reset()
+            | variation(1)
+            | melodic()
+            | aaaaaaaaaaaa
+        - climb/
+          @piano/
+            | reset()
+            | variation(1)
+            | melodic()
+            | climb()
+            | aaaaaaaaaaaa
+        - consistency/
+          @piano/
+            | reset()
+            | variation()
+            | consistency(80)
+            | aaaaaaaaaaaa
+        - solo/
+          @piano/
+            | reset()
+            | repeat(8)
+            | tempo(55)
+            | mode(rand 100)
+            | variation()
+            | consistency(50)
+            | melodic()
+            | probability(80)
+            | abcdefgh
+        - duet/
+          @piano/
+            | reset()
+            | repeat(8)
+            | tempo(35)
+            | mode(rand 8)
+            | variation(2)
+            | consistency(10)
+            | melodic()
+            | A A A A
+            |  h h h h
+        - all together/
+          @piano/
+            | reset()
+            | repeat(8)
+            | tempo(45)
+            | mode(rand 100)
+            | variation()
+            | consistency(50)
+            | melodic()
+            | probability(80)
+            | aaaaaaaa
+            | AAAAAAAA
+            | H   H
+        - everything random/
+          @piano/
+            | reset()
+            | repeat(16)
+            | tempo(rand(60) + 40)
+            | mode(rand 200)
+            | variation(rand(6) + 1)
+            | consistency(rand(50))
+            | melodic(rand 1)
+            | octave(-1)
+            | probability(rand(55) + 45)
+            | aaaaaaaaaaaaaaaa
+            | AAAAAAAAAAAAAAAA
+            | H   H   H   H
+        - cool instruments/
+          @piano/
+            | reset()
+            | repeat(32)
+            | tempo(rand(60) + 40)
+            | mode(rand 200)
+            | variation(rand(6) + 1)
+            | instrument([112, 108, 107, 102, 101, 100, 98, 97, 96, 95, 89, 88, 87, 86, 80, 54, 50, 49, 46, 45, 34, 12, 11, 10, 9, 8, 4][rand 27])
+            | consistency(rand(50))
+            | melodic(rand 1)
+            | octave(-1)
+            | probability(rand(55) + 45)
+            | aaaaaaaaaaaaaaaa
+            | AAAAAAAAAAAAAAAA
+            | H   H   H   H
+    - .api/
+      | Play some notes
+      @ Piano.song "abc"
+    - .docs/
+      > Single notes
+      - @piano/a/
+      - @piano/55/
+
+      > Multiple notes
+      - @piano/cde edc d  c   c de e
+      - @piano/some words for fun
+
+      > Modes
+      modes/
+        | For reference, here are the whole and half steps for the options under
+        | the "mode" menu.  By default the A scale is used.
+        |
+        | - O o o oo o oO: lydian
+        | - O o oo o o oO: ionian (major)
+        | - O o oo o oo O: mixolydian
+        | - O oo o o oo O: dorian
+        | - O oo o oo o O: aeolian (minor)
+        | - Oo o o oo o O: phrygian
+        | - Oo o oo o o O: locrian
+    `
+  end
+
+  def self.names
+    @@names
+  end
+
+
+  def self.menu_after menu_output, *args
+
+    # Don't interfere if menu did something
+    return menu_output if menu_output
+
+    # If just number, intercept
+    if args.length == 1 && args[0] =~ /^\d+$/
+      self.note args[0].to_i
+      return false
+    end
+
+    if $el
+      if Line =~ /\(/
+        Tree.to_parent
+        Move.to_end
+        Search.forward("^[^(\n]+$")
+      end
+      txt = ENV['txt']
+    else
+      txt = args[0]
+    end
+
+    self.song txt, :move=>1
+
+    nil
+  end
+
+  def self.song txt, options={}
+    @@lines = txt.split("\n")#.reverse
+
+    self.extract_functions
+
+    # If only config, just run first ones
+    #     if @@lines.empty?
+    #       return self.run_functions @@functions_by_index[0], :include_all
+    #     end
+    self.run_functions @@functions_by_index[0], :include_all
+
+    repeat = (@@functions_by_index[0]||[]).find{|o| o =~ /^rep(eat)?\(/}
+    @@repeat = (repeat[/\d+/]||"4").to_i if repeat
+
+    @@repeat.times do |i|
+
+      # Start at where cursor is
+      if $el
+        View.column = Line.value[/.+(\/|\| ?)/].length if options[:move]
+      end
+
+      longest = @@lines.inject(0){|acc, e| e.length > acc ? e.length : acc}
+
+      longest.times do |j|
+        #         self.run_functions @@functions_by_index[j] # unless j == 0
+        self.run_functions @@functions_by_index[j] unless i == 0
+
+        sharp = false
+        @@lines.each_with_index do |line, track|
+          char = line[j] ? line[j].chr : nil
+          self.note char, :no_sit=>1, :sharp=>sharp, :track=>track
+          sharp = char == "#"
+        end
+        if $el
+          Move.forward if options[:move] && View.cursor != Line.right
+        end
+        self.pause
+      end
+    end
+
+    nil
+  end
+
+  def self.run_functions list, include_all=nil
+    @@in_run_functions = true
+    (list||[]).each do |item|
+      next if !include_all && item =~ /^rep(eat)?\(/
+      eval("Piano.#{item}")
+    end
+    @@in_run_functions = false
+  end
+
+  def self.extract_functions
+    lines, @@lines = @@lines.partition{|i| i =~ /\(/}
+
+    @@functions_by_index = {}
+    lines.each do |line|
+      Code.parse_functions line, @@functions_by_index
+    end
+  end
+
+  def self.clear channel=1
+    self.driver.control_change 123, channel, 123
+  end
+
+  def self.<< letter
+    self.note letter
+  end
+
+  def self.letter_to_number letter, options={}
+
+    adjustment =@@mode
+
+    letter.next! if @@pentatonic && (letter == "b" || letter == "e")
+
+    number = letter[0].to_i
+    number = case letter
+    when "a".."z";  number - 96
+    when "A".."G";  number - 71
+    when "H".."N";  number - 85
+    when "O".."U";  number - 99
+    when "V".."Z";  number - 111
+    else; raise "Don't know how to convert the note #{letter} to a number."
+    end
+
+    number = self.apply_variation number, options
+
+    number = number * 12/7.0
+    number -= 0.01
+    adjustment -= 2
+    adjustment = (adjustment / 7.0) - 0.01
+    number += adjustment
+
+    number = number.floor
+    number += 68
+    number
+  end
+
+  def self.apply_variation number, options={}
+    return number if rand(100) > (100 - @@consistency)   # Do nothing if consistency says to stop
+
+    random = rand(@@variation+1)
+
+    if @@climb == 0
+      random *= ((-1) ** rand(2))   # Half of the time, make it decrease note
+    end
+    # Ol << "random: #{random.inspect}"
+
+    if @@melodic == 1
+      track = options[:track]
+      @@melodic_accumulator[track] ||= 0
+      random *= @@climb if @@climb != 0
+      @@melodic_accumulator[track] += random
+
+      @@melodic_accumulator[track] = 0 if @@melodic_accumulator[track] > 28 || @@melodic_accumulator[track] < -28
+
+      random = @@melodic_accumulator[track]
+    end
+
+    number + random
+  end
+
+  def self.apply_probability number
+    return 0 if rand(100) > @@probability
+    number
+  end
+
+
+  def self.note letter='a', options={}
+
+    return if letter.nil? || letter == "#"
+
+    channel = 1
+    velocity = @@velocity
+
+    # Varying the velocity doesn't sound super-great
+    #     velocity = 63 + rand(63)
+
+    if letter.is_a? Fixnum
+      number = letter
+      # If super-low, make them audible
+      number += 69 if number <= 20
+    elsif letter =~ /^[0-9]$/
+      number = letter[0] + 21
+    elsif letter =~ /^[a-zA-Z]$/
+      number = self.letter_to_number letter, options
+      number = self.apply_probability number
+    elsif letter.length == 1 && letter.count("@#='\"`^*<[_]-") == 1
+      channel = 10
+      number = @@map[letter]
+      velocity = letter.count("@#=-") == 1 ? 126 : 65
+    elsif letter == " " || letter == "+"
+      number = 0
+    elsif letter.is_a?(String) && letter.length > 1
+      letter.split('').each{|o| self.note o}
+      return
+    else
+      raise "- Note #{letter.inspect} not recognized!"
+    end
+    return if number == 0
+
+    number += 1 if options[:sharp]
+    number += (@@octave * 12)
+
+    self.driver.note_on(number, channel, velocity) unless number == 0
+
+    return if options[:no_sit]
+
+    self.pause
+    nil
+  end
+
+  def self.pause
+    pause = @@tempo * 4
+    pause = pause / 60.0
+    pause = 1 / pause
+    $el ? $el.sit_for(pause) : sleep(pause)
+    Piano.clear
+    Piano.clear 10
+  end
+
+  def self.keydef letter, note, channel=1, velocity=126
+    $el.define_key(:piano_mode_map, letter) do
+      self.driver.note_on(note, channel, velocity)
+    end
+  end
+
+  def self.midi
+    @@midi || self.connect
+  end
+
+  def self.keys
+    $el.elvar.piano_mode_map = $el.make_sparse_keymap unless $el.boundp :piano_mode_map
+
+    keydef " ", BassDrum2, 10
+    keydef "-", SnareDrum2, 10
+    keydef "1", SnareDrum1, 10
+
+    keydef "6", ClosedHiHat, 10, 60
+    keydef "1", OpenHiHat, 10, 60
+    keydef $el.kbd("C-i"), RideCymbal1, 10, 60
+
+    # Note: keys are optimized for dvorak
+    keydef ";", C3; keydef "o", Cs3
+    keydef "q", D3; keydef "e", Ds3
+    keydef "j", E3
+
+    keydef "k", F3; keydef "i", Fs3
+    keydef "x", G3; keydef "d", Gs3
+    keydef "b", A3; keydef "h", As3
+    keydef "m", B3
+    keydef "w", C4; keydef "n", Cs4
+    keydef "v", D4; keydef "s", Ds4
+    keydef "z", E4
+
+    keydef "'", B3; keydef "3", Cs4
+    keydef ",", C4; keydef "3", Cs4
+    keydef ".", D4; keydef "4", Ds4
+    keydef "p", E4
+    keydef "y", F4; keydef "6", Fs4
+    keydef "f", G4; keydef "7", Gs4
+    keydef "g", A4; keydef "8", As4
+    keydef "c", B4
+    keydef "r", C5; keydef "0", Cs5
+    keydef "l", D5; keydef "[", Ds5
+    keydef "/", E5
+    keydef "=", F5
+    keydef '\\\\', G5
+
+    "aut259]".split(//).each do |letter|
+      $el.define_key(:piano_mode_map, letter) do
+        View.message("key '#{letter}' inactive")
+      end
+
+    end
+
+    keydef "", :nothing   # nothing
+
+
+    $el.define_key(:piano_mode_map, $el.kbd("<right>")) do
+      @@program += 1
+      View.message "program: #{@@program+1} - #{@@names[@@program]}"
+      @@midi.program_change 1, @@program
+    end
+
+    $el.define_key(:piano_mode_map, $el.kbd("<left>")) do
+      @@program -= 1
+      View.message "program: #{@@program+1} - #{@@names[@@program]}"
+      @@midi.program_change 1, @@program
+    end
+
+    $el.define_key(:piano_mode_map, $el.kbd("<backspace>")) do
+      @@midi.control_change 123, 1, 123
+    end
+
+  rescue Exception=>e
+
+  end
+
+  def self.init
+    self.keys
+    # Make piano mode happen for .piano files
+    Mode.define(:piano, ".piano") do
+      Notes.apply_styles
+    end
+  end
+
+  def self.instrument type, name=nil, options={}
+    # If 'all' show all
+    return @@names.map{|o| "- #{o}/"}.join("\n") if type == 'all' && name.nil?
+
+    # If 1 arg, assume it's the name
+    name = type if name.nil?
+
+
+    if name.is_a?(Fixnum)
+      index = name
+    else
+      name = Regexp.escape name
+      name.gsub! '\ ', ".+"
+      index = @@names.index{|o| o =~ /^#{name}$/i}
+      index ||= @@names.index{|o| o =~ /^#{name}/i}
+      index ||= @@names.index{|o| o =~ /#{name}/i}
+    end
+
+    @@midi.program_change 1, (index||0)
+    return if options[:quiet]
+
+    # TODO: turn back on, but not when called from .run_functions
+      # How to detect?
+        # or, maybe just set instance variable when in .run_functions
+          # @@in_run_functions = true
+        # maybe .sub! it to have an extra parameter to suppress?
+          # instrument('Piano') -> instrument('Piano', :suppress)
+    Piano.note "abc" unless @@in_run_functions
+  end
+
+  def self.reset
+    self.connect
+
+    @@velocity = 126
+    @@tempo = 120
+    @@probability = 100
+
+    @@variation = 0
+    @@melodic = 0
+    @@melodic_accumulator = []
+    @@climb = 0
+    @@pentatonic = false
+    @@consistency = 0
+    @@mode = 0
+    @@octave = 0
+    @@program = 1
+    @@repeat = 1
+    @@seed = nil
+
+    ".flash - success!"
+  end
+
+  #
+  # Low level call to configure midi.
+  #
+  def self.control_change a, b, c
+    self.driver.control_change a, b, c
+  end
+
+  def self.connect
+    @@midi = MIDIator::Interface.new
+    @@midi.use :dls_synth
+    # This doesn't work in Lion :(
+    @@midi.control_change 32, 10, 1   # Drums: R-808 is Program 26 in LSB bank 1
+    @@midi.control_change 7, 1, 126   # Turn volume up to max
+    @@midi
+  end
+
+  def self.velocity txt="126";  @@velocity = txt.to_i;  ".flash - updated!";  end
+  def self.tempo txt="120";  @@tempo = txt.to_i;  ".flash - updated!";  end
+  def self.probability txt="50";  @@probability = txt.to_s.sub('%', '').to_i;  ".flash - updated!";  end
+  def self.variation txt="2"
+    @@variation = txt.to_i
+    if @@seed   # If seed set manually, just use it
+      seed = @@seed
+    else   # Else auto-generate seed
+      seed = rand 999_999_999_999_999_999_999
+    end
+
+    srand seed
+
+    ".flash - updated!"
+  end
+  def self.melodic txt="1";  @@melodic = txt.to_i;  ".flash - updated!";  end
+  def self.climb txt="1";  @@climb = txt.to_i;  ".flash - updated!";  end
+  def self.pentatonic txt="1";  Ol.<<(txt); @@pentatonic = [true, "on", 1].member?(txt);  ".flash - updated!";  end
+  def self.consistency txt="50";  @@consistency = txt.to_s.sub('%', '').to_i;  ".flash - updated!";  end
+  def self.octave txt="0";  @@octave = txt.to_i;  ".flash - updated!";  end
+  def self.repeat txt="4"; @@repeat = txt.to_i;  ".flash - updated!";  end
+  def self.seed txt; @@seed = txt.to_i;  ".flash - updated!";  end
+
+  def self.mode txt=nil
+    return @@mode if txt.nil?
+
+    if txt.to_s == "random"
+      random = (-2..9).to_a[rand 7]
+      @@mode = random
+      return ".flash - updated to #{random}!"
+    end
+
+    @@mode = txt.to_i
+    ".flash - updated!"
+  end
+
+  class << self
+    alias :tem :tempo
+    alias :pro :probability
+    alias :mel :melodic
+    alias :cli :climb
+    alias :vel :velocity
+    alias :pen :pentatonic
+    alias :res :reset
+    alias :rep :repeat
+    alias :var :variation
+    alias :con :consistency
+    alias :oct :octave
+    alias :mod :mode
+    alias :ins :instrument
+  end
+
+  def self.driver
+    @@midi ||= self.connect
+  end
+
+  def self.random_notes range=nil, notes=nil
+    if range.nil?
+      return "- a..g/"
+    end
+
+    # If just range, generate
+
+    if notes.nil?
+
+      range ||= "a..g"
+
+      range =~ /(.+)\.\.(.+)/
+      range = $1..$2
+
+      range = range.to_a
+
+      txt = ""
+      8.times do
+        txt << range[rand range.length]
+      end
+      return "| #{txt}"
+    end
+
+    self.song ENV['txt']
+    nil
+  end
+
+end
+
+Piano.init   # Define mode
+Menu.drums :menu=>'piano'