- ; LogsViewer Très simple
- ; Utilisation: /logs
-
- alias logs {
- ; Si la fenêtre @logs est ouverte, nous l'effacons.
- if ($window(@logs)) { clear @logs }
- ; Si la fenêtre @logs n'est pas ouverte, nous l'ouvrons.
- if (!$window(@logs)) { window @logs }
- ; Si %logs n'existe pas, nous le choisissons.
- if (!%logs) { set %logs $sfile($mircdirlogs\,Choisir le log à regarder:) }
- ; Si %logs existe.
- if (%logs) {
- ; Nous chargeons le fichier dans la fenêtre @logs.
- loadbuf @logs $shortfn(%logs)
- }
- }
- ; Création du menu (popup) de la fenêtre @logs.
- menu @logs {
- Rafraîchir:logs
- -
- Ouvrir:unset %logs | logs
- -
- Fermer:window -c @logs
- }
- ; Lorsque la fenête @logs est fermée, nous déchoisissons %logs.
- on 1:close:@logs:{ unset %logs }
; LogsViewer Très simple
; Utilisation: /logs
alias logs {
; Si la fenêtre @logs est ouverte, nous l'effacons.
if ($window(@logs)) { clear @logs }
; Si la fenêtre @logs n'est pas ouverte, nous l'ouvrons.
if (!$window(@logs)) { window @logs }
; Si %logs n'existe pas, nous le choisissons.
if (!%logs) { set %logs $sfile($mircdirlogs\,Choisir le log à regarder:) }
; Si %logs existe.
if (%logs) {
; Nous chargeons le fichier dans la fenêtre @logs.
loadbuf @logs $shortfn(%logs)
}
}
; Création du menu (popup) de la fenêtre @logs.
menu @logs {
Rafraîchir:logs
-
Ouvrir:unset %logs | logs
-
Fermer:window -c @logs
}
; Lorsque la fenête @logs est fermée, nous déchoisissons %logs.
on 1:close:@logs:{ unset %logs }