* Re: dealing with windows \222 char
2004-03-06 20:53 ` Marcus Frings
@ 2004-03-06 21:38 ` Floyd L. Davidson
0 siblings, 0 replies; 3+ messages in thread
From: Floyd L. Davidson @ 2004-03-06 21:38 UTC (permalink / raw)
Marcus Frings <iam-est-hora-surgere@despammed.com> wrote:
>* Arnaud Vandyck <avdyk@debian.org> wrote:
>
>> Cookie is a great solution and it works really fine...
>
>Ah, great!
>
>> I suppose I have to use something like:
>> (load-file "~/.gnus_dumbquotes.el")
>
>Exactly! That's the way how I do it.
I have two functions in my init files for GNU Emacs and XEmacs,
which affect the same problem. By putting them in the init
files I have the functionality available when not running Gnus,
as I occasionally find odd extended ascii characters when doing
regular editing.
One function changes the way the characters are displayed
on the screen. The other function modifies the current
buffer, making the changes permanent.
I've added these to menubar menus, because I don't use them
often enough to remember a key sequence. However, in my ~/.gnus
file I do add the fld-fix-buffer function to the
message-send-news-hook, so that every article I post to Usenet
is "fixed" before being posted. That changes any of the
specified characters in any quoted text, and it also does
untabify on the entire buffer and deletes all trailing white
space. There is also a variable to toggle it on or off, and I
have a menubar menu item that does that in case I want to post
an article that has not been adjusted.
;;;
;;; Display various extended ascii characters
;;;
(defvar bdt (make-display-table))
(defun fld-buffer-display-table ()
"Change current-display-table to print various high bit
extended ASCII characters as regular ascii
characters or string.
\\200 --> EUR \\214 --> OE \\227 --> ---
\\202 --> , \\221 --> \` \\226 --> --
\\203 --> f \\222 --> \' \\230 --> ~
\\204 --> ,, \\223 --> \" \\231 --> (TM)
\\205 --> ... \\224 --> \" \\233 --> >
\\213 --> < \\225 --> * \\234 --> oe"
(interactive)
(setq bdt (make-display-table))
(aset bdt ?\200 [?E ?U ?R]) ;\200 = EUR
(aset bdt ?\202 [?,]) ;\202 = ,
(aset bdt ?\203 [?f]) ;\203 = f
(aset bdt ?\204 [?, ?,]) ;\204 = ,,
(aset bdt ?\205 [?. ?. ?.]) ;\205 = ...
(aset bdt ?\213 [?<]) ;\213 = <
(aset bdt ?\214 [?O ?E]) ;\214 = OE
(aset bdt ?\221 [?`]) ;\221 = `
(aset bdt ?\222 [?']) ;\222 = '
(aset bdt ?\223 [?\"]) ;\223 = "
(aset bdt ?\224 [?\"]) ;\224 = "
(aset bdt ?\225 [?*]) ;\225 = *
(aset bdt ?\226 [?- ?-]) ;\226 = --
(aset bdt ?\227 [?- ?- ?-]) ;\227 = ---
(aset bdt ?\230 [?~]) ;\230 = ~
(aset bdt ?\231 [?( ?T ?m ?)]) ;\231 = (Tm)
(aset bdt ?\233 [?>]) ;\233 = >
(aset bdt ?\234 [?o ?e]) ;\230 = oe
(eval-when-compile
(when (not (featurep 'xemacs)) (defun set-specifier (d1 d2) ())))
(when (featurep 'xemacs)
(set-specifier current-display-table bdt))
(setq buffer-display-table current-display-table))
;;;
;;; Untabify and replace various Extended ASCII characters
;;;
(defvar fld-fix-buffer-status t)
(defun fld-fix-buffer ()
"Fix a buffer: Trim trailing whitespace, replace tabs with
spaces and change various high bit set Extended ASCII
characters to seven-bit ASCII equivalents. Disabled when
fld-fix-buffer-status is nil. Character replacements are:
\\200 --> EUR \\214 --> OE \\227 --> ---
\\202 --> , \\221 --> \` \\226 --> --
\\203 --> f \\222 --> \' \\230 --> ~
\\204 --> ,, \\223 --> \" \\231 --> (TM)
\\205 --> ... \\224 --> \" \\233 --> >
\\213 --> < \\225 --> * \\234 --> oe"
(interactive)
(if fld-fix-buffer-status
(save-excursion
(goto-char (point-min))
(replace-regexp "\\([\t ]\\)*$" "") ; trim trailing whitespace
(mark-whole-buffer)
(untabify (point) (mark)) ; untabify
;; replace various Extended ASCII characters
(goto-char (point-min))
(replace-string "\234" "oe")
(goto-char (point-min))
(replace-string "\233" ">")
(goto-char (point-min))
(replace-string "\231" "(Tm)")
(goto-char (point-min))
(replace-string "\230" "~")
(goto-char (point-min))
(replace-string "\227" "---")
(goto-char (point-min))
(replace-string "\226" "--")
(goto-char (point-min))
(replace-string "\225" "*")
(goto-char (point-min))
(replace-string "\224" "\"")
(goto-char (point-min))
(replace-string "\223" "\"")
(goto-char (point-min))
(replace-string "\222" "\'")
(goto-char (point-min))
(replace-string "\221" "\`")
(goto-char (point-min))
(replace-string "\214" "OE")
(goto-char (point-min))
(replace-string "\213" "<")
(goto-char (point-min))
(replace-string "\205" "...")
(goto-char (point-min))
(replace-string "\204" ",,")
(goto-char (point-min))
(replace-string "\203" "f")
(goto-char (point-min))
(replace-string "\202" ",")
(goto-char (point-min))
(replace-string "\200" "EUR")
(goto-char (point-min))
(replace-string "\r\n" "\n")
(set-mark nil)
(when (featurep 'xemacs)
(zmacs-deactivate-region)) ; clears highlighted region
(message "Buffer fixed..."))))
--
Floyd L. Davidson <http://web.newsguy.com/floyd_davidson>
Ukpeagvik (Barrow, Alaska) floyd@barrow.com
^ permalink raw reply [flat|nested] 3+ messages in thread