rum 0.0.1-universal-darwin-10

data/lib/rum/windows/app.rb

@@ -0,0 +1,72 @@
+module Rum
+  class App
+    include System
+
+    @@apps = {}
+    
+    def self.add(app)
+      @@apps[app.binary] = app
+    end
+    
+    def self.remove(app)
+      @@apps.delete(app.binary)
+    end
+
+    def self.apps
+      @@apps
+    end
+
+    def self.for_exe(exe)
+      @@apps[exe.downcase]
+    end
+
+    attr_accessor :path, :binary, :matcher
+
+    def initialize(path, *matcher)
+      @path = append_path_to_programfiles_if_relative(path)
+      @binary = File.basename(@path).sub(/\.exe$/, '').downcase
+      @matcher = WindowMatcher.new(*matcher)
+      App.add(self)
+    end
+
+    def append_path_to_programfiles_if_relative(path)
+      if path !~ /^\w:|^%/
+        path = File.join(ENV['PROGRAMFILES'].gsub("\\", '/'), path)
+      end
+      path
+    end
+
+    def binary=(bin)
+      App.remove(self)
+      @binary = bin.downcase
+      App.add(self)
+    end
+
+    # Returns 'true' if the application window could be activated instantly.
+    def activate
+      window = @matcher.find
+      if window
+        window.show
+      else
+        run
+        false
+      end
+    end
+
+    def run
+      start @path
+    end
+
+    def to_matcher
+      @matcher
+    end
+
+    def active?
+      @matcher.active?
+    end
+
+    def window
+      @matcher.find
+    end
+  end
+end

data/lib/rum/windows/apps.rb

@@ -0,0 +1,25 @@
+# encoding: utf-8
+Emacs = App.new('', nil, 'Emacs')
+Emacs.binary = 'emacs'
+require 'rum/barrel/emacs'
+
+Firefox = App.new('mozilla firefox/firefox', /firefox/, 'MozillaWindowClass')
+def Firefox.activate_and_focus_address_bar
+  Keyboard.type '(ctrl l)' if activate
+end
+
+Photoshop = App.new('Adobe/Adobe Photoshop CS5/Photoshop', nil, 'Photoshop')
+class << Photoshop
+  def next_blend_mode
+    if Rum.layout['ö'] # german layout
+      type '(shift 0)'
+    else
+      type '(shift +)'
+    end
+  end
+
+  def previous_blend_mode
+    type '(shift -)'
+  end
+end
+

data/lib/rum/windows/gui.rb

@@ -0,0 +1,116 @@
+module Rum
+  module Gui
+    def goto path
+      if File.directory? path
+        System.start path
+      else
+        Gui.message "Can't visit a file in Windows Explorer."
+      end
+    end
+    
+    def open_file file, line=nil
+      System.start file
+    end
+
+    private
+
+    def browse_backend url
+      System.start url
+    end
+
+    module WindowsDialogs
+      private
+      def alert_backend text, title
+        System.message_box text, title
+      end
+      
+      def message_backend text, title, sticky, callback
+        alert text, title
+      end
+
+      def read_backend text, title, initial_value
+        System.input_box text, title, initial_value
+      end
+    end
+
+    use WindowsDialogs
+
+    module Growl
+      Message = 'message'
+
+      private
+      
+      def message_backend(text, title, sticky, callback)
+        unless title
+          title = text
+          text = nil
+        end
+        # ruby_gntp raises an error when 'title' is nil or pure whitespace.
+        title = 'empty text' if title.to_s.strip.empty?
+        if callback
+          on_click = lambda { |event| callback.call if event[:callback_result] == "CLICK" }
+        end
+        
+        Growl.client.notify(name: Message, title: title,
+                            text: text, sticky: sticky, &on_click)
+      end
+      
+      module_function
+      
+      def auto_setup
+        require 'ruby_gntp'
+        @growl = GNTP.new("Rum")
+        @growl.register(notifications: [{name: Message, enabled: true}])
+        true
+      rescue Errno::ECONNREFUSED # Growl not running
+        @growl = nil
+      end
+
+      def client
+        @growl or auto_setup and @growl
+      end
+    end
+
+    module EmacsInteraction
+      private
+      
+      def interaction(*args)
+        emacs = Emacs.window
+        return '' unless emacs
+        unless (emacs_already_active = emacs.active?)
+          old = System.active_window
+          emacs.move(400, 400, 800, 300)
+          emacs.show
+        end
+        result = unpack(Emacs.funcall(*args))
+        unless emacs_already_active
+          wait { old.active? } unless old.show
+          emacs.maximize
+        end
+        result
+      end
+
+      def unpack(output)
+        # If we don't get a string back something has gone wrong.
+        raise 'emacs returned no string: ' << output unless output[0] == ?"
+        # The first line contains the status (1 or 0),
+        # the second line contains additional output.
+        # See telemacs-format-output.
+        output = Emacs.unquote(output)
+        if output =~ /\n$/
+          ''
+        else
+          output = output.split(/\n/)
+          output[1] or (output[0] == '1' ?  true : nil)
+        end
+      end
+
+      def choose_backend prompt, choices
+        prompt = prompt ? Emacs.quote(prompt) : 'nil'
+        fn = 'selekt-external-fast'
+        result = interaction(fn, prompt, *choices.map { |item| Emacs.quote(item.to_s) })
+        choices[result.to_i] if result
+      end
+    end
+  end
+end

data/lib/rum/windows/keyboard.rb

@@ -0,0 +1,80 @@
+require 'strscan'
+
+module Rum
+  module Keyboard
+    extend self
+    
+    def type(key_sequence, *args)
+      release_core_modifiers unless args.include? :blind
+      type_sequence(key_sequence, args.include?(:slow))
+    end
+    
+    def type!(key_sequence, *args)
+      release_core_modifiers unless args.include? :blind
+      type_sequence_literally(key_sequence, args.include?(:slow))
+    end
+
+    def release_core_modifiers
+      pressed = Rum.hotkey_processor.pressed_modifiers
+      to_release = Rum.layout.core_modifiers.keys.select { |mod| pressed[mod] }
+      to_release.each { |key| System.send_key_event key, false }
+    end
+
+    private
+
+    def type_sequence_literally(key_sequence, slow)
+      key_sequence.chars.each do |char|
+        if (key = Rum.layout[char])
+          System.send_keypress key
+          sleep 0.01 if slow
+        elsif (translation = Rum.layout.translations[char])
+          type_sequence(translation, slow)
+        end
+      end
+    end
+
+    def type_sequence(key_sequence, slow)
+      s = StringScanner.new(key_sequence)
+      pressed_keys = []
+      while (char = s.getch)
+        case char
+        when '\\'
+          down_and_up(s.getch, slow)
+        when '('
+          key = s.scan(/[^() ]+/)
+          s.skip /\ /
+          down key
+          pressed_keys << key
+        when ')'
+          up pressed_keys.pop
+        else
+          down_and_up(char, slow)
+        end
+        sleep 0.01 if slow
+      end
+      pressed_keys.reverse_each { |key| up key }
+    end
+
+    def send_key(key, down)
+      if id = Rum.layout[key]
+        System.send_key_event id, down
+      end
+    end
+
+    def down(key)
+      send_key key, true
+    end
+
+    def up(key)
+      send_key key, false
+    end
+
+    def down_and_up(char, slow)
+      if (key = Rum.layout[char])
+        System.send_keypress key
+      elsif (key_sequence = Rum.layout.translations[char])
+        type_sequence(key_sequence, slow)
+      end
+    end
+  end
+end

data/lib/rum/windows/keyboard_hook.rb

@@ -0,0 +1,20 @@
+module KeyboardHook
+  class Event
+    attr_reader :id, :scancode
+    def initialize(id, scancode, down)
+      @id = id
+      @scancode = scancode
+      @down = down
+    end
+
+    def down?
+      @down
+    end
+
+    def to_s
+      "#{@down ? 'Down' : 'Up'}: VKCode #@id, Scancode #@scancode"
+    end
+  end
+end
+
+require_relative 'keyboard_hook.so'

data/lib/rum/windows/layouts.rb

@@ -0,0 +1,232 @@
+# encoding: utf-8
+
+module Rum
+  module Layouts
+    module_function
+
+    def default_layout
+      us
+    end
+    
+    def core
+      # http://msdn.microsoft.com/en-us/library/dd375731%28VS.85%29.aspx
+      core = Layout.new
+      # 0-9
+      10.times { |i| core.add i.to_s, 48+i }
+      # a-z
+      26.times { |i| core.add (97+i).chr, 65+i }
+      # f1-f24
+      1.upto(24) { |i| core.add "f#{i}", 111+i }
+
+      [['lbutton', 0x01],
+       ['rbutton', 0x02],
+       ['cancel', 0x03],
+       ['mbutton', 0x04],
+       ['back', 0x08],
+       ['tab', 0x09],
+       ['clear', 0x0C],
+       ['return', "\n", 0x0D],
+       ['shift', 0x10],
+       ['control', 0x11],
+       ['menu', 0x12],
+       ['pause', 0x13],
+       ['capital', 0x14],
+       ['hangul', 0x15],
+       ['junja', 0x17],
+       ['final', 0x18],
+       ['hanja', 0x19],
+       ['kanji', 0x19],
+       ['escape', 0x1B],
+       ['convert', 0x1C],
+       ['nonconvert', 0x1D],
+       ['accept', 0x1E],
+       ['modechange', 0x1F],
+       ['space', ' ', 0x20],
+       ['prior', 0x21],
+       ['next', 0x22],
+       ['end', 0x23],
+       ['home', 0x24],
+       ['left', 0x25],
+       ['up', 0x26],
+       ['right', 0x27],
+       ['down', 0x28],
+       ['select', 0x29],
+       ['print', 0x2A],
+       ['execute', 0x2B],
+       ['snapshot', 0x2C],
+       ['insert', 0x2D],
+       ['delete', 0x2E],
+       ['help', 0x2F],
+       ['lwin', 0x5B],
+       ['rwin', 0x5C],
+       ['apps', 0x5D],
+       ['numpad0', 0x60],
+       ['numpad1', 0x61],
+       ['numpad2', 0x62],
+       ['numpad3', 0x63],
+       ['numpad4', 0x64],
+       ['numpad5', 0x65],
+       ['numpad6', 0x66],
+       ['numpad7', 0x67],
+       ['numpad8', 0x68],
+       ['numpad9', 0x69],
+       ['multiply', 0x6A],
+       ['add', 0x6B],
+       ['separator', 0x6C],
+       ['subtract', 0x6D],
+       ['decimal', 0x6E],
+       ['divide', 0x6F],
+       ['numlock', 0x90],
+       ['scroll', 0x91],
+       ['lshift', 0xA0],
+       ['rshift', 0xA1],
+       ['lcontrol', 0xA2],
+       ['rcontrol', 0xA3],
+       ['lmenu', 0xA4],
+       ['rmenu', 0xA5],
+       ['processkey', 0xE5],
+       ['attn', 0xF6],
+       ['crsel', 0xF7],
+       ['exsel', 0xF8],
+       ['ereof', 0xF9],
+       ['play', 0xFA],
+       ['zoom', 0xFB],
+       ['noname', 0xFC],
+       ['pa1', 0xFD],
+       ['oem_clear', 0xFE],
+       ['browser_back', 0xA6],
+       ['browser_forward', 0xA7],
+       ['browser_refresh', 0xA8],
+       ['browser_stop', 0xA9],
+       ['browser_search', 0xAA],
+       ['browser_favorites', 0xAB],
+       ['browser_home', 0xAC],
+       ['volume_mute', 0xAD],
+       ['volume_down', 0xAE],
+       ['volume_up', 0xAF],
+       ['media_next_track', 0xB0],
+       ['media_prev_track', 0xB1],
+       ['media_stop', 0xB2],
+       ['media_play_pause', 0xB3],
+       ['launch_mail', 0xB4],
+       ['launch_media_select', 0xB5],
+       ['launch_app1', 0xB6],
+       ['launch_app2', 0xB7],
+       ['oem_plus', 0xBB],
+       [',', 'oem_comma', 0xBC],
+       ['-', 'oem_minus', 0xBD],
+       ['.', 'oem_period', 0xBE],
+       ['oem_1', 0xBA],
+       ['oem_2', 0xBF],
+       ['oem_3', 0xC0],
+       ['oem_4', 0xDB],
+       ['oem_5', 0xDC],
+       ['oem_6', 0xDD],
+       ['oem_7', 0xDE],
+       ['oem_8', 0xDF],
+       ['oem_102', 0xE2],
+       ['processkey', 0xE5],
+       ['packet', 0xE]].each { |key| core.add *key }
+
+      core
+    end
+
+    def basic
+      basic = core
+      
+      basic.remap 'lcontrol', 'rcontrol', 'control'
+      basic.remap 'rmenu', 'lmenu'
+      basic.remap 'lshift', 'rshift', 'shift'
+      basic.remap 'rwin', 'lwin'
+      
+      basic.alias 'control', 'ctrl'
+      basic.alias 'control', 'c'
+      basic.rename 'lmenu', 'alt'
+      basic.alias 'alt', 'a'
+      basic.alias 'shift', 's'
+      basic.rename 'lwin', 'win'
+      basic.rename 'back', 'backspace'
+      basic.rename 'return', 'enter'
+      basic.alias 'enter', 'return'
+      basic.rename 'capital', 'caps'
+      basic.rename 'prior', 'pageup'
+      basic.rename 'next', 'pagedown'
+      basic.rename 'snapshot', 'print'
+      
+      
+      %w{shift control alt win}.each { |key| basic.core_modifier key }
+
+      basic.action_modifier 'alt'
+      basic.action_modifier 'win'
+
+      basic.add :extended, 'alt-extended', basic['alt'].id
+      basic.add :extended, 'left-extended', basic['left'].id
+      basic.add :extended, 'right-extended', basic['right'].id
+
+      shift_translations = ('a'..'z').map { |key| [key.upcase, key] }
+      shift_translations.each do |from, to|
+        basic.translations[from] = "(shift #{to})"
+      end
+      basic
+    end
+
+    def us
+      us = basic
+      us.rename 'oem_plus', '='
+      us.rename 'oem_1', ';'
+      us.rename 'oem_2', '/'
+      us.rename 'oem_3', '`'
+      us.rename 'oem_4', '['
+      us.rename 'oem_5', '\\'
+      us.rename 'oem_6', ']'
+      us.rename 'oem_7', "'"
+      us.rename 'oem_102', '\\'
+
+      shift_translations = <<END.scan(/(\S) (\S)/)
+~ `   $ 4   * 8   + =    " '
+! 1   % 5   ( 9   } ]    < ,
+@ 2   ^ 6   ) 0   | \    > .
+# 3   & 7   _ -   : ;    ? /
+END
+      shift_translations.each do |from, to|
+        us.translations[from] = "(shift #{to})"
+      end
+      us
+    end
+
+    def german
+      german = basic
+      german.rename 'oem_plus', '+'
+      german.rename 'oem_1', 'ü'
+      german.rename 'oem_2', '#'
+      german.rename 'oem_3', 'ö'
+      german.rename 'oem_4', 'ß'
+      german.rename 'oem_5', '^'
+      german.rename 'oem_6', '´'
+      german.rename 'oem_7', 'ä'
+      german.rename 'oem_102', '<'
+      
+      shift_translations = <<END.scan(/(\S) (\S)/)
+° ^   $ 4   ( 8   ` ´    ; ,
+! 1   % 5   ) 9   * +    : .
+" 2   & 6   = 0   ' #    _ -
+§ 3   / 7   ? ß   > <
+END
+      shift_translations.each do |from, to|
+        german.translations[from] = "(shift #{to})"
+      end
+
+      altgr_translations = <<END.scan(/(\S) (\S)/)
+² 2   ] 9   € e
+³ 3   } 0   ~ +
+{ 7   \\ ß  | <
+[ 8   @ q   µ m
+END
+      altgr_translations.each do |from, to|
+        german.translations[from] = "(ctrl (alt-extended #{to}))"
+      end
+
+      german
+    end
+  end
+end