Accueil |  Humour | Macintosh | Print66 | Sélection | Éditeur 

Marque-pages Internet sous MacOS X

Lorsque vous utilisez intensivement l'internet, vous vous retrouvez facilement dans une des situations suivantes :

L'idée que j'ai reprise d'un article de Studio Log, est de créer un script qui va récupérer les informations pertinentes de la fenêtre du navigateur, et demander au Finder de créer un fichier adresse web (Internet Location file) dans un dossier de mon choix.

Ces fichiers peuvent être ouverts d'un double-clic à partir du Finder pour lancer votre navigateur par défaut.

Le script permet aussi d'enregistrer un commentaire visible notamment avec la commande "Lire les informations" du Finder. Une bonne méthode est de créer un dossier où vous allez déposer tous vos fichiers d'adresse et de choisir une présentation par liste. En utilisant la commande "Afficher les options de présentation" du Finder, ne faites apparaître que les informations Nom, Date de création et Commentaire. Les autres informations ne sont pas réellement intéressantes, mais l'information Commentaire est essentielle.

Enregistrez ce script de manière à pouvoir l'exécuter à partir du menu Script (enregistrement sous forme de script compilé dans ~:Bibliothèque:Scripts).

Au premier lancement, il vous demandera d'indiquer un dossier pour stocker les fichiers d'adresse. Ce choix est également accessible en choisissant l'option "Réglage dossier..." dans le dialogue de sélection du navigateur qui apparaît ensuite.

Le dialogue suivant vous propose le nom sous lequel le fichier sera enregistré. Ce nom est plus parlant qu'une URL et peut être édité à votre convenance.

Le dialogue suivant vous permet de saisir le commentaire au fichier qui apparaîtra si vous adoptez la présentation suggérée ci-dessus. Cela permet de trier vos signets dans la vue par liste du Finder, et de vous souvenir pourquoi vous avez sauvegardé cette adresse.

Modifications apportées au script original :

Une archive complète est disponible au téléchargement ici, mais le source Applescript suit :

(* voir http://blog.barijaona.com/stories/2002/10/06/marquepagesInternetSousMac.html *)
(* original idea : StudioLog http://www.blankreb.com/studioarticles.php?ID=16 *)
(* Modified by Barijaona Ramaholimihaso *)
(* v1.1 14 jan 2003 : supports Safari, displays the URL in dialog box *)
(* v1.0 initial version *)
property URLFolder : ""
property dialog_timeout : 30
global theT
global TheU
global newFile
if URLFolder is "" then setFolder() end if
doBrowser()
on setFolder() set URLFolder to choose folder with prompt "Choisissez un dossier pour classer vos adresses Internet :" end setFolder
on doBrowser() choose from list {"Chimera", "Explorer", "Mozilla", "Safari", "Réglage dossier..."} with prompt "Choisissez votre navigateur :" default items {"Safari"} set bRet to result as text if bRet is "Réglage dossier..." then set URLFolder to "" setFolder() doBrowser() else if bRet is "Explorer" then tell application "Internet Explorer" Activate set theT to do script "TheT=document.title;" set TheU to do script "TheU=document.URL;" end tell else if bRet is "Mozilla" then tell application "Mozilla" activate set theT to name of window 1 as string (* spécifique Mozilla : supprimer le suffixe ' - Mozilla' dans le nom de fenêtre *) set theT to (characters 1 through ((count of characters of theT) - 10) of theT) as string set TheU to URL of window 1 end tell else if bRet is "Chimera" then tell application "Navigator" activate set theT to name of window 1 as string end tell tell application "Youpi Key" run shortcut "Copier l'URL" of shortcutset "Navigator" set TheU to the clipboard as text end tell else if bRet is "Safari" then tell application "Safari" activate set theT to name of window 1 as string set TheU to URL of document 1 end tell end if set theCap to ((("Sauver l'adresse de la fenêtre :" & return as text) & "'" & theT & "'" & return as text) & "<" & TheU & ">" & return as text) & "sous le nom de fichier :" display dialog theCap default answer theT with icon note giving up after dialog_timeout set the new_name to text returned of the result set theCap to "Ajoutez un commentaire au fichier URL :" display dialog theCap default answer theT with icon note giving up after dialog_timeout set the new_comment to text returned of the result my makeFile(new_name, new_comment) end doBrowser
on makeFile(new_name, new_comment) set theURL to TheU tell application "Finder" make new internet location file to theURL at URLFolder end tell set theULength to count of characters of TheU set thePU to characters 8 through theULength of TheU as string set newFile to (URLFolder & thePU & ".webloc") as string -- set fileInfo to info for alias newFile finishFile(new_name, new_comment) say "OK" end makeFile
on finishFile(new_name, new_comment) tell application "Finder" set comment of file newFile to new_comment try set name of file newFile to new_name on error error_message number error_number if (error_number is -37 or error_number is -59) then set error_message to "Ce nom contient des caractères incorrects, comme (:)." else --the suggested name is too long set error_message to error_message end if beep display dialog error_message default answer new_name set new_name to text returned of the result my finishFile(new_name, new_comment) end try end tell end finishFile
© 2003 Barijaona Ramaholimihaso
Dernière mise à jour : 14/01/03; 9:47:38