Re: Proper English Title Capitalization

[Karl Voit <devnull@Karl-Voit.at>]

* Barry Fishman <barry_fishman@acm.org> wrote:
>
>
> If you are looking for more alternative coding:
>
> --8<---------------cut here---------------start------------->8---
> ;; This is probably subject for debate and tuning.
> (defvar own-stop-words '("a" "an" "the" "at" "by" "for" "in"
>                          "of" "on" "to" "up" "and" "as" "but"
>                          "it" "or" "nor" "n" "t" "es" "s")
>   "Words that are not capitalized in titles.")
>
> (defun own-title-region (beg end)
>   "Capitalize region as a title,"
>   (interactive "r")
>   (save-excursion
>     (goto-char beg)
>     (capitalize-word 1)
>     (while (< (point) end)
>       (skip-syntax-forward "^w" end)
>       (let ((word (thing-at-point 'word t)))
>         (if (stringp word)
>             (if (member (downcase word) own-stop-words)
>                 (downcase-word 1)
>               (capitalize-word 1)))))
>     (backward-word 1)
>     (if (and (>= (point) beg)
>              (not (member (or (thing-at-point 'word t) "s")
>                           '("n" "t" "es" "s"))))
>         (capitalize-word 1))))
> --8<---------------cut here---------------end--------------->8---

Thanks for your version. I tested it and it worked great. I added
your input to my solution and to my blog entry.

-- 
All in all, one of the most disturbing things today is the definitive
fact that the NSA, GCHQ, and many more government organizations are
massively terrorizing the freedom of us and the next generations.
                                                  http://Karl-Voit.at