cl-pest/pest.lisp

;; PROMPT_COMMAND='export PS1="$(pest)"'

(defun config-parse (&optional path)
  (let ((config-path (if path path (concatenate 'string (uiop:getenv "HOME") "/.config/pest/config.toml"))))
    (if (probe-file config-path)
	(with-open-file (fh config-path :direction :input)
			   (let ((file-content (with-output-to-string (out)
						 (loop for line = (read-line fh nil)
						       while line
						       do (format out "~a~%" line)))))
			     (clop:parse file-content))))))
			   
(defvar *config* NIL)

;; Colors
(defvar *fg* NIL) 
(defvar *bg* NIL) 
(defvar *style* NIL)

;; Battery
(defvar *display-battery* NIL)

;; Git
(defvar *display-git* NIL)
(defvar *git-string* NIL)

(defun display-git-info ()
  (if (probe-file (pathname (concatenate 'string (uiop:getenv "PWD") "/.git")))
      ;; (legit:git-rev-parse "HEAD" :short T)))
      (concatenate 'string (legit:current-branch ".") "|" (legit:current-commit "." :short T))))

(defun reload-config ()
  (setf *config* (config-parse "~/Repos/cl-pest/config.toml"))
  (setf *fg* (if *config*
		 (destructuring-bind (r g b)
		     (subseq (assoc "fg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
		   (chlorophyll:create-rgb-color r g b))
		 (chlorophyll:create-rgb-color 255 255 255)))
  (setf *bg* (if *config*
		 (destructuring-bind (r g b)
		     (subseq (assoc "bg" (cdr (assoc "colors" *config* :test #'equal)) :test #'equal) (- 4 3))
		   (chlorophyll:create-rgb-color r g b))
		 (chlorophyll:create-rgb-color 0 0 0)))
  (setf *style* (chlorophyll:new-style
		 :bold NIL
		 :foreground *fg*
		 :background *bg*))
  (setf *git-string* (if (cdr (assoc "display_head" (cdr (assoc "git" *config* :test #'equal)) :test #'equal))
			 (setf *git-string* (display-git-info)))))

;; Regex Scanners
;; TODO $HOME rendered as /home/user as opposed to ~
(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 ()
  (reload-config)
  (format T "~a ~a λ " (chlorophyll:stylize *style* (pwd)) *git-string*))