/usr/share/emacs/site-lisp/elpa-src/engine-mode-2.0.0/engine-mode.el is in elpa-engine-mode 2.0.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 | ;;; engine-mode.el --- Define and query search engines from within Emacs.
;; Author: Harry R. Schwartz <hello@harryrschwartz.com>
;; Version: 2.0.0
;; URL: https://github.com/hrs/engine-mode/engine-mode.el
;; This file is NOT part of GNU Emacs.
;;; Commentary:
;; `engine-mode' is a global minor mode for Emacs. It enables you to
;; easily define search engines, bind them to keybindings, and query
;; them from the comfort of your editor.
;; For example, suppose we want to be able to easily search GitHub:
;; (defengine github
;; "https://github.com/search?ref=simplesearch&q=%s")
;; This defines an interactive function `engine/search-github'. When
;; executed it will take the selected region (or prompt for input, if
;; no region is selected) and search GitHub for it, displaying the
;; results in your default browser.
;; The `defengine' macro can also take an optional key combination,
;; prefixed with "C-c /":
;; (defengine duckduckgo
;; "https://duckduckgo.com/?q=%s"
;; :keybinding "d")
;; `C-c / d' is now bound to the new function
;; engine/search-duckduckgo'! Nifty.
;;; License:
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Code:
(eval-when-compile (require 'cl))
(defvar engine-mode-map (make-sparse-keymap))
(defvar engine-mode-prefixed-map (make-sparse-keymap))
(define-minor-mode engine-mode
"Minor mode for defining and querying search engines through Emacs.
\\{engine-mode-map}"
:global t
:keymap engine-mode-map)
(defun engine/set-keymap-prefix (prefix-key)
"Bind the engine-mode keymap to a new prefix.
For example, to use \"C-c s\" instead of the default \"C-c /\":
(engine/set-keymap-prefix (kbd \"C-c s\"))"
(define-key engine-mode-map prefix-key engine-mode-prefixed-map))
(defcustom engine/keybinding-prefix "C-x /"
"The default engine-mode keybindings prefix."
:group 'engine-mode
:type 'string)
(engine/set-keymap-prefix (kbd engine/keybinding-prefix))
(defcustom engine/browser-function browse-url-browser-function
"The default browser function used when opening a URL in an engine.
Defaults to `browse-url-browser-function'."
:group 'engine-mode
:type 'symbol)
(defun engine/search-prompt (engine-name)
(concat "Search " (capitalize engine-name) ": "))
(defun engine/prompted-search-term (engine-name)
(read-string (engine/search-prompt engine-name) (thing-at-point 'symbol)))
(defun engine/get-query (engine-name)
"Return the selected region (if any) or prompt the user for a query."
(if (use-region-p)
(buffer-substring (region-beginning) (region-end))
(engine/prompted-search-term engine-name)))
(defun engine/execute-search (search-engine-url browser-function search-term)
"Display the results of the query."
(interactive)
(let ((browse-url-browser-function browser-function))
(browse-url
(format search-engine-url
(url-hexify-string search-term)))))
(defun engine/function-name (engine-name)
(intern (concat "engine/search-" (downcase (symbol-name engine-name)))))
(defun engine/docstring (engine-name)
(concat "Search "
(capitalize (symbol-name engine-name))
" for the selected text. Prompt for input if none is selected."))
(defun engine/bind-key (engine-name keybinding)
(when keybinding
`(define-key engine-mode-prefixed-map ,keybinding
(quote ,(engine/function-name engine-name)))))
(cl-defmacro defengine (engine-name search-engine-url &key keybinding docstring (browser 'engine/browser-function) (term-transformation-hook 'identity))
"Define a custom search engine.
`engine-name' is a symbol naming the engine.
`search-engine-url' is the url to be queried, with a \"%s\"
standing in for the search term.
The optional keyword argument `docstring' assigns a docstring to
the generated function. A reasonably sensible docstring will be
generated if a custom one isn't provided.
The optional keyword argument `browser` assigns the browser
function to be used when opening the URL.
The optional keyword argument `term-transformation-hook' is a
function that will be applied to the search term before it's
substituted into `search-engine-url'. For example, if we wanted
to always upcase our search terms, we might use:
(defengine duckduckgo
\"https://duckduckgo.com/?q=%s\"
:term-transformation-hook 'upcase)
In this case, searching for \"foobar\" will hit the url
\"https://duckduckgo.com/?q=FOOBAR\".
The optional keyword argument `keybinding' is a string describing
the key to bind the new function.
Keybindings are in the `engine-mode-map', so they're prefixed.
For example, to search Wikipedia, use:
(defengine wikipedia
\"http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s\"
:keybinding \"w\"
:docstring \"Search Wikipedia!\")
Hitting \"C-c / w\" will be bound to the newly-defined
`engine/search-wikipedia' function."
(assert (symbolp engine-name))
`(prog1
(defun ,(engine/function-name engine-name) (search-term)
,(or docstring (engine/docstring engine-name))
(interactive
(list (engine/get-query ,(symbol-name engine-name))))
(engine/execute-search ,search-engine-url ,browser (,term-transformation-hook search-term)))
,(engine/bind-key engine-name keybinding)))
(provide 'engine-mode)
;;; engine-mode.el ends here
|