guile: minor updates

This commit is contained in:
djcb 2013-10-14 22:44:11 +03:00
parent 020a13dbd4
commit dd83c235cb
2 changed files with 10 additions and 7 deletions

View File

@ -876,8 +876,7 @@ exec guile -s $0 $@
(tm:hour (localtime (mu:date msg)))))
(lambda (x y) (< (car x) (car y)))))
(mu:plot-histogram (mail-per-hour-table) "Mail per hour" "Hour" "Frequency"
#t)
(mu:plot-histogram (mail-per-hour-table) "Mail per hour" "Hour" "Frequency")
@end lisp
@cartouche

View File

@ -46,16 +46,20 @@ not found."
progpath
#f))))
(define* (mu:plot-histogram data title x-label y-label output
#:optional (extra-gnuplot-opts '()))
(define* (mu:plot-histogram data title x-label y-label
#:optional (output "dumb") (extra-gnuplot-opts '()))
"Plot DATA with TITLE, X-LABEL and X-LABEL using the gnuplot
program. DATA is a list of cons-pairs (X . Y). OUTPUT is a string
program. DATA is a list of cons-pairs (X . Y).
OUTPUT is a string
that determines the type of output that gnuplot produces, depending on
the system. Which options are available depends on the particulars for
the gnuplot installation, but typical examples would be \"dumb\" for
text-only display, \"wxterm\" to write to a graphical window, or
\"png\" to write a PNG-image to stdout. EXTRA-GNUPLOT-OPTS are any
additional options for gnuplot."
\"png\" to write a PNG-image to stdout.
EXTRA-GNUPLOT-OPTS is a list
of any additional options for gnuplot."
(if (not (find-program-in-path "gnuplot"))
(error "cannot find 'gnuplot' in path"))
(let ((datafile (export-pairs data))