1 files changed, 0 insertions, 46 deletions
diff --git a/module/vulgar/util.scm b/module/vulgar/util.scm
deleted file mode 100644
index 8be97378..00000000
--- a/module/vulgar/util.scm
+++ /dev/null
@@ -1,46 +0,0 @@
-(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))))