From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:41334) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1df1YT-0004DG-Q6 for guix-patches@gnu.org; Tue, 08 Aug 2017 06:16:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1df1YQ-0000QZ-Dp for guix-patches@gnu.org; Tue, 08 Aug 2017 06:16:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:42396) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1df1YQ-0000QQ-9k for guix-patches@gnu.org; Tue, 08 Aug 2017 06:16:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1df1YQ-0007HK-0l for guix-patches@gnu.org; Tue, 08 Aug 2017 06:16:02 -0400 Subject: [bug#28010] [PATCH] gnu: Add emacs-engine-mode. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41121) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1df1Xj-0003hx-N6 for guix-patches@gnu.org; Tue, 08 Aug 2017 06:15:21 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1df1Xg-0008TV-BO for guix-patches@gnu.org; Tue, 08 Aug 2017 06:15:19 -0400 Received: from mail-lf0-x234.google.com ([2a00:1450:4010:c07::234]:33960) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1df1Xg-0008Ru-2L for guix-patches@gnu.org; Tue, 08 Aug 2017 06:15:16 -0400 Received: by mail-lf0-x234.google.com with SMTP id g25so12726443lfh.1 for ; Tue, 08 Aug 2017 03:15:15 -0700 (PDT) Received: from magnolia (92-100-248-224.dynamic.avangarddsl.ru. [92.100.248.224]) by smtp.gmail.com with ESMTPSA id e7sm138066ljb.84.2017.08.08.03.15.12 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Tue, 08 Aug 2017 03:15:12 -0700 (PDT) From: Oleg Pykhalov Date: Tue, 08 Aug 2017 13:14:37 +0300 Message-ID: <8737925pte.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 28010@debbugs.gnu.org --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-gnu-Add-emacs-engine-mode.patch Content-Description: [PATCH] gnu: Add emacs-engine-mode. >From 74039e61a71cae09fa0ae0f4a2debcdddb8f6118 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Tue, 8 Aug 2017 13:00:18 +0300 Subject: [PATCH] gnu: Add emacs-engine-mode. * gnu/packages/emacs.scm (emacs-engine-mode): New variable. --- gnu/packages/emacs.scm | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 3821d18d4..427f3fc3e 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -5272,3 +5272,34 @@ user easy handle git-format patch without exit Emacs. commit message for the current line. This uses the git-blame tool internally.") (license license:gpl3+))) + +(define-public emacs-engine-mode + (package + (name "emacs-engine-mode") + (version "2.0.0") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/hrs/engine-mode/archive/" + "v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1vm4p7pcp1vnwwxvps1bhm7i7hkabqqxl898knxf2hqvxys76684")))) + (build-system emacs-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'documents + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (documents (string-append out "/share/doc"))) + (for-each (lambda (file) + (install-file file documents)) + '("README.md" "doc/demo.gif"))) + #t))))) + (synopsis "Minor mode for defining and querying search engines") + (description "@code{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.") + (home-page "https://github.com/hrs/engine-mode") + (license license:gpl3+))) -- 2.14.0 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hello Guix, this is a config (inspired by Spacemacs) which I use to get =E2=80=9CM-x engine/search-wikipedia=E2=80=9D like searches. (use-package engine-mode :init (progn (setq search-engine-alist '((duck-duck-go :name "Duck Duck Go" :url "https://duckduckgo.com/?q=3D%s") (wikipedia :name "Wikipedia" :url "http://www.wikipedia.org/search-redirect.php?language=3Den&go= =3DGo&search=3D%s"))) (dolist (engine search-engine-alist) (let ((func (intern (format "engine/search-%S" (car engine))))) (autoload func "engine-mode" nil 'interactive)))) :config (progn (engine-mode t) (dolist (engine search-engine-alist) (let* ((cur-engine (car engine)) (engine-url (plist-get (cdr engine) :url))) (eval `(defengine ,cur-engine ,engine-url)))))) --=-=-=--