01/01: emacs: Improve 'guix-prettify-regexp'.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 67ee7c9576ac9079a0fc3b17918824d1181327fd
Author: Alex Kost <address@hidden>
Date:   Sat Sep 19 13:55:59 2015 +0300

    emacs: Improve 'guix-prettify-regexp'.
    
    * emacs/guix-prettify.el (guix-prettify-regexp): Modify to handle "nar"
      and "log".
---
 emacs/guix-prettify.el |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/emacs/guix-prettify.el b/emacs/guix-prettify.el
index 24dfbb3..38d72e8 100644
--- a/emacs/guix-prettify.el
+++ b/emacs/guix-prettify.el
@@ -77,9 +77,14 @@ disabling `guix-prettify-mode' a little faster."
   :group 'guix-prettify)
 
 (defcustom guix-prettify-regexp
-  (rx "/"
-      (or "nix" "gnu")
-      "/store/"
+  ;; The following file names / URLs should be abbreviated:
+
+  ;; /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
       ;; 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"))))