Added example rc file

2011-06-22 17:59:03 -04:00
parent 4f5da89ea7
commit a262cc5f41
1 changed files with 15 additions and 0 deletions
--- a/.hintz-shellrc
+++ b/.hintz-shellrc
@@ -0,0 +1,15 @@
+(require-extension ansi-escape-sequences srfi-19)
+
+(repl-prompt
+ (lambda ()
+   (let ((is-root? (lambda (user) (string=? user "root")))
+         (user (car (user-information (current-user-id)))))
+     (string-append "("
+                    (set-text (if (is-root? user) '(fg-red) '(fg-green))
+                                  (string-append user "@" (or (get-host-name) "")))
+                    ")-("
+                    (current-directory)
+                    ")-("
+                    (date->string (current-date) "~T")
+                    ")"
+                    "\n$ "))))