www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

url-options.rkt (715B)

      1 #lang racket/base
      2 (require net/url)
      3 
      4 (provide choose-doc-search
      5          choose-catalogs)
      6 
      7 (define (choose-doc-search config default-doc-search)
      8   (or (hash-ref config '#:doc-search #f)
      9       (let ([v (hash-ref config '#:dist-base-url #f)])
     10         (and v
     11              (url->string
     12               (combine-url/relative (string->url v) "doc/local-redirect/index.html"))))
     13       default-doc-search))
     14 
     15 (define (choose-catalogs config default-catalogs)
     16   (or (hash-ref config '#:dist-catalogs #f)
     17       (let ([v (hash-ref config '#:dist-base-url #f)])
     18         (and v
     19              (list (url->string
     20                     (combine-url/relative (string->url v) "catalog/"))
     21                    "")))
     22       default-catalogs))