From: Burton Samograd <burton@samograd.ca>
To: help-gnu-emacs@gnu.org
Subject: Re: Randomly capitalise letters
Date: Thu, 22 Nov 2012 14:32:58 -0700 [thread overview]
Message-ID: <87mwy98gs5.fsf@samograd.ca> (raw)
In-Reply-To: 871uflqs2l.fsf@gmx.co.uk
Johnny <yggdrasil@gmx.co.uk> writes:
> Johnny <yggdrasil@gmx.co.uk> writes:
>
>> Hi all,
>>
>> I am looking for a way to randomly capitalise letters in a word or a
>> region, but haven't found anything in the manual or online (someone must
>> have had this odd idea before I am sure!). Any help on how to achieve
>> this would be great! For clarity, I'd like to AchiEVe soMeTHiNg LIke
>> thIs.
>>
>>
>> Thanks!
>
> P.S.
> I have tried 'studlify-region', but this seems to be a
> deterministic function and does not set case randomly (as seen by
> repeating the command on the same region).
This should work but you should (require 'cl) first:
(defun random-upcase-letters (downcase-factor)
"Randomly upper case letters in the current/next word.
Downcase factor is tied to how many letters are left
lower case; use 2 for 50/50 probabilty, 3 for 66/33, etc."
(interactive "P")
;; Move to the start of the next word
(forward-word)
(backward-word)
;; Do the upcasing
(let ((start (point))
(end (progn
(forward-word)
(point))))
(goto-char start)
(while (not (= start end))
(if (= 0 (random downcase-factor))
(upcase-region start (1+ start)))
(incf start))))
--
Burton Samograd
next prev parent reply other threads:[~2012-11-22 21:32 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-11-22 20:37 Randomly capitalise letters Johnny
2012-11-22 20:51 ` Johnny
2012-11-22 21:32 ` Burton Samograd [this message]
2012-11-23 0:18 ` Johnny
2012-11-23 2:30 ` Stefan Monnier
2012-11-23 15:22 ` Burton Samograd
[not found] <mailman.13578.1353617204.855.help-gnu-emacs@gnu.org>
2012-11-22 21:42 ` Pascal J. Bourguignon
2012-11-23 0:20 ` Johnny
2012-11-26 18:13 ` Sean McAfee
2012-11-27 2:30 ` Stefan Monnier
[not found] <mailman.13892.1353983463.855.help-gnu-emacs@gnu.org>
2012-11-29 3:22 ` jidanni
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87mwy98gs5.fsf@samograd.ca \
--to=burton@samograd.ca \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.