Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 7eeea769d5
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (22 sloc) 0.566 kB
open Common
let algo =
ref (Treemap.Ordered Treemap.PivotByMiddle)
let big_screen =
ref false
let use_emacsclient = ref false
let use_git =
ref false
let cmdline_flags () = [
"-algorithm", Arg.String (fun s ->
algo := Treemap.algo_of_s s;
),
(spf " <algo> (choices are: %s, default = %s"
(Treemap.algos +> List.map Treemap.s_of_algo +> Common.join ", ")
(Treemap.s_of_algo !algo));
"-big_screen", Arg.Set big_screen,
" ";
"-use_emacsclient", Arg.Set use_emacsclient,
" ";
"-use_git", Arg.Set use_git,
" ";
]
Jump to Line
Something went wrong with that request. Please try again.