home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / clari-clean.el < prev    next >
Encoding:
Text File  |  1991-08-22  |  4.1 KB  |  103 lines
  1. ; From: dnb@meshugge.media.mit.edu (David N. Blank)
  2. ; Subject: Re: Okay, it's an FAQ (dealing with ugly underlines)
  3. ; Date: 5 Aug 91 04:10:24 GMT
  4. ; Organization: M.I.T. Media Laboratory
  5. ; In-Reply-To: ckd@eff.org's message of 3 Aug 91 23: 30:15 GMT
  6. ; 
  7. ; > So, what is the canonical very-bestest way to get rid of those annoying
  8. ; > underlines in, say, clari.* groups?
  9. ; 
  10. ; I make no claims of bestest, and the only canonical thing I deal with
  11. ; on a regular basis was written by Pachelbel in the 1600's.  Now if you
  12. ; are talking quick and dirty hacks that work, well here's something I
  13. ; posted a while back:
  14. ;            Peace,
  15. ;                dNb
  16. ; ------
  17. ;Howdy-
  18. ;  If you both get the ClariNet newsgroups (ClariNews) and read your
  19. ;news in Gnus, this might be of interest to you.  I slapped this
  20. ;together a while back when I got frustrated at ClariNews' use of
  21. ;backspaced underscores for underlining.  I also was tired of seeing
  22. ;headers that I didn't really have a use for in my daily news reads.
  23. ;It's worked for me for several weeks now, I hope it makes you happy.
  24. ;Note: I am not affiliated to ClariNet Communications Corp (except as
  25. ;a contented subscriber to ClariNews). Bon Chance!
  26. ;         Peace,
  27. ;            dNb
  28. ;---------
  29. ;;; -*- Mode:Emacs-Lisp -*-
  30. ;;;
  31. ;;; clari-clean.el - a set of functions cobbled together to present more 
  32. ;;;                  aesthetic and concise Gnus buffers when reading
  33. ;;;                  ClariNews groups (tm ClariNet Communications Corp.)
  34. ;;;
  35. ;;; Place these two lines in your .emacs to use these functions:
  36. ;;;  (autoload 'gnus-clarinews-fun "clari-clean" "Clean ClariNews articles" t)
  37. ;;;  (setq gnus-Article-prepare-hook 'gnus-clarinews-fun)
  38. ;;;  
  39. ;;; Change the value of clarinews-ignored-headers below to flavor to taste.
  40. ;;;
  41. ;;;                  -- David N. Blank (dnb@meshugge.media.mit.edu) 1/31/91
  42.  
  43. ;;; LCD Archive Entry:
  44. ;;; clari-clean|David N. Blank|dnb@meshugge.media.mit.edu
  45. ;;; |Clean up buffers when reading ClariNet news groups
  46. ;;; |91-01-31||~/functions/clari-clean.el.Z|
  47.  
  48. (defun gnus-clarinews-fun ()
  49.   ;; only do the voodoo, that you do, so well, if in a ClariNews newsgroup
  50.   (if (string-match "^clari\\.*" gnus-newsgroup-name) 
  51.       (progn 
  52.     (clarinews-clean-article-bs)
  53.     (clarinews-clear-headers)  
  54.     (set-buffer-modified-p nil))))
  55.  
  56. ; function to clean all of the nasty backspaces in ClariNews news articles
  57. ; (for use with GNUS reader).  Unabashedly snarfed & hacked from nuke-nroff-bs 
  58. ; in the standard distribution's (18.55) man.el -- dNb 1/6/90
  59. (defun clarinews-clean-article-bs ()
  60.   "Nuke the underlining via backspaces found in a ClariNews article."
  61.   (interactive "*")
  62.   ;;Nuke underlining and overstriking (only by the same letter)
  63.   (goto-char (point-min))
  64.   (while (search-forward "\b" nil t)
  65.     (let* ((preceding (char-after (- (point) 2)))
  66.        (following (following-char)))
  67.       (cond ((= preceding following)
  68.          ;; x\bx
  69.          (delete-char -2))
  70.         ((= preceding ?\_)
  71.          ;; _\b
  72.          (delete-char -2))
  73.         ((= following ?\_)
  74.          ;; \b_
  75.          (delete-region (1- (point)) (1+ (point)))))))
  76.     (goto-char (point-min))
  77.   ;; Crunch blank lines 
  78.     (while (re-search-forward "\n\n\n\n*" nil t)
  79.       (replace-match "\n\n")))
  80.  
  81. ; remove headers I'd rather not see from ClariNews Gnus buffers.  Snarfed from 
  82. ; rmail-clear-headers in standard distribution's (18.55) rmail.el -- dNb 1/6/90
  83. (defun clarinews-clear-headers ()
  84.   "Nuke the headers one would rather not see in a ClariNews article.
  85.    The list of headers is located in clarinews-ignored-headers."
  86.   (goto-char (point-min))
  87.   (if (search-forward "\n\n" nil t)
  88.       (save-restriction
  89.     (narrow-to-region (point-min) (point))
  90.     (let ((buffer-read-only nil))
  91.       (while (let ((case-fold-search t))
  92.            (goto-char (point-min))
  93.            (re-search-forward clarinews-ignored-headers nil t))
  94.         (beginning-of-line)
  95.         (delete-region (point)
  96.                (progn (re-search-forward "\n[^ \t]")
  97.                   (forward-char -1)
  98.                   (point))))))))
  99.  
  100.   (defvar clarinews-ignored-headers
  101.    "^Location:\\|^ACategory:\\|^Slugword:\\|^Priority:\\|^Format:\\|^ANPA:\\|^Codes:\\|^Note:\\|^X-Supersedes:" 
  102.    "*Gubbish headers one would rather not see in a ClariNews article.")
  103.