From mboxrd@z Thu Jan  1 00:00:00 1970
From: Samuel Wales <samologist@gmail.com>
Subject: Re: new rule to capitalise the first word in a sentence? but how?
Date: Wed, 27 Apr 2016 14:15:37 -0700
Message-ID: <CAJcAo8ttHKUjeD5ZQkLwHboGdDVfjuk-3=RGdBONAtCcz8phKQ@mail.gmail.com>
References: <871t5qq1xt.fsf@skimble.plus.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:45980)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <samologist@gmail.com>) id 1avWo6-0000YD-Jx
	for emacs-orgmode@gnu.org; Wed, 27 Apr 2016 17:15:39 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <samologist@gmail.com>) id 1avWo5-0007EP-PM
	for emacs-orgmode@gnu.org; Wed, 27 Apr 2016 17:15:38 -0400
Received: from mail-vk0-x22a.google.com ([2607:f8b0:400c:c05::22a]:32993)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <samologist@gmail.com>) id 1avWo5-0007EJ-Ik
	for emacs-orgmode@gnu.org; Wed, 27 Apr 2016 17:15:37 -0400
Received: by mail-vk0-x22a.google.com with SMTP id a5so9341356vkg.0
	for <emacs-orgmode@gnu.org>; Wed, 27 Apr 2016 14:15:37 -0700 (PDT)
In-Reply-To: <871t5qq1xt.fsf@skimble.plus.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Sharon Kimble <boudiccas@skimble.plus.com>
Cc: org-mode-email <emacs-orgmode@gnu.org>

very old code, maybe can be adjusted slightly to do what you want.

(defun alpha-capitalize-sentences ()
  (interactive)
  (let ((b (region-beginning))
        (e (region-end))
        ;;i always use double spaces but i want sentence movement
        ;;to be liberal -- that is to count more things as
        ;;sentences.
        (sentence-end-double-space nil)
        ;;need to make it understand org headlines etc. also.
        ;;don't know if this will help.  will fail on *bold*.
        ;;non-idempotent.  use a vector function.
        (sentence-end-without-space
         (concat sentence-end-without-space "*")))
    (save-excursion
      (goto-char b)
      (loop
            while (< (point) (max b e))
            do
            (when (y-or-n-p "capitalize this sentence?")
              (capitalize-word 1))
            ;;forward-sentence-incl-org (headlines, items, other)
            do
            (let ((sentence-end-without-period t))
              (forward-sentence))))
;;;    (replace-regexp "i" "I" t (region-beginning) (region-end))
    (save-excursion
      (perform-replace "i" "I"
                       nil t t nil nil
                       b e))))