gnus et articles marques avec !

Le
Patrice Karatchentzeff
Salut,

J'ai pris la sale habitude de marquer mes articles sous gnus avec
« ! » plutôt que « # ».

Maintenant, je cherche à faire le ménage mais il y a trop d'articles
pour le faire à la main il n'y a pas l'air d'exister de commande
qui puisse détruire mes articles de façon groupée (avec la région)
comme pour les marques « # ».

Quelqu'un a-t-il une idée comment procéder (de façon intelligente) ?

Merci

PK

--
      |      _,,,,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:p.karatchentzeff@free.fr
     |,4-  ) )-,_. , (  `'-'  http://p.karatchentzeff.free.fr
    '''(_/--'  `-'_)       
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Matthieu Moy
Le #21786631
Patrice Karatchentzeff
Maintenant, je cherche à faire le ménage mais il y a trop d'articles
pour le faire à la main... il n'y a pas l'air d'exister de commande
qui puisse détruire mes articles de façon groupée (avec la région)
comme pour les marques « # ».



/ m !

Pour n'afficher que les articles marqués. Après, y'a plus qu'à tout
marquer avec M P a, et à les effacer si tu veux.

--
Matthieu
Patrice Karatchentzeff
Le #21786621
Matthieu Moy
Patrice Karatchentzeff
> Maintenant, je cherche à faire le ménage mais il y a trop d'articles
> pour le faire à la main... il n'y a pas l'air d'exister de commande
> qui puisse détruire mes articles de façon groupée (avec la région)
> comme pour les marques « # ».

/ m !

Pour n'afficher que les articles marqués. Après, y'a plus qu'à tout
marquer avec M P a, et à les effacer si tu veux.



Justement, c'est cette étape (effacer) qui me manque...

Si je fais un M P k, je vire les marques (#) et je garde les (!) donc
retour à la case départ...

Merci

PK

--
      |      _,,,---,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:
     |,4-  ) )-,_. , (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'_)       
Matthieu Moy
Le #21786611
Patrice Karatchentzeff
Justement, c'est cette étape (effacer) qui me manque...

Si je fais un M P k, je vire les marques (#) et je garde les (!) donc
retour à la case départ...



Tu veux faire quoi ? Effacer les flags (!) ou effacer les messages ?

--
Matthieu
Patrice Karatchentzeff
Le #21786601
Matthieu Moy
Patrice Karatchentzeff
> Justement, c'est cette étape (effacer) qui me manque...
>
> Si je fais un M P k, je vire les marques (#) et je garde les (!)
> donc retour à la case départ...

Tu veux faire quoi ? Effacer les flags (!) ou effacer les messages ?



Les deux si possible.

Jusqu'à présent, pour effacer un (!), je détruisais le message (d).

PK

--
      |      _,,,---,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:
     |,4-  ) )-,_. , (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'_)       
Matthieu Moy
Le #21786591
Patrice Karatchentzeff
Matthieu Moy
Patrice Karatchentzeff
> Justement, c'est cette étape (effacer) qui me manque...
>
> Si je fais un M P k, je vire les marques (#) et je garde les (!)
> donc retour à la case départ...

Tu veux faire quoi ? Effacer les flags (!) ou effacer les messages ?



Les deux si possible.

Jusqu'à présent, pour effacer un (!), je détruisais le message (d).



Alors je ne vois pas le problème avec ma solution. Pour effacer les
messages marqués, tu peux faire par exemple B DEL. Je sais plus
comment on fait pour les marquer comme expirable, je n'utilise
quasiment jamais la selection avec #.

--
Matthieu
Sébastien Kirche
Le #21786581
Le 23 avril 2007 à 15:27, Matthieu Moy a dit :

Alors je ne vois pas le problème avec ma solution. Pour effacer les
messages marqués, tu peux faire par exemple B DEL. Je sais plus
comment on fait pour les marquer comme expirable, je n'utilise
quasiment jamais la selection avec #.



Il me semble que B DEL n'efface que le message courant (je n'ai pas de
message à supprimer pour tester).

Par contre & permet d'exécuter une commande sur les messages marqués
avec #. Donc je dirais « & B DEL ».

PS : un jour il faudrait que je surpasse ma flemme pour ajouter
l'insertion des espaces insécables avec les «». Ça doit se trouver dans
une réponse à PK lors de sa migration il y a 2 ou 3 ans il me semble.
--
Sébastien Kirche
Matthieu Moy
Le #21786571
Sébastien Kirche
Le 23 avril 2007 à 15:27, Matthieu Moy a dit :

Alors je ne vois pas le problème avec ma solution. Pour effacer les
messages marqués, tu peux faire par exemple B DEL. Je sais plus
comment on fait pour les marquer comme expirable, je n'utilise
quasiment jamais la selection avec #.



Il me semble que B DEL n'efface que le message courant (je n'ai pas de
message à supprimer pour tester).



Moi, j'en avais.

Par contre & permet d'exécuter une commande sur les messages marqués
avec #. Donc je dirais « & B DEL ».



Ah, c'est celui que je cherchais. « & d » pour marquer comme
expirable.

PS : un jour il faudrait que je surpasse ma flemme pour ajouter
l'insertion des espaces insécables avec les «». Ça doit se trouver dans
une réponse à PK lors de sa migration il y a 2 ou 3 ans il me
semble.



(defun my-fill-nobreak-predicate ()
(save-match-data
(or (looking-at "[ t]*[])}»!?;:]")
(looking-at "[ t]*\.\.\.")
(save-excursion
(skip-chars-backward " t")
(backward-char 1)
(looking-at "[([{«]")))))

(setq fill-nobreak-predicate 'my-fill-nobreak-predicate)

pour que M-q ne coupe pas les espaces autour de «, », :, !, ...

et sinon, moi, j'ai ça :

(defun moy-insert-<-or-<< () (interactive)
(if (eq (char-before) ?<)
(progn
(backward-delete-char 1)
;; «·
(insert (make-char 'latin-iso8859-1 43)
(make-char 'latin-iso8859-1 32)))
(insert "<")))

(defun moy-insert->-or->> () (interactive)
(if (eq (char-before) ?>)
(progn
(backward-delete-char 1)
(delete-horizontal-space t)
;; ·»
(insert (make-char 'latin-iso8859-1 32)
(make-char 'latin-iso8859-1 59)))
(insert ">")))

(add-hook 'text-mode-hook (lambda () (interactive)
(local-set-key "<" 'moy-insert-<-or-<<)
(local-set-key ">" 'moy-insert->-or->>)))

Et je tappe juste << et >>.

--
Matthieu
Patrice Karatchentzeff
Le #21786561
Matthieu Moy
> PS : un jour il faudrait que je surpasse ma flemme pour ajouter
> l'insertion des espaces insécables avec les «». Ça doit se trouver dans
> une réponse à PK lors de sa migration il y a 2 ou 3 ans il me
> semble.

(defun my-fill-nobreak-predicate ()
(save-match-data
(or (looking-at "[ t]*[])}»!?;:]")
(looking-at "[ t]*\.\.\.")
(save-excursion
(skip-chars-backward " t")
(backward-char 1)
(looking-at "[([{«]")))))

(setq fill-nobreak-predicate 'my-fill-nobreak-predicate)

pour que M-q ne coupe pas les espaces autour de «, », :, !, ...

et sinon, moi, j'ai ça :

(defun moy-insert-<-or-<< () (interactive)
(if (eq (char-before) ?<)
(progn
(backward-delete-char 1)
;; «·
(insert (make-char 'latin-iso8859-1 43)
(make-char 'latin-iso8859-1 32)))
(insert "<")))

(defun moy-insert->-or->> () (interactive)
(if (eq (char-before) ?>)
(progn
(backward-delete-char 1)
(delete-horizontal-space t)
;; ·»
(insert (make-char 'latin-iso8859-1 32)
(make-char 'latin-iso8859-1 59)))
(insert ">")))

(add-hook 'text-mode-hook (lambda () (interactive)
(local-set-key "<" 'moy-insert-<-or-<<)
(local-set-key ">" 'moy-insert->-or->>)))



Moi, j'ai

;; espace insécable mise en évidence
;; faire un customize de nsbp-face pour obtenir la couleur de son choix
(make-face 'nbsp-face)
(require 'disp-table)
(aset standard-display-table
(make-char 'latin-iso8859-1 (- ?240 128))
(vector (+ ?267 (* 524288 (face-id 'nbsp-face)))))


;; fabrication automatique de la typo française avec la ponctuation
;; ajout automatique de l'espace insécable là où cela va bien
;;
(defun my-french-guill ()
"Insère une paire de guillemets"
(interactive)
(insert "«  »");<-- deux espaces insécables
(backward-char 2))

(defun my-point-interrogation ()
"Insère un point d'interrogation précédé d'une espace insécable"
(interactive)
(if (eq (char-before) ? ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " ?"));<-- 1 espace insécable
(insert " ?")));<-- itou

(defun my-point-exclamation ()
(interactive)
(if (eq (char-before) ? ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " !"));<-- 1 espace insécable
(insert " !")));<-- itou

(defun my-double-point ()
(interactive)
(if (eq (char-before) ? ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " :"));<-- 1 espace insécable
(insert " :")));<-- itou

(defun my-point-virgule ()
(interactive)
(if (eq (char-before) ? ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " ;"));<-- 1 espace insécable
(insert " ;")));<-- itou

(defun my-double-parenthese ()
(interactive)
(insert "()")
(backward-char 1))

(defun my-double-crochet ()
(interactive)
(insert "[]")
(backward-char 1))

(defun my-double-accolade ()
(interactive)
(insert "{}")
(backward-char 1))

(defun my-double-keys ()
"Touches spécifiques"
(interactive)
;; [...]
(setq skeleton-pair t)
(local-set-key "$" 'skeleton-pair-insert-maybe)
(local-set-key "{" 'my-double-accolade)
(local-set-key "(" 'my-double-parenthese)
(local-set-key "[" 'my-double-crochet)
(local-set-key "?" 'my-point-interrogation)
(local-set-key "!" 'my-point-exclamation)
(local-set-key ":" 'my-double-point)
(local-set-key ";" 'my-point-virgule)
; XEmacs
; (local-set-key 'guillemotleft 'my-french-guill))
; pour Emacs
; (local-set-key "«" 'my-french-guill))
; faire un C-x = sur le '«' pour trouver la correspondane
(local-set-key [2219] 'my-french-guill))


;; typo auto pour les modes suivants
(add-hook 'text-mode-hook 'my-double-keys)
(add-hook 'po-subedit-mode-hook 'my-double-keys)
(add-hook 'message-mode-hook 'my-double-keys)

;; un peu de sucre français dans la syntaxe
(setq colon-double-space nil)
(setq sentence-end-double-space nil)
(setq sentence-end "[.?!][]"»')}]*\($\| \|t\)[ tn]*")

Et je tappe juste << et >>.



et je tape juste « et » :)

PK

--
      |      _,,,---,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:
     |,4-  ) )-,_. , (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'_)       
Sébastien Kirche
Le #21786551
Le 24 avril 2007 à 00:29, Matthieu Moy a dit :

(defun my-fill-nobreak-predicate ()
(save-match-data
(or (looking-at "[ t]*[])}»!?;:]")
(looking-at "[ t]*\.\.\.")
(save-excursion
(skip-chars-backward " t")
(backward-char 1)
(looking-at "[([{«]")))))

(setq fill-nobreak-predicate 'my-fill-nobreak-predicate)

pour que M-q ne coupe pas les espaces autour de «, », :, !, ...



Merci Matthieu. Pas encore utilisé, mais je recommence à utiliser Emacs
au boulot en plus de la maison depuis peu; je m'y mets ASAP.

et sinon, moi, j'ai ça :

(defun moy-insert-<-or-<< () (interactive)
(if (eq (char-before) ?<)
(progn
(backward-delete-char 1)
;; «·
(insert (make-char 'latin-iso8859-1 43)
(make-char 'latin-iso8859-1 32)))
(insert "<")))

(defun moy-insert->-or->> () (interactive)
(if (eq (char-before) ?>)
(progn
(backward-delete-char 1)
(delete-horizontal-space t)
;; ·»
(insert (make-char 'latin-iso8859-1 32)
(make-char 'latin-iso8859-1 59)))
(insert ">")))

(add-hook 'text-mode-hook (lambda () (interactive)
(local-set-key "<" 'moy-insert-<-or-<<)
(local-set-key ">" 'moy-insert->-or->>)))

Et je tappe juste << et >>.



Oui, mais j'utilise l'input-method latin-0-postfix une grande partie du
temps (sur l'ibook de la maison en fait, au boulot j'ai un azerty mais
j'ai réchappé de peu au qwertz) et elle intercepte << et >> pour les
remplacer par «».

Je ne sais pas comment ça fonctionne exactement mais je voulais y
regarder de plus près pour régler notamment le problème de « qu' » qui
se transforme facilement en « qú » quand on n'y fait pas gaffe alors que
le reste est fort pratique. Peut-être qu'on pourrait rajouter le « » à
la suite ?

--
Sébastien Kirche
Sébastien Kirche
Le #21786541
Le 25 avril 2007 à 11:19, Patrice Karatchentzeff a formulé :

Moi, j'ai

;; espace insécable mise en évidence faire un customize de nsbp-face
;; pour obtenir la couleur de son choix
(make-face 'nbsp-face)
(require 'disp-table)
(aset standard-display-table
(make-char 'latin-iso8859-1 (- ?240 128))
(vector (+ ?267 (* 524288 (face-id 'nbsp-face)))))



C'est automagique dans emacs22 (emacs-snapshot) il me semble...

Euh non, renseignement pris dans mon .emacs, je vois ceci car les dits
espaces étaient échappés :

;;ne pas afficher les espaces insécables précédés d'un ""
;;nouveauté emacs 21.3.50 (cvs)
(setq show-nonbreak-escape nil)

;; fabrication automatique de la typo française avec la ponctuation
;; ajout automatique de l'espace insécable là où cela va bien
;;
[...]



Ta soluce semble bien plus verbeuse que ce qui a été présenté par
Matthieu pour faire la même chose, mais je l'ai lue en diagonale et je
dis peut-être une ânerie, je regarderai de plus près.

--
Sébastien Kirche
Publicité
Poster une réponse
Anonyme