BaroqueW

BaroqueW

and his sidekick nikkitaa

BaroqueW RSS Feed
 
 
 
 

Archive for August 17th, 2008

iPhoto et tags EXIF

Adapté d’un script par Andrew Turner, ce script Applescript permet d’ajouter des tags Exif (commentaires, titre, date, etc.) à vos photos à partir des méta-données que vous aurez saisies dans iPhoto. Pour ce faire, sélectionnez vos photos dans iPhoto (pas des albums mais bien des photos) et exécutez ce script. Voir plus bas pour quelques commentaires et le script à télécharger.

  1. – This applescript will set the exif keywords, name, and comments of all selected iPhoto
  2. –   images using the information current in iPhoto.
  3. – Author: Andrew Turner (http://highearthorbit.com)
  4. – Editor: BaroqueW (http://www.baroquew.net)
  5. property copyright : ""
  6. property URL : ""
  7. property exifToolOriginal : "_original"
  8.  
  9. – True retains copyright, False means Public Domain
  10. property Copyrighted : "False"
  11.  
  12. tell application "iPhoto"
  13.         activate
  14.         try
  15.                 copy (my selected_images()) to these_images
  16.                 if these_images is false or (the count of these_images) is 0 then ¬
  17.                         error "Please select a single image."
  18.  
  19.                 set counter to 0
  20.  
  21.                 repeat with i from 1 to the count of these_images
  22.                         set the keywordslist to ""
  23.                         set this_photo to item i of these_images
  24.                         tell this_photo
  25.                                 set the image_file to the image path
  26.                                 set the image_title to the title
  27.                                 set the image_filename to the image filename
  28.                                 set the image_comment to the comment
  29.                                 set the assigned_keywords to the name of keywords
  30.                                 set the image_date to the date
  31.                                 set date_step1 to do shell script "echo " & image_date & " | sed ’s/,//g’ | sed ’s/\\([A-Z][a-z][a-z]\\)\\([a-z]\\)*/\\1/g’ | sed ’s/[0-9][0-9]\\([0-9][0-9]\\)/\\1/’"
  32.                                 set date_step2 to do shell script "date -j -f ‘%a %b %d %y %I:%M:%S %p’ " & quoted form of date_step1 & " ‘+%y:%m:%d %H:%M:%S’  | sed ’s/^0/200/’ | sed ’s/^9/199/’"
  33.                         end tell
  34.                         repeat with j from 1 to the count of assigned_keywords
  35.                                 set the keywordslist to keywordslist & " -keywords+=" & item j of assigned_keywords
  36.                         end repeat
  37.                         set the command to "exiftool -m -PL -title=\"" & image_title & ¬
  38.                                 "\" " & keywordslist & ¬
  39.                                 " " & " -comment=’" & image_comment & ¬
  40.                                 "’ " & " -CreateDate=’" & date_step2 & ¬
  41.                                 "’ " & " -DateTimeOriginal=’" & date_step2 & ¬
  42.                                 "’ " & " -Copyright=’" & copyright & ¬
  43.                                 "’ " & " -CopyrightNotice=’" & copyright & ¬
  44.                                 "’ " & " -Rights=’" & copyright & ¬
  45.                                 "’ " & " -Marked=’" & Copyrighted & ¬
  46.                                 "’ " & "\"" & image_file & "\""
  47.                         set output to do shell script command
  48.                         do shell script "rm \"" & image_file & "\"" & exifToolOriginal
  49.                         set counter to counter + 1
  50.                 end repeat
  51.                 display dialog "Exif writing complete for " & (counter as string) & " files."
  52.         on error error_message number error_number
  53.                 if the error_number is not -128 then
  54.                         display dialog error_message & " Exif writing complete for " & (counter as string) & " files." buttons {"Cancel"} default button 1
  55.                 end if
  56.         end try
  57. end tell
  58.  
  59. on selected_images()
  60.         tell application "iPhoto"
  61.                 try
  62.                         – get selection
  63.                         set these_items to the selection
  64.                         – check for single album selected
  65.                         if the class of item 1 of these_items is album then error
  66.                         – return the list of selected photos
  67.                         return these_items
  68.                 on error
  69.                         return false
  70.                 end try
  71.         end tell
  72. end selected_images

J’ai amélioré le script pour le rendre compatible avec les inévitables accents et apostrophes de la langue française. J’ai aussi ajouté le support pour les dates (cf. les expressions régulières et ’sed’ plus haut, lignes 33 et 34) – à noter que mes locales sont en anglais sur MacOSX donc il y aura peut-être des adaptations à faire pour retomber sur vos pieds (notamment l’usage de AM/PM serait surprenant avec des locales françaises, voir ligne 34). Petite cerise sur le gâteau, le programme retourne le nombre de fichiers modifiés (ligne 53) et éventuellement le fichier qui a causé une erreur en cas de plantage (ligne 56).

Attention : par choix personnel, j’ai décidé d’ignorer les erreurs mineures (modificateur ‘-m’ dans la commande ‘exiftool’ à la ligne 39). Il est recommandé d’essayer le script sans ce modificateur et de le rajouter si vous rencontrez des problèmes et que vous voulez tenter votre chance.

Vous pouvez télécharger le script ici : Set Exif Data

Category: Articles en français, Tech >> Computer | Leave a comment

Avoir une voiture en Suède

Après quelques temps d’absence de nouveau, me voici de retour avec une petite animation sur la condition d’automobiliste en Suède. Vous avez le choix entre la vidéo pleine résolution dans le lien ci-après ou alors la version YouTube où j’ai bien peur qu’on ne puisse pas lire grand-chose à part aux basses résolutions ou en pleine écran… Vidéo en pleine résolution : Avoir une voiture en Suède

Category: Articles en français, Suède / Sweden | Leave a comment