nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

download: Check whether HORIZONTAL ELLIPSIS can be encoded. 

* guix/build/download.scm (ellipsis): New procedure.
  (store-path-abbreviation): Use it.
This commit is contained in:
Ludovic Courtès 2015-10-01 11:28:58 +02:00
parent 64c9834716
commit fde1783087
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/build/download.scm
View File

@ -110,6 +110,13 @@ column."
(padding (make-string num-spaces #\space))) (padding (make-string num-spaces #\space)))
(string-append left padding right))) (string-append left padding right)))
(define* (ellipsis #:optional (port (current-output-port)))
"Make a rough guess at whether Unicode's HORIZONTAL ELLIPSIS can be written
in PORT's encoding, and return either that or ASCII dots."
(if (equal? (port-encoding port) "UTF-8")
"…"
"..."))
(define* (store-path-abbreviation store-path #:optional (prefix-length 6)) (define* (store-path-abbreviation store-path #:optional (prefix-length 6))
"If STORE-PATH is the file name of a store entry, return an abbreviation of "If STORE-PATH is the file name of a store entry, return an abbreviation of
STORE-PATH for display, showing PREFIX-LENGTH characters of the hash. STORE-PATH for display, showing PREFIX-LENGTH characters of the hash.
@ -117,7 +124,7 @@ Otherwise return STORE-PATH."
(if (string-prefix? (%store-directory) store-path) (if (string-prefix? (%store-directory) store-path)
(let ((base (basename store-path))) (let ((base (basename store-path)))
(string-append (string-take base prefix-length) (string-append (string-take base prefix-length)
"…" (ellipsis)
(string-drop base 32))) (string-drop base 32)))
store-path)) store-path))