App launcher (again)

lisp/mitch-packages.el

@@ -261,6 +261,28 @@ see  https://www.reddit.com/r/emacs/comments/xq6rpa/comment/iqynyu9/?utm_source=
     :after vertico
     :config
     (vertico-mouse-mode)))
+(elpaca-use-package (app-launcher
+		     :host github :repo "SebastienWae/app-launcher")
+  :after vertico
+  :config
+  ;; modified from https://www.reddit.com/r/unixporn/comments/s7p7pr/so_which_run_launcher_do_you_use_rofi_or_dmenu/
+  (defun emacs-run-launcher ()
+    "Create and select a frame called emacs-run-launcher which
+consists only of a minibuffer and has specific dimensions.  Run
+counsel-linux-app on that frame, which is an Emacs command that
+prompts you to select an app and open it in a dmenu like
+behaviour.  Delete the frame after that command has exited"
+    (interactive)
+    (with-selected-frame
+	(make-frame '(;; see ~/.config/sway/config
+		      (name . "dentarthurdent")
+		      (minibuffer . only)
+		      (width . 120)
+		      (height . 11)))
+      (unwind-protect
+	  (app-launcher-run-app)
+	(delete-frame)))))
+
 (elpaca-use-package consult
   :after vertico
   :general