;;;; term.lisp -- functions for dealing with the terminal



(in-package :oneliners.cli.term)

(defvar *term-width* nil)

(defun set-term-width ()
  ;; tput cols b/c getenv COLUMNS wasnt working on some terminals
  (setf *term-width*
        (- 
         (or (parse-integer (uiop:run-program '("tput" "cols") :output :string) :junk-allowed t)
             80)
         4)))