diff --git a/snippets/avas-laptop-prompt.rls b/snippets/avas-laptop-prompt.rls index 56413d3..048fca3 100644 --- a/snippets/avas-laptop-prompt.rls +++ b/snippets/avas-laptop-prompt.rls @@ -57,10 +57,26 @@ () (display-batteries)) +(def _fancy-cwd 'prints (up to) last three segments of current path' + () + (let ((cdir (load-to-string pwd)) + (dir-segs (split cdir '/')) + (dir-iter (dq dir-segs)) + (i 0)) + (if (lte? (len dir-segs) 4) + cdir + (let ((final "")) + (while (lt? i 3) + (set (q final) (concat "/" (car dir-iter) final)) + (set (q dir-iter) (dq (cdr dir-iter))) + (inc i)) + (concat "..." final))))) + (def CFG_RELISH_L_PROMPT 'display user and dir (git info in future)' () (concat "[" USER "] " - (load-to-string basename (load-to-string pwd)) " " + (_fancy-cwd) " " ;; add more prompt elements here + "\n" ;; newline before delimiter ))