03/06: gnu: Add emacs-app-launcher.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 90174c77cf59fd9681eb7442a92015cd61c8495d
Author: Nicolas Graves via Guix-patches via <guix-patches@gnu.org>
AuthorDate: Tue Sep 13 16:08:44 2022 +0200

    gnu: Add emacs-app-launcher.
    
    * gnu/packages/emacs-xyz.scm (emacs-app-launcher): New variable.
    
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/emacs-xyz.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index af5646c78c..f471032fc8 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -2605,6 +2605,31 @@ This package turns this into an O(1) operation.  It does 
so by assigning a
 letter to each link using avy.")
     (license license:gpl3+)))
 
+(define-public emacs-app-launcher
+  ;; XXX: Upstream did not tag any commit so far.  Base version is extracted
+  ;; from Version keyword.
+  (let ((commit "d5015e394b0a666a8c7c4d4bdf786266e773b145")
+        (revision "0"))
+    (package
+      (name "emacs-app-launcher")
+      (version (git-version "0.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/SebastienWae/app-launcher";)
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0l97ajy27awydyd4gc6323wyhpm5vm2db6i0lp5gqaxi9fp7jivp"))))
+      (build-system emacs-build-system)
+      (home-page "https://github.com/SebastienWae/app-launcher";)
+      (synopsis "Use Emacs standard completion to launch applications")
+      (description "This package defines the @code{app-launcher-run-app}
+command, which uses Emacs standard completion to select an application
+installed on your machine and launch it.")
+      (license license:gpl3+))))
+
 (define-public emacs-auto-sudoedit
   (package
     (name "emacs-auto-sudoedit")