diff options
author | Alan Pearce | 2015-07-11 16:02:33 +0200 |
---|---|---|
committer | Alan Pearce | 2015-07-11 16:02:33 +0200 |
commit | ecb9eb5b91727b0222069bdf250ada64ea6e644d (patch) | |
tree | 6a5a9855467ff8a2604d3696da930e850f9e16ac /tag-emacs | |
parent | e6b57d1131f4734871429b7ffdaab77b424a3252 (diff) | |
download | dotfiles-ecb9eb5b91727b0222069bdf250ada64ea6e644d.tar.lz dotfiles-ecb9eb5b91727b0222069bdf250ada64ea6e644d.tar.zst dotfiles-ecb9eb5b91727b0222069bdf250ada64ea6e644d.zip |
Emacs: Remove package stats functions
I don’t really care about these any more
Diffstat (limited to 'tag-emacs')
-rw-r--r-- | tag-emacs/emacs.d/init.el | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el index 5c881b7..f11336a 100644 --- a/tag-emacs/emacs.d/init.el +++ b/tag-emacs/emacs.d/init.el @@ -51,40 +51,6 @@ :defer 5 :config (pallet-mode 1)) -(if (not (fboundp #'package-desc-archive)) - (defsubst package-desc-archive (desc) - (aref desc (1- (length desc))))) - -(defun package-list-installed () - (loop for pkg in package-activated-list - collect (assq pkg package-archive-contents))) - -(defun package-archive-stats () - (let ((archives (make-hash-table)) - (assoc '())) - (dolist (arc package-archives) - (puthash (car arc) 0 archives)) - (maphash (lambda (k v) - (setq assoc (cons (cons k v) assoc))) - (dolist (pkg (-filter #'identity (package-list-installed)) archives) - (let ((pkg-arc (package-desc-archive (cdr pkg)))) - (incf (gethash pkg-arc archives))))) - assoc)) - -(defun package-show-installed-from-archive (archive) - (interactive (list (helm-comp-read "Archive: " (mapcar #'car package-archives) - :must-match t))) - (let ((from-arc (mapcar #'car - (--filter (equalp (package-desc-archive (cdr it)) archive) - (package-list-installed))))) - (if (called-interactively-p 'any) - (message "%s" from-arc) - from-arc))) - -(defun package-show-archive-stats () - (interactive) - (message "%s" (package-archive-stats))) - ;;;; Style (req-package whitespace |