diff options
author | Alan Pearce | 2018-06-07 13:55:17 +0200 |
---|---|---|
committer | Alan Pearce | 2018-06-07 13:55:17 +0200 |
commit | 10dded485e1c2627575b2b9e21dfaabc31ee07f3 (patch) | |
tree | b3f0369bae776cd556078225fc446c10165f8624 /content/post/emacs-package-archive-statistics.md | |
parent | 956bf3a40be61da586bd5178a3868ca037eebbe8 (diff) | |
download | website-10dded485e1c2627575b2b9e21dfaabc31ee07f3.tar.lz website-10dded485e1c2627575b2b9e21dfaabc31ee07f3.tar.zst website-10dded485e1c2627575b2b9e21dfaabc31ee07f3.zip |
Use code fences instead of template tags for syntax highlighting
Diffstat (limited to 'content/post/emacs-package-archive-statistics.md')
-rw-r--r-- | content/post/emacs-package-archive-statistics.md | 40 |
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 |