emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/web: add bang to :enhtml & :dehtml

Browse source 
BANG = copy result to clipboard instead of inserting into buffer.
This commit is contained in:
Henrik Lissner 2019-12-20 23:04:07 -05:00
parent 7033b589cb
commit a15ab4a3f2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
modules/lang/web/autoload/evil.el
View file

@ -2,20 +2,25 @@
;;;###if (featurep! :editor evil) ;;;###if (featurep! :editor evil)
;;;###autoload (autoload '+web:encode-html-entities "lang/web/autoload/evil" nil t) ;;;###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." "Encodes HTML entities in INPUT or the selected region."
(interactive "<r><a>") (interactive "<r><!><a>")
(cond (input (cond (input
(insert (+web-encode-entities input))) (let ((result (+web-encode-entities input)))
(if bang
(kill-new result)
(insert result))))
((and beg end) ((and beg end)
(+web/encode-entities-region beg end)))) (+web/encode-entities-region beg end))))
;;;###autoload (autoload '+web:decode-html-entities "lang/web/autoload/evil" nil t) ;;;###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." "Decodes HTML entities in INPUT or the selected region."
(interactive "<r><a>") (interactive "<r><!><a>")
(cond (input (cond (input
(insert (+web-decode-entities input))) (let ((result (+web-decode-entities input)))
(if bang
(kill-new result)
(insert result))))
((and beg end) ((and beg end)
(+web/decode-entities-region beg end)))) (+web/decode-entities-region beg end))))