ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Improve 'guix-prettify-regexp'.

Browse source 
* emacs/guix-prettify.el (guix-prettify-regexp): Modify to handle "nar"
  and "log".
This commit is contained in:
Alex Kost 2015-09-19 13:55:59 +03:00
parent 667d90dfee
commit 67ee7c9576
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/guix-prettify.el
View file

@ -77,9 +77,14 @@ disabling `guix-prettify-mode' a little faster."
:group 'guix-prettify) :group 'guix-prettify)
(defcustom guix-prettify-regexp (defcustom guix-prettify-regexp
(rx "/" ;; The following file names / URLs should be abbreviated:
(or "nix" "gnu")
"/store/" ;; /gnu/store/…-foo-0.1
;; /nix/store/…-foo-0.1
;; http://hydra.gnu.org/nar/…-foo-0.1
;; http://hydra.gnu.org/log/…-foo-0.1
(rx "/" (or "store" "nar" "log") "/"
;; Hash-parts do not include "e", "o", "u" and "t". See base32Chars ;; Hash-parts do not include "e", "o", "u" and "t". See base32Chars
;; at <https://github.com/NixOS/nix/blob/master/src/libutil/hash.cc> ;; at <https://github.com/NixOS/nix/blob/master/src/libutil/hash.cc>
(group (= 32 (any "0-9" "a-d" "f-n" "p-s" "v-z")))) (group (= 32 (any "0-9" "a-d" "f-n" "p-s" "v-z"))))