doc-el commit 813:a06bbdbdf63d - Various minor nits of the `eres...

[Giorgos Keramidas]

On Tue, 23 Sep 2008 08:03:25 +0300, Manolis Kiagias <sonic2000gr at gmail.com> wrote:
> freebsd-doc-el at lists.hellug.gr wrote:
>> changeset:      813:a06bbdbdf63d
>> user:           keramida
>> date:           2008-09-23 07:47 +0300
>> details:        http://hg.hellug.gr/freebsd/doc-el/?cmd=changeset;node=a06bbdbdf63d
>>
>> ...
>> -	      γράφουμε με κεφαλαία, ποιος πίνει πολύ καφέ, πού φτιάχνεται η
>> -	      καλύτερη μπύρα, ποίος φτιάχνει μπύρα στο υπόγειο του, και άλλα.
>> +	      γράφουμε με κεφαλαία, ποιός πίνει πολύ καφέ, πού φτιάχνεται η
>> +	      καλύτερη μπύρα, ποιός φτιάχνει μπύρα στο υπόγειο του, και άλλα.
>>  	      Περιστασιακές ανακοινώσεις σημαντικών γεγονότων (όπως
>>  	      πάρτυ, γάμους, γεννήσεις, καινούργιες δουλείες κλπ) μπορούν να
>>  	      γίνουν στις τεχνικές λίστες, αλλά οι απαντήσεις τους πρέπει να στέλνονται
>>
> Ωχ, το σύνδρομο του "ποιός" ξαναχτυπά... ;)

Χαχα, ναι.  Σχεδόν έχω ψηθεί να το κάνω before-save-hook στο Emacs:

  (defcustom freebsd/doc-el/common-typos (list "\\Wποιος\\W" "\\Wποια\\W" "\\Wποιο\\W")
    "List of regular expressions that match words commonly mis-spelled in doc-el texts."
    :type 'list
    :group 'editing-basics)

  (defun freebsd/doc-el/check-common-typos ()
    "Check for commonly mis-spelled words in the current buffer."
    (let (result)
      (dolist (word freebsd/doc-el/common-typos (reverse result))
        (save-excursion
          (beginning-of-buffer)
          (when (search-forward-regexp word)
            (push word result))))
      (when result
        (error (format "Mis-spelled words found: %s" result)))))

  (add-to-hook 'sgml-mode-hook
    '(lambda ()
       (add-to-hook 'write-contents-functions 'freebsd/doc-el/check-common-typos)))