(define-module (vulgar util)
  #:use-module (srfi srfi-19)
  #:use-module (srfi srfi-60)
  #:use-module (util)
  #:use-module (ice-9 popen)
  #:export (line ctrl color-escape))

(define* (line #:optional (width 64))
  (display (make-string width #\_))
  (newline))

(define (ctrl char)
  (integer->char (bitwise-and #b00011111 (char->integer char))))

(define-public (display-calendar-header! date)
  (let* ((day   (number->string (date-day   date)))
         (month (number->string (date-month date)))
         (year  (number->string (date-year  date))))
    ;; BSD cal only supports setting highlighted day explicitly for
    ;; testing the functionality. This seems to at least give me
    ;; an (almost) working display, albeit ugly.
    (if (file-exists? "/usr/bin/ncal")
        (system*  "ncal" "-3" "-H" (format #f "~a-~a-~a"
                                          year month day)
                  month year)
        (system* "cal" "-3" day month year))))

(define (color-escape n)
  (cond ((not n) "")
        ((char=? #\# (string-ref n 0))
         (let* ((str (string-drop n 1))
                (rs (substring str 0 2))
                (gs (substring str 2 4))
                (bs (substring str 4 6)))
           (format #f "\x1b[38;2;~a;~a;~am"
                   (string->number rs 16)
                   (string->number gs 16)
                   (string->number bs 16))))))


(define-public (get-terminal-size)
 (let* (((rpipe . wpipe) (pipe)))
   (system (format #f "stty size > /proc/~s/fd/~s"
                   (getpid) (port->fdes wpipe)))
   (values (read rpipe)
           (read rpipe))))