doomemacs/modules/feature/jump/autoload/evil.el

;;; feature/jump/autoload/evil.el -*- lexical-binding: t; -*-

;;;###autoload (autoload '+jump:online "feature/jump/autoload/evil" nil t)
(evil-define-command +jump:online (query &optional bang)
  "Look up QUERY online. Will prompt for search engine the first time, then
reuse it on consecutive uses of this command. If BANG, always prompt for search
engine."
  (interactive "<a><!>")
  (let ((query (or query (thing-at-point 'symbol t))))
    (unless query
      (user-error "The search query is empty"))
    (+jump/online
     (or (and (not bang) (bound-and-true-p +jump--online-last))
         (completing-read (format "Search on (%s): " query)
                          (mapcar #'car +jump-search-url-alist)
                          nil t))
     query)))
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			`;;; feature/jump/autoload/evil.el -- lexical-binding: t; --`
Add :gblame & :grevert ex commands 2017-05-21 15:06:15 +02:00
			`;;;###autoload (autoload '+jump:online "feature/jump/autoload/evil" nil t)`
			`(evil-define-command +jump:online (query &optional bang)`
Add :lookup & rewrite +jump/online 2017-05-21 15:08:20 +02:00			`"Look up QUERY online. Will prompt for search engine the first time, then`
			`reuse it on consecutive uses of this command. If BANG, always prompt for search`
			`engine."`
Add :gblame & :grevert ex commands 2017-05-21 15:06:15 +02:00			`(interactive "<a><!>")`
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			`(let ((query (or query (thing-at-point 'symbol t))))`
			`(unless query`
			`(user-error "The search query is empty"))`
			`(+jump/online`
			`(or (and (not bang) (bound-and-true-p +jump--online-last))`
			`(completing-read (format "Search on (%s): " query)`
			`(mapcar #'car +jump-search-url-alist)`
			`nil t))`
			`query)))`