Cambiar de Perfil de Pantalla con un click

Robok nos pregunta a raíz del artículo Arrancar a Windows con un doble click: Muchas gracias por el truco, aparte de útil también me ha ayudado bastante a entender un poquito Automator y los scripts.
Quería preguntaros si conocéis algún script para cambiar el perfil de color de la pantalla, evitando así tener que abrir las preferencias de sistema y demás.
Saludos

La respuesta es si, es posible, aunque hay que matizar algunos detalles al respecto.

Para cambiar el perfil de un monitor es necesario abrir las Preferencias del Sistema, ir a Pantallas y modificar en la pestaña Color el correspondiente Perfil de Pantalla. Es un proceso que requiere varios clicks y es un poco pesado e incómodo si se ha de hacer varias veces al día, sobre todo.

Para poder modificar el perfil de pantalla directamente vamos a usar Applescript tratando de cubrir todas las posibilidades que puedan ser necesarias para con un simple click modificar el Perfil de la pantalla en un segundo.

El Applescript

Este es el Applescript que vamos a usar (puedes copiarlo y pegarlo en la venta del Editor de Scripts o usar Ejecutar Applescript en Automator). Esta es un script básico del que comentaremos sus variables para a continuación ver algunas de sus posibles (e interesantes) variaciones.

on run
set the_dialog to display dialog "Elige el Perfil de color de la Pantalla" buttons ["Perfil 1", "Perfil 2", "Perfil 3"] default button 3
if button returned of result is "Perfil 1" then
tell application "ColorSyncScripting" to set display profile of display 1 to profile "Perfil de color 1"
else if button returned of result is "Perfil 2" then
tell application "ColorSyncScripting" to set display profile of display 1 to profile "Perfil de color 2"
else if button returned of result is "Perfil 3" then
tell application "ColorSyncScripting" to set display profile of display 1 to profile "Perfil de color 3"
end if
end run

Personalizando

set the_dialog to display dialog "Elige el Perfil de color de la Pantalla" buttons ["Perfil 1", "Perfil 2", "Perfil 3"] default button 3

Estas dos primeras líneas nos van a presentar un cuadro de diálogo para seleccionar el Perfil con el que queremos trabajar: Podemos personalizar el/la pregunta, el nombre de los Perfiles para poder identificar y seleccionar con facilidad cual perfil e incluso el botón que aparecerá seleccionado por defecto al introducir el correspondiente número (1,2,3) entre las opciones a seleccionar disponibles.

if button returned of result is "Perfil 1" then
tell application "ColorSyncScripting" to set display profile of display 1 to profile "Perfil de color 1"

Perfil 1 es la variable de selección que corresponde a los botones del cuadro de diálogo: si has decidido modificar el texto de esos botones, como por ejemplo "perfil para fotos", has de cambiar el nombre de la variable también en esta línea.

En cuanto a la selección del Perfil, debes abrir Las Preferencias de Pantalla > Color y cambiar Perfil de color 1 por el nombre del Perfil que quieras usar asignado a ese botón. Recuerda escribirlo exactamente igual a como te aparece en la pantalla de preferencias. Si es un perfil personalizado, exactamente lo mismo: su nombre exacto.

else if button returned of result is "Perfil 2" then
tell application "ColorSyncScripting" to set display profile of display 1 to profile "Perfil de color 2"

Este grupo y el siguiente añaden las opciones de personalización 2 y 3. Si vas captando como funciona el asunto, puedes añadir mas botones al cuadro de diálogo (entre comillas y separados por comas) y sus correspondientes líneas else if button returned of result .... con sus opciones personalizadas para poder seleccionar ese perfil.

Si tienes varios monitores, duplica el script a continuación para modificar el perfil del segundo o tercer monitor, modificando la variable to set display profile of display 1 a 2 (2 será el segundo monitor).