From a15ab4a3f2bbe4628ae2d54f2e9ab8b9c5d0aa3d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 20 Dec 2019 23:04:07 -0500 Subject: [PATCH] lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. --- modules/lang/web/autoload/evil.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/modules/lang/web/autoload/evil.el b/modules/lang/web/autoload/evil.el index fcc563971..ebbd100fa 100644 --- a/modules/lang/web/autoload/evil.el +++ b/modules/lang/web/autoload/evil.el @@ -2,20 +2,25 @@ ;;;###if (featurep! :editor evil) ;;;###autoload (autoload '+web:encode-html-entities "lang/web/autoload/evil" nil t) -(evil-define-operator +web:encode-html-entities (beg end &optional input) +(evil-define-operator +web:encode-html-entities (beg end &optional bang input) "Encodes HTML entities in INPUT or the selected region." - (interactive "") + (interactive "") (cond (input - (insert (+web-encode-entities input))) + (let ((result (+web-encode-entities input))) + (if bang + (kill-new result) + (insert result)))) ((and beg end) (+web/encode-entities-region beg end)))) ;;;###autoload (autoload '+web:decode-html-entities "lang/web/autoload/evil" nil t) -(evil-define-operator +web:decode-html-entities (beg end &optional input) +(evil-define-operator +web:decode-html-entities (beg end &optional bang input) "Decodes HTML entities in INPUT or the selected region." - (interactive "") + (interactive "") (cond (input - (insert (+web-decode-entities input))) + (let ((result (+web-decode-entities input))) + (if bang + (kill-new result) + (insert result)))) ((and beg end) (+web/decode-entities-region beg end)))) -