Commit 416be7e4 authored by Robert Ricci's avatar Robert Ricci

Some more defs to be used with PDFs

parent 6ca614aa
......@@ -18,6 +18,14 @@
(define (apt?) (if (equal? tb-mode 'apt) #t #f))
(define (clab?) (if (equal? tb-mode 'clab) #t #f))
; Check to see if we are building for web or PDF; there is probably some
; nicer way to do this by inspecting the scribble/run state directly, but
; I haven't figured it out
(define doc-mode
(if (vector-member "pdf" (current-command-line-arguments))
'pdf
'html))
(define (apt-vs-clab #:apt [apt-version (list)] #:clab [clab-version (list)])
(if (apt?)
apt-version
......@@ -36,9 +44,14 @@
(define apt-base-url
(if (clab?)
"https://www.cloudlab.us"
"https://www.cloudlab.us/"
"https://www.aptlab.net/"))
(define apt-doc-url
(if (clab?)
"http://docs.cloudlab.us/"
"http://docs.aptlab.net"))
(define forum-url
(if (apt?)
"https://groups.google.com/forum/#!forum/apt-users"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment