all repos — website @ 10dded485e1c2627575b2b9e21dfaabc31ee07f3

My website

Use code fences instead of template tags for syntax highlighting

Alan Pearce
commit

10dded485e1c2627575b2b9e21dfaabc31ee07f3

parent

956bf3a40be61da586bd5178a3868ca037eebbe8

1 file changed, 20 insertions(+), 20 deletions(-)

changed files
M content/post/emacs-package-archive-statistics.mdcontent/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 @@
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 @@ `package-desc-kind`. `package-desc-archive` was exactly what I
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 @@ (dolist (pkg (-filter #'identity (package-list-installed)) archives)
(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 @@ (package-list-installed)))))
(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