22 lines
502 B
Clojure
22 lines
502 B
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(ns is-tty
|
||
|
|
(:require [babashka.process :as p]))
|
||
|
|
|
||
|
|
(defn- is-tty
|
||
|
|
[fd key]
|
||
|
|
(-> ["test" "-t" (str fd)]
|
||
|
|
(p/process {key :inherit :env {}})
|
||
|
|
deref
|
||
|
|
:exit
|
||
|
|
(= 0)))
|
||
|
|
|
||
|
|
(defn in-is-tty? [] (is-tty 0 :in))
|
||
|
|
(defn out-is-tty? [] (is-tty 1 :out))
|
||
|
|
(defn err-is-tty? [] (is-tty 2 :err))
|
||
|
|
|
||
|
|
(when (= *file* (System/getProperty "babashka.file"))
|
||
|
|
(println "STDIN is TTY?:" (in-is-tty?))
|
||
|
|
(println "STDOUT is TTY?:" (out-is-tty?))
|
||
|
|
(println "STDERR is TTY?:" (err-is-tty?)))
|