mirror of https://github.com/djcb/mu.git
guile: minor updates
This commit is contained in:
parent
020a13dbd4
commit
dd83c235cb
|
@ -876,8 +876,7 @@ exec guile -s $0 $@
|
||||||
(tm:hour (localtime (mu:date msg)))))
|
(tm:hour (localtime (mu:date msg)))))
|
||||||
(lambda (x y) (< (car x) (car y)))))
|
(lambda (x y) (< (car x) (car y)))))
|
||||||
|
|
||||||
(mu:plot-histogram (mail-per-hour-table) "Mail per hour" "Hour" "Frequency"
|
(mu:plot-histogram (mail-per-hour-table) "Mail per hour" "Hour" "Frequency")
|
||||||
#t)
|
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
||||||
@cartouche
|
@cartouche
|
||||||
|
|
|
@ -46,16 +46,20 @@ not found."
|
||||||
progpath
|
progpath
|
||||||
#f))))
|
#f))))
|
||||||
|
|
||||||
(define* (mu:plot-histogram data title x-label y-label output
|
(define* (mu:plot-histogram data title x-label y-label
|
||||||
#:optional (extra-gnuplot-opts '()))
|
#:optional (output "dumb") (extra-gnuplot-opts '()))
|
||||||
"Plot DATA with TITLE, X-LABEL and X-LABEL using the gnuplot
|
"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
|
that determines the type of output that gnuplot produces, depending on
|
||||||
the system. Which options are available depends on the particulars for
|
the system. Which options are available depends on the particulars for
|
||||||
the gnuplot installation, but typical examples would be \"dumb\" for
|
the gnuplot installation, but typical examples would be \"dumb\" for
|
||||||
text-only display, \"wxterm\" to write to a graphical window, or
|
text-only display, \"wxterm\" to write to a graphical window, or
|
||||||
\"png\" to write a PNG-image to stdout. EXTRA-GNUPLOT-OPTS are any
|
\"png\" to write a PNG-image to stdout.
|
||||||
additional options for gnuplot."
|
|
||||||
|
EXTRA-GNUPLOT-OPTS is a list
|
||||||
|
of any additional options for gnuplot."
|
||||||
(if (not (find-program-in-path "gnuplot"))
|
(if (not (find-program-in-path "gnuplot"))
|
||||||
(error "cannot find 'gnuplot' in path"))
|
(error "cannot find 'gnuplot' in path"))
|
||||||
(let ((datafile (export-pairs data))
|
(let ((datafile (export-pairs data))
|
||||||
|
|
Loading…
Reference in New Issue