Aller au contenu

Messages recommandés

Posté(e)

Salut

 

Oui, via les reacteurs

(defun evaluer_lisp(rea cde)
 (if (vl-string-search "C:" (strcase (car cde)))
   (princ (strcat "\nLe lisp " (car cde) " vient d'être appelé"))
 )
 (princ)
)

(if (not lsp_start)
 (setq lsp_start (vlr-lisp-reactor nil (list (cons :vlr-lispwillstart (function evaluer_lisp)))))
)

 

Et pour effacer le réacteur

(vlr-remove lsp_start)

 

Ou encore avec l'utilisation des variables CMDNAMES et CMDACTIVE

Exemple

Commande : modemacro --> $(getvar, cmdnames)

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité