uh 0.1.1

data/lib/uh/wm/client.rb

@@ -0,0 +1,76 @@
+module Uh
+  class WM
+    class Client
+      attr_reader   :window
+      attr_accessor :geo
+
+      def initialize(window)
+        @window = window
+        @hide   = true
+      end
+
+      def to_s
+        '<%s> (%s) window: %s, geo: %s' % [name, wclass, window, geo]
+      end
+
+      def name
+        @name ||= window.name
+      end
+
+      def wclass
+        @wclass ||= window.wclass
+      end
+
+      def hidden?
+        @hide
+      end
+
+      def update_window_properties
+        @name   = @window.name
+        @wclass = @window.wclass
+      end
+
+      def configure
+        window.configure geo
+        self
+      end
+
+      def moveresize
+        window.moveresize geo
+        self
+      end
+
+      def show
+        window.map
+        @hide = false
+        self
+      end
+
+      def hide
+        window.unmap
+        @hide = true
+        self
+      end
+
+      def focus
+        window.raise
+        window.focus
+        self
+      end
+
+      def kill
+        if window.icccm_wm_protocols.include? :WM_DELETE_WINDOW
+          window.icccm_wm_delete
+        else
+          window.kill!
+        end
+        self
+      end
+
+      def kill!
+        window.kill
+        self
+      end
+    end
+  end
+end

data/lib/uh/wm/manager.rb

@@ -0,0 +1,99 @@
+module Uh
+  class WM
+    class Manager
+      DEFAULT_GEO = Geo.new(0, 0, 320, 240).freeze
+
+      extend Forwardable
+      def_delegator :@logger, :info, :log
+
+      def initialize(logger)
+        @logger     = logger
+        @clients    = []
+        @on_manage  = []
+      end
+
+      def to_s
+        @clients.join $/
+      end
+
+      def on_configure(&block)
+        @on_configure = block
+      end
+
+      def on_manage(&block)
+        @on_manage << block
+      end
+
+      def on_unmanage(&block)
+        @on_unmanage = block
+      end
+
+      def on_change(&block)
+        @on_change = block
+      end
+
+      def configure(window)
+        if client = client_for(window)
+          log "#{self.class.name}#configure #{client} already managed"
+          client.configure
+        else
+          geo = @on_configure ? @on_configure.call(window) : DEFAULT_GEO
+          log "#{self.class.name}#configure window: #{window}, not managed"
+          log "#{window.class.name}#configure #{geo}"
+          window.configure_event geo
+        end
+      end
+
+      def map(window)
+        if window.override_redirect?
+          log "#{self.class.name}#map window.override_redirect, skipping"
+          return
+        end
+
+        if client = client_for(window)
+          log "#{self.class.name}#map #{client}, already managed"
+        else
+          manage Client.new(window)
+        end
+      end
+
+      def unmap(window)
+        remove_client_for window
+      end
+
+      def destroy(window)
+        remove_client_for window, destroy: true
+      end
+
+      def update_properties(window)
+        return unless client = client_for(window)
+        client.update_window_properties
+        @on_change.call client if @on_change
+      end
+
+
+      private
+
+      def client_for(window)
+        @clients.find { |e| e.window == window }
+      end
+
+      def remove_client_for(window, destroy: false)
+        return unless client = client_for(window)
+        unmanage client unless client.hidden? && !destroy
+      end
+
+      def manage(client)
+        log "#{self.class.name}#manage #{client}"
+        @clients << client
+        @on_manage.each { |e| e.call client }
+      end
+
+      def unmanage(client)
+        log "#{self.class.name}#unmanage #{client}"
+        @clients.reject! { |e| e == client }
+        @on_unmanage.call client if @on_unmanage
+      end
+    end
+  end
+end

data/lib/uh/wm/workers/base_worker.rb

@@ -0,0 +1,20 @@
+module Uh
+  class WM
+    module Workers
+      class BaseWorker
+        def initialize(display, logger, **options)
+          @display  = display
+          @logger   = logger
+          configure **options
+        end
+
+        def configure(**options)
+        end
+
+        def setup
+          self
+        end
+      end
+    end
+  end
+end

data/lib/uh/wm/workers/blocking_worker.rb

@@ -0,0 +1,11 @@
+module Uh
+  class WM
+    module Workers
+      class BlockingWorker < BaseWorker
+        def each_event
+          @display.each_event { |e| yield e }
+        end
+      end
+    end
+  end
+end

data/lib/uh/wm/workers/multiplexing_worker.rb

@@ -0,0 +1,27 @@
+module Uh
+  class WM
+    module Workers
+      class MultiplexingWorker < BaseWorker
+        def configure(timeout: 4)
+          @timeout = timeout
+        end
+
+        def setup
+          @display_io = IO.new(@display.fileno)
+          @display.flush
+          self
+        end
+
+        def each_event
+          loop do
+            @logger.debug "select [#{@display_io.fileno}], _, _, #{@timeout}"
+            rs, _ = IO.select [@display_io], [], [], @timeout
+            @logger.debug " => #{rs.inspect}"
+            next if rs.nil? || rs.empty?
+            yield @display.next_event while @display.pending?
+          end
+        end
+      end
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,13 @@
+#require 'minitest/parallel'
+require 'minitest/spec'
+require 'minitest/autorun'
+require 'minitest/reporters'
+require 'uh'
+
+class Minitest::Test
+  # FIXME: SpecReporter output is incorrect with pretty diffs or parallel tests
+  #make_my_diffs_pretty!
+  #parallelize_me!
+end
+
+Minitest::Reporters.use!(Minitest::Reporters::SpecReporter.new)

data/test/uh/test_geo.rb

@@ -0,0 +1,48 @@
+require 'test_helper'
+
+describe Uh::Geo do
+  subject { Uh::Geo.new(0, 0, 640, 480) }
+
+  describe '.new' do
+    it 'raises error when invalid width is given' do
+      assert_raises(Uh::ArgumentError) { Uh::Geo.new(0, 0, 0, 480) }
+    end
+
+    it 'raises error when invalid height is given' do
+      assert_raises(Uh::ArgumentError) { Uh::Geo.new(0, 0, 640, 0) }
+    end
+  end
+
+  describe '.format_xgeometry' do
+    it 'formats coordinates and dimensions as X geometry' do
+      assert_equal '640x480+0+0', Uh::Geo.format_xgeometry(0, 0, 640, 480)
+    end
+
+    it 'formats missing values as ?' do
+      assert_equal '?x?+?+?', Uh::Geo.format_xgeometry(*[nil] * 4)
+    end
+  end
+
+  describe '#to_s' do
+    it 'returns .format_xgeometry results' do
+      assert_equal Uh::Geo.format_xgeometry(*subject.values), subject.to_s
+    end
+  end
+
+  %w[width height].each do |dimension|
+    describe "##{dimension}=" do
+      it 'assigns given value' do
+        subject.send "#{dimension}=", 42
+        assert_equal 42, subject.send(dimension)
+      end
+
+      it 'raises error when 0 is given' do
+        assert_raises(Uh::ArgumentError) { subject.send "#{dimension}=", 0 }
+      end
+
+      it 'raises error when negative value is given' do
+        assert_raises(Uh::ArgumentError) { subject.send "#{dimension}=", -42 }
+      end
+    end
+  end
+end

data/uh.gemspec

@@ -0,0 +1,21 @@
+require File.expand_path('../lib/uh/version', __FILE__)
+
+Gem::Specification.new do |s|
+  s.name    = 'uh'
+  s.version = Uh::VERSION.dup
+  s.summary = 'Xlib simplified toolkit'
+  s.description = s.name
+  s.homepage = 'https://rubygems.org/gems/uh'
+
+  s.authors = 'Thibault Jouan'
+  s.email   = 'tj@a13.fr'
+
+  s.files       = `git ls-files`.split $/
+  s.test_files  = s.files.grep /\Atest\//
+
+
+  s.add_development_dependency 'rake'
+  s.add_development_dependency 'rake-compiler'
+  s.add_development_dependency 'minitest',            '~> 5.5'
+  s.add_development_dependency 'minitest-reporters',  '~> 1.0'
+end

metadata

@@ -0,0 +1,136 @@
+--- !ruby/object:Gem::Specification
+name: uh
+version: !ruby/object:Gem::Version
+  version: 0.1.1
+platform: ruby
+authors:
+- Thibault Jouan
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-03-04 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake-compiler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '5.5'
+- !ruby/object:Gem::Dependency
+  name: minitest-reporters
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.0'
+description: uh
+email: tj@a13.fr
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Guardfile
+- Rakefile
+- TODO
+- ext/uh/color.c
+- ext/uh/display.c
+- ext/uh/event.c
+- ext/uh/extconf.rb
+- ext/uh/font.c
+- ext/uh/pixmap.c
+- ext/uh/screen.c
+- ext/uh/uh.c
+- ext/uh/uh.h
+- ext/uh/window.c
+- lib/uh.rb
+- lib/uh/display.rb
+- lib/uh/drawable.rb
+- lib/uh/events.rb
+- lib/uh/font.rb
+- lib/uh/geo.rb
+- lib/uh/pixmap.rb
+- lib/uh/screen.rb
+- lib/uh/version.rb
+- lib/uh/window.rb
+- lib/uh/wm.rb
+- lib/uh/wm/action_handler.rb
+- lib/uh/wm/client.rb
+- lib/uh/wm/manager.rb
+- lib/uh/wm/workers/base_worker.rb
+- lib/uh/wm/workers/blocking_worker.rb
+- lib/uh/wm/workers/multiplexing_worker.rb
+- test/test_helper.rb
+- test/uh/test_geo.rb
+- uh.gemspec
+homepage: https://rubygems.org/gems/uh
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.5
+signing_key: 
+specification_version: 4
+summary: Xlib simplified toolkit
+test_files:
+- test/test_helper.rb
+- test/uh/test_geo.rb
+has_rdoc: