hellerve/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sbcli: prettier formatting

Browse Source
This commit is contained in:
Veit Heller
2018-10-04 15:29:48 +02:00
parent 4d8cd3292a
commit 06c9c86579
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
sbclirc
View File

@@ -27,5 +27,6 @@
(defun colorize (color var) (defun colorize (color var)
(format nil "~a[~dm~a~a[0m" (code-char 27) (gethash color *colors*) var (code-char 27))) (format nil "~a[~dm~a~a[0m" (code-char 27) (gethash color *colors*) var (code-char 27)))
(setf *prompt* (colorize :bold (colorize :blue *prompt*))) (setf *prompt* (colorize :bold (colorize :blue *prompt*)))
(setf *ret* (colorize :bold (colorize :red *ret*))) (setf *ret* (colorize :bold (colorize :red *ret*)))