uh-layout 0.1.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: ccb6aa0368780ba45a6f29d289f76cf3518fa3af
+  data.tar.gz: bed1e1fea17ff3c4f774484fa75c082edb420d06
+SHA512:
+  metadata.gz: 7a094e49e315b7f364af1bb4d1468efbf7086e2c54b883440a68a609eb65f24e7df1b462e3e5d60b9cfa4cf9776ce673eb42a471622bfc15a2f9a65028481da5
+  data.tar.gz: fbd5e5522acd4f377f1e8610f95120c0912dbe7d80aa70e0e230833de4a4769fda49fdd48c482354c5a291c72fa13a43f815c7b8e400aa9a06eedcbf4f4d9a0e

data/.gitignore

@@ -0,0 +1,2 @@
+/Gemfile.lock
+/tmp/

data/.rspec

@@ -0,0 +1 @@
+--require spec_helper

data/Gemfile

@@ -0,0 +1,5 @@
+source 'https://rubygems.org'
+
+gemspec
+
+eval File.read('Gemfile-custom.rb') if File.exist?('Gemfile-custom.rb')

data/Gemfile-custom.rb

@@ -0,0 +1,7 @@
+group :development, :test do
+  gem 'uh', path: "#{ENV['HOME']}/src/my/uh"
+  gem 'pry'
+  gem 'listen',         require: false, path: "#{ENV['HOME']}/src/sys/listen"
+  gem 'rb-kqueue',      require: false
+  gem 'guard-rspec',    require: false
+end

data/Guardfile

@@ -0,0 +1,6 @@
+guard :rspec, cmd: 'bundle exec rspec' do
+  watch(%r{\Aspec/.+_spec\.rb\z})
+  watch(%r{\Alib/(.+)\.rb\z})         { |m| "spec/#{m[1]}_spec.rb" }
+  watch('spec/spec_helper.rb')        { 'spec' }
+  watch(%r{\Aspec/support/.+\.rb\z})  { 'spec' }
+end

data/Rakefile

@@ -0,0 +1,5 @@
+require 'rspec/core/rake_task'
+
+task default: :spec
+
+RSpec::Core::RakeTask.new(:spec)

data/lib/uh/layout.rb

@@ -0,0 +1,161 @@
+require 'forwardable'
+
+require 'uh/layout/geo_accessors'
+require 'uh/layout/bar'
+require 'uh/layout/container'
+require 'uh/layout/column'
+require 'uh/layout/column/arranger'
+require 'uh/layout/dumper'
+require 'uh/layout/screen'
+require 'uh/layout/tag'
+
+module Uh
+  class Layout
+    extend Forwardable
+    def_delegator :@screens, :current, :current_screen
+    def_delegator :current_screen, :==, :current_screen?
+    def_delegator :current_screen, :current_tag
+    def_delegator :current_tag, :current_column
+
+    attr_reader :screens, :widgets
+
+    def initialize
+      @screens  = Container.new
+      @widgets  = []
+    end
+
+    def to_s
+      Dumper.new(self).to_s
+    end
+
+    def current_client
+      current_column and current_column.current_client
+    end
+
+    def include?(client)
+      screens.any? { |screen| screen.include? client }
+    end
+
+    def arranger_for_current_tag
+      Column::Arranger.new(current_tag.columns, current_tag.geo)
+    end
+
+    def update_widgets
+      @widgets.each &:update
+      @widgets.each &:redraw
+    end
+
+    def suggest_geo
+      (current_column or current_tag).geo.dup
+    end
+
+    def <<(client)
+      current_tag.current_column_or_create << client
+      current_column.current_client = client
+      current_column.arrange_clients
+      current_column.show_hide_clients
+      client.focus
+      update_widgets
+      self
+    end
+    alias push <<
+
+    def remove(client)
+      screen, tag, column = find_client client
+      column.remove client
+      Column::Arranger.new(tag.columns, tag.geo).redraw
+      tag.each_column &:arrange_clients
+      column.show_hide_clients
+      current_client.focus if current_client
+      update_widgets
+    end
+
+    def handle_screen_sel(direction)
+      screens.sel direction
+      current_client.focus if current_client
+      update_widgets
+    end
+
+    def handle_screen_set(direction)
+      return unless current_client
+      remove client = current_client
+      screens.sel direction
+      push client
+    end
+
+    def handle_tag_sel(tag_id)
+      return unless current_tag.id != tag_id
+      current_tag.hide
+      current_screen.tags.current = find_tag_or_create tag_id
+      current_tag.each_column &:show_hide_clients
+      current_client.focus if current_client
+      update_widgets
+    end
+
+    def handle_tag_set(tag_id)
+      return unless current_client && current_tag.id != tag_id
+      remove client = current_client
+      client.hide
+      tag = find_tag_or_create tag_id
+      tag.current_column_or_create << client
+      Column::Arranger.new(tag.columns, tag.geo).redraw
+      tag.each_column &:arrange_clients
+      current_client.focus if current_client
+      update_widgets
+    end
+
+    def handle_column_sel(direction)
+      return unless current_tag.columns.any?
+      current_tag.columns.sel direction
+      current_client.focus
+      update_widgets
+    end
+
+    def handle_client_sel(direction)
+      return unless current_client
+      current_column.clients.sel direction
+      current_column.show_hide_clients
+      current_client.focus
+      update_widgets
+    end
+
+    def handle_client_swap(direction)
+      return unless current_client
+      current_column.clients.set direction
+      update_widgets
+    end
+
+    def handle_client_column_set(direction, arranger: arranger_for_current_tag)
+      return unless current_client
+      arranger.move_current_client(direction).update_geos
+      current_tag.each_column &:arrange_clients
+      current_tag.each_column &:show_hide_clients
+      update_widgets
+    end
+
+    def handle_kill_current
+      current_client and current_client.kill
+    end
+
+
+    private
+
+    def find_client(client)
+      screens.each do |screen|
+        screen.tags.each do |tag|
+          tag.each_column do |column|
+            if column.include? client
+              return screen, tag, column
+            end
+          end
+        end
+      end
+    end
+
+    def find_tag_or_create(tag_id)
+      current_screen.tags.find { |e| e.id == tag_id } or Tag.new(tag_id, current_screen.geo).tap do |tag|
+        current_screen.tags << tag
+      end
+    end
+  end
+end

data/lib/uh/layout/bar.rb

@@ -0,0 +1,159 @@
+module Uh
+  class Layout
+    class Bar
+      TEXT_PADDING_X    = 1
+      TEXT_PADDING_Y    = 1
+      COLUMN_MARGIN_TOP = 0
+      COLUMN_HEIGHT     = 2
+      COLUMN_PADDING_X  = 1
+      TAG_PADDING_X     = 5
+
+      include GeoAccessors
+
+      attr_writer :active
+
+      def initialize(display, screen, colors)
+        @display    = display
+        @screen     = screen
+        @geo        = build_geo @screen.geo
+        @window     = @display.create_subwindow @geo
+        @pixmap     = @display.create_pixmap width, height
+        @colors     = Hash[colors.map { |k, v| [k, @display.color_by_name(v)] }]
+        @on_update  = proc { }
+      end
+
+      def active?
+        !!@active
+      end
+
+      def on_update(&block)
+        @on_update = block
+      end
+
+      def update
+        @on_update.call
+      end
+
+      def redraw
+        draw_background
+        draw_columns @screen.current_tag.columns,
+          @screen.current_tag.current_column
+        draw_tags @screen.tags, @screen.current_tag
+        blit
+      end
+
+      def show
+        @window.show
+        self
+      end
+
+      def focus
+        @window.focus
+        self
+      end
+
+
+      private
+
+      def blit
+        @pixmap.copy @window
+        self
+      end
+
+      def build_geo(layout_geo)
+        bar_height = text_line_height * 2 + COLUMN_HEIGHT + 1
+
+        Uh::Geo.new(
+          layout_geo.x,
+          layout_geo.height - bar_height,
+          layout_geo.width,
+          bar_height
+        )
+      end
+
+      def active_color
+        active? ? @colors[:sel] : @colors[:hi]
+      end
+
+      def text_line_height
+        @display.font.height + TEXT_PADDING_Y * 2
+      end
+
+      def column_widget_text_y
+        COLUMN_MARGIN_TOP + COLUMN_HEIGHT
+      end
+
+      def column_widget_height
+        column_widget_text_y + text_line_height + 1
+      end
+
+      def column_offset_x(column)
+        column.x - x
+      end
+
+      def column_text(column)
+        text = '%d/%d %s (%s)' % [
+          column.clients.index(column.current_client),
+          column.clients.size,
+          column.current_client.name,
+          column.current_client.wclass
+        ]
+      end
+
+      def draw_background
+        @pixmap.gc_color @colors[:bg]
+        @pixmap.draw_rect 0, 0, width, height
+      end
+
+      def draw_columns(columns, current_column)
+        columns.each do |column|
+          draw_column column, column == current_column
+        end
+      end
+
+      def draw_column(column, current)
+        @pixmap.gc_color current ? active_color : @colors[:hi]
+        @pixmap.draw_rect column_offset_x(column) + COLUMN_PADDING_X,
+          COLUMN_MARGIN_TOP,
+          column.width - COLUMN_PADDING_X, COLUMN_HEIGHT
+        @pixmap.gc_color @colors[:fg]
+        text_y =
+          column_widget_text_y + @display.font.ascent + TEXT_PADDING_Y
+        @pixmap.draw_string column_offset_x(column) + TEXT_PADDING_Y,
+          text_y, column_text(column)
+      end
+
+      def draw_tags(tags, current_tag)
+        tags.sort_by(&:id).inject(0) do |offset, tag|
+          color = if tag == current_tag
+            active_color
+          elsif tag.clients.any?
+            @colors[:hi]
+          else
+            @colors[:bg]
+          end
+
+          offset + draw_text(
+            tag.id, offset, column_widget_height,
+            @colors[:fg], color,
+            TAG_PADDING_X
+          )
+        end
+      end
+
+      def draw_text(text, x, y, color_fg = @colors[:fg], color_bg = nil,
+          padding_x = TEXT_PADDING_X)
+        text        = text.to_s
+        text_width  = text.length * @display.font.width + padding_x * 2
+        text_y      = y + @display.font.ascent + TEXT_PADDING_Y
+        if color_bg
+          @pixmap.gc_color color_bg
+          @pixmap.draw_rect x, y, text_width, text_line_height
+        end
+        @pixmap.gc_color color_fg
+        @pixmap.draw_string x + padding_x, text_y, text
+        text_width
+      end
+    end
+  end
+end

data/lib/uh/layout/column.rb

@@ -0,0 +1,44 @@
+module Uh
+  class Layout
+    class Column
+      include GeoAccessors
+
+      extend Forwardable
+      def_delegators :@clients, :empty?, :include?, :remove
+      def_delegator :@clients, :current, :current_client
+      def_delegator :@clients, :current=, :current_client=
+      def_delegator :current_client, :==, :current_client?
+
+      attr_reader :geo, :clients
+
+      def initialize(geo)
+        @geo      = geo.dup
+        @clients  = Container.new
+      end
+
+      def to_s
+        "COL geo: #{@geo}"
+      end
+
+      def <<(client)
+        client.geo = @geo.dup
+        @clients << client
+        self
+      end
+
+      def arrange_clients
+        @clients.each do |client|
+          client.geo = @geo.dup
+          client.moveresize
+        end
+      end
+
+      def show_hide_clients
+        @clients.each do |client|
+          client.hide unless client.hidden? || @clients.current == client
+        end
+        @clients.current.show if @clients.current && @clients.current.hidden?
+      end
+    end
+  end
+end

data/lib/uh/layout/column/arranger.rb

@@ -0,0 +1,66 @@
+module Uh
+  class Layout
+    class Column
+      class Arranger
+        OPTIMAL_WIDTH = 484
+
+        attr_reader :columns, :geo
+
+        def initialize(columns, geo, column_width: OPTIMAL_WIDTH)
+          @columns      = columns
+          @geo          = geo
+          @column_width = column_width
+        end
+
+        def redraw
+          purge
+          update_geos
+          yield if block_given?
+        end
+
+        def purge
+          @columns.remove_if &:empty?
+        end
+
+        def move_current_client(direction)
+          return self unless @columns.current.current_client
+          @columns.current.remove client = @columns.current.current_client
+          dest_column = get_or_create_column direction
+          dest_column << client
+          dest_column.current_client = client
+          purge
+          @columns.current = dest_column
+          self
+        end
+
+        def get_or_create_column(direction)
+          if candidate = @columns.get(direction)
+            candidate
+          elsif max_columns_count?
+            @columns.get direction, cycle: true
+          else
+            Column.new(@geo).tap do |o|
+              case direction
+              when :pred then @columns.unshift o
+              when :succ then @columns << o
+              end
+            end
+          end
+        end
+
+        def max_columns_count?
+          (@geo.width / (@columns.size + 1)) < @column_width
+        end
+
+        def update_geos
+          return if @columns.empty?
+          @columns.each_with_index do |column, i|
+            column.x      = @column_width * i + @geo.x
+            column.width  = @column_width
+          end
+          @columns.last.width = @geo.width - (@columns.last.x - @geo.x)
+        end
+      end
+    end
+  end
+end