* guile: fix logic inversion in plot generation
This commit is contained in:
@ -84,7 +84,7 @@ display, otherwise, use a graphical window."
|
|||||||
"--what=<per-hour|per-day|per-month|per-year> [searchexpr]\n"))
|
"--what=<per-hour|per-day|per-month|per-year> [searchexpr]\n"))
|
||||||
(help (option-ref options 'help #f))
|
(help (option-ref options 'help #f))
|
||||||
(what (option-ref options 'what #f))
|
(what (option-ref options 'what #f))
|
||||||
(text (option-ref options 'text #t))
|
(text (option-ref options 'text #f))
|
||||||
(muhome (option-ref options 'muhome #f))
|
(muhome (option-ref options 'muhome #f))
|
||||||
(restargs (option-ref options '() #f))
|
(restargs (option-ref options '() #f))
|
||||||
(expr (if restargs (string-join restargs) "")))
|
(expr (if restargs (string-join restargs) "")))
|
||||||
|
|||||||
@ -40,7 +40,7 @@ using raw text, otherwise, use a graphical window."
|
|||||||
(gnuplot (open-pipe "gnuplot -p" OPEN_WRITE)))
|
(gnuplot (open-pipe "gnuplot -p" OPEN_WRITE)))
|
||||||
(display (string-append
|
(display (string-append
|
||||||
"reset\n"
|
"reset\n"
|
||||||
"set term " (if ascii "wxt" "dumb") "\n"
|
"set term " (if ascii "dumb" "wxt") "\n"
|
||||||
"set title \"" title "\"\n"
|
"set title \"" title "\"\n"
|
||||||
"set xlabel \"" x-label "\"\n"
|
"set xlabel \"" x-label "\"\n"
|
||||||
"set ylabel \"" y-label "\"\n"
|
"set ylabel \"" y-label "\"\n"
|
||||||
|
|||||||
Reference in New Issue
Block a user