summary refs log tree commit diff stats
path: root/tag-emacs
diff options
context:
space:
mode:
authorAlan Pearce2015-07-11 16:02:33 +0200
committerAlan Pearce2015-07-11 16:02:33 +0200
commitecb9eb5b91727b0222069bdf250ada64ea6e644d (patch)
tree6a5a9855467ff8a2604d3696da930e850f9e16ac /tag-emacs
parente6b57d1131f4734871429b7ffdaab77b424a3252 (diff)
downloaddotfiles-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.el34
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