doomemacs/modules/lang/web/autoload/evil.el

;;; lang/html/autoload/evil.el -*- lexical-binding: t; -*-
;;;###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 bang input)
  "Encodes HTML entities in INPUT or the selected region."
  (interactive "<r><!><a>")
  (cond (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 bang input)
  "Decodes HTML entities in INPUT or the selected region."
  (interactive "<r><!><a>")
  (cond (input
         (let ((result (+web-decode-entities input)))
           (if bang
               (kill-new result)
             (insert result))))
        ((and beg end)
         (+web/decode-entities-region beg end))))
Major optimization refactor, across the board + enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup. 2017-06-08 11:47:56 +02:00			`;;; lang/html/autoload/evil.el -- lexical-binding: t; --`
:boom: Remove :feature category :feature was a "catch-all" category. Many of its modules fit better in other categories, so they've been moved: - feature/debugger -> tools/debugger - feature/evil -> editor/evil - feature/eval -> tools/eval - feature/lookup -> tools/lookup - feature/snippets -> editor/snippets - feature/file-templates -> editor/file-templates - feature/workspaces -> ui/workspaces More potential changes in the future: - A new :term category for terminal emulation modules (eshell, term and vterm). - A new :os category for modules dedicated to os-specific functionality. The :tools macos module would fit here, but so would modules for nixos and arch. - A new :services category for web-service integration, like wakatime, twitter, elfeed, gist and pastebin services. 2019-04-21 19:59:44 -04:00			`;;;###if (featurep! :editor evil)`
Update modules/lang/* 2017-02-19 18:57:16 -05:00
lang/web: fix {en,de}code-html-entities commands 2017-04-22 21:45:14 -04:00			`;;;###autoload (autoload '+web:encode-html-entities "lang/web/autoload/evil" nil t)`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(evil-define-operator +web:encode-html-entities (beg end &optional bang input)`
Revise and update docstrings and comments 2019-05-01 19:12:52 -04:00			`"Encodes HTML entities in INPUT or the selected region."`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(interactive "<r><!><a>")`
Update modules/lang/* 2017-02-19 18:57:16 -05:00			`(cond (input`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(let ((result (+web-encode-entities input)))`
			`(if bang`
			`(kill-new result)`
			`(insert result))))`
Update modules/lang/* 2017-02-19 18:57:16 -05:00			`((and beg end)`
lang/web: fix {en,de}code-html-entities commands 2017-04-22 21:45:14 -04:00			`(+web/encode-entities-region beg end))))`
Update modules/lang/* 2017-02-19 18:57:16 -05:00
lang/web: fix {en,de}code-html-entities commands 2017-04-22 21:45:14 -04:00			`;;;###autoload (autoload '+web:decode-html-entities "lang/web/autoload/evil" nil t)`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(evil-define-operator +web:decode-html-entities (beg end &optional bang input)`
Revise and update docstrings and comments 2019-05-01 19:12:52 -04:00			`"Decodes HTML entities in INPUT or the selected region."`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(interactive "<r><!><a>")`
Update modules/lang/* 2017-02-19 18:57:16 -05:00			`(cond (input`
lang/web: add bang to :enhtml & :dehtml BANG = copy result to clipboard instead of inserting into buffer. 2019-12-20 23:04:07 -05:00			`(let ((result (+web-decode-entities input)))`
			`(if bang`
			`(kill-new result)`
			`(insert result))))`
Update modules/lang/* 2017-02-19 18:57:16 -05:00			`((and beg end)`
lang/web: fix {en,de}code-html-entities commands 2017-04-22 21:45:14 -04:00			`(+web/decode-entities-region beg end))))`