From 68f292a4047617bd91dbed8bf44d7d7aa4db0046 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Sun, 16 Jul 2023 16:32:12 +0300
Subject: Create app launcher

---
 emacs.org | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'emacs.org')

diff --git a/emacs.org b/emacs.org
index 1c704b4..739753c 100755
--- a/emacs.org
+++ b/emacs.org
@@ -1305,7 +1305,36 @@ Set aliases for emacs functions and ~PATH~
     (switch-to-buffer (get-buffer-create "*scratch*"))
     (emacs-lisp-mode))
 
+  (defun thanos/frame ()
+    (let ((frame (make-frame '((minibuffer . only)))))
+      (set-frame-height frame 300)
+      (set-frame-width frame 800)
+      (counsel-linux-app)
+      frame))
+
   (define-key Create (kbd "e") 'create-scratch)
+  ;; 
 #+end_src
 
 
+
+
+
+** App launcher
+#+begin_src emacs-lisp
+  (when (equal (load-file "~/Developer/emacs-app-launcher/app-launcher.el") t)
+    (defun thanos/app-launcher ()
+      (interactive)
+      (let ((ivy-height 100))
+	(with-selected-frame
+	    (make-frame '((name . "thanos/emacs-launcher")
+			  (minibuffer . only)
+			  (fullscreen . 0)
+			  (undecorated . t)
+			  (internal-border-width . 10)
+			  (width . 80)
+			  (height . 11)))
+	  (unwind-protect
+	      (app-launcher-run-app)
+	    (delete-frame))))))
+#+end_src
-- 
cgit v1.2.3