Commit 53b8eb2c authored by Robert Ricci's avatar Robert Ricci

Use 'clab' internally instead of 'cl'

Much easer to grep for :)
parent b3876a75
......@@ -17,7 +17,7 @@ apt: $(SOURCES)
scribble --htmls ++style apt-manual.css $(TOPLEVEL).scrbl
cloudlab: $(SOURCES)
scribble --htmls ++style cloudlab-manual.css ++arg cloudlab cloudlab-manual.scrbl
scribble --htmls ++style cloudlab-manual.css ++arg clab cloudlab-manual.scrbl
both: apt cloudlab
......
......@@ -11,30 +11,30 @@
; Check to see if we are building Apt or CloudLab documentation
(define tb-mode
(if (vector-member "cloudlab" (current-command-line-arguments))
'cloudlab
(if (vector-member "clab" (current-command-line-arguments))
'clab
'apt))
(define (apt?) (if (equal? tb-mode 'apt) #t #f))
(define (cl?) (if (equal? tb-mode 'cloudlab) #t #f))
(define (clab?) (if (equal? tb-mode 'clab) #t #f))
(define (apt-vs-cl #:apt [apt-version ""] #:cl [cl-version ""])
(define (apt-vs-clab #:apt [apt-version ""] #:clab [clab-version ""])
(if (apt?)
apt-version
cl-version))
clab-version))
(define (apt-only stuff)
(apt-vs-cl #:apt stuff #:cl ""))
(apt-vs-clab #:apt stuff #:clab ""))
(define (cl-only stuff)
(apt-vs-cl #:cl stuff #:apt ""))
(define (clab-only stuff)
(apt-vs-clab #:clab stuff #:apt ""))
(define apt-base-url
(if (cl?)
(if (clab?)
"https://www.cloudlab.us"
"https://www.aptlab.net/"))
(define tb (lambda () (if (cl?) "CloudLab" "Apt")))
(define tb (lambda () (if (clab?) "CloudLab" "Apt")))
; We want the 'version' to be the date of the most recent commit
(define apt-version
......
......@@ -10,7 +10,7 @@ introduce you to some of its @seclink["basic-concepts"]{basic concepts}.
Start by pointing your browser at @url[(apturl)].
@itemlist[#:style 'ordered
@apt-vs-cl[
@apt-vs-clab[
#:apt @instructionstep["Enter your email address and pick a username"
#:screenshot "instantiate-empty.png"]{
If you don't have an account, or are not logged in, you'll be using
......@@ -29,7 +29,7 @@ Start by pointing your browser at @url[(apturl)].
@(ssh) client.
}
@;{=================================================================}
#:cl @instructionstep["Log in"]{
#:clab @instructionstep["Log in"]{
You'll need an account to use CloudLab. If you already have an
account on @hyperlink["http://www.emulab.net"]{Emulab.net}, you may
use that username and password. If not, you can apply to start a new
......
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