[elpa] externals/embark 8d692f8 02/10: Yrg'f qb guvf gura.

[ELPA Syncer]

branch: externals/embark
commit 8d692f85cc5b81d4b72faab7aaacbf65009caf08
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Yrg'f qb guvf gura.
    
    Gur dhrfgvba vf vs jr arrq n qvssrerag punenpgre orpnhfr bs gur rkcbeg 
funqbjvat.
---
 embark.el | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/embark.el b/embark.el
index 313fdff..b1cbccb 100644
--- a/embark.el
+++ b/embark.el
@@ -3562,6 +3562,16 @@ and leaves the point to the left of it."
   ("SPC" mark)
   ("DEL" delete-region))
 
+;; TODO add more encode actions, see M-x or C-h f encode region
+(embark-define-keymap embark-encode-map
+  "Keymap for Embark region encoding actions."
+  :parent nil
+  ("r" rot13-region)
+  ("." morse-region)
+  ("-" unmorse-region))
+
+(fset 'embark-encode-map embark-encode-map)
+
 (embark-define-keymap embark-sort-map
   "Keymap for Embark actions that sort the region"
   :parent nil
@@ -3575,7 +3585,6 @@ and leaves the point to the left of it."
 
 (fset 'embark-sort-map embark-sort-map)
 
-
 ;; these will have autoloads in Emacs 28
 (autoload 'calc-grab-sum-down "calc" nil t)
 (autoload 'calc-grab-sum-across "calc" nil t)
@@ -3599,9 +3608,6 @@ and leaves the point to the left of it."
   ("f" fill-region)
   ("p" fill-region-as-paragraph)
   ("$" ispell-region)
-  ("r" rot13-region)
-  (".." morse-region)
-  (".-" unmorse-region)
   ("=" count-words-region)
   ("s" whitespace-cleanup-region)
   ("t" transpose-regions)
@@ -3616,7 +3622,8 @@ and leaves the point to the left of it."
   ("_" calc-grab-sum-across)
   ("R" reverse-region)
   ("D" delete-duplicate-lines)
-  ("S" 'embark-sort-map))
+  ("S" 'embark-sort-map)
+  ("E" 'embark-encode-map))
 
 (embark-define-keymap embark-file-map
   "Keymap for Embark file actions."