;;; -*- 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

(provide 'comic-book-insult)