Init Commit

.gitignore

@@ -0,0 +1 @@
+pest

build.lisp

@@ -0,0 +1,7 @@
+(load "./pest.asd")
+(asdf:load-system 'pest)
+(sb-ext:save-lisp-and-die
+ "pest"
+ :compression T
+ :toplevel 'main
+ :executable T)

ecl-build.lisp

@@ -0,0 +1,7 @@
+(load "./pest.asd")
+(asdf:load-system 'pest)
+(sb-ext:save-lisp-and-die
+ "pest"
+ :compression T
+ :toplevel 'main
+ :executable T)

pest.asd

@@ -0,0 +1,6 @@
+(asdf:defsystem pest
+  :version "0.0.1"
+  :author "Simon Watson <swatson@casanacare.com>"
+  :license "GPL"
+  :depends-on ("uiop" "cl-ppcre")
+  :components ((:file "pest")))

pest.lisp

@@ -0,0 +1,11 @@
+
+;; PROMPT_COMMAND='export PS1="$(pest)"'
+
+;; Regex Scanners
+(defvar *home-scan* (ppcre:create-scanner (concatenate 'string "^" (format NIL "~a" (user-homedir-pathname)))))
+
+(defun pwd ()
+  (ppcre:regex-replace *home-scan* (uiop:getenv "PWD") "~/"))
+
+(defun main ()
+  (format T "~a ~%λ " (pwd)))