Add redact function

2 years ago · 446a0f72fa
parent 0f1aec0d57
commit 446a0f72fa
1 changed files with 62 additions and 0 deletions
--- a/custom/al-bhed.el
+++ b/custom/al-bhed.el
@ -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"])))