Ubuntu-fr

Tay

[Info] Envoyer avec Evolution des photos réduites

Pour la petite histoire j'ai migré ma soeur sous Ubuntu dernièrement.
Voici un de ses commentaires et donc le problème:

Pour envoyer les photos par mail, je m’était bien habituée à xp où il suffit de faire « envoyer les photos sélectionnées par mail » pour qu’on me demande automatiquement « voulez-vous les réduire ». Là, j’ai dû aller dans gimp (ou l’autre logiciel plutôt) pour les réduire, les enregistrer sous un nouveau nom, et enfin les sélectionner pour les envoyer… 4 fois plus long, et en plus, je me retrouve avec des photos en double…

Je n'ai rien trouvé sur le net permettant de faire cela j'ai donc écris le petit script Nautilus que voici (inspiré d'une version pour Thunderbird qui n'est pas de moi):

#!/bin/sh

# On choppe répertoire courant. 
# Cela échoue avec le Bureau (?) ou si les fichiers sont dans plusieurs répertoires

if [ "x$NAUTILUS_SCRIPT_CURRENT_URI" = "x" ]; then

  workdir=$(pwd)   #FIXME

else

  workdir=$(echo $NAUTILUS_SCRIPT_CURRENT_URI| sed 's/file:\/\///g')

fi
 
# Affiche la fenêtre Zenity - pour changer les tailles disponibles modifiez 75%, 600x600 etc...

res=$(zenity --list --title "$workdir" --height=200 --radiolist --column "" --column "Taille" TRUE 75% FALSE 50% FALSE 600x600 FALSE 400x400)

[ "x$res" == "x" ] && exit


# On redimensionnes les images

while [ $# -gt 0 ];

do

  f=$1

  file=$(echo $f | sed 's/"$NAUTILUS_SCRIPT_CURRENT_URI"//g')


# On place une copie redimensionnée de l'image dans /tmp

  convert $workdir/$file -scale $res /tmp/$file

# On prépare la liste de fichiers à attacher

  file=$(echo \&attach=file:///tmp/$file)

  if [ "x$attachments" = "x" ]; then

    attachments=$(echo $file)

  else

    attachments=$(echo $attachments$file)

  fi

  shift

done

# Lancement d'évolution avec les fichiers à attacher

evolution mailto:?subject=$attachments &

A copier dans ~/.gnome2/nautilus-scripts et à rendre executable
Pour le lancer: sélectionnez les photos, clic-droit -> Scripts -> envoyer-photo.sh

Bizarrement ça ne marches pas si les photos sont sur le bureau (je ne sais pas pourquoi);
si les photos sont dans plusieurs répertoires  seules les photos dans le répertoire où le script a été lancé sont prises en compte.

Voilà! Si vous avez une meilleure solution ou des idées d'améliorations je suis preneur!

Pour finir je ne résistes pas au plaisir d'une autre citation de ma frangine:

A part cela, je trouve l’ergonomie excellente (...)

Ca fait plaisir non?

Edit: ce n'est pas précisé ci dessus mais il faut installer le paquet imagemagick pour que le script fonctionne.

Dernière modification par Tay (Le 25/08/2006, à 21:46)

---

Association Kiwi: concert et evénement culturel sur Belfort

coffee

Re : [Info] Envoyer avec Evolution des photos réduites

On se fait un petit coup de recursif pour aller chercher les photos dans les repertoires?

---

Nom d'un tupperware habillé en streetware mangeant de la confiture de pouère et qui se dite où est-ce que je suis ouère !
Tiens mon blog
Les blagues sous forme de fausses aides sont susceptible de ban (ex: rm)

laurent

Re : [Info] Envoyer avec Evolution des photos réduites

je viens de trouver le paquet

nautilus-sendto

qui m'a l'air de faire ça aussi

provide integration between nautilus, evolution, and gaim
Features:
.
  * Nautilus context menu component ("Send To...").
* A dialog for insert the email acount or IM account which you want to send
   the file/files.
    o Contact with evolution-data-server and get the email accounts .
    o Contact with gaim (nautilus gaim plugin) and get the IM acccounts
    o You can send files packaged in varios formats
* Plugin Support. Now evolution and gaim support are nautilus-sendto-plugins.

combiné avec le script "resize" dispo sur le forum et sur le site des scripts de nautilus, c'est assez top.

Dernière modification par laurent (Le 23/07/2005, à 15:05)

---

Laurent, petit belge explorant la banquise

effraie

Re : [Info] Envoyer avec Evolution des photos réduites

et l'original avec thunderbird? oukilé?

---

400iso.net
[Trops de chefs, pas assez d'indiens]

Tay

Re : [Info] Envoyer avec Evolution des photos réduites

Je connais Nautilus-send-to par contre pas le script resize.
J'ai jeté un oeil mais ça ne réponds pas au cahier des charges de ma frangine: 2 clicks et duplication de l'image.

Je regarderai de plus près le code quand j'aurais le temps: je peux sûrement y emprunter de bonnes idées!

Dans l'idéal il faudrait intégrer la fonctionnalité dans nautilus-send-to j'y ai pensé mais je ne suis vraiment pas sûr d'en être capable (ne comptez pas sur moi donc)!

Pour le script Thunderbird le voici:

#!/bin/sh

# On choppe le répertoire courant... depuis Nautilus, aucun problème

# sauf si vous êtes assez tordus pour faire des sélections sur plusieurs

# répertoires.

# Par contre si vous utilisez ce script dans un shell il prend le

# répertoire courant, donc ne vous amusez pas avec des invocations

# exotiques, ou réparez ça d'abord..

if [ "x$NAUTILUS_SCRIPT_CURRENT_URI" = "x" ]; then

  workdir=$(pwd)   #FIXME

else

  workdir=$(echo $NAUTILUS_SCRIPT_CURRENT_URI| sed 's/file:\/\///g')

fi

 

res=$(zenity --list --title "$workdir" --height=200 --radiolist --column "" --column "Taille" TRUE 400x400 FALSE 300x300 FALSE 200x200 FALSE 100x100)



[ "x$res" == "x" ] && exit



# On fait un répertoire pour les images redimensionnées

# Au final, on peut aussi les coller dans /tmp

mkdir -p $workdir/$res



# On bosse...

while [ $# -gt 0 ];

do

  f=$1

  file=$(echo $f | sed 's/"$NAUTILUS_SCRIPT_CURRENT_URI"//g')

  # On place une copie redimensionnée de l'image dans le répertoire

  convert $workdir/$file -scale $res $workdir/$res/$file

  # On prépare la liste de fichiers à attacher

  file=$(echo file://$workdir/$res/$file)

  if [ "x$attachments" = "x" ]; then

    attachments=$(echo $file)

  else

    attachments=$(echo $attachments, $file)

  fi

  shift

done

# On rajoute des quotes autour des arguments pour limiter certaines

# catastrophes...

attachments=$(echo \'$attachments\')



# On invoque le mailer avec les fichiers à attacher en argument

# Le bête mozilla-thunderbird -remote est buggé, d'où le chemin complet vers

# xremote-client

/usr/lib/mozilla-thunderbird/mozilla-thunderbird-xremote-client "xfeDoCommand(composeMessage,attachment=$attachments)"



# Malgré tout, le truc se vautre en beauté si les noms de fichier sont bizarres, 

# comportent des espaces ou ce genre de chose.

# Le stripping est laissé en exercice au lecteur.

Note: je ne suis pas l'auteur de ce script (je ne sais plus malheureusement où je l'avais trouvé! merci à son auteur s'il se reconnaît) et ça ne marche que si Thunderbird est déjà lancé.

En espérant que cela vous rende service.

---

Association Kiwi: concert et evénement culturel sur Belfort