=?utf-8?q?Tout=20plein=20de=20modifs,=20du=20m=C3=A9nage,=20des=20trucs=20en=20plus,

=20plus=20beaux,=20moins=20moches,=20plus=20mieux=20et=20tout=20et=20tout=208-)?=
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------1.5.4.1"

This is a multi-part message in MIME format.
--------------1.5.4.1
Content-Type: text/plain; charset=UTF-8; format=fixed
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://hugues@maison/opt/svn/private/hugues@382 a0e5b806-a6f9-0310-978d-cbce73f8a913

1 files changed, 60 insertions, 0 deletions

diff --git a/01_Functions.zsh b/01_Functions.zsh
new file mode 100644
index 0000000..022a87d
--- /dev/null
+++ b/01_Functions.zsh
@@ -0,0 +1,60 @@
+##
+## Part of configuration files for Zsh 4
+## by Hugues Hiegel <hugues@hiegel.fr>
+## 
+## NO WARRANTY PROVIDED, USE AT YOUR OWN RISKS
+##
+## You are encouraged to use, modify, and redistribute
+## these files with or without this notice.
+## 
+
+term_title()
+{
+  [[ -t 1 ]] &&
+    case $TERM in
+      sun-cmd)
+        print -Pn "\e]l%n@%m %~$1\e\\" ;;
+      *term*|rxvt*)
+	    print -Pn "\e]0;%n@%m (%l) %~$1\a" ;;
+    esac
+}
+
+_chpwd()
+{
+    term_title
+}
+
+chpwd()
+{
+    _chpwd
+    which todo > /dev/null 2>&1 && todo
+}
+
+precmd ()
+{
+##   [[ -t 1 ]] &&
+#    print -nP "%(?,,%{%}Foirage n°%{%}%?\n)%{%}"
+    _chpwd
+}
+
+preexec ()
+{
+    term_title " ··· $1"
+}
+
+cmd_exists ()
+{
+	which $1 2>/dev/null >&2
+}
+
+normal_user ()
+{
+	eval `grep -v '^[$#]' /etc/login.defs | tr -d '[:blank:]' | sed 's/^[A-Z_]\+/&=/'`
+	test \( $UID -ge $UID_MIN \) -a \( $UID -le $UID_MAX \)
+}
+
+privileged_user ()
+{
+	! normal_user
+}
+