about summary refs log tree commit diff stats
path: root/content/post/emacs-package-archive-statistics.md
diff options
context:
space:
mode:
Diffstat (limited to 'content/post/emacs-package-archive-statistics.md')
-rw-r--r--content/post/emacs-package-archive-statistics.md40
1 files changed, 20 insertions, 20 deletions
diff --git a/content/post/emacs-package-archive-statistics.md b/content/post/emacs-package-archive-statistics.md
index 5f74f18..2275c9a 100644
--- a/content/post/emacs-package-archive-statistics.md
+++ b/content/post/emacs-package-archive-statistics.md
@@ -10,13 +10,13 @@ I use [cask][] for managing the dependencies of my Emacs
 configuration.  Whenever I opened my `Cask` file, I wondered if I
 really was using all the sources I had defined:
 
-{{< highlight cl >}}
+```elisp
 (source gnu)
 (source marmalade)
 (source melpa)
 (source melpa-stable)
 (source org)
-{{< /highlight >}}
+```
 
 It seemed quite strange that we have so many package repositories in
 the Emacs world and I'm not even using all of them.  I find this state
@@ -44,29 +44,29 @@ decided to try to figure out how to generate some usage statistics.
 I found [how to get a list of installed packages][], but that just gives
 a list:
 
-{{< highlight cl >}}
+```elisp
 (ace-jump-mode ag auto-compile auto-indent-mode autopair ...)
-{{< /highlight >}}
+```
 
 I needed to get more information about those packages.  I looked at
 where `list-packages` gets that information from.  It seems that
 `package-archive-contents` is a list of cons cells:
 
-{{< highlight cl >}}
+```elisp
 (org-plus-contrib .
 				  [(20140714)
 				  nil "Outline-based notes management and organizer" tar "org"])
-{{< /highlight >}}
+```
 
 Then created a function to loop over the contents of
 `package-activated-list`, retrieving the corresponding contents of
 `package-archive-contents`:
 
-{{< highlight cl >}}
+```elisp
 (defun package-list-installed ()
   (loop for pkg in package-activated-list
         collect (assq pkg package-archive-contents)))
-{{< /highlight >}}
+```
 
 This generates a list of arrays from `package-archive-contents`.
 There are some helper functions in package.el such as
@@ -74,11 +74,11 @@ There are some helper functions in package.el such as
 needed.  I happened to be using a pretest version of Emacs at the time
 and didn't know that it's not in 24.3, so I just made sure it was defined:
 
-{{< highlight cl >}}
+```elisp
 (if (not (fboundp #'package-desc-archive))
     (defsubst package-desc-archive (desc)
       (aref desc (1- (length desc)))))
-{{< /highlight >}}
+```
 
 Weirdly, some of the arrays (seemingly the ones from the
 [org archive][]) had a different length, but the repository/archive was
@@ -89,7 +89,7 @@ To generate a list of statistics, I just needed to loop over the
 installed packages from `package-list-installed` and update a count
 for each archive:
 
-{{< highlight cl >}}
+```elisp
 (defun package-archive-stats ()
   (let ((archives (makehash))
         (assoc '()))
@@ -101,32 +101,32 @@ for each archive:
                (let ((pkg-arc (package-desc-archive (cdr pkg))))
                  (incf (gethash pkg-arc archives)))))
     assoc))
-{{< /highlight >}}
+```
 
 Running this gives a list of cons cells:
 
-{{< highlight cl >}}
+```elisp
 (("gnu" . 0)
  ("org" . 1)
  ("melpa-stable" . 2)
  ("melpa" . 106)
  ("marmalade" . 1))
-{{< /highlight >}}
+```
 
 I wrapped it in an interactive function so that I could check the
 numbers quickly:
 
-{{< highlight cl >}}
+```elisp
 (defun package-show-archive-stats ()
   (interactive)
   (message "%s" (package-archive-stats)))
-{{< /highlight >}}
+```
 
 With that, I removed `(source gnu)` from my `Cask` file.  Now I had
 another question.  What package was installed from [marmalade][]?  In
 the lisp fashion, I created yet another function:
 
-{{< highlight cl >}}
+```elisp
 (defun package-show-installed-from-archive (archive)
   (interactive (list (helm-comp-read "Archive: " (mapcar #'car package-archives)
                                       :must-match t)))
@@ -136,15 +136,15 @@ the lisp fashion, I created yet another function:
     (if (called-interactively-p)
         (message "%s" from-arc)
       from-arc)))
-{{< /highlight >}}
+```
 (Non-helm users can replace `helm-comp-read` with
 `ido-completing-read` or similar)
 
 Running this with the argument `"marmalade"` gives:
 
-{{< highlight cl >}}
+```elisp
 (php-extras)
-{{< /highlight >}}
+```
 
 I checked on [MELPA Stable][] and [MELPA][], but it's not available
 there.  Given that I use [php-extras][] quite a bit at work, I can't remove