Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Applications Emacs gnus et articles marques avec !

gnus et articles marques avec !

25 réponses
Avatar
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
    '---''(_/--'  `-'\_)       
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Matthieu Moy
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
Avatar
Patrice Karatchentzeff
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
    '---''(_/--'  `-'_)       
Avatar
Matthieu Moy
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
Avatar
Patrice Karatchentzeff
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
    '---''(_/--'  `-'_)       
Avatar
Matthieu Moy
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
Avatar
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).

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
Avatar
Matthieu Moy
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
Avatar
Patrice Karatchentzeff
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
    '---''(_/--'  `-'_)       
Avatar
Sébastien Kirche
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
Avatar
Sébastien Kirche
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
1 2 3