diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-06-01 21:56:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-06-01 21:56:58 +0200 |
| commit | b0d552ffe3e336606de907897181a0f0718b3149 (patch) | |
| tree | f08d02b8bdead2106f1ca2377cd422f3694e3aa2 /module/vulgar.scm | |
| parent | Rename {terminal => vulgar}. (diff) | |
| download | calp-b0d552ffe3e336606de907897181a0f0718b3149.tar.gz calp-b0d552ffe3e336606de907897181a0f0718b3149.tar.xz | |
Reword terminal output to better modularization.
Diffstat (limited to '')
| -rw-r--r-- | module/vulgar.scm (renamed from module/vulgar/escape.scm) | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/vulgar/escape.scm b/module/vulgar.scm index 513e66d2..80bff5f6 100644 --- a/module/vulgar/escape.scm +++ b/module/vulgar.scm @@ -1,6 +1,10 @@ -;;; Module for terminal (ANSI) escape codes. +;;; Commentary: -(define-module (vulgar escape) +;; I don't curse, I'm just vulgar. + +;;; Code: + +(define-module (vulgar) #:use-module (srfi srfi-60) #:use-module (vulgar termios) #:use-module (util) @@ -11,8 +15,6 @@ (display "\x1b[J") ; Clear everything after cursor ) -;;; I don't curse, I'm just vulgar. - (define-syntax with-vulgar (syntax-rules () ((_ thunk) |