Gauche:slop

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 <-----キャンセル時
More ...