guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'nix/libstore')

0 files changed, 0 insertions, 0 deletions

t; "_")))) (define* (object->camel-case-string object #:optional (style 'lower)) "Convert the object OBJECT to the equivalent string in ``camel case''. STYLE can be three `@code{lower}', `@code{upper}', defaults to `@code{lower}'. @example (object->camel-case-string 'variable-name 'upper) @result{} \"VariableName\" @end example" (if (not (member style '(lower upper))) (error 'invalid-style (format #f "~a is not a valid style" style)) (let ((stringified (maybe-object->string object))) (cond ((eq? style 'upper) (string-concatenate (map string-capitalize (string-split stringified (cut eqv? <> #\-))))) ((eq? style 'lower) (let ((splitted-string (string-split stringified (cut eqv? <> #\-)))) (string-concatenate (cons (first splitted-string) (map string-capitalize (cdr splitted-string)))))))))) (define* (list->human-readable-list lst #:key (cumulative? #f) (proc identity)) "Turn a list LST into a sequence of terms readable by humans. If CUMULATIVE? is @code{#t}, use ``and'', otherwise use ``or'' before the last term. PROC is a procedure to apply to each of the elements of a list before turning them into a single human readable string. @example (list->human-readable-list '(1 4 9) #:cumulative? #t #:proc sqrt) @result{} \"1, 2, and 3\" @end example yields:" (let* ((word (if cumulative? "and " "or ")) (init (append (drop-right lst 1)))) (format #f "~a" (string-append (string-join (map (compose maybe-object->string proc) init) ", " 'suffix) word (maybe-object->string (proc (last lst)))))))


context:
space:
mode: