Emacs: Remove package stats functions I don’t really care about these any more
Alan Pearce alan@alanpearce.co.uk
Sat, 11 Jul 2015 16:02:33 +0200
1 files changed, 0 insertions(+), 34 deletions(-)
jump to
M tag-emacs/emacs.d/init.el → tag-emacs/emacs.d/init.el
@@ -51,40 +51,6 @@ (req-package pallet :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