#+BEGIN_SRC emacs-lisp
- (if (>= emacs-major-version 24)
- (progn
- (require 'engine-mode)
+ (if (>= emacs-major-version 24)
+ (progn
+ (require 'engine-mode)
- (defengine amazon
- "http://www.amazon.de/s/ref=nb_sb_noss?url=search-alias%3Daps&filed-keywords=%s"
- "a"
- )
+ (defengine amazon
+ "http://www.amazon.de/s/ref=nb_sb_noss?url=search-alias%3Daps&filed-keywords=%s"
+ :keybinding "a"
+ )
- (defengine bing
- "http://www.bing.com/search?q=%s&qs=bs&form=QBLH"
- "b"
- )
+ (defengine bing
+ "http://www.bing.com/search?q=%s&qs=bs&form=QBLH"
+ :keybinding "b"
+ )
- (defengine cfengine
- "https://docs.cfengine.com/latest/search.html?q=%s"
- "c"
- )
++ (defengine cfengine
++ "https://docs.cfengine.com/latest/search.html?q=%s"
++ :keybinding "c"
++ )
+
- (defengine google-maps
- "http://maps.google.com/maps?q=%s"
- "m"
- )
+
- (defengine wikipedia
- "http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
- "w"
- )
+ (defengine google-maps
+ "http://maps.google.com/maps?q=%s"
+ :keybinding "m"
+ )
- (defengine youtube
- "http://www.youtube.com/results?aq=f&oq=&search_query=%s"
- "y"
- )
- (engine-mode 1)
+ (defengine wikipedia
+ "http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
+ :keybinding "w"
+ )
+
+ (defengine youtube
+ "http://www.youtube.com/results?aq=f&oq=&search_query=%s"
+ :keybinding "y"
+ )
+ (engine-mode 1)
- )
- )
+ )
+ )
#+END_SRC
*** expand-region