|
From: | Sacha Chua |
Subject: | Re: 2022-11-14 Emacs news |
Date: | Mon, 14 Nov 2022 22:53:48 -0500 |
@%&#$!
You missed this one:
;;; -*- lexical-binding: t -*-
;;
;; this file:
;; https://dataswamp.org/~incal/emacs-init/comic-book-insult.el
(require 'seq)
(defun scramble-string (str)
"Randomize the characters of STR."
(seq-sort (lambda (_ __) (zerop (random 2))) str) )
(defun comic-book-insult ()
(interactive)
(insert (concat (scramble-string "@#$%&") "!")) )
;; (comic-book-insult) ; #$%&@!
;; (comic-book-insult) ; $&#@%!
;; (scramble-string "Sail Ho!") ; oHli!aS
--
underground experts united
https://dataswamp.org/~incal
[Prev in Thread] | Current Thread | [Next in Thread] |