Add redact function

master
trémeur 2 years ago
parent 0f1aec0d57
commit 446a0f72fa

@ -140,3 +140,65 @@
["Q" "X"]
["O" "Y"]
["W" "Z"])))
(defun redact (*begin *end)
(interactive
(if (use-region-p)
(list (region-beginning) (region-end))
(list (line-beginning-position) (line-end-position))))
(replace-pairs-region
*begin
*end
'(
["a" "x"]
["b" "x"]
["c" "x"]
["d" "x"]
["e" "x"]
["f" "x"]
["g" "x"]
["h" "x"]
["i" "x"]
["j" "x"]
["k" "x"]
["l" "x"]
["m" "x"]
["n" "x"]
["o" "x"]
["p" "x"]
["q" "x"]
["r" "x"]
["s" "x"]
["t" "x"]
["u" "x"]
["v" "x"]
["w" "x"]
["x" "x"]
["y" "x"]
["z" "x"]
["A" "x"]
["B" "x"]
["C" "x"]
["D" "x"]
["E" "x"]
["F" "x"]
["G" "x"]
["H" "x"]
["I" "x"]
["J" "x"]
["K" "x"]
["L" "x"]
["M" "x"]
["N" "x"]
["O" "x"]
["P" "x"]
["Q" "x"]
["R" "x"]
["S" "x"]
["T" "x"]
["U" "x"]
["V" "x"]
["W" "x"]
["X" "x"]
["Y" "x"]
["Z" "x"])))

Loading…
Cancel
Save