emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Bind `[6' and `]6' to encode/decode base64 

Closes #521
This commit is contained in:
Kevin Brubeck Unhammer 2021-08-25 14:04:54 +02:00
parent 0a836facbc
commit 4329462e08
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
modes/unimpaired/evil-collection-unimpaired.el
View File

@ -179,6 +179,18 @@
(ignore count)
(evil-collection-unimpaired--encode beg end #'url-unhex-string))
(evil-define-operator evil-collection-unimpaired-b64-encode (count &optional beg end)
"Encode a base64 string."
(interactive "<c><r>")
(ignore count)
(evil-collection-unimpaired--encode beg end #'base64-encode-string))
(evil-define-operator evil-collection-unimpaired-b64-decode (count &optional beg end)
"Decode a base64 string."
(interactive "<c><r>")
(ignore count)
(evil-collection-unimpaired--encode beg end #'base64-decode-string))
;; https://stackoverflow.com/questions/2423834/move-line-region-up-and-down-in-emacs
(defun evil-collection-unimpaired--move-text (arg)
"Move text down if ARG is positive, otherwise move text up."
@ -248,7 +260,9 @@
"]n" 'evil-collection-unimpaired-next-SCM-conflict-marker)
(evil-collection-define-key 'motion 'evil-collection-unimpaired-mode-map
"[u" 'evil-collection-unimpaired-url-encode
"]u" 'evil-collection-unimpaired-url-decode))
"]u" 'evil-collection-unimpaired-url-decode
"[6" 'evil-collection-unimpaired-b64-encode
"]6" 'evil-collection-unimpaired-b64-decode))
(provide 'evil-collection-unimpaired)
;;; evil-collection-unimpaired.el ends here