kasten 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 5b66361d2e127a00ed9a108a3f634e421ca09050
+  data.tar.gz: c67b4ee29dd93945a2f41d9befcc5ecb4e0f0d30
+SHA512:
+  metadata.gz: b2afe0b3624c2823cc756424d1a5ff412c97e8126b9ce618f0e6aca5011420fb562a9ac4998da943074496de01aba1205f3248d4b558d4477d8ef506dabbbd8e
+  data.tar.gz: 64bad617225acaadf381b723c27b1a093d4d4866faad168f443d105487c2dac1bab81a2e8ba0680e6d56be49fa95fe1cfdea81417d59e32212d79f7bc5f7545e

data/.gitignore

@@ -0,0 +1,14 @@
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+*.bundle
+*.so
+*.o
+*.a
+mkmf.log

data/.travis.yml

@@ -0,0 +1,4 @@
+language: ruby
+rvm:
+  - 2.3.0
+before_install: gem install bundler -v 1.10.6

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,13 @@
+# Contributor Code of Conduct
+
+As contributors and maintainers of this project, we pledge to respect all people who contribute through reporting issues, posting feature requests, updating documentation, submitting pull requests or patches, and other activities.
+
+We are committed to making participation in this project a harassment-free experience for everyone, regardless of level of experience, gender, gender identity and expression, sexual orientation, disability, personal appearance, body size, race, ethnicity, age, or religion.
+
+Examples of unacceptable behavior by participants include the use of sexual language or imagery, derogatory comments or personal attacks, trolling, public or private harassment, insults, or other unprofessional conduct.
+
+Project maintainers have the right and responsibility to remove, edit, or reject comments, commits, code, wiki edits, issues, and other contributions that are not aligned to this Code of Conduct. Project maintainers who do not follow the Code of Conduct may be removed from the project team.
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by opening an issue or contacting one or more of the project maintainers.
+
+This Code of Conduct is adapted from the [Contributor Covenant](http://contributor-covenant.org), version 1.0.0, available at [http://contributor-covenant.org/version/1/0/0/](http://contributor-covenant.org/version/1/0/0/)

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in kasten.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2016 pachacamac
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,35 @@
+# Kasten
+
+Let users draw a Kasten (German for box) in an X environment and get it's dimensions
+
+## Usage
+
+run `gem install kasten` or add it to your Gemfile and run bundle install, then:
+
+    require 'kasten'
+
+    dimensions = Kasten.kasten
+    p dimensions
+    #  => {"x"=>532, "y"=>484, "w"=>265, "h"=>187}
+
+This gives you the raw hash.
+
+There's also a convenience class that makes things slightly more comfortable:
+
+    box = Kasten::Box.new
+    # => #<Kasten::Box:0x000000015840c0 @x=265, @y=701, @w=235, @h=162>
+    box.x
+    # => 265
+    box.to_s
+    # "x: 265, y: 701, w: 235, h: 162"
+
+Yes, it's that simple.
+
+Here, look at a demo recorded with the screen_recorder example.
+
+![demo gif](examples/demo.gif)
+
+
+## Troubleshooting
+
+If the Gem doesn't compile for you, you might need to install libx11-dev. So on Debian based systems do `sudo apt-get install libx11-dev` first.

data/Rakefile

@@ -0,0 +1,10 @@
+require "bundler/gem_tasks"
+
+task :default => :spec
+require "rake/extensiontask"
+
+task :build => :compile
+
+Rake::ExtensionTask.new("kasten") do |ext|
+  ext.lib_dir = "lib/kasten"
+end

data/bin/console

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "kasten"
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require "irb"
+IRB.start

data/bin/kasten

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+
+require "kasten"

data/bin/setup

@@ -0,0 +1,7 @@
+#!/bin/bash
+set -euo pipefail
+IFS=$'\n\t'
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/build.sh

@@ -0,0 +1,2 @@
+echo "--- COMPILING C LIB" && rake clean compile && echo "--- BUILDING GEM" && gem build kasten.gemspec && echo "--- INSTALLING GEM" && rake install
+# publish with: rake publish

data/examples/screen_recorder.rb

@@ -0,0 +1,12 @@
+# This example uses the Kasten Gem and byzanz (a small cli screencast creator)
+# to let you select an area of your screen and then record a short GIF from it.
+# You need to install byzanz first: sudo apt-get install byzanz
+
+require 'kasten'
+
+box = Kasten::Box.new
+
+seconds = 5
+
+puts "Recording GIF for #{seconds} seconds at #{box}"
+system("byzanz-record -d #{seconds} -x #{box.x} -y #{box.y} -w #{box.w} -h #{box.h} -v -c recording.gif")

data/ext/kasten/extconf.rb

@@ -0,0 +1,4 @@
+require "mkmf"
+
+have_library('X11') || raise
+create_makefile("kasten/kasten")

data/ext/kasten/kasten.c

@@ -0,0 +1,100 @@
+#include "kasten.h"
+
+VALUE rb_mKasten;
+
+void
+Init_kasten(void) {
+  rb_mKasten = rb_define_module("Kasten");
+  rb_define_singleton_method(rb_mKasten, "kasten", method_kasten, 0);
+}
+
+VALUE method_kasten(VALUE self){
+  int rx = 0, ry = 0, rw = 0, rh = 0, rect_x = 0, rect_y = 0, rect_w = 0, rect_h = 0, btn_pressed = 0, done = 0;
+  Screen *scr = NULL;
+  Window root = 0;
+  Cursor cursor, cursor2;
+  XGCValues gcval;
+  GC gc;
+  VALUE r_hash;
+  XEvent ev;
+  Display *disp = XOpenDisplay(NULL);
+  if(!disp){ return EXIT_FAILURE; }
+  scr = ScreenOfDisplay(disp, DefaultScreen(disp));
+  root = RootWindow(disp, XScreenNumberOfScreen(scr));
+  cursor = XCreateFontCursor(disp, XC_left_ptr);
+  cursor2 = XCreateFontCursor(disp, XC_lr_angle);
+  gcval.foreground = XWhitePixel(disp, 0);
+  gcval.function = GXxor;
+  gcval.background = XBlackPixel(disp, 0);
+  gcval.plane_mask = gcval.background ^ gcval.foreground;
+  gcval.subwindow_mode = IncludeInferiors;
+  gc = XCreateGC(disp, root, GCFunction | GCForeground | GCBackground | GCSubwindowMode, &gcval);
+
+  /* this XGrab* stuff makes XPending true ? */
+  if ((XGrabPointer (disp, root, False, ButtonMotionMask | ButtonPressMask | ButtonReleaseMask, GrabModeAsync, GrabModeAsync, root, cursor, CurrentTime) != GrabSuccess)){
+    printf("no mouse pointer!");
+  }
+
+  if ((XGrabKeyboard (disp, root, False, GrabModeAsync, GrabModeAsync, CurrentTime) != GrabSuccess)) {
+    printf("no keyboard!");
+  }
+
+  while (!done) {
+    //~ while (!done && XPending(disp)) {
+      //~ XNextEvent(disp, &ev);
+    if (!XPending(disp)) { usleep(1000); continue; } // fixes the 100% CPU hog issue in original code
+    if ( (XNextEvent(disp, &ev) >= 0) ) {
+      switch (ev.type) {
+        case MotionNotify:
+        /* this case is purely for drawing rect on screen */
+          if (btn_pressed) {
+            if (rect_w) {
+              /* re-draw the last rect to clear it */
+              XDrawRectangle(disp, root, gc, rect_x, rect_y, rect_w, rect_h);
+            } else {
+              /* Change the cursor to show we're selecting a region */
+              XChangeActivePointerGrab(disp, ButtonMotionMask | ButtonReleaseMask, cursor2, CurrentTime);
+            }
+            rect_x = rx;
+            rect_y = ry;
+            rect_w = ev.xmotion.x - rect_x;
+            rect_h = ev.xmotion.y - rect_y;
+            if (rect_w < 0) { rect_x += rect_w; rect_w = 0 - rect_w; }
+            if (rect_h < 0) { rect_y += rect_h; rect_h = 0 - rect_h; }
+            /* draw rectangle */
+            XDrawRectangle(disp, root, gc, rect_x, rect_y, rect_w, rect_h);
+            XFlush(disp);
+          }
+          break;
+        case ButtonPress:
+          btn_pressed = 1;
+          rx = ev.xbutton.x;
+          ry = ev.xbutton.y;
+          break;
+        case ButtonRelease:
+          done = 1;
+          break;
+      }
+    }
+  }
+  /* clear the drawn rectangle */
+  if (rect_w) {
+    XDrawRectangle(disp, root, gc, rect_x, rect_y, rect_w, rect_h);
+    XFlush(disp);
+  }
+  rw = ev.xbutton.x - rx;
+  rh = ev.xbutton.y - ry;
+  /* cursor moves backwards */
+  if (rw < 0) { rx += rw; rw = 0 - rw; }
+  if (rh < 0) { ry += rh; rh = 0 - rh; }
+
+  XCloseDisplay(disp);
+  //printf("%dx%d+%d+%d\n",rw,rh,rx,ry);
+
+  r_hash = rb_hash_new();
+  rb_hash_aset(r_hash, rb_str_new2("x"), INT2NUM(rx));
+  rb_hash_aset(r_hash, rb_str_new2("y"), INT2NUM(ry));
+  rb_hash_aset(r_hash, rb_str_new2("w"), INT2NUM(rw));
+  rb_hash_aset(r_hash, rb_str_new2("h"), INT2NUM(rh));
+  return r_hash;
+}

data/ext/kasten/kasten.h

@@ -0,0 +1,16 @@
+#ifndef KASTEN_H
+#define KASTEN_H 1
+
+#include "ruby.h"
+#include<stdio.h>
+#include<stdlib.h>
+#include<X11/Xlib.h>
+#include<X11/cursorfont.h>
+#include<unistd.h>
+
+void Init_kasten(void);
+VALUE method_kasten(VALUE self);
+
+extern VALUE rb_mKasten;
+
+#endif /* KASTEN_H */

data/kasten.gemspec

@@ -0,0 +1,26 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'kasten/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "kasten"
+  spec.version       = Kasten::VERSION
+  spec.authors       = ["pachacamac"]
+  spec.email         = ["pachacamac@inboxalias.com"]
+
+  spec.summary       = %q{Create a Kasten (German for box)}
+  spec.description   = %q{Let users draw a Kasten (German for box) in an X environment and get it's dimensions}
+  spec.homepage      = "https://github.com/pachacamac/kasten"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  spec.bindir        = "bin"
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+  spec.extensions    = ["ext/kasten/extconf.rb"]
+
+  spec.add_development_dependency "bundler", "~> 1.10"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "rake-compiler"
+end

data/lib/kasten.rb

@@ -0,0 +1,19 @@
+require 'kasten/version'
+require 'kasten/kasten'
+
+module Kasten
+  class Box
+    attr_reader :x, :y, :w, :h
+    def initialize
+      d = Kasten.kasten
+      @x = d['x']
+      @y = d['y']
+      @w = d['w']
+      @h = d['h']
+    end
+
+    def to_s
+      "x: #{@x}, y: #{@y}, w: #{@w}, h: #{@h}"
+    end
+  end
+end

data/lib/kasten/version.rb

@@ -0,0 +1,3 @@
+module Kasten
+  VERSION = "0.1.0"
+end

metadata

@@ -0,0 +1,110 @@
+--- !ruby/object:Gem::Specification
+name: kasten
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- pachacamac
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-05-04 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.10'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.10'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.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'
+description: Let users draw a Kasten (German for box) in an X environment and get
+  it's dimensions
+email:
+- pachacamac@inboxalias.com
+executables:
+- console
+- kasten
+- setup
+extensions:
+- ext/kasten/extconf.rb
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".travis.yml"
+- CODE_OF_CONDUCT.md
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/kasten
+- bin/setup
+- build.sh
+- examples/demo.gif
+- examples/screen_recorder.rb
+- ext/kasten/extconf.rb
+- ext/kasten/kasten.c
+- ext/kasten/kasten.h
+- kasten.gemspec
+- lib/kasten.rb
+- lib/kasten/version.rb
+homepage: https://github.com/pachacamac/kasten
+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: []
+rubyforge_project: 
+rubygems_version: 2.5.1
+signing_key: 
+specification_version: 4
+summary: Create a Kasten (German for box)
+test_files: []