After developing some little Emacs packages for a year or so, I began to notice how I'd forget little things that I learned, and then I'd have to go hunting for that information again. I also noticed how there are some issues for which there doesn't seem to be a "best practice" or "Standard Operating Procedure" to refer to.
So this is intended to be a place to collect and organize information related to Emacs package development. Built with Emacs, by Emacs package developers, for Emacs package developers.
You can read this Org file directly on the [[https://github.com/alphapapa/emacs-package-dev-handbook][repository]] rendered by GitHub (which lacks support for some minor features of the document), or you can read the [[https://alphapapa.github.io/emacs-package-dev-handbook/][HTML version]].
Note: The primary sections are listed at the top of the page in the horizontal bar.
Contents :noexport: :PROPERTIES: :TOC: :include siblings :ignore this :depth 1 :force depth :END: :CONTENTS:
[[#emacs-lisp][Emacs Lisp]]
[[#blogs][Blogs]]
[[#people][People]]
[[#contributions][Contributions]]
[[#tasks][Tasks]] :END:
Emacs Lisp :elisp: :PROPERTIES: :TOC: :include descendants :depth 1 :force depth :ID: 50ce456f-4988-4984-9fa3-858089429580 :CUSTOM_ID: emacs-lisp :END: :CONTENTS:
[[#animations--screencasts][Animations / Screencasts]]
[[#asynchronicity][Asynchronicity]]
[[#auditing--reviewing][Auditing / Reviewing]]
[[#binding][Binding]]
[[#buffers][Buffers]]
[[#checkers--linters][Checkers / linters]]
[[#collections-lists-vectors-hash-tables-etc][Collections (lists, vectors, hash-tables, etc.)]]
[[#color][Color]]
[[#data-structure][Data structure]]
[[#date--time][Date / Time]]
[[#debugging][Debugging]]
[[#destructuring][Destructuring]]
[[#documentation][Documentation]]
[[#editing][Editing]]
[[#general][General]]
[[#highlighting--font-locking][Highlighting / font-locking]]
[[#multiprocessing-generators-threads][Multiprocessing (generators, threads)]]
[[#networking][Networking]]
[[#packaging][Packaging]]
[[#pattern-matching][Pattern matching]]
[[#processes-incl-ipc-rpc][Processes (incl. IPC, RPC)]]
[[#optimization][Optimization]]
[[#refactoring][Refactoring]]
[[#regular-expressions][Regular expressions]]
[[#strings][Strings]]
[[#testing][Testing]]
[[#user-interface][User interface]]
[[#version-control][Version control]]
[[#xml--html][XML / HTML]] :END:
Note: Usable Emacs Lisp code snippets (not examples) are tangled to the file =epdh.el=, which may be found in the [[https://github.com/alphapapa/emacs-package-dev-handbook/blob/master/epdh.el][repository]]. You could even install the file as a package with [[https://framagit.org/steckerhalter/quelpa-use-package][quelpa-use-package]], like this:
(use-package epdh :quelpa (epdh :fetcher github :repo "alphapapa/emacs-package-dev-handbook"))
;;; epdh.el --- Code useful for developing Emacs packages -- lexical-binding: t; --
;; Copyright (C) 2018 Adam Porter
;; Author: Adam Porter adam@alphapapa.net ;; Keywords: convenience, development ;; URL: https://github.com/alphapapa/emacs-package-dev-handbook ;; Package-Requires: ((emacs "25.1") (map "2.1") (dash "2.13") (s "1.10.0"))
;;; License:
;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see https://www.gnu.org/licenses/.
;;; Commentary:
;; Code useful for developing Emacs packages. Contributions welcome.
;;; Code:
;;;; Requirements
(require 'cl-lib)
(require 'dash) (require 's)
** Animations / Screencasts :animations:screencasts:video: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: animations--screencasts :END: :CONTENTS:
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools :END:
**** Demonstration :demonstration: :PROPERTIES: :CUSTOM_ID: demonstration :END:
Tools to aid demonstrating use of Emacs.
***** [[https://github.com/tarsius/keycast][keycast: Show current command and its key in the mode line]]
***** [[https://github.com/lewang/command-log-mode][command-log-mode: log commands to buffer]]
**** Recording :recording: :PROPERTIES: :CUSTOM_ID: recording :END:
Tools to record screencasts of Emacs.
***** [[https://gitlab.com/ambrevar/emacs-gif-screencast][emacs-gif-screencast]] :GIFs:
Most Emacs screencasts are done by first recording a video, then converting it to a GIF. It seems like a waste of resources considering the little animation Emacs features.
Most of the time, one user action equals one visual change. By exploiting this fact, this package tailors GIF-screencasting for Emacs and captures one frame per user action. It’s much more efficient than capturing frames even at a frequency as low as 10 per second. You could roughly expect 3 to 10 times smaller files compared to videos of the same quality. (Benchmarks are welcome.)
Another neat perk of action-based captures is that it produces editable GIF files: programs such as Gifsicle or The GIMP can be used to edit the delays or rearrange frames. This is particularly useful to fix mistakes in “post-processing”, without having to record the demo all over again.
The author of this document can vouch for the fact that this package is the easiest, most powerful way to make screencast animations in Emacs!
***** [[https://github.com/alphapapa/bashcaster][Bashcaster]]
While =emacs-gif-screencast= should usually be your first choice, the way it works, recording one frame per Emacs command, isn't suitable for every case. For general use, your editor can recommend Bashcaster, which is an easy-to-use script that can record the whole screen or individual windows, to videos or GIFs.
** Asynchronicity :async: :PROPERTIES: :CUSTOM_ID: asynchronicity :END:
See [[id:94092c16-061c-45c9-9c66-77c5fdeceee8][Multiprocessing (generators, threads)]].
** Auditing / Reviewing :auditing:reviewing: :PROPERTIES: :CUSTOM_ID: auditing--reviewing :END:
Auditing, reviewing, and analyzing source code.
*** Tools :tools:
**** [[https://github.com/cyrus-and/comb][comb: Interactive grep annotation tool for manual static analysis]]
Comb is a native Emacs Lisp solution to search, browse and annotate occurrences of regular expressions in files. The interactive interface allows to perform an exhaustive classification of all the results to rule out false positives and asses proper matches during manual static analysis.
** Binding :scope:binding: :PROPERTIES: :ID: 50f0cde2-34ca-4131-a688-b434ecde6819 :TOC: :include descendants :depth 2 :CUSTOM_ID: binding :END: :CONTENTS:
Information related to variable scope and binding in elisp code (e.g. lexical vs. dynamic scope).
*** Articles :articles: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: articles :END:
**** [[https://nullprogram.com/blog/2017/10/27/][Make Flet Great Again « null program]] :macros:flet:letf: :PROPERTIES: :archive.today: http://archive.today/T8dHM :END:
Chris Wellons explains how the old ~cl~ macro ~flet~ changes in its new ~cl-lib~ version, ~cl-flet~, and how to use ~cl-letf~ to achieve the old functionality. It's a way to override functions in both lexical and dynamic scope, which is especially useful for unit testing.
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries :END:
**** [[id:e85e4252-ea03-4473-b52f-9393e7527fad][dash.el]] :PROPERTIES: :CUSTOM_ID: dashel :END:
**** [[https://github.com/emacs-mirror/emacs/blob/master/lisp/emacs-lisp/thunk.el][thunk]] :built_in: :PROPERTIES: :ID: 2f389382-af81-4f18-b6bc-ef33e39df1eb :CUSTOM_ID: thunk :END:
Thunk provides functions and macros to delay the evaluation of forms.
Use =thunk-delay= to delay the evaluation of a form (requires lexical-binding), and =thunk-force= to evaluate it. The result of the evaluation is cached, and only happens once.
Here is an example of a form which evaluation is delayed:
=(setq delayed (thunk-delay (message "this message is delayed")))=
=delayed= is not evaluated until =thunk-force= is called, like the following:
=(thunk-force delayed)=
This file also defines macros =thunk-let= and =thunk-let= that are analogous to =let= and =let= but provide lazy evaluation of bindings by using thunks implicitly (i.e. in the expansion).
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-0 :END:
**** [[id:7247be4d-4f66-43ff-bb70-1b4a7458611b][Lexical binding]] :built_in:lexical_binding: :PROPERTIES: :CUSTOM_ID: lexical-binding :END:
** Buffers :buffers: :PROPERTIES: :TOC: :include descendants :CUSTOM_ID: buffers :END: :CONTENTS:
*** Articles :PROPERTIES: :CUSTOM_ID: articles-0 :END:
*** [[%5B%5Bhttps://nullprogram.com/blog/2014/05/27/%5D%5BEmacs%20Lisp%20Buffer%20Passing%20Style%5D%5D][Buffer-Passing Style]] :strings: :PROPERTIES: :CUSTOM_ID: buffer-passing-style :END:
*** Best practices :best_practices: :PROPERTIES: :TOC: :depth 1 :CUSTOM_ID: best-practices :END:
**** Accessing buffer-local variables :PROPERTIES: :CUSTOM_ID: accessing-buffer-local-variables :END:
It's much faster to use ~buffer-local-value~ than ~with-current-buffer~ to access the value of a variable in a buffer.
(bench-multi :times 1000 :ensure-equal t :forms (("buffer-local-value" (--filter (equal 'magit-status-mode (buffer-local-value 'major-mode it)) (buffer-list))) ("with-current-buffer" (--filter (equal 'magit-status-mode (with-current-buffer it major-mode)) (buffer-list)))))
| Form | x faster than next | Total runtime | # of GCs | Total GC runtime | |---------------------+--------------------+---------------+----------+------------------| | buffer-local-value | 50.34 | 0.047657734 | 0 | 0.0 | | with-current-buffer | slowest | 2.399323452 | 0 | 0.0 |
**** Inserting strings :strings: :PROPERTIES: :CUSTOM_ID: inserting-strings :END:
Inserting strings into buffers with ~insert~ is generally fast, but it can slow down in buffers with lots of markers or overlays. In general, it can be faster to insert one large string (which may include newlines). For example:
(let ((strings (cl-loop for i from 1 to 1000 collect (number-to-string i)))) (garbage-collect) (--sort (< (caddr it) (caddr other)) (cl-loop for times in '(1 10 100) append (a-list "(loop do (insert ..." (cons times (benchmark-run-compiled times (with-temp-buffer (cl-loop for string in strings do (insert string))))) "(apply #'insert ..." (cons times (benchmark-run-compiled times (with-temp-buffer (apply #'insert strings)))) "(insert (apply #'concat ..." (cons times (benchmark-run-compiled times (with-temp-buffer (insert (apply #'concat strings)))))))))
| (insert (apply #'concat ... | 100 | 0.000142085 | 0 | 0.0 | | (insert (apply #'concat ... | 10 | 0.000161172 | 0 | 0.0 | | (insert (apply #'concat ... | 1 | 0.00018764 | 0 | 0.0 | | (apply #'insert ... | 10 | 0.000665472 | 0 | 0.0 | | (apply #'insert ... | 100 | 0.000678471 | 0 | 0.0 | | (apply #'insert ... | 1 | 0.000755329 | 0 | 0.0 | | (loop do (insert ... | 10 | 0.000817031 | 0 | 0.0 | | (loop do (insert ... | 100 | 0.000869779 | 0 | 0.0 | | (loop do (insert ... | 1 | 0.001490397 | 0 | 0.0 |
The fastest method here is to call ~insert~ once with the result of calling ~concat~ once, using ~apply~ to pass all of the strings. With 100 iterations, it's about 6x faster than the next-fastest method, and even with 1 iteration, it's over 2x faster.
*** Libraries :libraries: :PROPERTIES: :ID: 523aa766-36a3-4827-a114-6babf72edc6b :TOC: :depth 0 :CUSTOM_ID: libraries-0 :END:
**** [[https://github.com/phillord/m-buffer-el][m-buffer-el: List Oriented Buffer Operations]] :PROPERTIES: :ID: 6858c112-9756-43b4-a2e3-fa00a71e9367 :END:
**** [[https://github.com/alezost/bui.el][bui.el: Buffer interface library]]
BUI (Buffer User Interface) is an Emacs library that can be used to make user interfaces to display some kind of entries (like packages, buffers, functions, etc.). The intention of BUI is to be a high-level library which is convenient to be used both by:
package makers, as there is no need to bother about implementing routine details and usual features (like buffer history, filtering displayed entries, etc.);
users, as it provides familiar and intuitive interfaces with usual keys (for moving by lines, marking, sorting, switching between buttons); and what is also important, the defined interfaces are highly configurable through various generated variables.
** Checkers / linters :linters:checkers: :PROPERTIES: :CUSTOM_ID: checkers--linters :END:
*** [[https://github.com/gonewest818/elisp-lint][elisp-lint: basic linting for Emacs Lisp]]
Includes the following validators:
*** [[https://github.com/purcell/flycheck-package][flycheck-package: Flycheck checker for Elisp package metadata]]
This library provides a =flycheck= checker for the metadata in Emacs Lisp files which are intended to be packages. That metadata includes the package description, its dependencies and more. The checks are performed by the separate =package-lint= library.
*** [[https://github.com/mattiase/relint][relint: regexp lint tool]]
Relint scans elisp files for mistakes in regexps, including deprecated syntax and bad practice. It also checks the regexp-like arguments to =skip-chars-forward=, =skip-chars-backward=, =skip-syntax-forward= and =skip-syntax-backward=.
** Collections (lists, vectors, hash-tables, etc.) :collections: :PROPERTIES: :TOC: :include descendants :depth 1 :CUSTOM_ID: collections-lists-vectors-hash-tables-etc :END: :CONTENTS:
*** Best practices :best_practices: :PROPERTIES: :TOC: :include descendants :CUSTOM_ID: best-practices-0 :END: :CONTENTS:
**** Collecting items into a list :lists: :PROPERTIES: :CUSTOM_ID: collecting-items-into-a-list :END:
Here are some examples of fast ways to collect items into a list.
(bench-multi-lexical :times 500000 :ensure-equal t :forms (("cl-loop" (let ((l '(1 2 3 4))) (cl-loop for val in l collect val))) ("push-nreverse with setf/pop" (let ((l '(1 2 3 4)) val r) (while (setf val (pop l)) (push val r)) (nreverse r))) ("push-nreverse with when-let/pop" (let ((l '(1 2 3 4)) r) (while (when-let ((val (pop l))) (push val r))) (nreverse r))) ("nconc with when-let/pop" (let ((l '(1 2 3 4)) r) (while (when-let ((val (pop l))) (setf r (nconc r (list val))))) r)) ("nconc with setf/pop" (let ((l '(1 2 3 4)) val r) (while (setf val (pop l)) (setf r (nconc r (list val)))) r))))
| Form | x faster than next | Total runtime | # of GCs | Total GC runtime | |----------------------------------+--------------------+---------------+----------+------------------| | cl-loop | 1.01 | 0.154578 | 0 | 0 | | push-nreverse with setf/pop | 1.02 | 0.155930 | 0 | 0 | | push-nreverse with when-let/pop | 1.23 | 0.159211 | 0 | 0 | | nconc with setf/pop | 1.06 | 0.195685 | 0 | 0 | | nconc with when-let/pop | slowest | 0.207103 | 0 | 0 |
As is usually the case, the =cl-loop= macro expands to the most efficient code, which uses =(setq val (car ...=, =push=, and =nreverse=:
(cl-block nil (let* ((--cl-var-- l) (val nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq val (car --cl-var--)) (push val --cl-var--) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
However, in some cases =cl-loop= may expand to code which uses =nconc=, which, as the benchmark shows, is much slower. In that case, you may write the loop without =cl-loop= to avoid using =nconc=.
**** Diffing two lists :lists: :PROPERTIES: :CUSTOM_ID: diffing-two-lists :END:
As expected, =seq-difference= is the slowest, because it's a generic function that dispatches based on the types of its arguments, which is relatively slow in Emacs. And it's not surprising that =cl-nset-difference= is generally slightly faster than =cl-set-difference=, since it's destructive.
However, it is surprising how much faster =-difference= is than =cl-nset-difference=.
It's also nonintuitive that =-difference= suffers a large performance penalty by binding =-compare-fn= (the equivalent of the =:test= argument to =cl-set-difference=): while one might expect that setting it to =string== would give a slight performance increase, it's actually faster to let =-difference= use its default, =equal=.
Note that since this benchmark compares lists of strings, =cl-nset-difference= requires setting the =:test= argument, since it uses =eql= by default, which does not work for comparing strings.
(defmacro test/set-lists () `(setf list1 (cl-loop for i from 0 below 1000 collect (number-to-string i)) list2 (cl-loop for i from 500 below 1500 collect (number-to-string i))))
(let (list1 list2)
(bench-multi-lexical :times 10 :ensure-equal t
:forms (("-difference"
(progn
(test/set-lists)
(-difference list1 list2)))
("-difference string="
(progn
;; This is much slower because of the way -contains?' ;; works when
-compare-fn' is non-nil.
(test/set-lists)
(let ((-compare-fn #'string=))
(-difference list1 list2))))
("cl-set-difference equal"
(progn
(test/set-lists)
(cl-set-difference list1 list2 :test #'equal)))
("cl-set-difference string="
(progn
(test/set-lists)
(cl-set-difference list1 list2 :test #'string=)))
("cl-nset-difference equal"
(progn
(test/set-lists)
(cl-nset-difference list1 list2 :test #'equal)))
("cl-nset-difference string="
(progn
(test/set-lists)
(cl-nset-difference list1 list2 :test #'string=)))
("seq-difference"
(progn
(test/set-lists)
(seq-difference list1 list2)))
("seq-difference string="
(progn
(test/set-lists)
(seq-difference list1 list2 #'string=))))))
| Form | x faster than next | Total runtime | # of GCs | Total GC runtime | |----------------------------+--------------------+---------------+----------+------------------| | -difference | 7.16 | 0.084484 | 0 | 0 | | cl-nset-difference equal | 1.05 | 0.605193 | 0 | 0 | | cl-set-difference string= | 1.01 | 0.636973 | 0 | 0 | | cl-set-difference equal | 1.01 | 0.644919 | 0 | 0 | | cl-nset-difference string= | 1.19 | 0.650708 | 0 | 0 | | -difference string= | 1.59 | 0.773919 | 0 | 0 | | seq-difference | 1.05 | 1.232616 | 0 | 0 | | seq-difference string= | slowest | 1.293030 | 0 | 0 |
**** Filtering a list :lists: :PROPERTIES: :CUSTOM_ID: filtering-a-list :END:
Using ~-select~ from =dash.el= seems to be the fastest way:
(let ((list (cl-loop for i from 1 to 1000 collect i))) (bench-multi :times 100 :ensure-equal t :forms (("(-non-nil (--map (when ..." (-non-nil (--map (when (cl-evenp it) it) list))) ("(delq nil (--map (when ..." (delq nil (--map (when (cl-evenp it) it) list))) ("cl-loop" (cl-loop for i in list when (cl-evenp i) collect i)) ("-select" (-select #'cl-evenp list)) ("cl-remove-if-not" (cl-remove-if-not #'cl-evenp list)) ("seq-filter" (seq-filter #'cl-evenp list)))))
| Form | x faster than next | Total runtime | # of GCs | Total GC runtime | |----------------------------+--------------------+---------------+----------+------------------| | -select | 1.17 | 0.01540391 | 0 | 0.0 | | cl-loop | 1.05 | 0.01808226 | 0 | 0.0 | | seq-filter | 1.13 | 0.01891708 | 0 | 0.0 | | (delq nil (--map (when ... | 1.15 | 0.02134727 | 0 | 0.0 | | cl-remove-if-not | 1.18 | 0.02459478 | 0 | 0.0 | | (-non-nil (--map (when ... | slowest | 0.02903999 | 0 | 0.0 |
**** Looking up associations :PROPERTIES: :CUSTOM_ID: looking-up-associations :END:
There are a few options in Emacs Lisp for looking up values in associative data structures: association lists (alists), property lists (plists), and hash tables. Which one performs best in a situation may depend on several factors. This benchmark shows what may be a common case: looking up values using a string as the key. We compare several combinations, including the case of prepending a prefix to the string, interning it, and looking up the resulting symbol (which might be done, e.g. when looking up a function to call based on the value of a string).
(bench-multi-lets :times 10000 :ensure-equal t :lets (("with 26 pairs" ((char-range (cons ?A ?Z)) (strings (cl-loop for char from (car char-range) to (cdr char-range) collect (concat "prefix-" (char-to-string char)))) (strings-alist (cl-loop for string in strings collect (cons string string))) (symbols-alist (cl-loop for string in strings collect (cons (intern string) string))) (strings-plist (map-into strings-alist 'plist)) (symbols-plist (map-into symbols-alist 'plist)) (strings-ht (map-into strings-alist '(hash-table :test equal))) (symbols-ht-equal (map-into symbols-alist '(hash-table :test equal))) (symbols-ht-eq (map-into symbols-alist '(hash-table :test eq))))) ("with 52 pairs" ((char-range (cons ?A ?z)) (strings (cl-loop for char from (car char-range) to (cdr char-range) collect (concat "prefix-" (char-to-string char)))) (strings-alist (cl-loop for string in strings collect (cons string string))) (symbols-alist (cl-loop for string in strings collect (cons (intern string) string))) (strings-plist (map-into strings-alist 'plist)) (symbols-plist (map-into symbols-alist 'plist)) (strings-ht (map-into strings-alist '(hash-table :test equal))) (symbols-ht-equal (map-into symbols-alist '(hash-table :test equal))) (symbols-ht-eq (map-into symbols-alist '(hash-table :test eq)))))) :forms (("strings/alist-get/string=" (sort (cl-loop for string in strings collect (alist-get string strings-alist nil nil #'string=))
("strings/plist" (sort (cl-loop for string in strings
collect (plist-get strings-plist string))
#'string<))
("symbols/concat/intern/plist" (sort (cl-loop for char from (car char-range) to (cdr char-range)
for string = (concat "prefix-" (char-to-string char))
for symbol = (intern string)
collect (plist-get symbols-plist symbol))
#'string<))
("strings/alist-get/equal" (sort (cl-loop for string in strings
collect (alist-get string strings-alist nil nil #'equal))
#'string<))
("strings/hash-table/equal" (sort (cl-loop for string in strings
collect (gethash string strings-ht))
#'string<))
("symbols/concat/intern/hash-table/equal" (sort (cl-loop for char from (car char-range) to (cdr char-range)
for string = (concat "prefix-" (char-to-string char))
for symbol = (intern string)
collect (gethash symbol symbols-ht-equal))
#'string<))
("symbols/concat/intern/hash-table/eq" (sort (cl-loop for char from (car char-range) to (cdr char-range)
for string = (concat "prefix-" (char-to-string char))
for symbol = (intern string)
collect (gethash symbol symbols-ht-eq))
#'string<))
("symbols/concat/intern/alist-get" (sort (cl-loop for char from (car char-range) to (cdr char-range)
for string = (concat "prefix-" (char-to-string char))
for symbol = (intern string)
collect (alist-get symbol symbols-alist))
#'string<))
("symbols/concat/intern/alist-get/equal" (sort (cl-loop for char from (car char-range) to (cdr char-range)
for string = (concat "prefix-" (char-to-string char))
for symbol = (intern string)
collect (alist-get symbol symbols-alist nil nil #'equal))
#'string<))))
| Form | x faster than next | Total runtime | # of GCs | Total GC runtime | |-------------------------------------------------------+--------------------+---------------+----------+------------------| | with 26 pairs: strings/hash-table/equal | 1.06 | 0.040321 | 0 | 0 | | with 26 pairs: strings/plist | 2.26 | 0.042848 | 0 | 0 | | with 52 pairs: strings/hash-table/equal | 1.27 | 0.096877 | 0 | 0 | | with 26 pairs: strings/alist-get/equal | 1.04 | 0.123039 | 0 | 0 | | with 26 pairs: strings/alist-get/string= | 1.03 | 0.128221 | 0 | 0 | | with 52 pairs: strings/plist | 2.62 | 0.131451 | 0 | 0 | | with 26 pairs: symbols/concat/intern/hash-table/eq | 1.00 | 0.344524 | 1 | 0.266744 | | with 26 pairs: symbols/concat/intern/hash-table/equal | 1.01 | 0.344951 | 1 | 0.267860 | | with 26 pairs: symbols/concat/intern/plist | 1.02 | 0.349360 | 1 | 0.266529 | | with 26 pairs: symbols/concat/intern/alist-get | 1.19 | 0.358071 | 1 | 0.267457 | | with 26 pairs: symbols/concat/intern/alist-get/equal | 1.11 | 0.424895 | 1 | 0.271568 | | with 52 pairs: strings/alist-get/equal | 1.03 | 0.471979 | 0 | 0 | | with 52 pairs: strings/alist-get/string= | 1.50 | 0.485663 | 0 | 0 | | with 52 pairs: symbols/concat/intern/hash-table/equal | 1.00 | 0.730628 | 2 | 0.547082 | | with 52 pairs: symbols/concat/intern/hash-table/eq | 1.05 | 0.733726 | 2 | 0.548910 | | with 52 pairs: symbols/concat/intern/alist-get | 1.00 | 0.773320 | 2 | 0.545707 | | with 52 pairs: symbols/concat/intern/plist | 1.36 | 0.774225 | 2 | 0.549963 | | with 52 pairs: symbols/concat/intern/alist-get/equal | slowest | 1.056641 | 2 | 0.545522 |
We see that hash-tables are generally the fastest solution.
Comparing alists and plists, we see that, when using string keys, plists are significantly faster than alists, even with 52 pairs. When using symbol keys, plists are faster with 26 pairs; with 52, plists and alists (using ~alist-get~ with ~eq~ as the test function) are nearly the same in performance.
Also, perhaps surprisingly, when looking up a string in an alist, using ~equal~ as the test function may be faster than using the type-specific ~string=~ function (possibly indicating an optimization to be made in Emacs's C code).
***** TODO Compare looking up interned symbols in obarray instead of hash table :PROPERTIES: :TOC: :ignore (this) :END:
***** TODO Compare a larger number of pairs :PROPERTIES: :TOC: :ignore (this) :END:
*** Examples :examples: :PROPERTIES: :CUSTOM_ID: examples :END:
**** Alists :alists:
***** Creation
;;;; Built-in methods
(list (cons 'one 1) (cons 'two 2)) ;; => ((one . 1) (two . 2))
'((one . 1) (two . 2)) ;; => ((one . 1) (two . 2))
(let ((numbers (list))) (map-put numbers 'one 1) (map-put numbers 'two 2)) ;; => ((two . 2) (one . 1))
;;;; Packages
;; `a-list' from a.el is the best way to make a new alist.
(a-list 'one 1 'two 2) ;; => ((one . 1) (two . 2))
***** Adding to
** Single elements
;;;; Built-in methods
;; `map-put' is the best built-in way. Requires Emacs 25.1+.
(let ((numbers (list (cons 'one 1)))) (map-put numbers 'two 2) numbers) ; => ((two . 2) (one . 1))
;; More primitive methods
;; Not recommended, but not too complicated: (let ((numbers (list (cons 'one 1))) (more-numbers (a-list 'two 2 'three 3))) (append numbers more-numbers)) ;; => ((one . 1) (two . 2) (three . 3))
;; Don't do it this way, but it does demonstrate list/cons-cell ;; structure: (let ((numbers (list (cons 'one 1)))) (cons (cons 'three 3) (cons (cons 'two 2) numbers))) ;; => ((three . 3) (two . 2) (one . 1))
** Multiple elements
;;;; Built-in methods
;; `map-merge': if you're restricted to built-in packages, this works ;; well (requires Emacs 25.1+): (let ((numbers (list (cons 'one 1))) (more-numbers (a-list 'two 2 'three 3))) (map-merge 'list numbers more-numbers)) ;; => ((three . 3) (two . 2) (one . 1))
;; Without map.el, you could use `append': (let ((numbers (list (cons 'one 1))) (more-numbers (a-list 'two 2 'three 3))) (append numbers more-numbers)) ;; => ((one . 1) (two . 2) (three . 3))
;;;; Packages
;; `a-merge' from a.el is probably the best way: (let ((numbers (list (cons 'one 1))) (more-numbers (a-list 'two 2 'three 3))) (a-merge numbers more-numbers)) ;; => ((three . 3) (two . 2) (one . 1))
**** Property lists (plists) :plists:
***** Removing properties
[[https://www.reddit.com/r/emacs/comments/aupifm/what_is_the_best_way_to_do_plistremove/eh9xom5/][According to Stefan Monnier]]:
The plist design in Elisp was based on the idea that you shouldn't distinguish an entry with a nil value from an entry that's absent. Hence =plist-remove= is not needed because you can do ~(plist-put PLIST PROP nil)~ instead.
Of course, in the mean time, =plist-member= appeared, breaking the design, so this answer is probably not 100% satisfactory, but I still think you'll generally be better off if you can ignore the difference between =nil= and "absent".
If you do need to remove a key and value from a plist, you could use =cl-remf= or =map-delete= (the former probably being faster).
*** Libraries :libraries: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: libraries-1 :END:
**** [[https://github.com/plexus/a.el][a.el: functions for dealing with association lists and hash tables. Inspired by Clojure.]] :alists:hash_tables:
**** [[https://github.com/troyp/asoc.el][asoc.el: alist library]] :alists:
**** [[https://github.com/nicferrier/emacs-kv][emacs-kv: key/value collection-type functions, for alists, hash tables and plists]] :alists:hash_tables:plists:
**** [[https://github.com/Wilfred/ht.el][ht.el: The missing hash table library]] :hash_tables: :PROPERTIES: :ID: 22b35972-c32f-467a-92ee-f8a155920756 :END:
This library provides a consistent and comprehensive set of functions for working with hash tables: they're named consistently, take a natural and consistent argument order, and cover operations that the standard Emacs functions don't.
**** [[https://github.com/rolandwalker/list-utils][list-utils: List-manipulation utility functions]] :lists: :PROPERTIES: :ID: 4b4cbe99-f048-4043-a946-97f9d1a4be52 :END:
Similar to =dash.el=, but with slightly different behavior that may be useful, and some unique features. These functions are provided:
| =make-tconc= | =list-utils-depth= | | =tconc-p= | =list-utils-flat-length= | | =tconc-list= | =list-utils-flatten= | | =tconc= | =list-utils-alist-or-flat-length= | | =list-utils-cons-cell-p= | =list-utils-alist-flatten= | | =list-utils-cyclic-length= | =list-utils-insert-before= | | =list-utils-improper-p= | =list-utils-insert-after= | | =list-utils-make-proper-copy= | =list-utils-insert-before-pos= | | =list-utils-make-proper-inplace= | =list-utils-insert-after-pos= | | =list-utils-make-improper-copy= | =list-utils-and= | | =list-utils-make-improper-inplace= | =list-utils-not= | | =list-utils-linear-p= | =list-utils-xor= | | =list-utils-linear-subseq= | =list-utils-uniq= | | =list-utils-cyclic-p= | =list-utils-dupes= | | =list-utils-cyclic-subseq= | =list-utils-singlets= | | =list-utils-make-linear-copy= | =list-utils-partition-dupes= | | =list-utils-make-linear-inplace= | =list-utils-plist-reverse= | | =list-utils-safe-length= | =list-utils-plist-del= | | =list-utils-safe-equal= | |
**** [[https://elpa.gnu.org/packages/map.html][map.el: Map manipulation functions]] :maps:hash_tables:alists:arrays:
=map= is included with Emacs, but the latest version, which may include improvements since the last Emacs release, is now available separately on [[https://elpa.gnu.org/][GNU ELPA]].
**** [[https://github.com/NicolasPetton/stream][stream: Lazy sequences]] :streams:sequences:lazy:
=stream.el= provides an implementation of streams, implemented as delayed evaluation of cons cells.
Functions defined in seq.el can also take a stream as input.
Streams could be created from any sequential input data:
**** [[https://elpa.gnu.org/packages/persist.html][persist.el: Persist variables between sessions]]
This package provides variables which persist across sessions.
The main entry point is persist-defvar' which behaves like
defvar' but which persists the variables between session. Variables are automatically saved when Emacs exits.
Other useful functions are persist-save' which saves the variable immediately,
persist-load' which loads the saved value, `persist-reset' which resets to the default value.
Values are stored in a directory in `user-emacs-directory', using one file per value. This makes it easy to delete or remove unused variables.
*** Tools :tools: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: tools-1 :END:
**** [[id:f8f0755b-c23b-45ad-98da-780d4044676a][let-alist]]
**** [[id:a58f65dc-d4a4-4a40-a573-a66a28f3619c][=with-dict=, =with-plist-vals=]]
** Color :color: :PROPERTIES: :CUSTOM_ID: color :END:
*** Libraries :libraries:
**** [[https://github.com/yurikhan/yk-color][yk-color: Linear RGB color manipulation]]
Includes these functions:
** Data structure :data_structure: :PROPERTIES: :TOC: :include descendants :depth 1 :CUSTOM_ID: data-structure :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :CUSTOM_ID: articles-1 :END:
**** [[http://nullprogram.com/blog/2018/02/14/][Options for Structured Data in Emacs Lisp « null program]] :PROPERTIES: :archive.today: http://archive.today/YxwP5 :END:
**** [[http://www.dr-qubit.org/emacs_data-structures.html][Toby 'qubit' Cubitt: Data structure packages]]
Individual libraries from this article are listed below.
*** Libraries :libraries: :PROPERTIES: :TOC: :include descendants :CUSTOM_ID: libraries-2 :END: :CONTENTS:
**** [[http://www.dr-qubit.org/emacs_data-structures.html][heap.el]] :PROPERTIES: :CUSTOM_ID: heapel :END:
A heap is a form of efficient self-sorting tree. In particular, the root node is guaranteed to be the highest-ranked entry in the tree. (The comparison function used for ranking the data can, of course, be freely defined). They are often used as priority queues, for scheduling tasks in order of importance, and for implementing efficient sorting algorithms (such as heap-sort).
**** [[https://elpa.gnu.org/packages/myers.html][myers]] :ELPA: :PROPERTIES: :CUSTOM_ID: myers :END:
This package implements Eugene W. Myers's "stacks" which are like standard singly-linked lists, except that they also provide efficient lookup. More specifically:
cons/car/cdr are O(1), while (nthcdr N L) is O(min (N, log L))
For details, see [[http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.188.9344&rep=rep1&type=pdf]["An applicative random-access stack", Eugene W. Myers, 1983, Information Processing Letters]].
**** [[http://www.dr-qubit.org/emacs_data-structures.html][queue.el]] :queue: :PROPERTIES: :CUSTOM_ID: queueel :END:
A queue can be used both as a first-in last-out and as a first-in first-out stack, i.e. elements can be added to and removed from the front or back of the queue. (This library is an updated re-implementation of the old Elib queue library.)
**** [[http://www.dr-qubit.org/emacs_data-structures.html][Tagged Non-deterministic Finite state Automata (tNFA.el)]] :PROPERTIES: :CUSTOM_ID: tagged-non-deterministic-finite-state-automata-tnfael :END:
Features of modern regexp implementations, including Emacs', mean they can recognise much more than regular languages. This comes with a big downside: matching certain pathological regexps is very time-consuming. (In fact, it's NP-complete.)
A tagged, non-deterministic finite state automata (NFA) is an abstract computing machine that recognises regular languages. In layman's terms, they are used to decide whether a string matches a regular expression. The "tagged" part lets the NFA do group-capture: it returns information about which parts of a string matched which subgroup of the regular expression.
Why re-implement regular expression matching when Emacs comes with extensive built-in support for regexps? Primarily, because some algorithms require access to the NFA states produced part way through the regular expression matching process. Secondarily, because Emacs regexps only work on strings, whereas regular expressions can equally well be used to match other Lisp sequence types.
**** [[http://www.dr-qubit.org/emacs_data-structures.html][trie.el]] :PROPERTIES: :CUSTOM_ID: trieel :END:
A trie stores data associated with "strings" (not necessarily the string data type; any ordered sequence of elements can be used). It stores them in such a way that both storage size and data lookup are reasonably space- and time- efficient, respectively. But, more importantly, advanced string queries are also very efficient, such as finding all strings with a given prefix, finding approximate matches, finding all strings matching a regular expression, returning results in alphabetical or any other order, returning only the first few results, etc.
**** [[http://www.dr-qubit.org/emacs_data-structures.html][dict-tree.el]] :PROPERTIES: :CUSTOM_ID: dict-treeel :END:
The dictionary tree data structures are a hybrid between tries and hash tables. Data is stored in a trie, but results that take particularly long to retrieve are cached in hash tables, which are automatically synchronised with the trie. The dictionary package provides persistent storage of the data structures in files, and many other convenience features.
**** [[https://github.com/doublep/extmap][extmap: Externally-stored constant mapping]] :PROPERTIES: :CUSTOM_ID: extmap-externally-stored-constant-mapping :END:
extmap is a very simple package that lets you build a read-only, constant database that maps Elisp symbols to almost arbitrary Elisp objects. The idea is to avoid preloading all data to memory and only retrieve it when needed. This package doesn’t use any external programs, making it a suitable dependency for smaller libraries.
** Date / Time :dates:times: :PROPERTIES: :CUSTOM_ID: date--time :END:
*** Libraries :libraries:
**** [[https://github.com/alphapapa/ts.el][ts.el: Timestamp and date-time library]]
=ts= aids in parsing, formatting, and manipulating timestamps.
ts is a date and time library for Emacs. It aims to be more convenient than patterns like ~(string-to-number (format-time-string "%Y"))~ by providing easy accessors, like ~(ts-year (ts-now))~.
To improve performance (significantly), formatted date parts are computed lazily rather than when a timestamp object is instantiated, and the computed parts are then cached for later access without recomputing. Behind the scenes, this avoids unnecessary ~(string-to-number (format-time-string...~ calls, which are surprisingly expensive.
***** Examples
Get parts of the current date:
;; When the current date is 2018-12-08 23:09:14 -0600: (ts-year (ts-now)) ;=> 2018 (ts-month (ts-now)) ;=> 12 (ts-day (ts-now)) ;=> 8 (ts-hour (ts-now)) ;=> 23 (ts-minute (ts-now)) ;=> 9 (ts-second (ts-now)) ;=> 14 (ts-tz-offset (ts-now)) ;=> "-0600"
(ts-dow (ts-now)) ;=> 6 (ts-day-abbr (ts-now)) ;=> "Sat" (ts-day-name (ts-now)) ;=> "Saturday"
(ts-month-abbr (ts-now)) ;=> "Dec" (ts-month-name (ts-now)) ;=> "December"
(ts-tz-abbr (ts-now)) ;=> "CST"
Increment the current date:
;; By 10 years: (list :now (ts-format) :future (ts-format (ts-adjust 'year 10 (ts-now)))) ;;=> ( :now "2018-12-15 22:00:34 -0600" ;; :future "2028-12-15 22:00:34 -0600")
;; By 10 years, 2 months, 3 days, 5 hours, and 4 seconds: (list :now (ts-format) :future (ts-format (ts-adjust 'year 10 'month 2 'day 3 'hour 5 'second 4 (ts-now)))) ;;=> ( :now "2018-12-15 22:02:31 -0600" ;; :future "2029-02-19 03:02:35 -0600")
What day of the week was 2 days ago?
(ts-day-name (ts-dec 'day 2 (ts-now))) ;=> "Thursday"
;; Or, with threading macros: (thread-last (ts-now) (ts-dec 'day 2) ts-day-name) ;=> "Thursday" (->> (ts-now) (ts-dec 'day 2) ts-day-name) ;=> "Thursday"
Get timestamp for this time last week:
(ts-unix (ts-adjust 'day -7 (ts-now))) ;;=> 1543728398.0
;; To confirm that the difference really is 7 days: (/ (- (ts-unix (ts-now)) (ts-unix (ts-adjust 'day -7 (ts-now)))) 86400) ;;=> 7.000000567521762
;; Or human-friendly as a list: (ts-human-duration (ts-difference (ts-now) (ts-dec 'day 7 (ts-now)))) ;;=> (:years 0 :days 7 :hours 0 :minutes 0 :seconds 0)
;; Or as a string: (ts-human-format-duration (ts-difference (ts-now) (ts-dec 'day 7 (ts-now)))) ;;=> "7 days"
;; Or confirm by formatting: (list :now (ts-format) :last-week (ts-format (ts-dec 'day 7 (ts-now)))) ;;=> ( :now "2018-12-08 23:31:37 -0600" ;; :last-week "2018-12-01 23:31:37 -0600")
**** [[https://github.com/emacs-php/emacs-datetime][emacs-datetime]] :PROPERTIES: :ID: 45613ae9-97a2-4807-b099-a6c051f1a2c4 :END:
The primary function provided is: ~(datetime-format SYM-OR-FMT &optional TIME &rest OPTION)~
(datetime-format "%Y-%m-%d") ;=> "2018-08-22" (datetime-format 'atom) ;=> "2018-08-22T18:23:47-05:00" (datetime-format 'atom "2112-09-03 00:00:00" :timezone "UTC") ;=> "2112-09-03T00:00:00+00:00"
There are several other symbols provided besides ~atom~, such as ~rfc-3339~, which formats dates according to that RFC.
** Debugging :debugging: :PROPERTIES: :TOC: :depth 2 :include descendants :CUSTOM_ID: debugging :END: :CONTENTS:
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-2 :END:
**** Edebug :Edebug:built_in: :PROPERTIES: :CUSTOM_ID: edebug :END:
Edebug is a built-in stepping debugger in Emacs. It's [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Edebug.html][thoroughly documented in the =elisp= manual]].
***** Declaring debug forms for keyword arguments :tip:
Declaring ~debug~ forms for functions and macros that take keyword arguments can be confusing. Here's a contrived example:
(cl-defmacro make-fn (name docstring &key args bindings body) (declare (indent defun) (debug (&define symbolp stringp &rest [&or [":body" def-form] [keywordp listp]]))) `(defun ,name ,args ,docstring (let* ,bindings ,body)))
(make-fn my-fn "This is my function." :bindings ((one 1) (two 2)) :body (list one two))
** TODO Submit this as an improvement to the Elisp manual
Probably should first replace the ~:bindings~ part with this, which correctly matches ~let~ bindings: ~(&rest &or symbolp (gate symbolp &optional def-form))~.
**** =debug-warn= macro :PROPERTIES: :CUSTOM_ID: debug-warn-macro :END:
This macro simplifies print-style debugging by automatically including the names of the containing function and argument forms, rather than requiring the programmer to write =format= strings manually. If ~warning-minimum-log-level~ is not ~:debug~ at expansion time, the macro expands to nil, which the byte-compiler eliminates, so in byte-compiled code, the macro has no overhead at runtime when not debugging. In interpreted code, the overhead when not debugging is minimal. When debugging, the expanded form also returns nil so, e.g. it may be used in a conditional in place of nil. The macro is tangled to =epdh.el=, but it may also be added directly to source files.
For example, when used like:
(eval-and-compile (setq-local warning-minimum-log-level :debug))
(defun argh (var) (debug-warn (current-buffer) "This is bad!" (point) var) var)
(argh 1)
This warning would be shown in the =Warnings= buffer:
Debug (argh): (CURRENT-BUFFER):scratch This is bad! (POINT):491845 VAR:1
But if ~warning-minimum-log-level~ had any other value, and the buffer were recompiled, there would be no output, and none of the arguments to the macro would be evaluated at runtime.
It may even be used in place of comments! For example, instead of:
(if (foo-p thing) ;; It's a foo: frob it. (frob thing) ;; Not a foo: flub it. (flub thing))
You could write:
(if (foo-p thing) (progn (debug-warn "It's a foo: frob it." thing) (frob thing)) (debug-warn "Not a foo: flub it." thing) (flub thing))
;; To make newer versions of map' load for the
pcase' pattern.
(require 'map)
(cl-defmacro epdh/debug-warn (&rest args)
"Display a debug warning showing the runtime value of ARGS.
The warning automatically includes the name of the containing
function, and it is only displayed if warning-minimum-log-level' is
:debug' at expansion time (otherwise the macro expands to nil
and is eliminated by the byte-compiler). When debugging, the
form also returns nil so, e.g. it may be used in a conditional in
place of nil.
Each of ARGS may be a string, which is displayed as-is, or a symbol, the value of which is displayed prefixed by its name, or a Lisp form, which is displayed prefixed by its first symbol.
Before the actual ARGS arguments, you can write keyword arguments, i.e. alternating keywords and values. The following keywords are supported:
:buffer BUFFER Name of buffer to pass to `display-warning'.
:level LEVEL Level passed to `display-warning', which see.
Default is :debug."
;; TODO: Can we use a compiler macro to handle this more elegantly?
(pcase-let* ((fn-name (when byte-compile-current-buffer
(with-current-buffer byte-compile-current-buffer
;; This is a hack, but a nifty one.
(save-excursion
(beginning-of-defun)
(cl-second (read (current-buffer)))))))
(plist-args (cl-loop while (keywordp (car args))
collect (pop args)
collect (pop args)))
((map (:buffer buffer) (:level level)) plist-args)
(level (or level :debug))
(string (cl-loop for arg in args
concat (pcase arg
((pred stringp) "%S ")
((pred symbolp)
(concat (upcase (symbol-name arg)) ":%S "))
((pred listp)
(concat "(" (upcase (symbol-name (car arg)))
(pcase (length arg)
(1 ")")
(_ "...)"))
":%S "))))))
(when (eq :debug warning-minimum-log-level)
`(let ((fn-name ,(if fn-name
`',fn-name
;; In an interpreted function: use `backtrace-frame' to get the
;; function name (we have to use a little hackery to figure out
;; how far up the frame to look, but this seems to work).
`(cl-loop for frame in (backtrace-frames)
for fn = (cl-second frame)
when (not (or (subrp fn)
(special-form-p fn)
(eq 'backtrace-frames fn)))
return (make-symbol (format "%s [interpreted]" fn))))))
(display-warning fn-name (format ,string ,@args) ,level ,buffer)
nil))))
** Destructuring :destructuring: :PROPERTIES: :CUSTOM_ID: destructuring :END:
See [[id:b699e1a1-e34c-4ce8-a5dd-41161d2a1cbf][Pattern matching]].
** Documentation :documentation: :PROPERTIES: :CUSTOM_ID: documentation :END:
*** Tools :tools:
** Editing :editing: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: editing :END: :CONTENTS:
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-3 :END:
**** [[https://github.com/Malabarba/aggressive-indent-mode][aggressive-indent-mode: minor mode that keeps your code always indented]] :formatting:indentation:parentheses: :PROPERTIES: :ID: 4dc7c607-a116-4c39-b063-fe34bd20cccf :CUSTOM_ID: aggressive-indent-mode-minor-mode-that-keeps-your-code-always-indented :END:
**** [[https://emacs.cafe/emacs/package/2017/08/01/beginend.html][beginend.el]] :navigation: :PROPERTIES: :ID: a32ed391-8ce6-46b7-9367-8117829ce2e7 :CUSTOM_ID: beginendel :END:
This package, by Damien Cassou and Matus Goljer, helps navigation by redefining the ~M-<~ and ~M->~ keys do, depending on the major-mode.
**** [[https://github.com/magnars/expand-region.el][expand-region.el: Increase selected region by semantic units]] :selection:region: :PROPERTIES: :ID: 88b496f4-8230-474e-b2ee-d8e4e8ca30d0 :CUSTOM_ID: expand-regionel-increase-selected-region-by-semantic-units :END:
**** [[https://github.com/emacs-helm/helm-navi][helm-navi: Navigate file sections and language keywords using Helm]] :navigation: :PROPERTIES: :CUSTOM_ID: helm-navi-navigate-file-sections-and-language-keywords-using-helm :END:
**** [[https://github.com/victorhge/iedit][iedit: Edit multiple regions simultaneously in a buffer or a region]] :refactoring: :PROPERTIES: :CUSTOM_ID: iedit-edit-multiple-regions-simultaneously-in-a-buffer-or-a-region :END:
=iedit= makes it easy to rename symbols within a function or in a whole buffer. Simply activate ~iedit-mode~ with point on a symbol, and it will be highlighted in the chosen scope, and any changes you make to the symbol are made in each highlighted occurrence. It's like a smart, purposeful version of ~multiple-cursors~.
The editor of this handbook uses ~iedit~ with these customizations:
(defun ap/iedit-or-flyspell () "Call `iedit-mode' or correct misspelling with flyspell, depending..." (interactive) (if (or iedit-mode (and (derived-mode-p 'prog-mode) (not (or (nth 4 (syntax-ppss)) (nth 3 (syntax-ppss)))))) ;; prog-mode is active and point is in a comment, string, or ;; already in iedit-mode (call-interactively #'ap/iedit-mode) ;; Not prog-mode or not in comment or string (if (not (equal flyspell-previous-command this-command)) ;; FIXME: This mostly works, but if there are two words on the ;; same line that are misspelled, it doesn't work quite right ;; when correcting the earlier word after correcting the later ;; one
;; First correction; autocorrect
(call-interactively 'flyspell-auto-correct-previous-word)
;; First correction was not wanted; use popup to choose
(progn
(save-excursion
(undo)) ; This doesn't move point, which I think may be the problem.
(flyspell-region (line-beginning-position) (line-end-position))
(call-interactively 'flyspell-correct-previous-word-generic)))))
(defun ap/iedit-mode (orig-fn)
"Call iedit-mode' with function-local scope by default, or global scope if called with a universal prefix." (interactive) (pcase current-prefix-arg ('nil (funcall orig-fn '(0))) ('(4) (funcall orig-fn)) (_ (user-error "
ap/iedit-mode' called with prefix: %s" prefix))))
;; Override default `iedit-mode' function with advice. (advice-add #'iedit-mode :around #'ap/iedit-mode)
(advice-add 'iedit-mode :after (lambda (&optional ignore) (when iedit-mode (minibuffer-message "iedit session started. Press C-; to end."))))
***** TODO Refer to version published in =unpackaged.el=
**** [[https://github.com/abo-abo/lispy][lispy: short and sweet LISP editing]] :elisp:navigation:parentheses: :PROPERTIES: :ID: ca3809ba-5900-4dfd-84a1-1ceecc048296 :CUSTOM_ID: lispy-short-and-sweet-lisp-editing :END:
**** [[https://github.com/IvanMalison/multi-line][multi-line: multi-line everything from function invocations and definitions to array and map literals in a wide variety of languages]] :formatting: :PROPERTIES: :CUSTOM_ID: multi-line-multi-line-everything-from-function-invocations-and-definitions-to-array-and-map-literals-in-a-wide-variety-of-languages :END:
**** [[https://github.com/magnars/multiple-cursors.el][multiple-cursors.el: Multiple cursors]] :selection:editing: :PROPERTIES: :ID: deefcbc5-0c37-4936-a820-df99ae31a401 :CUSTOM_ID: multiple-cursorsel-multiple-cursors :END:
**** [[https://github.com/Fuco1/smartparens][smartparens: Minor mode that deals with parens pairs and tries to be smart about it]] :navigation:editing:parentheses: :PROPERTIES: :ID: e806d7f3-43e9-4260-aae4-479efbd41653 :CUSTOM_ID: smartparens-minor-mode--that-deals-with-parens-pairs-and-tries-to-be-smart-about-it :END:
** General :general: :PROPERTIES: :TOC: :include descendants :depth 2 :ID: 26708ac7-9fa3-4f21-9324-ba0e8c939bd7 :CUSTOM_ID: general :END: :CONTENTS:
;;;; General tools
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-3 :END:
**** [[https://www.gnu.org/software/emacs/manual/html_node/cl/index.html][Common Lisp Extensions]] (=cl-lib=) :built_in: :PROPERTIES: :CUSTOM_ID: common-lisp-extensions-cl-lib :END:
This is the built-in =cl-lib= package which implements Common Lisp functions and control structures for Emacs Lisp.
**** [[https://github.com/magnars/dash.el][dash.el]] :dash: :PROPERTIES: :ID: e85e4252-ea03-4473-b52f-9393e7527fad :CUSTOM_ID: dashel-0 :END:
Dash is a powerful general-purpose library that provides many useful functions and macros.
**** [[https://github.com/Wilfred/loop.el][loop.el: friendly imperative loop structures]] :flow_control: :PROPERTIES: :CUSTOM_ID: loopel-friendly-imperative-loop-structures :END:
Emacs Lisp is missing loop structures familiar to users of newer languages. This library adds a selection of popular loop structures as well as break and continue.
**** [[https://github.com/emacs-mirror/emacs/blob/master/lisp/emacs-lisp/subr-x.el][subr-x]] :built_in:strings:flow_control: :PROPERTIES: :CUSTOM_ID: subr-x :END:
Less commonly used functions that complement basic APIs, often implemented in C code (like hash-tables and strings), and are not eligible for inclusion in subr.el.
This is a built-in package that provides several useful functions and macros, such as =thread-first= / =last=, =if-let= / =when-let=, hash-table functions, and string functions. It's easy to forget about this, since:
Do not document these functions in the lispref. http://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01006.html
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-4 :END:
**** [[https://github.com/plexus/chemacs][chemacs: Emacs profile switcher]] :testing: :PROPERTIES: :CUSTOM_ID: chemacs-emacs-profile-switcher :END:
This package may be especially helpful for developing in one's own environment and testing in another, like default Emacs, Spacemacs, etc.
Chemacs is an Emacs profile switcher, it makes it easy to run multiple Emacs configurations side by side. Think of it as a bootloader for Emacs.
Emacs configuration is either kept in a =~/.emacs= file or, more commonly, in a =~/.emacs.d= directory. These paths are hard-coded. If you want to try out someone else’s configuration, or run different distributions like Prelude or Spacemacs, then you either need to swap out =~/.emacs.d=, or run Emacs with a different =$HOME= directory set. This last approach is quite common, but has some real drawbacks, since now packages will no longer know where your actual home directory is.
All of these makes trying out different Emacs configurations and distributions needlessly cumbersome. Various approaches to solving this have been floated over the years. There’s an Emacs patch around that adds an extra command line option, and various examples of how to add a command line option in userspace from Emacs Lisp.
Chemacs tries to implement this idea in a user-friendly way, taking care of the various edge cases and use cases that come up.
**** [[https://github.com/Lindydancer/el2markdown][el2markdown: Convert Emacs Lisp comments to MarkDown]] :PROPERTIES: :ID: 9aacf8f3-5244-4b71-8802-1c7876a9d19e :CUSTOM_ID: el2markdown-convert-emacs-lisp-comments-to-markdown :END:
**** [[https://github.com/Lindydancer/multicolumn][multicolumn: Multiple side-by-side windows support]] :PROPERTIES: :ID: 267c8c25-53db-4ced-9242-176094e101e3 :CUSTOM_ID: multicolumn-multiple-side-by-side-windows-support :END:
**** [[https://github.com/phillord/lentic][lentic: Create views of the same content in two buffers]] :PROPERTIES: :ID: 0c220bc9-7173-4b0f-8955-e10ab6db640f :CUSTOM_ID: lentic-create-views-of-the-same-content-in-two-buffers :END:
**** [[https://github.com/Wilfred/suggest.el][suggest.el: discover elisp functions that do what you want]] :PROPERTIES: :ID: 57ecc064-7291-4cc5-a545-958e2bca295b :CUSTOM_ID: suggestel-discover-elisp-functions-that-do-what-you-want :END:
**** Byte-compile and load directory :PROPERTIES: :ID: e9b527d5-ae5e-4052-95f3-781ebc1b4ce1 :CUSTOM_ID: byte-compile-and-load-directory :END:
Byte-compile and load all elisp files in ~DIRECTORY~. Interactively, directory defaults to ~default-directory~ and asks for confirmation.
;;;###autoload
(defun epdh/byte-compile-and-load-directory (directory)
"Byte-compile and load all elisp files in DIRECTORY.
Interactively, directory defaults to default-directory' and asks for confirmation." (interactive (list default-directory)) (if (or (not (called-interactively-p)) (yes-or-no-p (format "Compile and load all files in %s?" directory))) ;; Not sure if binding
load-path' is necessary.
(let* ((load-path (cons directory load-path))
(files (directory-files directory 't (rx ".el" eos))))
(dolist (file files)
(byte-compile-file file 'load)))))
**** =emacs-lisp-macroreplace= :PROPERTIES: :ID: e84a8d0a-f68a-43c5-a499-f27b8ad90457 :CUSTOM_ID: emacs-lisp-macroreplace :END:
Replace macro form before or after point with its expansion.
;;;###autoload (defun epdh/emacs-lisp-macroreplace () "Replace macro form before or after point with its expansion." (interactive) (if-let* ((beg (point)) (end t) (form (or (ignore-errors (save-excursion (prog1 (read (current-buffer)) (setq end (point))))) (ignore-errors (forward-sexp -1) (setq beg (point)) (prog1 (read (current-buffer)) (setq end (point)))))) (expansion (macroexpand-all form))) (setf (buffer-substring beg end) (pp-to-string expansion)) (user-error "Unable to expand")))
*** Tutorials :tutorials: :PROPERTIES: :CUSTOM_ID: tutorials :END:
**** [[https://old.reddit.com/r/emacs/comments/60tl6o/tips_on_reading_dense_emacs_lisp_code/dfa92hg/][Wilfred Hughes walks through a function from Lispy]] :ATTACH: :PROPERTIES: :Attachments: https%3A%2F%2Fold.reddit.com%2Fr%2Femacs%2Fcomments%2F60tl6o%2Ftips_on_reading_dense_emacs_lisp_code%2Fdfa92hg%2F--PA7yQk.tar.xz :ID: 57f093b3-c2c9-436a-95d4-244ad9f64778 :author: Wilfred Hughes :CUSTOM_ID: wilfred-hughes-walks-through-a-function-from-lispy :END:
Wilfred's walkthrough is helpful for learning how to study an Elisp function and determine what it does and how. He also shows the use of ~trace-function~.
** Highlighting / font-locking :highlighting:font_lock: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: highlighting--font-locking :END: :CONTENTS:
*** Packages :packages: :PROPERTIES: :CUSTOM_ID: packages :END:
Packages that do highlighting/font-locking.
**** [[https://github.com/Lindydancer/lisp-extra-font-lock][lisp-extra-font-lock: Highlight bound variables and quoted expressions in lisp]] :PROPERTIES: :ID: 5b4a9320-1d3d-441b-8505-7b35a8d323d3 :CUSTOM_ID: lisp-extra-font-lock-highlight-bound-variables-and-quoted-expressions-in-lisp :END:
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-5 :END:
Tools for developing highlighting/font-locking packages.
**** [[https://github.com/Lindydancer/face-explorer][face-explorer: Library and tools for faces and text properties]] :PROPERTIES: :ID: 66fef80f-0f92-4492-8199-01c24c635914 :CUSTOM_ID: face-explorer-library-and-tools-for-faces-and-text-properties :END:
**** [[https://github.com/Lindydancer/faceup][faceup: Regression test system for font-lock keywords]] :PROPERTIES: :ID: 5ab6c330-15ae-455a-981c-bf298d9a2788 :CUSTOM_ID: faceup-regression-test-system-for-font-lock-keywords :END:
**** [[https://github.com/Lindydancer/font-lock-profiler][font-lock-profiler: Coverage and timing tool for font-lock keywords]] :PROPERTIES: :ID: 0f3ba4be-949b-4efe-8301-acf3873ab345 :CUSTOM_ID: font-lock-profiler-coverage-and-timing-tool-for-font-lock-keywords :END:
**** [[https://github.com/Lindydancer/font-lock-regression-suite][font-lock-regression-suite: Regression test suite for font-lock keywords of Emacs standard modes]] :PROPERTIES: :ID: e54a2697-8b4a-4b65-a971-f79e0fa22120 :CUSTOM_ID: font-lock-regression-suite-regression-test-suite-for-font-lock-keywords-of-emacs-standard-modes :END:
**** [[https://github.com/Lindydancer/font-lock-studio][font-lock-studio: Debugger for Font Lock keywords]] :PROPERTIES: :ID: fb9315d1-111d-4eab-8f99-00710e39b04c :CUSTOM_ID: font-lock-studio-debugger-for-font-lock-keywords :END:
**** [[https://github.com/Lindydancer/highlight-refontification][highlight-refontification: Visualize how font-lock refontifies a buffer]] :PROPERTIES: :ID: 85a2421d-6fbd-4c4d-a6f9-587258c8f625 :CUSTOM_ID: highlight-refontification-visualize-how-font-lock-refontifies-a-buffer :END:
** Multiprocessing (generators, threads) :multiprocessing: :PROPERTIES: :ID: 94092c16-061c-45c9-9c66-77c5fdeceee8 :TOC: :include descendants :depth 2 :CUSTOM_ID: multiprocessing-generators-threads :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: articles-2 :END:
**** [[https://nullprogram.com/blog/2018/05/31/][Emacs 26 Brings Generators and Threads « null program]] :threads:generators:compilation:closures:iterators: :PROPERTIES: :archive.today: http://archive.today/Irane :END:
Chris Wellons explains the new generators and threads that Emacs 26 provides. He also shows an example of writing a ~cl-case~ form that uses the new ~switch~ jump table opcode in Emacs 26.
**** [[https://nullprogram.com/blog/2013/01/14/][Turning Asynchronous into Synchronous in Elisp « null program]] :async: :PROPERTIES: :archive.today: http://archive.today/AfL0y :END:
**** [[https://nullprogram.com/blog/2017/02/14/][Asynchronous Requests from Emacs Dynamic Modules « null program]] :modules:async: :PROPERTIES: :archive.today: http://archive.today/ZS6pU :END:
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-4 :END:
**** [[https://github.com/skeeto/emacs-aio][emacs-aio: async/await for Emacs Lisp]] :PROPERTIES: :CUSTOM_ID: emacs-aio-asyncawait-for-emacs-lisp :END:
=aio= is to Emacs Lisp as asyncio is to Python. This package builds upon Emacs 25 generators to provide functions that pause while they wait on asynchronous events. They do not block any thread while paused.
*** Manual :manual: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: manual :END:
**** [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Generators.html][GNU Emacs Lisp Reference Manual: Generators]] :generators:
**** [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Threads.html][GNU Emacs Lisp Reference Manual: Threads]] :threads:
** Networking :networking: :PROPERTIES: :CUSTOM_ID: networking :END:
*** HTTP :HTTP:
**** Libraries :libraries: :PROPERTIES: :TOC: :include descendants :depth 1 :END:
For very simple use cases, the built-in [[=url=][url]] library should be sufficient. But for more complex cases, and for a simpler API and more reliability, it's generally recommended to use [[[[https://github.com/alphapapa/plz.el\]\[plz.el: HTTP client library]]][plz]].
Other libraries, such as [[*%5B%5Bhttps://github.com/tkf/emacs-request%5D%5BRequest.el%20--%20Easy%20HTTP%20requests%5D%5D][request]], can also provide improvements over ~url~. However, in this author's experience, both ~url~ and ~request~, while mostly reliable, tend to have some obscure bugs that can occasionally be problematic. ~plz~, while not yet as featureful as ~request~, is intended to be developed into the best all-around client, and is now a mature, reliable library.
:CONTENTS:
***** [[https://github.com/alphapapa/plz.el][plz.el: HTTP client library]] :curl:GNU_ELPA: :PROPERTIES: :CUSTOM_ID: plzel-http-client-library :END:
Inspired by [[*[[https://github.com/skeeto/elfeed/blob/master/elfeed-curl.el\]\[elfeed-curl\]\]][elfeed-curl]] and endorsed by its author, ~plz~ supports both synchronous and asynchronous requests. Its API is intended to be simple, natural, and expressive. Its code is intended to be simple and well-organized. Every feature is tested against [[https://httpbin.org/][httpbin]]. Written by this author, ~plz~ is available on GNU ELPA, so it's installable in Emacs by default.
***** =url= :url_el:built_in: :PROPERTIES: :CUSTOM_ID: url :END:
=url= is included with Emacs and used by a variety of packages.
***** [[https://github.com/tkf/emacs-request][Request.el -- Easy HTTP requests]] :curl:url_el:NonGNU_ELPA:MELPA: :PROPERTIES: :CUSTOM_ID: requestel----easy-http-requests :END:
=request= is the most commonly used third-party HTTP library. It has both =curl= and =url.el= backends.
***** [[https://github.com/skeeto/elfeed/blob/master/elfeed-curl.el][elfeed-curl]] :curl: :PROPERTIES: :CUSTOM_ID: elfeed-curl :END:
Not a standalone package, but part of [[https://github.com/skeeto/elfeed/blob/master/elfeed-curl.el][Elfeed]]. A solid, well-designed library, but purpose-built for Elfeed. Inspired the development of [[*[[https://github.com/alphapapa/plz.el\]\[plz.el: HTTP client library]]][plz]].
** Packaging :packaging: :PROPERTIES: :TOC: :include descendants :depth 2 :force depth :CUSTOM_ID: packaging :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :CUSTOM_ID: articles-3 :END:
**** [[https://amodernist.com/texts/emacs-style.html][Good Style in modern Emacs Packages]] :PROPERTIES: :author: Philip Kaludercic :CUSTOM_ID: good-style-in-modern-emacs-packages :END:
*** Best practices :best_practices: :PROPERTIES: :CUSTOM_ID: best-practices-1 :END:
**** Autoloads :autoloads: :PROPERTIES: :CUSTOM_ID: autoloads :END:
***** TODO Autoloading macro-generated functions
This may actually be a bug, or at least an unanswered question.
[[https://www.reddit.com/r/emacs/comments/63u5yn/how_to_use_autoload_cookies_for_custom_defunlike/][How to use autoload cookies for custom defun-like macros? : emacs]]:
Say I have a macro =deffoo= that expands to some custom kind of =defun=, and I want to use an autoload cookie to autoload the result. According to the manual,
;;;###autoload (deffoo bar ...)
copies the entire form to =autoloads.el=, and something like
;;;###autoload (autoload 'bar "this-file") (deffoo bar ...)
should be used instead. What confuses me is [[http://stackoverflow.com/a/38805102][this StackOverflow comment]] by who appears to be Stefan Monnier, saying that Emacs /should/ expand the macro before generating the autoload, and that it's probably a bug when this does not happen.
Can anyone clear up what the intended behaviour is?
[2018-01-15 Mon 03:37] The correct way to do this is documented in [[https://github.com/alphapapa/helm-org-rifle/issues/13][this bug report]].
***** Articles :articles:
** [[https://www.lunaryorn.com/posts/autoloads-in-emacs-lisp][Autoloads in Emacs Lisp | Sebastian Wiesner]] :PROPERTIES: :archive.today: http://archive.today/UZHhS :END:
**** Integration with other packages :PROPERTIES: :CUSTOM_ID: integration-with-other-packages :END:
***** Optional support
Sometimes you want your package to integrate with other packages, but you don't want to require users to install those other packages. For example, you might want your package to work with Helm, Ivy, or the built-in Emacs =completing-read=, but you don't want to declare a dependency on and =require= Helm or Ivy, which would force users to install them to use your package.
The best way to handle this is with the [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Hooks-for-Loading.html][=with-eval-after-load=]] macro. The [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Hooks-for-Loading.html][Emacs manual]] has a page on it, and [[https://stackoverflow.com/questions/21880139/what-is-with-eval-after-load-in-emacs-lisp][this StackOverflow question]] has some more info. You can also see an [[https://github.com/alphapapa/org-recent-headings/blob/master/org-recent-headings.el#L350][example]], which also [[https://github.com/alphapapa/org-recent-headings/blob/master/org-recent-headings.el#L377][uses]] [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Declaring-Functions.html][=declare-function=]] to prevent byte-compiler warnings. Note as well that, according to [[https://stackoverflow.com/questions/21075092/elisp-how-to-avoid-functions-are-not-known-to-be-defined-when-byte-compiling#comment31703432_21075724][this StackOverflow comment]], when a function call is guarded by =fboundp=, it's not necessary to use =declare-function= to avoid a warning.
**** [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Lexical-Binding.html][Lexical binding]] :lexical_binding:built_in: :PROPERTIES: :ID: 7247be4d-4f66-43ff-bb70-1b4a7458611b :CUSTOM_ID: lexical-binding-0 :END:
You should always use lexical binding by setting the header in the first line of the file:
;;; filename.el --- File description -- lexical-binding: t; --
***** Articles :articles:
** [[https://yoo2080.wordpress.com/2013/09/11/emacs-lisp-lexical-binding-gotchas-and-related-best-practices/][Emacs Lisp lexical binding gotchas and related best practices | Yoo Box]] :PROPERTIES: :archive.today: http://archive.today/0nfB4 :END:
** [[https://emacs.stackexchange.com/questions/2129/why-is-let-faster-with-lexical-scope][elisp - Why is `let' faster with lexical scope? - Emacs Stack Exchange]] :PROPERTIES: :archive.today: http://archive.today/LUtfZ :END:
Sebastian Wiesner provides a detailed explanation.
** [[https://www.emacswiki.org/emacs/DynamicBindingVsLexicalBinding][EmacsWiki: Dynamic Binding Vs Lexical Binding]] :PROPERTIES: :archive.today: http://archive.today/2VtOU :END:
A lot of good examples and discussion.
** [[id:3659d32e-3e9e-466f-94ff-33cfed5dc49d][Some Performance Advantages of Lexical Scope « null program]]
**** Template :PROPERTIES: :ID: aacd55b6-a56f-4064-bf0d-25173ce83ef3 :CUSTOM_ID: template :END:
When you make a new package, the =auto-insert= command will insert a set of standard package headers for you. However, here is a more comprehensive template you can use:
;;; package-name.el --- Package description (don't include the word "Emacs") -- lexical-binding: t; --
;; Copyright (C) 2017 First Last
;; Author: First Last name@example.com ;; URL: https://example.com/package-name.el ;; Version: 0.1-pre ;; Package-Requires: ((emacs "25.2")) ;; Keywords: something
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see http://www.gnu.org/licenses/.
;;; Commentary:
;; This package allows flanges to be easily frobnicated.
;;;; Installation
;;;;; MELPA
;; If you installed from MELPA, you're done.
;;;;; Manual
;; Install these required packages:
;; + foo ;; + bar
;; Then put this file in your load-path, and put this in your init ;; file:
;; (require 'package-name)
;;;; Usage
;; Run one of these commands:
;; `package-name-command': Frobnicate the flange.
;;;; Tips
;; + You can customize settings in the `package-name' group.
;;;; Credits
;; This package would not have been possible without the following ;; packages: foo[1], which showed me how to bifurcate, and bar[2], ;; which takes care of flanges. ;; ;; [1] https://example.com/foo.el ;; [2] https://example.com/bar.el
;;; Code:
;;;; Requirements
(require 'foo) (require 'bar)
;;;; Customization
(defgroup package-name nil "Settings for `package-name'." :link '(url-link "https://example.com/package-name.el"))
(defcustom package-name-something nil "This setting does something." :type 'something)
;;;; Variables
(defvar package-name-var nil "A variable.")
;;;;; Keymaps
;; This technique makes it easier and less verbose to define keymaps ;; that have many bindings.
(defvar package-name-map ;; This makes it easy and much less verbose to define keys (let ((map (make-sparse-keymap "package-name map")) (maps (list ;; Mappings go here, e.g.: "RET" #'package-name-RET-command [remap search-forward] #'package-name-search-forward ))) (cl-loop for (key fn) on maps by #'cddr do (progn (when (stringp key) (setq key (kbd key))) (define-key map key fn))) map))
;;;; Commands
;;;###autoload (defun package-name-command (args) "Frobnicate the flange." (interactive) (package-name-foo (package-name--bar args)))
;;;; Functions
;;;;; Public
(defun package-name-foo (args) "Return foo for ARGS." (foo args))
;;;;; Private
(defun package-name--bar (args) "Return bar for ARGS." (bar args))
;;;; Footer
(provide 'package-name)
;;; package-name.el ends here
**** Readme :PROPERTIES: :CUSTOM_ID: readme :END:
You should always include a readme with your project. Typically it will be include most of the commentary section. Here's a template that goes with the package template above:
,#+TITLE: package-name
,#+PROPERTY: LOGGING nil
[[https://melpa.org/#/package-name][file:https://melpa.org/packages/package-name-badge.svg]] [[https://stable.melpa.org/#/package-name][file:https://stable.melpa.org/packages/package-name-badge.svg]]
This is my package. It is nice. You should try it.
,* Screenshots
This screenshot shows how to frobnicate the fripulator:
[[screenshot1.png]]
,* Contents :noexport: :PROPERTIES: :TOC: :include siblings :END: :CONTENTS:
:END:
,* Installation :PROPERTIES: :TOC: :depth 0 :END:
,** MELPA
If you installed from MELPA, you're done. Just run one of the commands below.
,** Manual
Install these required packages:
+ =foo=
+ =bar=
Then put this file in your load-path, and put this in your init file:
,#+BEGIN_SRC elisp
(require 'package-name) ,#+END_SRC
,* Usage :PROPERTIES: :TOC: :depth 0 :END:
Run one of these commands:
+ =package-name-command=: Frobnicate the flange.
,** Tips
You can customize settings in the =package-name= group.
,* Changelog :PROPERTIES: :TOC: :depth 0 :END:
,** 1.1.0
,Additions
Add command =package-name-debarnacle= to de-barnacle the hull.
,Changes
Command =package-name-anchor= now takes an argument, =weigh= or =let-go=.
,Internal
Factored out anchor-weighing.
,** 1.0.1
,Fixes
Ensure anchor is secure before returning from =package-name-anchor=.
,** 1.0.0
Initial release.
,* Credits
This package would not have been possible without the following packages: [[https://example.com/foo.el][foo]] which showed me how to bifurcate, and [[https://example.com/bar.el][bar]], which takes care of flanges.
,* Development
Bug reports, feature requests, suggestions — /oh my/!
,* License
GPLv3
**** Version numbers :PROPERTIES: :CUSTOM_ID: version-numbers :END:
Version numbers which are valid in Emacs are those accepted by the function ~version-to-list~, which uses the variables ~version-separator~ and ~version-regexp-alist~. See their documentation for specific, up-to-date information. ~version-to-list~'s documentation (as of Emacs 26.1) is reproduced here for convenience:
The version syntax is given by the following EBNF:
VERSION ::= NUMBER ( SEPARATOR NUMBER )*.
NUMBER ::= (0|1|2|3|4|5|6|7|8|9)+.
SEPARATOR ::= ‘version-separator’ (which see) | ‘version-regexp-alist’ (which see).
The NUMBER part is optional if SEPARATOR is a match for an element in ‘version-regexp-alist’.
Examples of valid version syntax:
1.0pre2 1.0.7.5 22.8beta3 0.9alpha1 6.9.30Beta 2.4.snapshot .5
Examples of invalid version syntax:
1.0prepre2 1.0..7.5 22.8X3 alpha3.2
Examples of version conversion:
Version String Version as a List of Integers ".5" (0 5) "0.9 alpha" (0 9 -3) "0.9AlphA1" (0 9 -3 1) "0.9snapshot" (0 9 -4) "1.0-git" (1 0 -4) "1.0.7.5" (1 0 7 5) "1.0.cvs" (1 0 -4) "1.0PRE2" (1 0 -1 2) "1.0pre2" (1 0 -1 2) "22.8 Beta3" (22 8 -2 3) "22.8beta3" (22 8 -2 3)
*** Libraries :libraries: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: libraries-5 :END:
**** =lisp-mnt.el= (=lm=) :built_in: :PROPERTIES: :TOC: :ignore this :END:
This library includes functions helpful for working with and verifying the format of Emacs Lisp package files, including headers, commentary, etc. It's easy to overlook and hard to re-discover this package because of its =lm= symbol prefix. It's listed here because your editor keeps forgetting what it's called.
*** Reference :reference: :PROPERTIES: :CUSTOM_ID: reference :END:
**** Package headers and structure :PROPERTIES: :ID: 036e2a71-f392-4c9a-a524-c5354f291e2f :CUSTOM_ID: package-headers-and-structure :END:
The [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Simple-Packages.html][Emacs manual]] gives this example (I've added the lexical-binding part). Also see [[id:aacd55b6-a56f-4064-bf0d-25173ce83ef3][template]].
;;; superfrobnicator.el --- Frobnicate and bifurcate flanges -- lexical-binding: t; --
;; Copyright (C) 2011 Free Software Foundation, Inc.
;; Author: J. R. Hacker jrh@example.com ;; Version: 1.3 ;; Package-Requires: ((flange "1.0")) ;; Keywords: multimedia, frobnicate ;; URL: http://example.com/jrhacker/superfrobnicate
...
;;; Commentary:
;; This package provides a minor mode to frobnicate and/or ;; bifurcate any flanges you desire. To activate it, just type ...
;;;###autoload (define-minor-mode superfrobnicator-mode ...
*** Tools :tools: :PROPERTIES: :TOC: :depth 2 :include descendants :CUSTOM_ID: tools-6 :END: :CONTENTS:
**** Building / Testing :building:testing: :PROPERTIES: :CUSTOM_ID: building--testing :END:
Tools for building and testing packages, especially from scripts or Makefiles.
***** [[https://github.com/cask/cask][cask: Project management tool for Emacs]] :PROPERTIES: :ID: 06ba57cf-464f-473a-9911-4311033bc358 :CUSTOM_ID: cask-project-management-tool-for-emacs :END:
Cask is a project management tool for Emacs that helps automate the package development cycle; development, dependencies, testing, building, packaging and more.
***** [[https://github.com/emacs-eask/cli][Eask: CLI for building, running, testing, and managing dependencies]] :PROPERTIES: :CUSTOM_ID: eask-cli-for-building-running-testing-and-managing-dependencies :END:
Eask was built to use as a package development tool in Elisp packages. It can be used in three major ways:
Eask aims to be:
See [[https://emacs-eask.github.io/Getting-Started/Introduction/#-why-eask][Why Eask?]] for more detailed information.
Note that although Eask is implemented in JavaScript and Node.js, it is also distributed as an all-in-one binary that doesn't require Node.js to be installed.
***** [[https://github.com/doublep/eldev][eldev: Elisp Development Tool]] :PROPERTIES: :CUSTOM_ID: eldev-elisp-development-tool :END:
Eldev (Elisp Development Tool) is an Emacs-based build tool, targeted solely at Elisp projects. It is an alternative to Cask. Unlike Cask, Eldev itself is fully written in Elisp and its configuration files are also Elisp programs. If you are familiar with Java world, Cask can be seen as a parallel to Maven — it uses project description, while Eldev is sort of a parallel to Gradle — its configuration is a program on its own.
***** [[https://github.com/akirak/emacs-package-checker][emacs-package-checker: Check Emacs Lisp packages in a clean environment]] :PROPERTIES: :CUSTOM_ID: emacs-package-checker-check-emacs-lisp-packages-in-a-clean-environment :END:
Emacs Package Checker lets you quickly configure typical linters (i.e. package-lint, byte-compile, and checkdoc) for your Emacs package.
There are existing solutions in this field like emake.el and makel. Emacs Package Checker is not any more capable than those existing solutions, but it is based on Nix package manager and runs tests in a pure, sandboxed environment. This is useful for testing Emacs packages on local machines.
***** [[https://github.com/vermiculus/emake.el][emake.el: Test Elisp without the hoops]] :PROPERTIES: :ID: 2e076cf2-77b5-440c-9832-086739185f6b :CUSTOM_ID: emakeel-test-elisp-without-the-hoops :END:
Test Elisp with services like Travis CI without the fuss of Cask – just you, your project, and (Emacs-)Make.
Things EMake does:
Things EMake will never do (or ‘reasons you may still need Cask’):
***** [[https://gitlab.petton.fr/DamienCassou/makel/][makel: A makefile to facilitate checking Emacs packages]] :PROPERTIES: :ID: 5bcfdd7f-40a3-40b4-bd0a-586602791161 :CUSTOM_ID: makel-a-makefile-to-facilitate-checking-emacs-packages :END:
makel is a project consisting of a Makefile (=makel.mk=) that Emacs package authors can use to facilitate quality checking (linting and tests). The Makefile can be used both locally on the developer machine and remotely on a continuous integration machine.
***** [[https://github.com/alphapapa/makem.sh][makem.sh: Makefile-like script for building and testing packages]] :PROPERTIES: :ID: 38e6ee67-0d22-44d2-a2c6-01602e00ee23 :CUSTOM_ID: makemsh-makefile-like-script-for-building-and-testing-packages :END:
makem.sh is a script helps to build, lint, and test Emacs Lisp packages. It aims to make linting and testing as simple as possible without requiring per-package configuration.
It works similarly to a Makefile in that "rules" are called to perform actions such as byte-compiling, linting, testing, etc.
Source and test files are discovered automatically from the project's Git repo, and package dependencies within them are parsed automatically.
Output is simple: by default, there is no output unless errors occur. With increasing verbosity levels, more detail gives positive feedback. Output is colored by default to make reading easy.
The script can run Emacs with the developer's local Emacs configuration, or with a clean, "sandbox" configuration that can be optionally removed afterward. This is especially helpful when upstream dependencies may have released new versions that differ from those installed in the developer's personal configuration.
**** Package installation/management :installation:management: :PROPERTIES: :CUSTOM_ID: package-installationmanagement :END:
***** TODO [[https://github.com/raxod502/straight.el][straight.el: Next-generation, purely functional package manager for the Emacs hacker]] :needs_examples: :PROPERTIES: :CUSTOM_ID: straightel-next-generation-purely-functional-package-manager-for-the-emacs-hacker :END: :LOGBOOK:
***** TODO [[https://github.com/jwiegley/use-package][use-package: A use-package declaration for simplifying your .emacs]] :needs_examples: :PROPERTIES: :ID: 540617fd-d4ff-47df-89da-6c48c8f27785 :CUSTOM_ID: use-package-a-use-package-declaration-for-simplifying-your-emacs :END: :LOGBOOK:
Developed by the current maintainer of Emacs, himself, John Wiegley.
***** [[https://github.com/Malabarba/paradox][paradox: modernizing Emacs' Package Menu. With package ratings, usage statistics, customizability, and more.]] :PROPERTIES: :ID: 2c31eae6-eeba-433f-bc26-9465d5aa8537 :CUSTOM_ID: paradox-modernizing-emacs-package-menu-with-package-ratings-usage-statistics-customizability-and-more :END:
***** [[https://github.com/dimitri/el-get][el-get: Manage the external elisp bits and pieces upon which you depend!]] :PROPERTIES: :CUSTOM_ID: el-get-manage-the-external-elisp-bits-and-pieces-upon-which-you-depend :END:
** Pattern matching :destructuring:pattern_matching: :PROPERTIES: :TOC: :depth 2 :include descendants :ID: b699e1a1-e34c-4ce8-a5dd-41161d2a1cbf :CUSTOM_ID: pattern-matching :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: articles-4 :END:
**** [[http://www.wilfred.me.uk/blog/2017/03/19/pattern-matching-in-emacs-lisp/][Pattern Matching in Emacs Lisp – Wilfred Hughes::Blog]] :pcase:shadchen:cl:dash: :PROPERTIES: :archive.today: http://archive.today/J4DqY :END:
Pattern matching is invaluable in elisp. Lists are ubiquitous, and a small amount of pattern matching can often replace a ton of verbose list fiddling.
Since this is Lisp, we have lots of choices! In this post, we'll compare [[https://www.gnu.org/software/emacs/manual/cl.html][cl.el]], [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Pattern-matching-case-statement.html][pcase.el]], [[https://github.com/magnars/dash.el][dash.el]], and [[https://github.com/VincentToups/shadchen-el][shadchen]], so you can choose the best fit for your project. We'll look at the most common use cases, and end with some recommendations.
For the sake of this post, we'll consider both pattern matching and destructuring, as they're closely related concepts.
**** [[http://kitchingroup.cheme.cmu.edu/blog/2017/04/16/A-callable-plist-data-structure-for-Emacs/][A callable plist data structure for Emacs]] :plists:macros: :PROPERTIES: :archive.today: http://archive.today/vmITX :ID: 9391ab92-5d51-4786-a3c5-4822ec500500 :END:
John Kitchin demonstrates some [[id:a58f65dc-d4a4-4a40-a573-a66a28f3619c][macros]] that make it easy to access plist values.
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-6 :END:
**** [[https://github.com/magnars/dash.el][dash.el]] :dash: :PROPERTIES: :CUSTOM_ID: dashel-1 :END:
Dash is a powerful library, and one of its features is powerful destructuring with its ~-let~ macro, and several others that work the same way.
**** [[https://www.gnu.org/software/emacs/manual/html_node/elisp/Pattern-matching-case-statement.html][pcase]] :built_in:pcase: :PROPERTIES: :CUSTOM_ID: pcase :END:
~pcase~ is built-in to Emacs. Its syntax can be confusing, but it is very powerful.
***** Articles :articles:
** [[http://newartisans.com/2016/01/pattern-matching-with-pcase/][Emacs: Pattern Matching with pcase - Lost in Technopolis]] :tutorial: :PROPERTIES: :archive.today: http://archive.today/FAzd8 :author: John Wiegley :END:
This tutorial by John Wiegley is a great introduction to =pcase=.
** [[https://www.emacswiki.org/emacs/PatternMatching][EmacsWiki: Pattern Matching]] :examples:EmacsWiki:
There are /lots/ of examples here.
** Nic Ferrier, [[http://nic.ferrier.me.uk/blog/2013_03/refactoring-elisp-polymorphically][Using Polymorphism as a Lisp refactoring tool]] :PROPERTIES: :archive.today: http://archive.today/0Y3Md :END:
***** Examples :examples:
** TODO ~dash~
[2018-07-27 Fri 23:29] Dash has new abilities, including ~-setq~, and destructuring plists with implied variable names (i.e. just the keys can be specified, reducing repetition).
** =pcase-let= :destructuring:
This example shows the use of =pcase-let*= to destructure and bind a nested alist:
(let ((alphabets (a-list 'English (a-list 'first "a" 'second "b") 'Greek (a-list 'first "α" 'second "β")))) (pcase-let* (((map English) alphabets) ((map ('first letter) second) English)) (list letter second))) ;; => ("a" "b")
**** [[https://github.com/VincentToups/shadchen-el][shadchen-el]] :shadchen:el: :PROPERTIES: :CUSTOM_ID: shadchen-el :END:
A powerful, Racket-style pattern-matching library.
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-7 :END:
**** let-alist :alists:macros:destructuring: :PROPERTIES: :ID: f8f0755b-c23b-45ad-98da-780d4044676a :CUSTOM_ID: let-alist :END:
let-alist is the best thing to happen to associative lists since the invention of the cons cell. This little macro lets you easily access the contents of an alist, concisely and efficiently, without having to specify them preemptively. It comes built-in with 25.1, and is also available on GNU Elpa for older Emacsen.
[[http://endlessparentheses.com/new-on-elpa-and-in-emacs-25-1-let-alist.html][Example]]:
(defun sx-question-list--print-info (question-data) "DOC" (let-alist question-data (list question-data (vector (int-to-string .score) (int-to-string .answer_count) .title " " .owner.display_name .last_activity_date sx-question-list-ago-string " " .tags))))
***** Articles :articles:
** [[http://endlessparentheses.com/new-on-elpa-and-in-emacs-25-1-let-alist.html][New on Elpa and in Emacs 25.1: let-alist · Endless Parentheses]] :PROPERTIES: :archive.today: http://archive.today/2wNFm :END:
Here Artur introduces the macro and gives examples.
**** =with-dict=, =with-plist-vals= :macros:plists: :PROPERTIES: :ID: a58f65dc-d4a4-4a40-a573-a66a28f3619c :CUSTOM_ID: with-dict-with-plist-vals :END:
Courtesy of [[id:9391ab92-5d51-4786-a3c5-4822ec500500][John Kitchin]]:[fn:1:Copyright by John Kitchin, licensed under a Creative Commons Attribution-ShareAlike 4.0 International License.]
(defmacro with-dict (key-vals &rest body)
"A context-manager for a plist where each key is a callable
function that returns the value."
(declare (indent 1))
(let* ((g (if (symbolp key-vals)
(symbol-value key-vals)
key-vals))
(keys (-slice g 0 nil 2)))
(labels ,(loop for key in keys collect (list key '()
(plist-get ',g ,key)))
,@body)))
;; Used as:
(with-dict (:a 1 :b 'some-symbol :c 3) (:b))
(let ((d '(:key1 1 :key2 some-other-symbol :key3 3))) (with-dict d (format "We got %s" (:key2))))
And:
(defmacro with-plist-vals (plist &rest body) "Bind the values of a plist to variables with the name of the keys." (declare (indent 1)) `(let ,(loop for key in (-slice plist 0 nil 2) for val in (-slice plist 1 nil 2) collect (list (intern (substring (symbol-name key) 1)) val)) ,@body))
;; Used like:
(with-plist-vals (:a 4 :b 6) (* 2 a))
** Processes (incl. IPC, RPC) :processes: :PROPERTIES: :CUSTOM_ID: processes-incl-ipc-rpc :END:
Including inter-process communication (IPC) and remote procedure calls (RPC).
*** Libraries :libraries:
**** [[https://github.com/ieure/debase][debase: D-Bus<->EIEIO bridge]] :IPC:RPC:Linux:
D-Bus is an IPC system which is ubiquitous on Linux, and (in this author’s opinion) not very good. Emacs has bindings for interfacing with it (see the former point), which are annoying to use (see the latter point).
These days, numerous common system management tasks are implemented as D-Bus services rather than tradidional *nix commands, and many of the command-line tools themselves are now front-ends which communicate via D-Bus. Mounting and unmounting disks, monitoring battery status, controlling display brightness, connecting to wireless networks and more are now handled with D-Bus services.
It makes no sense to shell out to the tools when one could interact with them directly via D-Bus, if only it was less annoying to do so.
Debase frees you from writing repetitive, annoying boilerplate code to drive D-Bus services by throwing another pile of abstraction at the problem, in the form of unreadably dense, macro-heavy, profoundly cursed Lisp.
** Optimization :optimization: :PROPERTIES: :TOC: :include descendants :CUSTOM_ID: optimization :END:
Including benchmarking, byte-compilation, profiling, etc.
:CONTENTS:
*** Articles :articles: :PROPERTIES: :TOC: :include descendants :CUSTOM_ID: articles-5 :END: :CONTENTS:
**** [[https://nullprogram.com/blog/2019/12/10/][Efficient Alias of a Built-In Emacs Lisp Function « null program]] :compilation:bytecode: :PROPERTIES: :archive.is: http://archive.today/wip/pdIQH :ID: 26105b53-a344-48bd-a252-596dd838ac3b :author: Chris Wellons :published: [2019-12-10 Tue] :CUSTOM_ID: efficient-alias-of-a-built-in-emacs-lisp-function--null-program :END:
Chris Wellons compares the use of =defalias= and =defsubst= and how they are optimized by the byte-compiler.
**** [[https://nullprogram.com/blog/2014/01/04/][Emacs Byte-code Internals]] :compilation:bytecode: :PROPERTIES: :archive.is: http://archive.today/DFx3S :author: Chris Wellons :published: [2014-01-04 Sat] :CUSTOM_ID: emacs-byte-code-internals :END:
Byte-code compilation is an underdocumented — and in the case of the recent lexical binding updates, undocumented — part of Emacs. Most users know that Elisp is usually compiled into a byte-code saved to =.elc= files, and that byte-code loads and runs faster than uncompiled Elisp. That’s all users really need to know, and the /GNU Emacs Lisp Reference Manual/ specifically discourages poking around too much.
*People do not write byte-code*; that job is left to the byte compiler. But we provide a disassembler to satisfy a cat-like curiosity.
Screw that! What if I want to handcraft some byte-code myself? :-) The purpose of this article is to introduce the internals of Elisp byte-code interpreter. I will explain how it works, why lexically scoped code is faster, and demonstrate writing some byte-code by hand.
**** [[https://nullprogram.com/blog/2016/12/11/][Faster Elfeed Search Through JIT Byte-code Compilation]] :benchmarking:compilation:bytecode: :PROPERTIES: :author: Chris Wellons :published: [2016-12-11 Sun] :ID: 6e54fe14-d70e-485e-a671-a2600d57595d :CUSTOM_ID: faster-elfeed-search-through-jit-byte-code-compilation :END:
Chris Wellons shows how he substantially improved Elfeed's search by byte-compiling functions at runtime and avoiding function call overhead. He also demonstrates some simple benchmarking tools he wrote in the process.
**** [[https://nullprogram.com/blog/2017/01/30/][How to Write Fast(er) Emacs Lisp « null program]] :PROPERTIES: :archive.today: http://archive.today/xe0Js :CUSTOM_ID: how-to-write-faster-emacs-lisp--null-program :END:
Chris Wellons explains five ways to write faster Emacs Lisp code.
**** [[https://nullprogram.com/blog/2016/12/22/][Some Performance Advantages of Lexical Scope « null program]] :lexical_binding:compilation:bytecode: :PROPERTIES: :ID: 3659d32e-3e9e-466f-94ff-33cfed5dc49d :archive.today: http://archive.today/xm5zq :author: Chris Wellons :published: [2016-12-22 Thu] :CUSTOM_ID: some-performance-advantages-of-lexical-scope--null-program :END:
I recently had a discussion with Xah Lee about lexical scope in Emacs Lisp. The topic was why lexical-binding exists at a file-level when there was already lexical-let (from cl-lib), prompted by my previous article on JIT byte-code compilation. The specific context is Emacs Lisp, but these concepts apply to language design in general.
**** [[https://nullprogram.com/blog/2017/12/14/][What's in an Emacs Lambda « null program]] :lambdas:compilation:lexical_binding:scope:optimization: :PROPERTIES: :archive.today: http://archive.today/ppIuJ :ID: 54fa2e85-066f-431e-9db3-8b1627fac4ca :author: Chris Wellons :published: [2017-12-14 Thu] :CUSTOM_ID: whats-in-an-emacs-lambda--null-program :END:
Chris explains how lambdas work with regard to byte-compilation and lexical binding.
*** Reference :reference: :PROPERTIES: :CUSTOM_ID: reference-0 :END:
**** [[https://github.com/rocky/elisp-bytecode][elisp-bytecode: Let's document Emacs Lisp Bytecode (Lisp Assembly Program) instructions]] :bytecode:compilation: :PROPERTIES: :author: Rocky Bernstein :CUSTOM_ID: elisp-bytecode-lets-document-emacs-lisp-bytecode-lisp-assembly-program-instructions :END:
Rocky Bernstein's project to document the Elisp bytecode format (aka LAP, or Lisp Assembly Program).
*** Tools
:PROPERTIES:
:CUSTOM_ID: tools-8
:END:
:CONTENTS:
:END: :tools: :PROPERTIES: :TOC: :include descendants :END:
**** Benchmarking :benchmarking: :PROPERTIES: :ID: b369f0c2-a9c3-4f5f-afaf-80cb18e66a6f :CUSTOM_ID: benchmarking :END:
;;;; Benchmarking
***** =bench= macro :PROPERTIES: :ID: a9c131e0-9d85-467b-9ac5-c576b7dfc6f8 :CUSTOM_ID: bench-macro :END:
From Phil Lord's [[http://phillord.github.io/m-buffer-el/#sec-5-1-2][m-buffer-el]]:
;;;###autoload
(cl-defmacro bench (&optional (times 100000) &rest body)
"Call benchmark-run-compiled' on BODY with TIMES iterations, returning list suitable for Org source block evaluation. Garbage is collected before calling
benchmark-run-compiled' to
avoid counting existing garbage which needs collection."
(declare (indent defun))
`(progn
(garbage-collect)
(list '("Total runtime" "# of GCs" "Total GC runtime")
'hline
(benchmark-run-compiled ,times
(progn
,@body)))))
Used like this:
(bench 1000000 (cons 'time (current-time)))
When called from an Org source block, it gives output like this:
| Total runtime | # of GCs | Total GC runtime | |---------------+----------+--------------------| | 1.657838266 | 3 | 1.4723854609999876 |
***** ~bench-multi~ macros :PROPERTIES: :ID: fa6aa630-6970-4bba-83d6-8c271550ecab :CUSTOM_ID: bench-multi-macros :END:
These macros make comparing multiple forms easy:
;;;###autoload (cl-defmacro bench-multi (&key (times 1) forms ensure-equal raw) "Return Org table as a list with benchmark results for FORMS. Runs FORMS with `benchmark-run-compiled' for TIMES iterations.
When ENSURE-EQUAL is non-nil, the results of FORMS are compared,
and an error is raised if they aren't equal'. If the results are sequences, the difference between them is shown with
seq-difference'.
When RAW is non-nil, the raw results from `benchmark-run-compiled' are returned instead of an Org table list.
If the first element of a form is a string, it's used as the form's description in the bench-multi-results; otherwise, forms are numbered from 0.
Before each form is run, garbage-collect' is called." ;; MAYBE: Since
bench-multi-lexical' byte-compiles the file, I'm not sure if
;; benchmark-run-compiled' is necessary over
benchmark-run', or if it matters.
(declare (indent defun))
(let((keys (gensym "keys"))
(result-times (gensym "result-times"))
(header '(("Form" "x fastest" "Total runtime" "# of GCs" "Total GC runtime")
hline))
;; Copy forms so that a subsequent call of the macro will get the original forms.
(forms (cl-copy-list forms))
(descriptions (cl-loop for form in forms
for i from 0
collect (if (stringp (car form))
(prog1 (car form)
(setf (nth i forms) (cadr (nth i forms))))
i))))
`(unwind-protect
(progn
(defvar bench-multi-results nil)
(let ((bench-multi-results (make-hash-table))
(,result-times (sort (list ,@(cl-loop for form in forms
for i from 0
for description = (nth i descriptions)
collect (progn (garbage-collect) (cons ,description (benchmark-run-compiled ,times ,(if ensure-equal
(puthash ,description ,form bench-multi-results)
form))))))
(lambda (a b)
(< (second a) (second b))))))
,(when ensure-equal
`(cl-loop with ,keys = (hash-table-keys bench-multi-results)
for i from 0 to (- (length ,keys) 2)
unless (equal (gethash (nth i ,keys) bench-multi-results)
(gethash (nth (1+ i) ,keys) bench-multi-results))
do (if (sequencep (gethash (car (hash-table-keys bench-multi-results)) bench-multi-results))
(let* ((k1) (k2)
;; If the difference in one order is nil, try in other order.
(difference (or (setq k1 (nth i ,keys)
k2 (nth (1+ i) ,keys)
difference (seq-difference (gethash k1 bench-multi-results)
(gethash k2 bench-multi-results)))
(setq k1 (nth (1+ i) ,keys)
k2 (nth i ,keys)
difference (seq-difference (gethash k1 bench-multi-results)
(gethash k2 bench-multi-results))))))
(user-error "Forms' bench-multi-results not equal: difference (%s - %s): %S"
k1 k2 difference))
;; Not a sequence
(user-error "Forms' bench-multi-results not equal: %s:%S %s:%S"
(nth i ,keys) (nth (1+ i) ,keys)
(gethash (nth i ,keys) bench-multi-results)
(gethash (nth (1+ i) ,keys) bench-multi-results)))))
;; Add factors to times and return table
(if ,raw
,result-times
(append ',header
(bench-multi-process-results ,result-times)))))
(unintern 'bench-multi-results nil))))
(defun bench-multi-process-results (results) "Return sorted RESULTS with factors added." (setq results (sort results (-on #'< #'second))) (cl-loop with length = (length results) for i from 0 below length for description = (car (nth i results)) for factor = (pcase i (0 "fastest") (_ (format "%.2f" (/ (second (nth i results)) (second (nth 0 results)))))) collect (append (list description factor) (list (format "%.6f" (second (nth i results))) (third (nth i results)) (if (> (fourth (nth i results)) 0) (format "%.6f" (fourth (nth i results))) 0)))))
Used like:
(bench-multi :forms (("org-map-entries" (sort (org-map-entries (lambda () (nth 4 (org-heading-components))) "/+MAYBE" 'agenda)
("regexp" (sort (-flatten
(-non-nil
(mapcar (lambda (file)
(let ((case-fold-search t))
(with-current-buffer (find-buffer-visiting file)
(org-with-wide-buffer
(goto-char (point-min))
(cl-loop with regexp = (format org-heading-keyword-regexp-format "MAYBE")
while (re-search-forward regexp nil t)
collect (nth 4 (org-heading-components)))))))
(org-agenda-files))))
#'string<))))
| Form | x fastest | Total runtime | # of GCs | Total GC runtime | |-----------------+-----------+---------------+----------+------------------| | regexp | fastest | 0.022259 | 0 | 0 | | org-map-entries | 168.03 | 3.740340 | 0 | 0 |
It can also help catch bugs by ensuring that each form returns the same results. For example, the benchmark above contains a subtle bug: because ~case-fold-search~ in the =regexp= form is non-nil, the regexp is compared case-insensitively, so it matches Org headings which start with =Maybe= rather than only ones which start with =MAYBE=. Using the ~:ensure-equal t~ argument to ~bench-multi~ compares the results and raises an error showing the difference between the two sequences the forms evaluate to:
(bench-multi :ensure-equal t :forms (("org-map-entries" (sort (org-map-entries (lambda () (nth 4 (org-heading-components))) "/+MAYBE" 'agenda)
("regexp" (sort (-flatten
(-non-nil
(mapcar (lambda (file)
(let ((case-fold-search t))
(with-current-buffer (find-buffer-visiting file)
(org-with-wide-buffer
(goto-char (point-min))
(cl-loop with regexp = (format org-heading-keyword-regexp-format "MAYBE")
while (re-search-forward regexp nil t)
collect (nth 4 (org-heading-components)))))))
(org-agenda-files))))
#'string<))))
: user-error: Forms’ results not equal: difference (regexp - org-map-entries): ("Maybe this is not the case?")
Fixing the error, by setting ~case-fold-search~ to ~nil~, not only makes the forms give the same result but, in this case, doubles the performance of the faster form:
(bench-multi :ensure-equal t :forms (("org-map-entries" (sort (org-map-entries (lambda () (nth 4 (org-heading-components))) "/+MAYBE" 'agenda)
("regexp" (sort (-flatten
(-non-nil
(mapcar (lambda (file)
(let ((case-fold-search nil))
(with-current-buffer (find-buffer-visiting file)
(org-with-wide-buffer
(goto-char (point-min))
(cl-loop with regexp = (format org-heading-keyword-regexp-format "MAYBE")
while (re-search-forward regexp nil t)
collect (nth 4 (org-heading-components)))))))
(org-agenda-files))))
#'string<))))
| Form | x fastest | Total runtime | # of GCs | Total GC runtime | |-----------------+-----------+---------------+----------+------------------| | regexp | fastest | 0.011578 | 0 | 0 | | org-map-entries | 313.65 | 3.631561 | 0 | 0 |
So this macro showed which code is faster and helped catch a subtle bug.
** ~bench-multi-lexical~ :PROPERTIES: :ID: cf3d7f70-fd84-41f8-b51e-6b3a710cae82 :CUSTOM_ID: bench-multi-lexical :END:
To evaluate forms with lexical binding enabled, use this macro:
;;;###autoload
(cl-defmacro bench-multi-lexical (&key (times 1) forms ensure-equal raw)
"Return Org table as a list with benchmark results for FORMS.
Runs FORMS from a byte-compiled temp file with lexical-binding' enabled, using
bench-multi', which see.
Afterward, the temp file is deleted and the function used to run the benchmark is uninterned." (declare (indent defun)) `(let ((temp-file (concat (make-temp-file "bench-multi-lexical-") ".el")) (fn (gensym "bench-multi-lexical-run-"))) (with-temp-file temp-file (insert ";; -- lexical-binding: t; -*-" "\n\n" "(defvar bench-multi-results)" "\n\n" (format "(defun %s () (bench-multi :times %d :ensure-equal %s :raw %s :forms %S))" fn ,times ,ensure-equal ,raw ',forms))) (unwind-protect (if (byte-compile-file temp-file 'load) (funcall (intern (symbol-name fn))) (user-error "Error byte-compiling and loading temp file")) (delete-file temp-file) (unintern (symbol-name fn) nil))))
Used just like ~bench-multi~:
(bench-multi-lexical :ensure-equal t :forms (("org-map-entries" (sort (org-map-entries (lambda () (nth 4 (org-heading-components))) "/+MAYBE" 'agenda)
("regexp" (sort (-flatten
(-non-nil
(mapcar (lambda (file)
(let ((case-fold-search nil))
(with-current-buffer (find-buffer-visiting file)
(org-with-wide-buffer
(goto-char (point-min))
(cl-loop with regexp = (format org-heading-keyword-regexp-format "MAYBE")
while (re-search-forward regexp nil t)
collect (nth 4 (org-heading-components)))))))
(org-agenda-files))))
#'string<))))
| Form | x fastest | Total runtime | # of GCs | Total GC runtime | |-----------------+-----------+---------------+----------+------------------| | regexp | fastest | 0.011641 | 0 | 0 | | org-map-entries | 312.46 | 3.637256 | 0 | 0 |
** ~bench-dynamic-vs-lexical-binding~ :PROPERTIES: :ID: 1ec52dea-b9f5-4e71-826f-3ac9d9cc2225 :CUSTOM_ID: bench-dynamic-vs-lexical-binding :END:
This macro compares dynamic and lexical binding.
;;;###autoload
(cl-defmacro bench-dynamic-vs-lexical-binding (&key (times 1) forms ensure-equal)
"Benchmark FORMS with both dynamic and lexical binding.
Calls bench-multi' and
bench-multi-lexical', which see."
(declare (indent defun))
`(let ((dynamic (bench-multi :times ,times :ensure-equal ,ensure-equal :raw t
:forms ,forms))
(lexical (bench-multi-lexical :times ,times :ensure-equal ,ensure-equal :raw t
:forms ,forms))
(header '("Form" "x fastest" "Total runtime" "# of GCs" "Total GC runtime")))
(cl-loop for result in-ref dynamic
do (setf (car result) (format "Dynamic: %s" (car result))))
(cl-loop for result in-ref lexical
do (setf (car result) (format "Lexical: %s" (car result))))
(append (list header)
(list 'hline)
(bench-multi-process-results (append dynamic lexical)))))
Example:
(bench-dynamic-vs-lexical-binding :times 1000 :ensure-equal t :forms (("buffer-local-value" (--filter (equal 'magit-status-mode (buffer-local-value 'major-mode it)) (buffer-list))) ("with-current-buffer" (--filter (equal 'magit-status-mode (with-current-buffer it major-mode)) (buffer-list)))))
| Form | x fastest | Total runtime | # of GCs | Total GC runtime | |------------------------------+-----------+---------------+----------+------------------| | Lexical: buffer-local-value | fastest | 0.039616 | 0 | 0 | | Dynamic: buffer-local-value | 1.18 | 0.046844 | 0 | 0 | | Dynamic: with-current-buffer | 82.07 | 3.251161 | 0 | 0 | | Lexical: with-current-buffer | 82.30 | 3.260561 | 0 | 0 |
The ~buffer-local-value~ form improved by about 24% when using lexical binding, but the ~with-current-buffer~ form performs the same regardless of using lexical binding.
** ~bench-multi-lets~ :PROPERTIES: :ID: fefdafc5-2130-4c01-bea5-a85931433589 :CUSTOM_ID: bench-multi-lets :END:
This macro benchmarks multiple forms in multiple environments, which is helpful for testing code that behaves differently depending on global variables.
;;;###autoload (cl-defmacro bench-multi-lets (&key (times 1) lets forms ensure-equal) "Benchmark FORMS in each of lexical environments defined in LETS. LETS is a list of (\"NAME\" BINDING-FORM) forms.
FORMS is a list of (\"NAME\" FORM) forms.
Calls bench-multi-lexical', which see." (declare (indent defun)) (let ((benchmarks (cl-loop for (let-name let) in lets collect (list 'list let-name
(let ,let
(bench-multi-lexical :times ,times :ensure-equal ,ensure-equal :raw t
:forms ,forms))))))
`(let* ((results (list ,@benchmarks))
(header '("Form" "x fastest" "Total runtime" "# of GCs" "Total GC runtime"))
(results (cl-loop for (let-name let) in results
append (cl-loop for result in-ref let
do (setf (car result) (format "%s: %s" let-name (car result)))
collect result))))
(append (list header)
(list 'hline)
(bench-multi-process-results results)))))
Used like:
(bench-multi-lets :times 100000 :ensure-equal t :lets (("1" ((var "1"))) ("12345" ((var "12345"))) ("1234567890" ((var "1234567890")))) :forms (("concat" (concat "VAR: " var)) ("format" (format "VAR: %s" var))))
| Form | x fastest | Total runtime | # of GCs | Total GC runtime | |--------------------+-----------+---------------+----------+------------------| | 1: concat | fastest | 0.010552 | 0 | 0 | | 12345: concat | 1.02 | 0.010812 | 0 | 0 | | 1234567890: concat | 1.05 | 0.011071 | 0 | 0 | | 1: format | 1.51 | 0.015928 | 0 | 0 | | 12345: format | 1.97 | 0.020803 | 0 | 0 | | 1234567890: format | 2.42 | 0.025500 | 0 | 0 |
**** Profiling :profiling: :PROPERTIES: :ID: ef37fa2c-879d-4065-936e-81a393510bf7 :CUSTOM_ID: profiling :END:
;;;; Profiling
***** =elp-profile= :macro: :PROPERTIES: :ID: b4b21499-f798-41be-88b7-2dc2fc190ae7 :CUSTOM_ID: elp-profile :END:
Call this macro from an Org source block and you'll get a results block showing which 20 functions were called the most times, how long they took to run, etc. =prefixes= should be a list of symbols matching the prefixes of the functions you want to instrument.
;;;###autoload (defmacro elp-profile (times prefixes &rest body) (declare (indent defun)) `(let (output) (dolist (prefix ,prefixes) (elp-instrument-package (symbol-name prefix))) (dotimes (x ,times) ,@body) (elp-results) (elp-restore-all) (point-min) (forward-line 20) (delete-region (point) (point-max)) (setq output (buffer-substring-no-properties (point-min) (point-max))) (kill-buffer) (delete-window) (let ((rows (s-lines output))) (append (list (list "Function" "Times called" "Total time" "Average time") 'hline) (cl-loop for row in rows collect (s-split (rx (1+ space)) row 'omit-nulls))))))
;; Use like this: (elp-profile 10 '(map search goto-char car append) (goto-char (point-min)) (search-forward "something"))
This gives a table like:
| Function | Times called | Total time | Average time | |----------------+--------------+--------------+--------------| | mapcar | 30 | 0.0036004130 | 0.0001200137 | | search-forward | 10 | 2.089...e-05 | 2.089...e-06 | | goto-char | 10 | 6.926e-06 | 6.926e-07 | | car | 13 | 3.956...e-06 | 3.043...e-07 | | append | 1 | 5.96e-07 | 5.96e-07 | | mapatoms | 1 | 0 | 0.0 |
***** [[https://github.com/aspiers/etrace][etrace: Emacs Lisp Latency Tracing for the Chromium Catapult Trace Event Format]] :package: :PROPERTIES: :CUSTOM_ID: etrace-emacs-lisp-latency-tracing-for-the-chromium-catapult-trace-event-format :END:
This package for GNU Emacs allows latency tracing to be performed on Emacs Lisp code and the results output to files using the Chromium Catapult Trace Event Format. These trace files can then be loaded into trace analysis utilities in order to generate flame graphs and other useful visualisations and analyses.
** Refactoring :refactoring: :PROPERTIES: :CUSTOM_ID: refactoring :END:
*** Tools :tools:
**** [[https://github.com/Wilfred/emacs-refactor][emacs-refactor: language-specific refactoring]] :PROPERTIES: :ID: d329f03e-ed1e-4205-a232-6eee16717795 :END:
Emacs Refactor (EMR) is a framework for providing language-specific refactoring in Emacs. It includes refactoring commands for a variety of languages, including elisp itself!
** Regular expressions :regular_expressions: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: regular-expressions :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: articles-6 :END:
**** TODO [[http://francismurillo.github.io/2017-03-30-Exploring-Emacs-rx-Macro/][Exploring Emacs rx Macro]] :rx: :PROPERTIES: :archive.today: http://archive.today/xPWJP :END:
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-7 :END:
**** TODO [[https://github.com/joddie/pcre2el][pcre2el: Convert between PCRE, Emacs and rx regexp syntax]] :PROPERTIES: :CUSTOM_ID: pcre2el-convert-between-pcre-emacs-and-rx-regexp-syntax :END:
**** [[https://elpa.gnu.org/packages/lex.html][lex]] :PROPERTIES: :CUSTOM_ID: lex :END:
=lex= is a regular expression matching engine with syntax similar to =rx=. It appears to be more implemented in elisp than standard Emacs regexp tools, so it may be slower, but its additional capabilities may be useful.
Format of regexps is the same as used for rx' and
sregex'. Additions:
*** Tools :tools: :PROPERTIES: :CUSTOM_ID: tools-9 :END:
**** [[https://github.com/immerrr/ample-regexps.el][ample-regexps.el: Compose and reuse regular expressions with ease]] :PROPERTIES: :CUSTOM_ID: ample-regexpsel-compose-and-reuse-regular-expressions-with-ease :END:
=ample-regexps= complements the built-in ~rx~ macro by flexibly defining regular expressions with reusable parts. In the following example, the ~define-arx~ macro defines three things:
(define-arx url-rx '((http (seq bos (group "http") "://") ) (https (seq bos (group "https") "://") ) (https? (seq bos (group "http" (optional "s")) "://") ) (protocol (seq bos (group (1+ (not (any ":")))) "://")) (host (group (1+ (not (any "/"))))) (path (group "/" (1+ (not (any "?"))))) (query (seq "?" (group (1+ (not (any "#")))))) (fragment (seq "#" (group (1+ anything))))))
The ~url-rx~ macro can then be used to test and select parts of URLs:
;; Accept HTTP or HTTPS (let ((url "http://server/path?query#fragment")) (when (string-match (url-rx https? host path (optional query) (optional fragment)) url) (list (match-string 0 url) (match-string 1 url) (match-string 2 url) (match-string 3 url) (match-string 4 url) (match-string 5 url)))) ;=> ("http://server/path?query#fragment" "http" "server" "/path" "query" "fragment")
;; Only accept HTTPS, not plain HTTP (let ((url "http://server/path?query#fragment")) (when (string-match (url-rx https host path (optional query) (optional fragment)) url) (list (match-string 0 url)))) ;=> nil
;; Accept any protocol, not just HTTP (let ((url "ftp://server/path")) (when (string-match (url-rx protocol host path (optional query) (optional fragment)) url) (list (match-string 0 url) (match-string 1 url) (match-string 2 url) (match-string 3 url) (match-string 4 url) (match-string 5 url)))) ;=> ("ftp://server/path" "ftp" "server" "/path" nil nil)
This example shows the use of a function to expand a list of strings into a sequence:
(define-arx cond-assignment-rx '((alpha (regexp "[[:alpha:]]")) (alnum (regexp "[[:alnum:]]")) (ws ( blank)) (sym (:func (lambda (form &rest args) `(seq symbol-start (or ,@args) symbol-end)))) (cond-keyword (sym "if" "elif" "while")) (id (sym (+ alpha) ( alnum_))))) ;; -> cond-assignment-rx
(cond-assignment-rx cond-keyword ws id ":" id ws "=" ws id) ;; -> "\<\(?:elif\|if\|while\)\>[[:blank:]]*\<\(?:[[:alpha:]]+\|[[:alnum:]]*\)\>:\<\(?:[[:alpha:]]+\|[[:alnum:]]\)\_>[[:blank:]]=[[:blank:]]*\_<\(?:[[:alpha:]]+\|[[:alnum:]]*\)\>"
** Strings :strings: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: strings :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :CUSTOM_ID: articles-7 :END:
**** [[https://nullprogram.com/blog/2014/05/27/][Buffer-Passing Style]] :buffers: :PROPERTIES: :archive.today: https://archive.ph/Jygil :ID: 3040c491-39ba-429e-8af7-e4971170d7eb :CUSTOM_ID: buffer-passing-style-0 :END:
Chris Wellons explains how to build strings in several steps. This is achieved thanks to the creation of a temporary buffer that is passed to helper methods using the "current" buffer mechanism. A nice and simple design pattern for Emacs.
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-8 :END:
**** [[https://github.com/magnars/s.el][s.el: The long lost Emacs string manipulation library]] :PROPERTIES: :CUSTOM_ID: sel-the-long-lost-emacs-string-manipulation-library :END:
*** Tools :tools: :PROPERTIES: :TOC: :depth 1 :CUSTOM_ID: tools-10 :END:
**** ~format$~ macro :macros:interpolation: :PROPERTIES: :CUSTOM_ID: format-macro :END:
The ~format$~ macro (currently hosted [[https://github.com/alphapapa/elexandria/blob/master/elexandria.el][here]]) allows for easy string interpolation, including optional ~%~ sequences as used by ~format~. For example, this:
(format$ "Amount: ${amount% .02f} $name %s" date)
Expands to:
(format "Amount: % .02f %s %s" amount name date)
Since this happens at macro expansion time rather than at runtime, there is no performance penalty, in contrast to using ~s-lex-format~.
** Testing :testing: :PROPERTIES: :TOC: :depth 2 :include descendants :CUSTOM_ID: testing :END: :CONTENTS:
*** Articles :articles: :PROPERTIES: :CUSTOM_ID: articles-8 :END:
**** [[https://blog.abrochard.com/circleci-for-emacs-packages.html][Continuous Integration of Emacs Packages with CircleCI]] :PROPERTIES: :archive.is: https://archive.vn/uidZr :CUSTOM_ID: continuous-integration-of-emacs-packages-with-circleci :END:
I was very inspired by Damien Cassou's great presentation during EmacsConf 2019 to write this post and I encourage you to check it out if you haven't already. In short, when writing packages for Emacs, it is best practice to run several quality tools on them, like syntax and documentation checkers, or even ERT Tests. But once these packages are public and pull requests start coming in, it is a huge time saver to have these same tools ran automatically and provide feedback to contributors. That's right, we're talking about Continuous Integration for Emacs packages.
*** Frameworks :frameworks: :PROPERTIES: :CUSTOM_ID: frameworks :END:
Frameworks for writing, organizing, and running tests.
**** [[https://github.com/jorgenschaefer/emacs-buttercup][buttercup: Behavior-Driven Emacs Lisp Testing]] :PROPERTIES: :ID: 108f5eb6-7307-4d4b-aaf1-dd2a8bb65a58 :CUSTOM_ID: buttercup-behavior-driven-emacs-lisp-testing :END:
Buttercup is a behavior-driven development framework for testing Emacs Lisp code. It allows to group related tests so they can share common set-up and tear-down code, and allows the programmer to “spy” on functions to ensure they are called with the right arguments during testing.
The framework is heavily inspired by Jasmine.
**** [[https://github.com/ecukes/ecukes][ecukes: Cucumber for Emacs]] :PROPERTIES: :ID: f0cdf4dd-38ff-41a1-a4c1-8f7677940863 :CUSTOM_ID: ecukes-cucumber-for-emacs :END:
There are plenty of unit/regression testing tools for Emacs, and even some for functional testing. What Emacs is missing though is a really good testing framework for integration testing. This is where Ecukes comes in.
Cucumber is a great integration testing tool, used mostly for testing web applications. Ecukes is Cucumber for Emacs. No, it's not a major mode to edit feature files. It is a package that makes it possible to write Cucumber like tests for your Emacs packages.
**** [[https://www.gnu.org/software/emacs/manual/html_node/ert/][Emacs Lisp Regression Testing]] (ERT) :built_in:ERT: :PROPERTIES: :ID: 386b23bd-5254-457f-9ba1-ca5cbf87fed3 :CUSTOM_ID: emacs-lisp-regression-testing-ert :END:
This is the standard, built-in Emacs testing library, used by core code and third-party packages alike.
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-9 :END:
Libraries that help with writing tests.
***** [[https://github.com/phillord/assess][assess: Test support functions]] :PROPERTIES: :CUSTOM_ID: assess-test-support-functions :END:
Assess provides additional support for testing Emacs packages.
It provides:
Assess aims to be a stateless as possible, leaving Emacs unchanged whether the tests succeed or fail, with respect to buffers, open files and so on; this helps to keep tests independent from each other.
***** [[https://www.emacswiki.org/emacs/ert-expectations.el][ert-expectations]] :ERT: :PROPERTIES: :CUSTOM_ID: ert-expectations :END:
=expectations= allows more concise definitions of ERT tests. For example:
;; With ERT:
(ert-deftest erte-test-00001 () (should (equal 10 (+ 4 6))))
;; With Expectations: (expect 10 (+ 4 6))
;; Or: (expectations (desc "success") (expect 10 (+ 4 6)) (expect 5 (length "abcde")) (desc "fail") (expect 11 (+ 4 6)) (expect 6 (length "abcde")))
***** [[https://github.com/Wilfred/propcheck][propcheck: Quickcheck/hypothesis style testing]] :PROPERTIES: :CUSTOM_ID: propcheck-quickcheckhypothesis-style-testing :END:
propcheck brings property based testing to Elisp. It's similar to the excellent Hypothesis library for Python.
***** [[https://github.com/DarwinAwardWinner/with-simulated-input][with-simulated-input: Test interactive functions non-interactively]] :PROPERTIES: :CUSTOM_ID: with-simulated-input-test-interactive-functions-non-interactively :END:
This package provides an Emacs Lisp macro, ~with-simulated-input~, which evaluates one or more forms while simulating a sequence of input events for those forms to read. The result is the same as if you had evaluated the forms and then manually typed in the same input. This macro is useful for non-interactive testing of normally interactive commands and functions, such as ~completing-read~.
Some interactive functions rely on idle timers to do their work, so you might need a way to simulate idleness. For that, there is the ~wsi-simulate-idle-time~ function. You can insert calls to this function in between input strings.
***** [[https://github.com/promethial/xtest][xtest: Extensions for ERT]] :ERT: :PROPERTIES: :CUSTOM_ID: xtest-extensions-for-ert :END:
XTest is a simple set of extensions for ERT. XTest speeds up the creation of tests that follow the “one assertion per test” rule of thumb. It also simplifies testing functions that manipulate buffers. XTest aims to do a few things well, instead of being a monolithic library that attempts to solve every conceivable testing need. XTest is designed to be paired with vanilla ERT and other ERT libraries, where the user mixes and matches depending on their needs.
*** Tips :tips: :PROPERTIES: :CUSTOM_ID: tips :END:
**** Error message strings may not match after ~substitute-quotes~ :PROPERTIES: :CUSTOM_ID: error-message-strings-may-not-match-after-substitute-quotes :END:
When testing error messages, the message string in the test suite might not match the value captured by the test output, because Emacs may run ~substitute-quotes~ on the message. This may result in various quotation marks being changed. It can even be the case that the difference only manifests on other systems (e.g. the tests may pass on the developer's system but fail on a remote CI system due to different locale settings).
To work around this, pass a format string to ~error~, like ~(error "%s" "Foo doesn't bar")~, which prevents Emacs from changing the quotes. (For more information, see [[https://github.com/jorgenschaefer/emacs-buttercup/issues/228][this issue]].)
*** Tools :tools: :PROPERTIES: :TOC: :depth 0 :CUSTOM_ID: tools-11 :END:
** User interface :UI: :PROPERTIES: :TOC: :include descendants :depth 2 :CUSTOM_ID: user-interface :END: :CONTENTS:
*** Libraries :libraries: :PROPERTIES: :CUSTOM_ID: libraries-10 :END:
**** [[https://github.com/alezost/bui.el][bui: Buffer interface library]] :PROPERTIES: :CUSTOM_ID: bui-buffer-interface-library :END:
BUI (Buffer User Interface) is an Emacs library that can be used to make user interfaces to display some kind of entries (like packages, buffers, functions, etc.).
The intention of BUI is to be a high-level library which is convenient to be used both by:
Usage
BUI provides means to display entries in 2 types of buffers:
In short, you define how a =list= / =info= interface looks like (using =bui-define-interface= macro), and then you can make some user commands that will display entries (using =bui-get-display-entries= and similar functions).
**** [[https://github.com/publicimageltd/lister][lister: Yet another list printer]] :PROPERTIES: :CUSTOM_ID: lister-yet-another-list-printer :END:
Lister is a library for creating interactive "lists" of any kind. In contrast to similar packages like hierarchy.el or tablist.el, it aims at not simply mapping a data structure to a navigatable list. Rather, it treats the list like emacs treats buffers: It is an empty space to which you can successively add stuff. So in Emacs lingo, lister should be rather called listed - it is a library for editing lists, instead of displaying them.
**** [[https://github.com/kiwanami/emacs-calfw][calfw: Calendar framework]] :PROPERTIES: :CUSTOM_ID: calfw-calendar-framework :END:
This program displays a calendar view in the Emacs buffer.
It is also usable as a library to display items on a calendar.
**** [[https://github.com/kiwanami/emacs-ctable][ctable: Table Component]] :PROPERTIES: :CUSTOM_ID: ctable-table-component :END:
ctable.el is a table component for Emacs Lisp. Emacs Lisp programs can display a nice table view from an abstract data model. The many emacs programs have the code for displaying table views, such as dired, list-process, buffer-list and so on. So, ctable.el would provide functions and a table framework for the table views.
**** Emacs's Widget for Object Collections (=ewoc=) :built_in: :PROPERTIES: :CUSTOM_ID: emacss-widget-for-object-collections-ewoc :END:
The Ewoc package constructs buffer text that represents a structure of Lisp objects, and updates the text to follow changes in that structure. This is like the “view” component in the “model–view–controller” design paradigm. Ewoc means “Emacs's Widget for Object Collections”.
An ewoc is a structure that organizes information required to construct buffer text that represents certain Lisp data. The buffer text of the ewoc has three parts, in order: first, fixed header text; next, textual descriptions of a series of data elements (Lisp objects that you specify); and last, fixed footer text.
**** [[https://github.com/abo-abo/hydra][hydra]] :key_binding: :PROPERTIES: :CUSTOM_ID: hydra :END:
This is a package for GNU Emacs that can be used to tie related commands into a family of short bindings with a common prefix - a Hydra.
**** [[https://github.com/DamienCassou/navigel][navigel]] :PROPERTIES: :CUSTOM_ID: navigel :END:
The navigel package is a library that makes it simpler for Emacs Lisp developers to define user-interfaces based on tablists (also known as tabulated-lists). Overriding a few (CL) methods and calling =navigel-open= is all that’s required to get a nice UI to navigate your domain objects (files, music library, database, etc.).
**** =tabulated-list-mode= :built_in: :PROPERTIES: :CUSTOM_ID: tabulated-list-mode :END:
Tabulated List mode is a major mode for displaying tabulated data, i.e., data consisting of entries, each entry occupying one row of text with its contents divided into columns. Tabulated List mode provides facilities for pretty-printing rows and columns, and sorting the rows according to the values in each column.
**** [[https://github.com/magit/transient][Transient]] :PROPERTIES: :CUSTOM_ID: transient :END:
The library that powers Magit's command/option UI.
Taking inspiration from prefix keys and prefix arguments, Transient implements a similar abstraction involving a prefix command, infix arguments and suffix commands.
**** [[https://github.com/ebpa/tui.el][tui: An experimental text-based UI framework modeled after React]] :PROPERTIES: :CUSTOM_ID: tui-an-experimental-text-based-ui-framework-modeled-after-react :END:
This is an experiment in building purely text-based user interfaces (TUI’s). The ultimate goal is to explore new paradigms for user interface design and development using Emacs. To this end, tui.el implements an API based on the popular React JavaScript framework in order to reduce the demands involved with designing and building complex text-based UI’s. This is all currently experimental! Expect things to change as I get feedback about what works, what does not!
**** =widget= :built_in: :PROPERTIES: :CUSTOM_ID: widget :END:
Most graphical user interface toolkits provide a number of standard user interface controls (sometimes known as “widgets” or “gadgets”). Emacs doesn't really support anything like this, except for an incredibly powerful text “widget.” On the other hand, Emacs does provide the necessary primitives to implement many other widgets within a text buffer. The =widget= package simplifies this task.
**** [[https://github.com/kiwanami/emacs-widget-mvc][widget-mvc: Web-like MVC framework]] :PROPERTIES: :CUSTOM_ID: widget-mvc-web-like-mvc-framework :END:
This is a GUI framework for Emacs Lisp. It is designed for programmers who are familiar with conventional Web MVC frameworks.
** Version control :version_control: :PROPERTIES: :CUSTOM_ID: version-control :END:
*** Tools :tools:
**** [[https://github.com/magit/magit][Magit]] :git: :PROPERTIES: :ID: 43daf455-caeb-4399-b1bb-15a10603018b :END:
One of the "killer apps" for Emacs--and for git!
** XML / HTML :xml:html: :PROPERTIES: :CUSTOM_ID: xml--html :END:
*** Libraries :libraries: :PROPERTIES: :TOC: :include descendants :depth 1 :END: :CONTENTS:
These libraries can all be used for HTML.
**** [[https://github.com/tali713/esxml][esxml]] :PROPERTIES: :CUSTOM_ID: esxml :END:
Probably the most featureful, usable library at the moment.
This library provides to formats for xml code generation. The primary form is esxml. esxml is the form that is returned by such functions as libxml-parse-xml-region and is used internally by emacs in many xml related libraries.
It also provides =esxml-query=:
;; Traditionally people pick one of the following options when faced
;; with the task of extracting data from XML in Emacs Lisp:
;;
;; - Using regular expressions on the unparsed document
;; - Manual tree traversal with assoc',
car' and cdr' ;; ;; Browsers faced a similar problem until jQuery happened, shortly ;; afterwards they started providing the
node.querySelector' and
;; node.querySelectorAll' API for retrieving one or all nodes ;; matching a given CSS selector. This code implements the same API ;; with the
esxml-query' and `esxml-query-all' functions. The
;; following table summarizes the currently supported modifiers and
;; combinators:
;;
;; | Name | Supported? | Syntax |
;; |------------------------------------+------------+-------------|
;; | Namespaces | No | foo|bar |
;; | Commas | Yes | foo, bar |
;; | Descendant combinator | Yes | foo bar |
;; | Child combinator | Yes | foo>bar |
;; | Adjacent sibling combinator | No | foo+bar |
;; | General sibling combinator | No | foo~bar |
;; | Universal selector | Yes | |
;; | Type selector | Yes | tag |
;; | ID selector | Yes | #foo |
;; | Class selector | Yes | .foo |
;; | Attribute selector | Yes | [foo] |
;; | Exact match attribute selector | Yes | [foo=bar] |
;; | Prefix match attribute selector | Yes | [foo^=bar] |
;; | Suffix match attribute selector | Yes | [foo$=bar] |
;; | Substring match attribute selector | Yes | [foo=bar] |
;; | Include match attribute selector | Yes | [foo~=bar] |
;; | Dash match attribute selector | Yes | [foo|=bar] |
;; | Attribute selector modifiers | No | [foo=bar i] |
;; | Pseudo elements | No | ::foo |
;; | Pseudo classes | No | :foo |
Example:
(defun org-books--amazon (url) "Return plist of data for book at Amazon URL." (cl-flet ((field (target-field list) (cl-loop for li in list for (field value) = (ignore-errors (-let ((( ( field) value) li)) (list field value))) when (equal field target-field) return (s-trim value)))) (let ((html (org-web-tools--get-url url)) (tree (with-temp-buffer (insert html) (libxml-parse-html-region (point-min) (point-max)))) (author (esxml-query "span.author a.contributorNameID " tree)) (title (esxml-query "div#booksTitle h1#title > span " tree)) (details (esxml-query-all "table#productDetailsTable ul li" tree)) (date (if-let ((printed (third (esxml-query-all "div#booksTitle h1#title span " tree)))) ;; Printed book (s-replace "– " "" printed) ;; Kindle book (field "Publication Date:" details))) (asin (field "ASIN:" details)) (publisher (-some->> (field "Publisher:" details) (replace-regexp-in-string (rx " (" (1+ anything) ")") ""))) (isbn-10 (field "ISBN-10:" details)) (isbn-13 (field "ISBN-13:" details))) (list :author author :title title :publisher publisher :date date :asin asin :isbn-10 isbn-10 :isbn-13 isbn-13))))
**** [[https://github.com/AdamNiederer/elquery][elquery]] :PROPERTIES: :CUSTOM_ID: elquery :END:
It’s like jQuery, but way less useful.
Example:
(let ((html (elq-read-file "~/kek.html"))) (elq-el (car (elq-$ ".kek#quux" html))) ; => "input" (mapcar 'elq-el (elq-$ ".kek" html)) ; => ("input" "h1" "body" "title" "head") (mapcar (lambda (el) (elq-el (elq-parent el))) (elq-$ ".kek" html)) ; => ("body" "body" "html" "head" "html") (mapcar (lambda (el) (mapcar 'elq-el (elq-siblings el))) (elq-$ ".kek" html)) ; => (("h1" "input" "iframe") ("h1" "input" "iframe") ("head" "body") ("title") ("head" "body")) (elq-$ ".kek" html) ; => Hope you didn't like your messages buffer (elq-write html nil)) ; => "<html style=\"height: 100vh\"> ...