commit 07d2443d6e2e0e91cca6e37c9eb42860ae546bee
parent 74586c0b42af36dd79825c5623ddb7d9cd503b6c
Author: Erik Oosting <crazazy@tilde.cafe>
Date: Fri, 25 Feb 2022 17:29:46 +0100
make elpa results empty
Diffstat:
8 files changed, 2 insertions(+), 92 deletions(-)
diff --git a/.gitignore b/.gitignore
@@ -8,5 +8,6 @@
*~
# Undo-tree save-files
-*.~undo-tree./docs/elpa/
+*.~undo-tree.
+docs/elpa/
/.github-elpa-working/
diff --git a/docs/elpa/archive-contents b/docs/elpa/archive-contents
@@ -1,3 +0,0 @@
-(1
- (emenu . [(20220222 1156) nil "An emacs dmenu clone" single ((:commit . "c05c417c6a0954a8f5bfb5e0b1358c601b0e4d04") (: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"))])
- (quelpa . [(20211228 248) ((emacs (25 1))) "Emacs Lisp packages built directly from source" tar ((:commit . "54fc5b951f103fadba25dde38274964737815883") (:keywords "tools" "package" "management" "build" "source" "elpa") (:url . "https://github.com/quelpa/quelpa"))]))-
\ No newline at end of file
diff --git a/docs/elpa/emenu-20220222.1156.el b/docs/elpa/emenu-20220222.1156.el
@@ -1,61 +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.1156
-;; Package-Commit: c05c417c6a0954a8f5bfb5e0b1358c601b0e4d04
-;; 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
-
-;;; Code:
-(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))))
-
-(provide 'emenu)
-;;; emenu.el ends here
diff --git a/docs/elpa/emenu-20220222.1156.entry b/docs/elpa/emenu-20220222.1156.entry
@@ -1,9 +0,0 @@
-(emenu .
- [(20220222 1156)
- nil "An emacs dmenu clone" single
- ((:commit . "c05c417c6a0954a8f5bfb5e0b1358c601b0e4d04")
- (: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
@@ -1,4 +0,0 @@
-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
diff --git a/docs/elpa/quelpa-20211228.248.entry b/docs/elpa/quelpa-20211228.248.entry
@@ -1,8 +0,0 @@
-(quelpa .
- [(20211228 248)
- ((emacs
- (25 1)))
- "Emacs Lisp packages built directly from source" tar
- ((:commit . "54fc5b951f103fadba25dde38274964737815883")
- (:keywords "tools" "package" "management" "build" "source" "elpa")
- (:url . "https://github.com/quelpa/quelpa"))])
diff --git a/docs/elpa/quelpa-20211228.248.tar b/docs/elpa/quelpa-20211228.248.tar
Binary files differ.
diff --git a/docs/elpa/quelpa-readme.txt b/docs/elpa/quelpa-readme.txt
@@ -1,5 +0,0 @@
-Your personal local Emacs Lisp Package Archive (ELPA) with packages
-built on-the-fly directly from source.
-
-See the README for more info:
-https://github.com/quelpa/quelpa/blob/master/README.org
