pbtail.rkt

pbtail.rkt

#!/usr/bin/env racket

#lang racket

(require racket/base)
(require racket/port)
(require racket/system)

(define (pbpaste)
  (with-output-to-string
    (lambda () (system "pbpaste"))))

(define (display/ln-if-needed str)
  (if (or (raw-mode) (string-suffix? str "\n")) display displayln))

(define raw-mode (make-parameter #f))

(command-line
  #:once-each
  [("--raw" "-r") "Raw mode" (raw-mode #t)])

(with-handlers ([exn:break? (lambda (x) (exit 0))])
  (let loop ([prev-pb (pbpaste)])
    (sleep 1)
    (let ([pb (pbpaste)])
      (cond [(not (equal? pb prev-pb))
        (display/ln-if-needed pb)])
      (loop pb))))