commit e91a27b6ea82b1795c08760ce15f8c0683945ba3
parent 1c7c7c91a0043b45c72ac62c4ad16ebe664de3e7
Author: Crazazy <crazazy@tilde.cafe>
Date: Tue, 22 Feb 2022 12:46:23 +0100
[github-elpa] Update archive
Diffstat:
6 files changed, 74 insertions(+), 70 deletions(-)
diff --git a/docs/elpa/archive-contents b/docs/elpa/archive-contents
@@ -1,2 +1,2 @@
(1
- (emenu . [(20220222 1138) nil "No description available." single ((:commit . "85f3b7f5f64f409929c572f20a3d7c8fb5176238") (:authors ("Erik Oosting" . "crazazy@tilde.cafe")) (:maintainer "Erik Oosting" . "crazazy@tilde.cafe") (:keywords "application-launcher" "misc") (:url . "https://crazazy.tilde.cafe/emenu.git/log.html"))]))-
\ No newline at end of file
+ (emenu . [(20220221 1604) nil "No description available." single ((:commit . "88e2e1b545646cff1db0f64884b970ccd128a9a3") (:authors ("Erik Oosting" . "crazazy@tilde.cafe")) (:maintainer "Erik Oosting" . "crazazy@tilde.cafe") (:keywords "application-launcher" "misc") (:url . "https://crazazy.tilde.cafe/emenu.git/log.html"))]))+
\ No newline at end of file
diff --git a/docs/elpa/emenu-20220221.1604.el b/docs/elpa/emenu-20220221.1604.el
@@ -0,0 +1,59 @@
+;; emenu.el --- An emacs dmenu clone -*- lexical-binding t -*-
+
+;; Copyright © 2022 Erik Oosting
+
+;; Author: Erik Oosting <crazazy@tilde.cafe>
+;; Keywords: application-launcher, misc
+;; Package-Version: 20220221.1604
+;; Package-Commit: 88e2e1b545646cff1db0f64884b970ccd128a9a3
+;; URL: https://crazazy.tilde.cafe/emenu.git/log.html
+
+;;; License:
+;; This file comes with the MIT license, and without any warranty whatsoever
+;; You can do with this stuff whatever you want to, but just remember
+;; to put me in the footnote :D. Would be nice at least
+
+;;; Commentary:
+;; This is basically what dmenu does, but then in emacs. There is a function 'all-commands'
+;; that gets you all the commands that are on your system. If you instead want to use emenu
+;; on a different list of strings, you can just pass that list to emenu itself and it will
+;; let you select something yourself
+
+(require 'cl-seq)
+(require 'ido)
+
+(defun emenu--all-commands ()
+ "returns a list of all the programs accessible to you in $PATH"
+ ;; This ls-output part was mostly created by phundrak because he found my shell-piping implementation
+ ;; inelegant. If something has to change about this chances are this is going to return to shell
+ ;; scripting again
+ (let ((ls-output (mapcan (lambda (path)
+ (when (file-readable-p path)
+ (cl-remove-if (lambda (file)
+ (let ((fullpath (concat path "/" file)))
+ (or (file-directory-p fullpath)
+ (not (file-executable-p fullpath)))))
+ (directory-files path nil directory-files-no-dot-files-regexp nil))))
+ (split-string (getenv "PATH") ":" t)))
+ (alias-output (split-string (shell-command-to-string "alias -p | sed -E 's/^alias ([^=]*)=.*$/\\1/'") "\n")))
+ (append ls-output alias-output)))
+
+(defun emenu (&optional command-list)
+ "A dmenu-inspired application launcher using a separate emacs frame"
+ (interactive)
+ (with-selected-frame (make-frame '((name . "emenu")
+ (minibuffer . only)
+ (width . 151)
+ (height . 1)))
+ (unwind-protect
+ (progn
+ (call-process
+ (ido-completing-read "Command: " (or
+ command-list
+ (emenu--all-commands)))
+ nil
+ 0)
+ (keyboard-quit))
+ (delete-frame))))
+
+;;; emenu.el ends here
diff --git a/docs/elpa/emenu-20220221.1604.entry b/docs/elpa/emenu-20220221.1604.entry
@@ -0,0 +1,9 @@
+(emenu .
+ [(20220221 1604)
+ nil "No description available." single
+ ((:commit . "88e2e1b545646cff1db0f64884b970ccd128a9a3")
+ (:authors
+ ("Erik Oosting" . "crazazy@tilde.cafe"))
+ (:maintainer "Erik Oosting" . "crazazy@tilde.cafe")
+ (:keywords "application-launcher" "misc")
+ (:url . "https://crazazy.tilde.cafe/emenu.git/log.html"))])
diff --git a/docs/elpa/emenu-20220222.1138.el b/docs/elpa/emenu-20220222.1138.el
@@ -1,59 +0,0 @@
-;; emenu.el --- An emacs dmenu clone -*- lexical-binding t -*-
-
-;; Copyright © 2022 Erik Oosting
-
-;; Author: Erik Oosting <crazazy@tilde.cafe>
-;; Keywords: application-launcher, misc
-;; Package-Version: 20220222.1138
-;; Package-Commit: 85f3b7f5f64f409929c572f20a3d7c8fb5176238
-;; URL: https://crazazy.tilde.cafe/emenu.git/log.html
-
-;;; License:
-;; This file comes with the MIT license, and without any warranty whatsoever
-;; You can do with this stuff whatever you want to, but just remember
-;; to put me in the footnote :D. Would be nice at least
-
-;;; Description:
-;; This is basically what dmenu does, but then in emacs. There is a function 'all-commands'
-;; that gets you all the commands that are on your system. If you instead want to use emenu
-;; on a different list of strings, you can just pass that list to emenu itself and it will
-;; let you select something yourself
-
-(require 'cl-seq)
-(require 'ido)
-
-(defun emenu--all-commands ()
- "returns a list of all the programs accessible to you in $PATH"
- ;; This ls-output part was mostly created by phundrak because he found my shell-piping implementation
- ;; inelegant. If something has to change about this chances are this is going to return to shell
- ;; scripting again
- (let ((ls-output (mapcan (lambda (path)
- (when (file-readable-p path)
- (cl-remove-if (lambda (file)
- (let ((fullpath (concat path "/" file)))
- (or (file-directory-p fullpath)
- (not (file-executable-p fullpath)))))
- (directory-files path nil directory-files-no-dot-files-regexp nil))))
- (split-string (getenv "PATH") ":" t)))
- (alias-output (split-string (shell-command-to-string "alias -p | sed -E 's/^alias ([^=]*)=.*$/\\1/'") "\n")))
- (append ls-output alias-output)))
-
-(defun emenu (&optional command-list)
- "A dmenu-inspired application launcher using a separate emacs frame"
- (interactive)
- (with-selected-frame (make-frame '((name . "emenu")
- (minibuffer . only)
- (width . 151)
- (height . 1)))
- (unwind-protect
- (progn
- (call-process
- (ido-completing-read "Command: " (or
- command-list
- (emenu--all-commands)))
- nil
- 0)
- (keyboard-quit))
- (delete-frame))))
-
-;;; emenu.el ends here
diff --git a/docs/elpa/emenu-20220222.1138.entry b/docs/elpa/emenu-20220222.1138.entry
@@ -1,9 +0,0 @@
-(emenu .
- [(20220222 1138)
- nil "No description available." single
- ((:commit . "85f3b7f5f64f409929c572f20a3d7c8fb5176238")
- (:authors
- ("Erik Oosting" . "crazazy@tilde.cafe"))
- (:maintainer "Erik Oosting" . "crazazy@tilde.cafe")
- (:keywords "application-launcher" "misc")
- (:url . "https://crazazy.tilde.cafe/emenu.git/log.html"))])
diff --git a/docs/elpa/emenu-readme.txt b/docs/elpa/emenu-readme.txt
@@ -0,0 +1,4 @@
+This is basically what dmenu does, but then in emacs. There is a function 'all-commands'
+that gets you all the commands that are on your system. If you instead want to use emenu
+on a different list of strings, you can just pass that list to emenu itself and it will
+let you select something yourself
