From 61076597d27e2984e234aef37ed0bb1c14d3ac7c Mon Sep 17 00:00:00 2001 From: Ava Hahn Date: Wed, 19 Apr 2023 21:05:03 -0700 Subject: [PATCH] better laptop prompt! --- snippets/avas-laptop-prompt.rls | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) 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 ))