Randomly capitalise letters

Randomly capitalise letters

[Johnny]

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!

-- 
Johnny

Re: Randomly capitalise letters

[Johnny]

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).

-- 
Johnny

Re: Randomly capitalise letters

[Burton Samograd]

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

Re: Randomly capitalise letters

[Pascal J. Bourguignon]

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. 

That's not a library command, that's for sure, but it's easy to write
it.  You can learn how to configure emacs to do this kind of things by
reading:


  An Introduction to Programming in Emacs Lisp
  http://www.gnu.org/software/emacs/emacs-lisp-intro/  or  M-: (info "(eintr)Top") RET
  (for non programmers)

  Emacs Lisp Manual
  http://www.gnu.org/software/emacs/manual/elisp.html  or  M-: (info "(elisp)Top") RET

  Emacs Manual
  http://www.gnu.org/software/emacs/manual/   or  M-: (info "(emacs)Top") RET


For example, you could write:

(defun capitalize-randomly (start end)
   (interactive "r")
   (goto-char start)
   (while (< (point) end)
     (let ((ch (char-after (point))))
       (delete-region (point) (1+ (point)))
       (insert (format "%c" (if (zerop (random 2))
                               (upcase  ch)
                               (downcase ch)))))))


So  with M-x capitalize-randomly RET you can get something like:

> 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. 


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.

Re: Randomly capitalise letters

[Johnny]

Burton Samograd <burton@samograd.ca> writes:

> 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))))
>

Thanks, works great! 

-- 
Johnny

Re: Randomly capitalise letters

[Johnny]

"Pascal J. Bourguignon" <pjb@informatimago.com> 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. 
>
> That's not a library command, that's for sure, but it's easy to write
> it.  You can learn how to configure emacs to do this kind of things by
> reading:
>
>
>   An Introduction to Programming in Emacs Lisp
>   http://www.gnu.org/software/emacs/emacs-lisp-intro/  or  M-: (info "(eintr)Top") RET
>   (for non programmers)
>
>   Emacs Lisp Manual
>   http://www.gnu.org/software/emacs/manual/elisp.html  or  M-: (info "(elisp)Top") RET
>
>   Emacs Manual
>   http://www.gnu.org/software/emacs/manual/   or  M-: (info "(emacs)Top") RET
>
>
> For example, you could write:
>
> (defun capitalize-randomly (start end)
>    (interactive "r")
>    (goto-char start)
>    (while (< (point) end)
>      (let ((ch (char-after (point))))
>        (delete-region (point) (1+ (point)))
>        (insert (format "%c" (if (zerop (random 2))
>                                (upcase  ch)
>                                (downcase ch)))))))
>
>
> So  with M-x capitalize-randomly RET you can get something like:
>
>> 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 Pascal, I will check out the links to try to learn some lisp,
it's long overdue!

All the best,
-- 
Johnny

Re: Randomly capitalise letters

[Stefan Monnier]

>     (while (not (= start end))
>       (if (= 0 (random downcase-factor))
>           (upcase-region start (1+ start)))
>       (incf start))))

You could speed it up with something like

    (while (< start end)
      (upcase-region start (1+ start))
      (incf start (+ 1 (random downcase-factor))))


-- Stefan

Re: Randomly capitalise letters

[Burton Samograd]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>     (while (not (= start end))
>>       (if (= 0 (random downcase-factor))
>>           (upcase-region start (1+ start)))
>>       (incf start))))
>
> You could speed it up with something like
>
>     (while (< start end)
>       (upcase-region start (1+ start))
>       (incf start (+ 1 (random downcase-factor))))

Good idea in case you want to random-case 'War and Peace' :)

--
Burton Samograd

Re: Randomly capitalise letters

[Sean McAfee]

"Pascal J. Bourguignon" <pjb@informatimago.com> writes:
> (defun capitalize-randomly (start end)
>    (interactive "r")
>    (goto-char start)
>    (while (< (point) end)
>      (let ((ch (char-after (point))))
>        (delete-region (point) (1+ (point)))
>        (insert (format "%c" (if (zerop (random 2))
>                                (upcase  ch)
>                                (downcase ch)))))))

It's worth noting that if you regularly use Emacs for producing random
numbers, you probably want to put "(random t)" in your .emacs file to
seed the random number generator.  I once wrote some routines to
generate random events for an online game I was running, and it took a
little while for me to notice that the same events were regularly
occurring in the same order every morning.

Re: Randomly capitalise letters

[Stefan Monnier]

> It's worth noting that if you regularly use Emacs for producing random
> numbers, you probably want to put "(random t)" in your .emacs file to
> seed the random number generator.

Indeed.  And it won't be needed in Emacs>24.2, luckily.


        Stefan

Re: Randomly capitalise letters

[jidanni]

(defun studlify-region (begin end)
  "Studlify-case the region."

What kind of documentation is that?

The same meager amount as
$ apropos studly|/usr/games/studly
stUdly (6)           - assOrteD teXt fIlteRs

I suppose.