cl-pest/pest.lisp

;; 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)))