alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* guile: update command-line arguments in scripts

Browse Source
This commit is contained in:
djcb
2013-10-09 23:27:00 +03:00
parent 9170341959
commit a228429ee2
5 changed files with 31 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
guile/scripts/msgs-per-hour.scm
View File

@ -19,18 +19,19 @@ exec guile -e main -s $0 $@
;; along with this program; if not, write to the Free Software Foundation,
;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
;; INFO: graph the number of messages per hour
;; INFO: graph the number of messages per day (using gnuplot)
;; INFO: options:
;; INFO: --query=<query>: limit to messages matching query
;; INFO: --muhome=<muhome>: path to mu home dir
;; INFO: --textonly: output in text-only format
;; INFO: --output: the output format, such as "png", "wxt"
;; INFO: (depending on the environment)
(use-modules (mu) (mu script) (mu stats) (mu plot))
(define (per-hour expr text-only)
(define (per-hour expr output)
"Count the total number of messages for each weekday (0-6 for
Sun..Sat) that match EXPR. If PLAIN-TEXT is true, use a plain-text
display, otherwise, use a graphical window."
Sun..Sat) that match EXPR. OUTPUT corresponds to the output format, as
per gnuplot's 'set terminal'."
(mu:plot-histogram
(sort
(mu:tabulate
@ -38,7 +39,7 @@ display, otherwise, use a graphical window."
(tm:hour (localtime (mu:date msg)))) expr)
(lambda (x y) (< (car x) (car y))))
(format #f "Messages per hour matching ~a" expr)
"Hour" "Messages" text-only))
"Hour" "Messages" output))
(define (main args)
(mu:run-stats args per-hour))