Re: comic-book-insult

[Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

Marcin Borkowski wrote:

> Nice, but a bit wrong. If you try it as an
> interactive function, it won't display the
> result - only return it, but this is of no
> use with M-x.

Right, forgot about that, OK:

(defun scramble-string (str)
  "Randomize the characters of a string."
  (interactive "sscramble me: ")
  (let*((empty-str  "")
        (chars      (delete empty-str (split-string str empty-str)))
        (rand-chars (sort chars (lambda (_ __) (zerop (random 2)))))
        (rand-str   (mapconcat 'identity rand-chars ""))
        )
    (if (called-interactively-p 'any)
        (message rand-str)
      rand-str) ))

>> (defun comic-book-insult ()
>>   (interactive)
>>   (insert (concat (scramble-string "@#$%&") "!") ))
>>
>> ;; (comic-book-insult) ; %@&$#!
>> ;; (comic-book-insult) ; $%#@&!
>
> And this is rather cute, thanks for sharing!

Anytime :)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal