Lorsque je trouve un site internet intéressant, il arrive parfois que je n’ai pas le temps de l’explorer en profondeur. Aussi je stocke temporairement son lien dans mon répertoire Téléchargements pour le consulter plus tard.
Lorsque la fenêtre du navigateur ne prend pas toute la place de l’écran, il suffit de faire un glisser/déposer de la barre d’adresse dans le répertoire idoine ou sur le Bureau. Mais sur mon portable de 13′’ la fenêtre s’étend à 100%. Il faut donc :
- cliquer sur le bouton plein écran de la fenêtre du navigateur pour en sortir (un clic) ;
- ouvrir un explorateur de fichiers puis ouvrir le dossier Téléchargements (deux clics) ;
- glisser/déposer l’adresse dans le répertoire en question (trois clics) ;
- re-cliquer sur le bouton de fenêtre plein écran du navigateur pour y revenir (un clic).
Sept clics au minimum ! Sans parler de quitter le Finder.
Chez les professionnels de l’informatique, on dit qu’un bon informaticien est un flemmard.
J’ai donc crée un script qui, en deux clics, automatise l’opération 😁
Exemple : je découvre le site breizhmetal.bzh qui recense les groupes et festivals dédiés à la musque metal dans la Bretagne à cinq. Je clic sur mon script (que j’ai mis dans le Dock), automatiquement il colle l’adresse sockée dans le presse-papier puisu’au préalablement copiée et je n’ai qu’à renseigner le nom que je veux donner à mon raccourci/alias/lien (mon fichier) ; et voilà !
tell application ”System Events”
tell application ”webloc” to activate
set myCLIP to the clipboard
try
set myTEXT to display dialog ”URL ?” default answer myCLIP
on error
set myTEXT to display dialog ”URL ?” default answer ”"
end try
set myTEXT to text returned of the result
–set myTEXT to ”{ URL = ” & quote & myTEXT & quote & ”; }”
set myTEXT to ”
<html>
<head>
<meta http-equiv=”refresh” content=”0; url=” & myTEXT & ”" />
</head>
<body>
</body>
</html>”
display dialog ”NOM ?” default answer ”"
set myNAME to text returned of the result
set myNAME to ”lnk ” & myNAME & ”.html”
set the myFILE to ((path to downloads folder) as text) & myNAME
end tell
tell application ”Finder”
–make new file at ((path to downloads folder)) with properties {name:myNAME, file type:”ilht”, creator type:”MACS”}
make new file at ((path to downloads folder)) with properties {name:myNAME}
open for access file the myFILE with write permission
write (myTEXT) to file the myFILE starting at eof
close access file the myFILE
end tell
tell application ”System Events”
delay 1
tell application ”Finder” to quit
tell application ”webloc” to quit
end tell