Plugin aMSN pour amaroK

Le blog est mort?

De retour dans la blogosphère après quelques semaines d'absence. Personne ne remarque! C'est normal, personne ne lit ;o)

Je reviens la santé fragilisée par le stress des examens. Donc, au programme pour ces vacances: le repos, une meilleure alimentation, programmer avec autre chose que Java, s'approprier quelques nouvelles techniques en guitare...

Un plugin aMSN pour amaroK

aMSN est le client de MSN multi plate-formes sous licence GPL que j'utilise sur mon ordinateur. J'ai essayé quelques-uns de ses plugins, mais celui de «music» ne fonctionne pas pour moi. Alors j'ai jeté un oeil sur le code du plugin «Nudge» et j'ai vu qu'il est assez facile d'en coder un.

Un plugin pourquoi faire?

Je voulais simplement mettre dans la fenêtre de aMSN le titre de la chanson et son interprète dans l'espace réservé pour le message personnel. Les plugins sous aMSN sont codés (ou plutôt scriptés) en TCL. Je n'avais jamais vu un code écrit dans ce langage - qui à mon avis a une syntaxe pas très élégante.

Voici une capture d'écran du résultat souhaité


Réalisation du plugin

Pour réaliser le plugin il suffit d'utiliser DCOP. Pour le moment il est vraiment élémentaire et je ne pense pas y ajouter d'autres fonctions vu que je suis déjà passé à quelque chose d'autre.

Le code

Voilà ce que j'ai codé:

#!/usr/bin/tclsh
# Description: Plugin pour afficher dans l'espace PSM
# Il faut d'abord commencer par échanger des messages
# avant que le plugin ne fonctionne.  Mais bon, 
# chacun peut ajuster le comportement à sa guise.
namespace eval ::amaroK {
  # var globale
set oldTitre "oldTitre"

proc Init { dir } {
::plugins::RegisterPlugin "amaroK"
::config::setKey amarokpluginpath $dir

::amaroK::RegisterEvent
}

proc RegisterEvent {} {
::plugins::RegisterEvent "amaroK" chat_msg_received received
}

proc received { event evpar } {
    #  récupérer le titre, l'artiste ssi amaroK fonctionne
if {[catch {exec dcop amarok player title} errmsg]} {
set titre "Not listening to music :("
set artiste ""
set strPrefix ""
set strDe ""
} else {
set titre [exec dcop amarok player title]
set artiste [exec dcop amarok player artist]
        #set cover [exec dcop amarok player coverImage]
set strPrefix "listening to: "
set strDe " - "
}

global amaroK::oldTitre
    # n'afficher le titre que si celui-ci à changé
if { [string compare $oldTitre $titre] != 0 }  {
set oldTitre $titre
set txt $strPrefix$titre$strDe$artiste
      # afficher le changement dans chaque fenêtre ouverte
foreach chatid [::ChatWindow::getAllChatIds]  {
        # SendMessageFIFO command stack lock
SendMessageFIFO [list ::amaroK::writeMessageToGUI $chatid $txt] 
"::amsn::messages_stack($chatid)" "::amsn::messages_flushing($chatid)"
        #::amsn::set_displaypic $cover  
}
::MSN::changePSM "$txt"; # echange le message personnel
}

    # après 35 secondes rafraîchir
after 35000 ::amaroK::received $event $evpar
}

  # écrire le message $txt dans la fenêtre $chatid
proc writeMessageToGUI { chatid txt } {
set color "green"
amsn::WinWrite $chatid "\n" $color
amsn::WinWriteIcon $chatid greyline 3
amsn::WinWrite $chatid "\n" $color
amsn::WinWrite $chatid "[timestamp] $txt\n" $color
amsn::WinWriteIcon $chatid greyline 3
}
}