gnus et articles marques avec !

Matthieu Moy

23/04/2007 à 10:34

Patrice Karatchentzeff writes:

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

23/04/2007 à 11:22

Matthieu Moy a écrit :

Patrice Karatchentzeff writes:

> 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

23/04/2007 à 11:34

Patrice Karatchentzeff writes:

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

23/04/2007 à 13:53

Matthieu Moy a écrit :

Patrice Karatchentzeff writes:

> 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

23/04/2007 à 15:27

Patrice Karatchentzeff writes:

Matthieu Moy a écrit :

Patrice Karatchentzeff writes:

> 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

24/04/2007 à 00:24

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

24/04/2007 à 00:29

Sébastien Kirche writes:

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

25/04/2007 à 11:19

Matthieu Moy a écrit :

> 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
    '---''(_/--'  `-'_)

Matthieu Moy <MatthieuNOSPAM.Moy@imag.fr.invalid> a écrit :

> 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:p.karatchentzeff@free.fr
     |,4-  ) )-,_. , (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'_)

Vous avez filtré cet utilisateur ! Consultez son message

Matthieu Moy a écrit :

> 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

25/04/2007 à 22:17

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

25/04/2007 à 22:24

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

gnus et articles marques avec !

10 réponses

Veuillez sélectionner un problème