added sbcli
This commit is contained in:
5
Makefile
5
Makefile
@@ -1,4 +1,4 @@
|
||||
all: bash cardinal ghc git input python scripts tmux valgrind vim zepto zsh
|
||||
all: bash cardinal ghc git input python sbcli scripts tmux valgrind vim zepto zsh
|
||||
|
||||
bash:
|
||||
cp bash_profile ~/.bash_profile
|
||||
@@ -23,6 +23,9 @@ python:
|
||||
scripts:
|
||||
cp -r .scripts ~/
|
||||
|
||||
sbcli:
|
||||
cp -r sbclirc ~/
|
||||
|
||||
tmux:
|
||||
cp dev-tmux ~/dev-tmux
|
||||
cp tmux.conf ~/.tmux.conf
|
||||
|
31
sbclirc
Normal file
31
sbclirc
Normal file
@@ -0,0 +1,31 @@
|
||||
(defvar *colors* (make-hash-table))
|
||||
|
||||
(mapcar (lambda (pair) (setf (gethash (car pair) *colors*) (cadr pair)))
|
||||
'((:black 30)
|
||||
(:red 31)
|
||||
(:green 32)
|
||||
(:yellow 33)
|
||||
(:blue 34)
|
||||
(:magenta 35)
|
||||
(:cyan 36)
|
||||
(:white 37)
|
||||
(:reset 0)
|
||||
(:none 0)
|
||||
(:bold 1)
|
||||
(:italic 3)
|
||||
(:underline 4)
|
||||
(:blink-slow 5)
|
||||
(:blink-rapid 6)
|
||||
(:bg-black 40)
|
||||
(:bg-red 41)
|
||||
(:bg-green 42)
|
||||
(:bg-yellow 43)
|
||||
(:bg-blue 44)
|
||||
(:bg-magenta 45)
|
||||
(:bg-cyan 46)
|
||||
(:bg-white 47)))
|
||||
|
||||
(defun colorize (color var)
|
||||
(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 *ret* (colorize :bold (colorize :red *ret*)))
|
Reference in New Issue
Block a user