[elpa] externals/embark 8f19109 5/5: Merge pull request #429 from minad/region-actions

[ELPA Syncer]

branch: externals/embark
commit 8f19109e487dd832e2b6212d7e310e9e583229cc
Merge: 33b47bb d375a64
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #429 from minad/region-actions
    
    Add a few more region actions
---
 embark.el | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

diff --git a/embark.el b/embark.el
index 50f5de3..dabcbce 100644
--- a/embark.el
+++ b/embark.el
@@ -3535,6 +3535,13 @@ ALGORITHM is the hash algorithm symbol understood by 
`secure-hash'."
     (delete-region start end)
     (insert decoded)))
 
+(defvar epa-replace-original-text)
+(defun embark-epa-decrypt-region (start end)
+  "Decrypt region between START and END."
+  (interactive "r")
+  (let ((epa-replace-original-text t))
+    (epa-decrypt-region start end)))
+
 ;;; Setup and pre-action hooks
 
 (defun embark--restart (&rest _)
@@ -3623,13 +3630,13 @@ 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)
+  ("s" studlify-region)
   ("m" embark-hash-md5)
   ("1" embark-hash-sha1)
   ("2" embark-hash-sha256)
@@ -3638,8 +3645,12 @@ and leaves the point to the left of it."
   ("5" embark-hash-sha512)
   ("f" format-encode-region)
   ("F" format-decode-region)
+  ("b" base64-encode-region)
+  ("B" base64-decode-region)
   ("u" embark-encode-url)
-  ("U" embark-decode-url))
+  ("U" embark-decode-url)
+  ("c" epa-encrypt-region)
+  ("C" embark-epa-decrypt-region))
 
 (fset 'embark-encode-map embark-encode-map)
 
@@ -3692,7 +3703,11 @@ and leaves the point to the left of it."
   (":" calc-grab-sum-down)
   ("_" calc-grab-sum-across)
   ("r" reverse-region)
-  ("D" delete-duplicate-lines)
+  ("d" delete-duplicate-lines)
+  ("b" browse-url-of-region)
+  ("h" shr-render-region)
+  ("'" expand-region-abbrevs)
+  ("v" vc-region-history)
   ("s" 'embark-sort-map)
   (">" 'embark-encode-map))
 
@@ -3768,6 +3783,7 @@ and leaves the point to the left of it."
   ("s" info-lookup-symbol)
   ("n" embark-next-symbol)
   ("p" embark-previous-symbol)
+  ("'" expand-abbrev)
   ("$" ispell-word))
 
 (embark-define-keymap embark-expression-map
@@ -3887,7 +3903,9 @@ and leaves the point to the left of it."
   ("<" bookmark-insert)
   ("j" bookmark-jump)
   ("o" bookmark-jump-other-window)
-  ("f" bookmark-jump-other-frame))
+  ("f" bookmark-jump-other-frame)
+  ("a" 'bookmark-show-annotation)
+  ("e" 'bookmark-edit-annotation))
 
 (embark-define-keymap embark-unicode-name-map
   "Keymap for Embark unicode name actions."
@@ -3900,7 +3918,7 @@ and leaves the point to the left of it."
   ("$" ispell-region)
   ("f" fill-region)
   ("u" upcase-region)
-  ("d" downcase-region)
+  ("l" downcase-region)
   ("c" capitalize-region)
   ("s" whitespace-cleanup-region)
   ("=" count-words-region))