fvwm-window-search 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 1365fa4326358bdf06efd23fa5e8a42348dfad1a4acae24f169fa603c0c6f8c2
+  data.tar.gz: da1fc15018240a4d37bad24726e81f60cfe44232e7e23b172d30c7d5d384d91c
+SHA512:
+  metadata.gz: 2bd53629fa900f2c1b30e6cd02a4de7db3bde4676ec5b0c5dcef9c5ef9a26c3c174cce33a58470060643da89532fccb478609110d31fdc7faeb1aab765a8706a
+  data.tar.gz: 0ecc94c5b3161697d3f71cf02e20ef06d70b4d878c5b224b6f3737335aa494bd9b6bb5637c97e953b36169f6b67a13aeaff916b5885806649554b3f18590286c

data/Makefile

@@ -0,0 +1,16 @@
+out := _out
+dmenu := $(out)/dmenu
+dmenu.commit := 9b38fda6feda68f95754d5b8932b1a69471df960
+
+$(out)/.dmenu.build: $(out)/.dmenu.$(dmenu.commit) dmenu.patch
+	patch -d $(dmenu) -p1 < dmenu.patch
+	make -C $(dmenu)
+	touch $@
+
+$(out)/.dmenu.$(dmenu.commit):
+	git clone https://git.suckless.org/dmenu $(dmenu)
+	git -C $(dmenu) checkout $(dmenu.commit) -q
+	touch $@
+
+# an empty target to satisfy rubygems
+install:

data/README.md

@@ -0,0 +1,51 @@
+# fvwm-window-search
+
+Incremental window search & immediate switch to the selected window
+*during the search*. Uses a patched version of dmenu as a GUI.
+
+    $ gem install fvwm-window-search
+
+![A screenshot of running fvwm-window-search](https://raw.github.com/gromnitsky/fvwm-window-search/master/screnshot1.png)
+
+* Should work w/ any X11 window manager.
+* Filtering by windows names/resources/classes.
+
+## Reqs
+
+* Ruby (tested w/ 2.7.0)
+* `xwininfo` & `xdotool` (`xorg-x11-utils` & `xdotool` Fedora pkgs)
+
+## Compilation
+
+Type `make`. This clones the dmenu repo, patches & builds it. It does
+not contravene w/ a system-installed dmenu.
+
+## Usage
+
+Run `fvwm-window-search`.
+
+To customise dmenu or filtering, create a yaml file
+`$XDG_CONFIG_HOME/fvwm-window-search/conf.yaml`, e.g.:
+
+~~~
+---
+dmenu:
+  fn: Monospace-12
+  b: false
+filter:
+    name: ['System Monitor']
+~~~
+
+This passes to dmenu `-fn` & `-b` CLOs & instructs to filter out any
+window that matches `System Monitor` regexp in its title.
+
+See the defaults in `fvwm-window-search` file.
+
+## Bugs
+
+* Tested only w/ Fvwm3.
+* No distinction between normal & iconified windows.
+
+## License
+
+MIT.

data/dmenu.patch

@@ -0,0 +1,128 @@
+diff --git a/Makefile b/Makefile
+index a03a95c..ee5cffb 100644
+--- a/Makefile
++++ b/Makefile
+@@ -17,8 +17,8 @@ options:
+ .c.o:
+ 	$(CC) -c $(CFLAGS) $<
+ 
+-config.h:
+-	cp config.def.h $@
++config.h: config.def.h
++	cp $< $@
+ 
+ $(OBJ): arg.h config.h config.mk drw.h
+ 
+diff --git a/config.def.h b/config.def.h
+index 1edb647..c6d081f 100644
+--- a/config.def.h
++++ b/config.def.h
+@@ -21,3 +21,6 @@ static unsigned int lines      = 0;
+  * for example: " /?\"&[]"
+  */
+ static const char worddelimiters[] = " ";
++
++/* -selhook option; run a command on every selection */
++static const char *selection_hook = NULL;
+diff --git a/dmenu.c b/dmenu.c
+index 65f25ce..69254ee 100644
+--- a/dmenu.c
++++ b/dmenu.c
+@@ -304,6 +304,62 @@ movewordedge(int dir)
+ 	}
+ }
+ 
++/*
++ * Replacing all instances of ' with '\'' then enclosing the whole
++ * string in single quotes (') is the safe way.
++ * */
++static char *
++shellquote(const char *src)
++{
++  char *quoted, *q;
++  const char *p;
++
++  if (!src) return NULL;
++  p = src;
++
++  if (!(quoted = malloc(strlen(src)*4+3))) die("malloc failed");
++  q = quoted;
++
++  *q++ = '\'';
++  while (*p) {
++    if (*p == '\'') {
++      *q++ = '\'';
++      *q++ = '\\';
++      *q++ = '\'';
++      *q++ = '\'';
++    } else {
++      *q++ = *p;
++    }
++
++    p++;
++  }
++  *q++ = '\'';
++  *q = '\0';
++
++  return quoted;
++}
++
++void
++selhook(const char *user_command, const struct item *item)
++{
++  char *cmd, *quoted_item_text;
++  size_t cmd_size;
++
++  if ( !(user_command && item)) return;
++  quoted_item_text = shellquote(item->text);
++  /* printf("QUOTED: >%s<\n", quoted_item_text); */
++
++  cmd_size = strlen(user_command) + strlen(quoted_item_text) + 1;
++  if ( !(cmd = malloc(cmd_size))) die("malloc failed");
++  snprintf(cmd, cmd_size, user_command, quoted_item_text);
++
++  /* printf("SELECTED HOOK: %s\n", cmd); */
++  system(cmd);
++
++  free(quoted_item_text);
++  free(cmd);
++}
++
+ static void
+ keypress(XKeyEvent *ev)
+ {
+@@ -464,6 +520,7 @@ insert:
+ 		break;
+ 	case XK_Return:
+ 	case XK_KP_Enter:
++		selhook(selection_hook, sel);
+ 		puts((sel && !(ev->state & ShiftMask)) ? sel->text : text);
+ 		if (!(ev->state & ControlMask)) {
+ 			cleanup();
+@@ -572,6 +629,7 @@ run(void)
+ 			break;
+ 		case KeyPress:
+ 			keypress(&ev.xkey);
++			selhook(selection_hook, sel);
+ 			break;
+ 		case SelectionNotify:
+ 			if (ev.xselection.property == utf8)
+@@ -690,7 +748,8 @@ static void
+ usage(void)
+ {
+ 	fputs("usage: dmenu [-bfiv] [-l lines] [-p prompt] [-fn font] [-m monitor]\n"
+-	      "             [-nb color] [-nf color] [-sb color] [-sf color] [-w windowid]\n", stderr);
++	      "             [-nb color] [-nf color] [-sb color] [-sf color] [-w windowid]\n"
++	      "             [-selhook cmd]\n", stderr);
+ 	exit(1);
+ }
+ 
+@@ -733,6 +792,8 @@ main(int argc, char *argv[])
+ 			colors[SchemeSel][ColFg] = argv[++i];
+ 		else if (!strcmp(argv[i], "-w"))   /* embedding window id */
+ 			embed = argv[++i];
++		else if(!strcmp(argv[i], "-selhook"))  /* a command to run */
++			selection_hook = argv[++i];
+ 		else
+ 			usage();
+ 

data/extconf.rb

@@ -0,0 +1 @@
+# a dummy file that forces rubygems to run our Makefile during 'gem install'

data/focus.sh

@@ -0,0 +1,7 @@
+#!/bin/sh
+
+id=`echo "$1" | awk -F'|' '{print $NF} END { exit $NF == "" ? 1 : 0}'` || {
+    echo "usage: `basename "$0"` 'name | class | id'"
+    exit 1
+}
+xdotool windowactivate "$id" mousemove --window "$id" 0 0

data/fvwm-window-search

@@ -0,0 +1,64 @@
+#!/usr/bin/env ruby
+
+require_relative './lib'
+include FvwmWindowSearch
+require 'yaml'
+
+def options_load
+  xdg_config_home = ENV['XDG_CONFIG_HOME'] || File.expand_path('~/.config')
+  conf = File.join xdg_config_home, 'fvwm-window-search', 'conf.yaml'
+  r = File.read conf rescue nil
+  YAML.load r, conf rescue errx 1, "invalid config: #{$!}" if r
+end
+
+def options
+  default = {
+    "dmenu" => {               # each key is a corresponding CL option
+      "selhook" => File.join(__dir__, "focus.sh %s"),
+      "fn" => "Monospace-10",
+      "l" => 8,
+      "b" => true,
+      "i" => true,
+    },
+    "filter" => {
+      "name" => [],
+      "resource" => [],
+      "class" => ['^Fvwm', '!^FvwmIdent$']
+    }
+  }
+
+  deep_merge(default, options_load || {})
+end
+
+def menu params, text
+  cmd = [File.join(__dir__, "_out/dmenu/dmenu")]
+  params = params.map do |k,v|
+    k = "-"+k
+    if !!v == v
+      v ? k : nil
+    else
+      [k,v]
+    end
+  end.reject(&:nil?).flatten.map(&:to_s)
+  IO.popen(cmd + params, 'w') { |ios| ios.puts text }
+end
+
+def main
+  ['xwininfo', 'xdotool'].each do |util|
+    errx 1, "no #{util} in PATH" unless which util
+  end
+
+  opt = options
+  begin
+    winlist = windows_filter opt["filter"], windows
+  rescue RegexpError
+    errx 1, "filter: #{$!}"
+  end
+  winlist = winlist.map do |w|
+    "#{w.name} | #{w.class} | #{w.id}"
+  end.join "\n"
+
+  menu opt["dmenu"], winlist
+end
+
+main

data/lib.rb

@@ -0,0 +1,105 @@
+module FvwmWindowSearch; end
+
+class FvwmWindowSearch::Window
+  def initialize xwininfo_line
+    @line = xwininfo_line.match(/^([x0-9a-f]+)\s+(["\(].+["\)]):\s+\((.*)\)\s+([x0-9+-]+)\s+([0-9+-]+)$/)
+    raise "invalid xwininfo line" unless @line
+    @dim = parse
+  end
+
+  def parse
+    dim = {}
+    if @line[4]
+      m4 = @line[4].match(/^([0-9]+)x([0-9]+)\+([0-9-]+)\+([0-9-]+)$/)
+      if m4
+        dim[:w] = m4[1].to_i
+        dim[:h] = m4[2].to_i
+        dim[:x_rel] = m4[3].to_i
+        dim[:y_rel] = m4[4].to_i
+      end
+    end
+
+    if @line[5]
+      m5 = @line[5].match(/^\+([0-9-]+)\+([0-9-]+)$/)
+      if m5
+        dim[:x] = m5[1].to_i
+        dim[:y] = m5[2].to_i
+      end
+    end
+
+    dim
+  end
+
+  def id; @line[1]; end
+
+  def name;
+    return unless @line[2]
+    @line[2] == '(has no name)' ? nil : @line[2][1..-2]
+  end
+
+  def resource; @line[3]&.split(' ')&.dig(0)&.slice(1..-2); end
+  def class;    @line[3]&.split(' ')&.dig(1)&.slice(1..-2); end
+  def width; @dim[:w]; end
+  def height; @dim[:h]; end
+  def x; @dim[:x]; end # an absolute upper-left X
+  def y; @dim[:y]; end # an absolute upper-left Y
+  def x_rel; @dim[:x_rel]; end
+  def y_rel; @dim[:y_rel]; end
+
+  def useful?
+    return false unless @line
+    return false if width == 0 || height == 0
+    return false if (x == x_rel) && (y == y_rel)
+    return false if x_rel > 0 || y_rel > 0
+    return false unless self.class
+    true
+  end
+
+  def inspect
+    "#<Window> id=#{id}, name=#{name}, resource=#{resource}, class=#{self.class}"
+  end
+end
+
+module FvwmWindowSearch
+  def windows
+  `xwininfo -root -tree`.split("\n")
+    .select {|v| v.match(/^\s*0x.+/)}
+    .map(&:strip)
+    .map {|v| Window.new(v)}
+    .select(&:useful?)
+  end
+
+  def windows_filter patterns, winlist
+    desired = -> (type, value) {
+      include = patterns[type].filter{|v| v[0] != '!'}
+      exclude = patterns[type].filter{|v| v[0] == '!'}.map {|v| v[1..-1]}
+
+      exclude.each do |pattern|
+        return true if value.match pattern
+      end
+      include.each do |pattern|
+        return false if value.match pattern
+      end
+      true
+    }
+
+    winlist.filter { |w| desired.call "class", w.class }
+      .filter{ |w| desired.call "resource", w.resource }
+      .filter{ |w| desired.call "name", w.name }
+  end
+
+  def deep_merge first, second
+    merger = proc { |_, v1, v2| Hash === v1 && Hash === v2 ? v1.merge(v2, &merger) : v2 }
+    first.merge(second, &merger)
+  end
+
+  def errx exit_code, msg
+    $stderr.puts "#{File.basename $0} error: #{msg}"
+    exit exit_code
+  end
+
+  def which cmd
+    ENV['PATH'].split(File::PATH_SEPARATOR).map {|v| File.join v, cmd }
+      .find {|v| File.executable?(v) && !File.directory?(v) }
+  end
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification
+name: fvwm-window-search
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Alexander Gromnitsky
+autorequire: 
+bindir: "."
+cert_chain: []
+date: 2020-07-18 00:00:00.000000000 Z
+dependencies: []
+description: |
+  Search for windows interactively using a patched dmenu utility.
+  Originally made for Fvwm, it's been fully rewritten to work out-of-the-box
+  with any window manager. Requires xdotool & xwininfo installed.
+email: alexander.gromnitsky@gmail.com
+executables:
+- fvwm-window-search
+extensions:
+- extconf.rb
+extra_rdoc_files: []
+files:
+- "./fvwm-window-search"
+- Makefile
+- README.md
+- dmenu.patch
+- extconf.rb
+- focus.sh
+- lib.rb
+homepage: https://github.com/gromnitsky/fvwm-window-search
+licenses:
+- MIT
+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: []
+rubygems_version: 3.1.2
+signing_key: 
+specification_version: 4
+summary: Interactive incremental windows search & selection for X Window
+test_files: []