wmadd 0.1.0

data/lib/wmadd.rb

@@ -0,0 +1,160 @@
+# frozen_string_literal: true
+
+require_relative 'wmadd/version'
+require_relative 'wmadd/x'
+require 'tmtms/timer'
+require 'timeout'
+
+# Wmadd
+class Wmadd
+  DEFAULT_OPACITY = 0xFFFFFFFF
+  OVERWRAP_OPACITY = 0x80000000
+
+  def self.start
+    self.new.start
+  end
+
+  def initialize
+    @display = X::Display.new
+    @root = @display.default_root_window
+    @timer = Tmtms::Timer.new
+  end
+
+  def start
+    window_list.each do |w|
+      watch_resize_event(w)
+    end
+
+    @root.select_input(X::SUBSTRUCTURE_NOTIFY_MASK | X::PROPERTY_CHANGE_MASK)
+    @osd = @root.create_simple_window(100, 100, 200, 50, 0, 0, 0xe0e0e0)
+    @osd.change_property_atom(:_NET_WM_WINDOW_TYPE, X::PROP_MODE_REPLACE, :_NET_WM_WINDOW_TYPE_NOTIFICATION)
+    @osd.select_input(X::EXPOSURE_MASK)
+    @gc = @osd.create_gc
+    @gc.set_background(0xe0e0e0)
+    @gc.set_foreground(0)
+    @gc.set_font(@display.load_font("fixed"))
+
+    while true
+      ev = @display.next_event
+      case ev
+      when X::CreateWindowEvent
+        window_list.each do |w|
+          watch_resize_event(w)
+        end
+      when X::ExposeEvent
+        display_osd if ev.window == @osd.id
+      when X::PropertyEvent
+        if ev.atom == @display.intern_atom(:_NET_ACTIVE_WINDOW)
+          reset_opacity
+        end
+      when X::ConfigureEvent
+        lazy_reset_opacity
+        win = X::Window.new(@display, ev.window)
+        display_osd(win)
+      end
+    end
+  end
+
+  def display_osd(win=nil)
+    if win
+      wm_win = wm_window(win) or return
+      hints = wm_win.wm_normal_hints or return
+      top_win = top_window(win) or return
+
+      x, y = top_win.geometry.then{[_1.x, _1.y]}
+      width, height = win.geometry.then{[_1.width, _1.height]}
+
+      @osd_x = x + ((width - 200) / 2)
+      @osd_y = y + ((height - 50) / 2)
+      @osd_str = "#{width} x #{height} +#{x}+#{y}"
+      if hints.width_inc > 0 && hints.height_inc > 0
+        width -= hints.base_width
+        height -= hints.base_height
+        @osd_str += "  (#{width / hints.width_inc} x #{height / hints.height_inc})"
+      end
+    end
+
+    @osd.map_window
+    @osd.clear
+    @gc.draw_string(10, 30, @osd_str)
+    @osd.move_window(@osd_x, @osd_y)
+    @display.flush
+    @job&.cancel
+    @job = @timer.set(1) do
+      @osd.unmap_window
+      @display.flush
+    end
+  end
+
+  def lazy_reset_opacity
+    @reset_opacity_job&.cancel
+    @reset_opacity_job = @timer.set(0.1){reset_opacity}
+  end
+
+  def top_window(win)
+    top = win
+    while top.parent.id != @root.id
+      top = top.parent
+    end
+    top
+  end
+
+  def wm_window(win)
+    while win && win.parent&.id != @root.id
+      if win.window_attributes.map_state == X::IS_VIEWABLE && win.window_type == :normal
+        return win
+      end
+      win = win.parent
+    end
+    nil
+  end
+
+  def reset_opacity
+    return unless @root.active_window
+    active_win = wm_window(@root.active_window) or return
+
+    f = false
+    window_list.each do |w|
+      if active_win.id == w.id
+        f = true
+        set_default_opacity(w)
+        next
+      end
+      if f && overwrap?(w, active_win)
+        set_overwrap_opacity(w)
+        next
+      end
+      set_default_opacity(w)
+    end
+  end
+
+  def overwrap?(w1, w2)
+    g1 = top_window(w1).geometry
+    g2 = top_window(w2).geometry
+    g1.x < g2.x+g2.width && g1.x+g1.width > g2.x && g1.y < g2.y+g2.height && g1.y+g1.height > g2.y
+  end
+
+  def set_default_opacity(win)
+    win.change_property_cardinal(:_NET_WM_WINDOW_OPACITY, X::PROP_MODE_REPLACE, DEFAULT_OPACITY)
+  end
+
+  def set_overwrap_opacity(win)
+    win.change_property_cardinal(:_NET_WM_WINDOW_OPACITY, X::PROP_MODE_REPLACE, OVERWRAP_OPACITY)
+  end
+
+  def window_list(win=@root)
+    list = []
+    win.query_tree&.each do |w|
+      if w.window_attributes.map_state == X::IS_VIEWABLE && w.window_type == :normal
+        list.push w
+      else
+        list.push window_list(w)
+      end
+    end
+    list.flatten
+  end
+
+  def watch_resize_event(win)
+    win.select_input(X::STRUCTURE_NOTIFY_MASK)
+  end
+end

data/sig/window_geometry.rbs

@@ -0,0 +1,4 @@
+module Wmadd
+  VERSION: String
+  # See the writing guide of rbs: https://github.com/ruby/rbs#guides
+end

metadata

@@ -0,0 +1,67 @@
+--- !ruby/object:Gem::Specification
+name: wmadd
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- TOMITA Masahiro
+bindir: exe
+cert_chain: []
+date: 2024-10-06 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: tmtms_timer
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: show window geometry
+email:
+- tommy@tmtm.org
+executables:
+- wmadd
+extensions: []
+extra_rdoc_files: []
+files:
+- ".rspec"
+- LICENSE.txt
+- README.md
+- Rakefile
+- exe/wmadd
+- lib/wmadd.rb
+- lib/wmadd/version.rb
+- lib/wmadd/x.rb
+- sig/window_geometry.rbs
+homepage: https://gitlab.com/tmtms/wmadd
+licenses:
+- GPLv3
+metadata:
+  homepage_uri: https://gitlab.com/tmtms/wmadd
+  source_code_uri: https://gitlab.com/tmtms/wmadd
+  rubygems_mfa_required: 'true'
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.3.0
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.6.0.dev
+specification_version: 4
+summary: show window geometry
+test_files: []