Photo of the Day da National Geographic agora em Apple Script

Eu apontei um programa bacana para fazer o trabalho de pegar a Photo of the Day (POD) do site da National Geographic e definir como papel de parede do seu OS X. Pois bem. No meu leopard este programa deixou de funcionar. No mac da minha mãe, que roda Tiger, ele ainda funciona, mas pra mim, nada de funcionar. Eu cheguei a atualizar o programa este mês, mas nada de resolver o problema. Após algumas pesquisas utilizando o Google, encontrei um Apple Script que resolveu muito bem o problema.

Tudo que você precisa fazer para ter o script funcionando no seu Mac é copiar o código abaixo e colar no “Script Editor” e salvar como um script localmente. Adicionalmente você pode agendar sua execução diária através do iCal e seu papel de parede será atualizado todo dia.

set thePic to do shell script "curl http://photography.nationalgeographic.com/photography/photo-of-the-day | grep '<td class=\"body\"><a href=\"/photography/enlarge/' | cut -f 4 -d '<' | cut -f 3 -d '=' | cut -f 1 -d '>'"
set theCut to text 2 thru -8 of thePic
set thePaper to "http://photography.nationalgeographic.com" & theCut & "xl.jpg"
set AppleScript's text item delimiters to "/"
set photoName to last text item of thePaper
set AppleScript's text item delimiters to ""
do shell script "curl " & thePaper & " -o" & " ~/Pictures/" & photoName
set thePath to (path to pictures folder as text) & photoName
tell application "Finder" to set desktop picture to alias thePath

Veja também:

• Script para National Geographic POD como wallpaper atualizado
• Papel parede do dia no seu computador
• Trocando wallpaper com automator
• Desktoptopia
• Trocando o papel de parede de maneira automática
• Combata a gripe Suína (H1N1) online
• Quer aprender a fazer um balde digital?
• Atualização automática do WP
• Esporte extremo no escritório
• Como usar o Palavras de Monetização