|
From: | Emanuel Berg |
Subject: | Re: Generate random char (and string) from unicode category (e.g: letter) |
Date: | Thu, 06 Dec 2018 15:29:58 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) |
Here [1] is a little something that can be interesting, who knows? (defun scramble (beg end) "Shuffle chars in region from BEG to END." (interactive "r") (when (use-region-p) (save-excursion (let*((str (region-to-string)) (chars (delete "" (split-string str ""))) (rand-chars (sort chars (lambda (a b) (zerop (random 2))))) ) (delete-region beg end) (dolist (c rand-chars) (insert c) ))))) [1] http://user.it.uu.se/~embe8573/emacs-init/sort-my.el -- underground experts united http://user.it.uu.se/~embe8573
[Prev in Thread] | Current Thread | [Next in Thread] |