- Shell - lists.asyd.net

[HOWTO] Faire un widget ZLE qui modifie l'argument sous le curseur
by emotn 27 Aug '08

27 Aug '08

Faire un widget ZLE qui modifie l'argument sous le curseur ========================================================== Cet exemple remplace l'argument sous le curseur (ou le précédent si le curseur est entre 2 arguments) (appelons-le "argument courant") par son chemin parent (son "dirname"). Première méthode (plus simple) ------------------------------ ................... dirname-previous-word () { autoload -U modify-current-argument modify-current-argument '${ARG:h}' } zle -N dirname-previous-word bindkey '^[q' dirname-previous-word ................... Nous définissons ici la fonction "dirname-previous-word" qui sera le widget, puis nous le déclarons comme widget ZLE avec "zle -N dirname-previous-word". Enfin, nous assignons ce widget au raccourci Alt-q. Dans le code du widget, nous utilisons la fonction "modify-current-argument" qui est très pratique, car le remplacement qu'elle fait est pénible autrement. La fonction "modify-current-argument" prend en paramètre une expression qui va être évaluée (passée dans un "eval") (il faudra donc certainement l'échapper), et remplace l'argument courant par le résultat de cette évaluation. L'expression peut utiliser l'ancienne valeur de l'argument courant, qui se trouve dans la variable "$ARG". Cependant, il faut échapper la référence à $ARG car cette variable n'est pas définie dans notre fonction mais dans la fonction "modify-current-argument" (là où elle sera évaluée). Dans ce cas précis, nous remplaçons l'argument courant ($ARG) par son chemin parent (${ARG:h}). Méthode un peu plus générique ----------------------------- Si nous voulons plus de liberté pour modifier l'argument courant, c'est à dire que la nouvelle valeur de l'argument ne peut pas "rentrer" dans une simple expression, nous pouvons procéder en 3 étapes : récupérer l'argument courant (grâce à un simple appel d'une autre fonction qui va nous faciliter la tâche), calculer la nouvelle valeur (on peut mettre le code qu'on veut), puis faire le remplacement (toujours avec la fonction modify-current-argument). ................... dirname-previous-word () { autoload -U split-shell-arguments autoload -U modify-current-argument local res split-shell-arguments ## pour se positionner sur l'argument précédent si on est entre 2 arguments ## CopierColler de /usr/share/zsh/functions/Zle/modify-current-argument (licence BSD) # Get the index of the word we want. if (( REPLY & 1 )); then # Odd position; need previous word. (( REPLY-- )) # Pretend position was just after the end of it. (( REPLY2 = ${#reply[REPLY]} + 1 )) fi ## Fin du CopierColler res=${reply[$REPLY]} res=${res:h} modify-current-argument '$res' } zle -N dirname-previous-word bindkey '^[q' dirname-previous-word ................... La fonction "split-shell-arguments" ne prend aucun paramètre. Par contre, elle écrit les variables reply, REPLY et REPLY2. La valeur de l'argument courant est accessible dans "${reply[$REPLY]}", nous pouvons faire tous les traitements que l'on veut dessus, aussi compliqués soient-ils (appels de commandes, boucles, etc.). Enfin, nous appelons "modify-current-argument" en passant en paramètre une référence à la variable qui contient le nouvel argument à remplacer. **Attention**, le passage par une variable, de plus échappée, est très important : si la nouvelle valeur de l'argument contenait ne serait-ce qu'un '$', ou même un guillemet, et que vous n'aviez pas procédé comme décrit (mis dans une variable et échappé), vous iriez au devant de sérieux ennuis.

1 0

RMLL
by Bruno Bonfils 26 Jun '08

26 Jun '08

Bonjour les gens, un petit message pour prevenir qu'il y a aura, non pas une, non pas deux, mais 3 (et oui c'est les soldes :) conférences sur le shell aux rmll, dont 2 spécifiques a zsh. Elles auront lieu le mardi après midi et seront animés par Marc Chantreux et moi meme ! en espérant vous retrouvez aux rmll a+ -- http://asyd.net/home/ - Home Page http://guses.org/home/ - French Speaking (Open)Solaris User Group

1 0

conserver mon tabeau
by Marc Chantreux 21 Apr '08

21 Apr '08

salut a tous, soit la fonction suivante: cpan_to_deb_name () { typeset -a v v=( ${(L)@//::/-} ) print -l lib-$^v-perl } > cpan_to_deb_name Algorithm::CheckDigits::M43_001 lib-algorithm-checkdigits-m43_001-perl v n'existe que parceque je n'ai pas ete foutu d'ecrire qqchose du genre cpan_to_deb_name () { print -l lib-$^{(L)@//::/-}-perl } mais moi je suis nul et je suis sur que l'un d'entre vous saura ou j'ai fauté dans mes diffétentes tentatives. bien cordialement, ps: désolé pour le cross-posting mais je compte proceder ainsi tant que les deux responsables de listes n'auront pas trouvé de solution. -- Marc Chantreux BibLibre, expert en logiciels libres pour l'info-doc http://biblibre.com

2 2

Configuration zsh
by Bruno Bonfils 07 Apr '08

07 Apr '08

Bonsoir à tous, suite a quelques reflexions/dicussions avec certaines personnes qui se reconnaitront, je souhaiterais faire une configuration zsh generique/universelle d'apres nos configurations a tous. Dans ce but, je vais mettre a dispo un repository git (enfin c'est ce qui est prevu) pour permettre a tous de proposer des patchs facilement, et permettre aux admins d'accepter/refuser/modifier les patchs modifiés. Le but est de fournir une configuration complete, mais adaptee a chacun. J'ai donc quelques questions : 0/ qu'en pensez vous ? 1/ qui est motive a participe a cette config ? (vincent et marc, je comptes un peu sur vous *entre autres* ;p) 2/ qui est interesse par etre "admin" (i.e. accepter/refuser les patchs) merci de votre attention ! -- http://asyd.net/home/ - Home Page http://guses.org/home/ - French Speaking (Open)Solaris User Group

2 1

[ZshWiki] page changed: test
by noreply＠zshwiki.org 07 Apr '08

07 Apr '08

A page in your DokuWiki was added or changed. Here are the details: Date : 2008/04/07 20:45 Browser : @BROWSER@ IP-Address : @IPADDRESS@ Hostname : @HOSTNAME@ Old Revision: http://zshwiki.org/home/test?rev=1207348157 New Revision: http://zshwiki.org/home/test Edit Summary: removed User : splitbrain @@ -1,3 +1 @@ - test - -- This mail was generated by DokuWiki at http://zshwiki.org/home/

1 0

[ZshWiki] page changed: config:prompt
by noreply＠zshwiki.org 05 Apr '08

05 Apr '08

A page in your DokuWiki was added or changed. Here are the details: Date : 2008/04/05 20:23 Browser : @BROWSER@ IP-Address : @IPADDRESS@ Hostname : @HOSTNAME@ Old Revision: http://zshwiki.org/home/config/prompt?rev=1207346622 New Revision: http://zshwiki.org/home/config/prompt Edit Summary: Fixed some bugs in the 'soor' prompt User : creidiki @@ -56,15 +56,19 @@ % prompt bart </code> Simple enough, isn't it? + ==== Prompt Examples ==== Some examples of what you can do with zsh prompts. Using styles to make flexible prompts: <code> + # -*- mode: sh; -*- + # soor prompt theme + prompt_soor_help () { cat <<'EOF' This prompt is configurable via styles: @@ -101,9 +105,9 @@ precmd () { local p_full - local p_tchars p_temp p_done p_last + local p_tchars p_temp p_done p_last i local maxlength ratio local prompt_color local user_color local root_color @@ -140,9 +144,9 @@ case "${path_style}" in ratio) zstyle -s :prompt:soor ratio ratio ratio=${ratio:-6} - maxlength=$(($COLUMNS/$ratio)) + maxlength=$(( ${COLUMNS} / ${ratio} )) ;; fixed) zstyle -s :prompt:soor length maxlength maxlength=${maxlength:-20} @@ -154,39 +158,31 @@ esac case "${path_style}" in full) - p_done="%~" + path_prompt=$(print -P %~) ;; subdir) - p_done=$(print -P "%(4~|..|)%${maxlength}~") + path_prompt=$(print -P "%($(( ${maxlength} + 1 ))~|..|)%${maxlength}~") ;; ratio|fixed) - p_full=$(print -P %~) - if [[ ${#p_full} -le ${maxlength} ]]; then - p_done="${p_full}" - else - # I don't actually remember how this little snippet works. - # But it /does/, somehow, so I'm not touching it. + path_prompt=$(print -P %~) + if (( ${#path_prompt} > ${maxlength} )); then p_tchars='../' + p_done=${path_prompt} for (( i=1 ; ; ++i )); do - p_temp="${p_tchars}$(print -P %${i}~)" - if [[ ${#p_temp} -gt ${maxlength} ]]; then - if [[ -n ${p_last} ]]; then - p_done="${p_last}" - else - p_done="${p_temp}" - fi + p_temp=$(print -P %${i}~) + if (( ( ${#p_temp} + ${#p_tchars} ) < ${maxlength} )); then + p_done=${p_temp} + else break fi - p_last="${p_temp}" done + path_prompt=${p_tchars}${p_done} fi ;; esac - - path_prompt="${p_done}" PS1="$base_prompt$path_prompt %# $post_prompt" PS2="$base_prompt$path_prompt %_> $post_prompt" PS3="$base_prompt$path_prompt ?# $post_prompt" } -- This mail was generated by DokuWiki at http://zshwiki.org/home/

1 0

[ZshWiki] page changed: test
by noreply＠zshwiki.org 04 Apr '08

04 Apr '08

A page in your DokuWiki was added or changed. Here are the details: Date : 2008/04/05 00:29 Browser : @BROWSER@ IP-Address : @IPADDRESS@ Hostname : @HOSTNAME@ Old Revision: http://zshwiki.org/home/test?rev=1207235781 New Revision: http://zshwiki.org/home/test Edit Summary: User : asyd @@ -1,3 +1,3 @@ test - ''for i in *; echo $i'' + -- This mail was generated by DokuWiki at http://zshwiki.org/home/

1 0

[ZshWiki] page changed: config:prompt
by noreply＠zshwiki.org 04 Apr '08

04 Apr '08

A page in your DokuWiki was added or changed. Here are the details: Date : 2008/04/05 00:03 Browser : Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9b5) Gecko/2008040407 (Gentoo) Firefox/3.0b5 IP-Address : 87.0.139.111 Hostname : host111-139-dynamic.0-87-r.retail.telecomitalia.it Old Revision: http://zshwiki.org/home/config/prompt?rev=1191491386 New Revision: http://zshwiki.org/home/config/prompt Edit Summary: Add an example prompt theme. User : creidiki @@ -57,4 +57,142 @@ </code> Simple enough, isn't it? + ==== Prompt Examples ==== + + Some examples of what you can do with zsh prompts. + + Using styles to make flexible prompts: + <code> + prompt_soor_help () { + cat <<'EOF' + This prompt is configurable via styles: + + Context: :prompt:soor + + Colors (in zsh/terminfo value): + user-color - the color for user@host. defaults to 'green' + root-color - the color for the hostname for root. defaults to 'red' + prompt-color - the color for everything else. defaults to 'blue' + + Path type: + path - possible values: + ratio - use COLUMNS/ratio to clip the path. Default. + fixed - use a fixed maximum lenght. + subdir - clip by number of subdirectories. + full - show the full path + + Path lenght styles: + ratio - the ratio for the 'ratio' path style, funnily enough. + default to 6. + length - the maximin lenght for the 'fixed' path style. + defaults to 20 + subdir - the number of subdirs to show for the 'subdir' path style. + defaults to 3. + + You can set styles in the current terminal to test things out, values + will be updated. + + EOF + } + + prompt_soor_setup () { + setopt noxtrace localoptions + + precmd () { + + local p_full + local p_tchars p_temp p_done p_last + local maxlength ratio + local prompt_color + local user_color + local root_color + local path_style + + zstyle -s :prompt:soor prompt-color prompt_color + prompt_color=${prompt_color:-'blue'} + zstyle -s :prompt:soor user-color user_color + user_color=${user_color:-'green'} + zstyle -s :prompt:soor root-color root_color + root_color=${root_color:-'red'} + + [[ -z $(functions zsh/terminfo) ]] && autoload -Uz zsh/terminfo + + if [[ "$terminfo[colors]" -ge 8 ]]; then + if [[ "$EUID" = "0" ]] || [[ "$USER" = 'root' ]] + then + base_prompt="%{$fg_bold[$root_color]%}%m%{$fg_bold[$prompt_color]%} " + else + base_prompt="%{$fg_bold[$user_color]%}%n@%m%{$fg_bold[$prompt_color]%} " + fi + post_prompt="%{$reset_color%}" + else + base_prompt="%n@%m " + post_prompt="" + fi + + if zstyle -t :prompt:soor path full ratio fixed subdir; then + zstyle -s :prompt:soor path path_style + else + path_style='ratio' + fi + + case "${path_style}" in + ratio) + zstyle -s :prompt:soor ratio ratio + ratio=${ratio:-6} + maxlength=$(($COLUMNS/$ratio)) + ;; + fixed) + zstyle -s :prompt:soor length maxlength + maxlength=${maxlength:-20} + ;; + subdir) + zstyle -s :prompt:soor subdir maxlength + maxlength=${maxlength:-3} + ;; + esac + + case "${path_style}" in + full) + p_done="%~" + ;; + subdir) + p_done=$(print -P "%(4~|..|)%${maxlength}~") + ;; + ratio|fixed) + p_full=$(print -P %~) + if [[ ${#p_full} -le ${maxlength} ]]; then + p_done="${p_full}" + else + # I don't actually remember how this little snippet works. + # But it /does/, somehow, so I'm not touching it. + p_tchars='../' + for (( i=1 ; ; ++i )); do + p_temp="${p_tchars}$(print -P %${i}~)" + if [[ ${#p_temp} -gt ${maxlength} ]]; then + if [[ -n ${p_last} ]]; then + p_done="${p_last}" + else + p_done="${p_temp}" + fi + break + fi + p_last="${p_temp}" + done + fi + ;; + esac + + + path_prompt="${p_done}" + PS1="$base_prompt$path_prompt %# $post_prompt" + PS2="$base_prompt$path_prompt %_> $post_prompt" + PS3="$base_prompt$path_prompt ?# $post_prompt" + } + + preexec () { } + } + + prompt_soor_setup + </code> -- This mail was generated by DokuWiki at http://zshwiki.org/home/

1 0

[ZshWiki] page added: tutorials
by noreply＠zshwiki.org 04 Apr '08

04 Apr '08

A page in your DokuWiki was added or changed. Here are the details: Date : 2008/04/04 02:17 Browser : Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_2; fr-fr) AppleWebKit/525.13 (KHTML, like Gecko) Version/3.1 Safari/525.13 IP-Address : 82.245.119.238 Hostname : lon92-7-82-245-119-238.fbx.proxad.net Old Revision: none New Revision: http://zshwiki.org/home/tutorials Edit Summary: created User : asyd ======ZSH Tutorials====== ====Talks==== Talk - in french - is available here : * [[http://asyd.net/talks/intro-zsh.avi|Video]] * [[http://asyd.net/talks/intro-zsh.pdf|Slides]] -- This mail was generated by DokuWiki at http://zshwiki.org/home/

1 0

Channel ZSH francophone
by Bruno Bonfils 03 Apr '08

03 Apr '08

Bonjour, au cas ou, il existe maintenant irc://#zsh-fr@irc.freenode.net/ en espérant attendre une certaine masse critique ;p a+ -- http://asyd.net/home/ - Home Page http://guses.org/home/ - French Speaking (Open)Solaris User Group

1 1