Gauche:slop
画面キャプチャの範囲指定部分だけを行うslop( https://github.com/naelstrof/slop )が面白いので, REPLで使うために(とりあえず)作ってみました。 yamasushi ( 2014/11/06 11:18:13 UTC )
(define-module tools.ss (use gauche.process) (export slop) ) (select-module tools.ss) (define (%slop) (with-input-from-process "slop -f'(%c (%x %y %w %h) %i )' 2>/dev/null " read :on-abnormal-exit (^ _ ) ) ) (define (slop) (let1 result (%slop) (if (eq? (car result) 'false) (cadr result) #f ) ) )
gosh> (slop) (465 880 3 2) gosh> (slop) #f <-----キャンセル時