emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* guile: move scripts to scripts/ (from scripts/stats)

This commit is contained in:
djcb 2012-10-22 20:26:32 +03:00
parent 5d5725035b
commit b16a42a48c
8 changed files with 39 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
configure.ac
View File

@ -318,7 +318,6 @@ guile/mu/Makefile
guile/examples/Makefile
guile/tests/Makefile
guile/scripts/Makefile
guile/scripts/stats/Makefile
toys/Makefile
toys/mug/Makefile
toys/msg2pdf/Makefile

10
guile/scripts/Makefile.am
View File

@ -16,4 +16,12 @@
include $(top_srcdir)/gtest.mk
SUBDIRS=stats
EXTRA_DIST= \
msgs-per-year.scm \
msgs-per-hour.scm \
msgs-per-month.scm \
msgs-per-day.scm \
msgs-per-year-month.scm
muguiledistscriptdir = $(pkgdatadir)/scripts/
muguiledistscript_SCRIPTS = $(EXTRA_DIST)

8
guile/scripts/stats/msgs-per-day.scm → guile/scripts/msgs-per-day.scm
View File

@ -19,7 +19,11 @@ 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.
;; DESCRIPTION: number of messages per weekday
;; DESCRIPTION: graph the number of messages per day
;; DESCRIPTION: options:
;; DESCRIPTION: --query=<query>: limit to messages matching query
;; DESCRIPTION: --muhome=<muhome>: path to mu home dir
;; DESCRIPTION: --textonly: output in text-only format
(use-modules (mu) (mu script) (mu stats) (mu plot))
@ -37,7 +41,7 @@ display, otherwise, use a graphical window."
"Day" "Messages" text-only))
(define (main args)
(mu:run args per-day))
(mu:run-stats args per-day))
;; Local Variables:
;; mode: scheme

10
guile/scripts/stats/msgs-per-hour.scm → guile/scripts/msgs-per-hour.scm
View File

@ -19,11 +19,14 @@ 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.
;; DESCRIPTION: number of messages per hour of the day
;; DESCRIPTION: graph the number of messages per hour
;; DESCRIPTION: options:
;; DESCRIPTION: --query=<query>: limit to messages matching query
;; DESCRIPTION: --muhome=<muhome>: path to mu home dir
;; DESCRIPTION: --textonly: output in text-only format
(use-modules (mu) (mu script) (mu stats) (mu plot))
(define (per-hour expr text-only)
"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
@ -37,9 +40,8 @@ display, otherwise, use a graphical window."
(format #f "Messages per hour matching ~a" expr)
"Hour" "Messages" text-only))
(define (main args)
(mu:run args per-hour))
(mu:run-stats args per-hour))
;; Local Variables:
;; mode: scheme

8
guile/scripts/stats/msgs-per-month.scm → guile/scripts/msgs-per-month.scm
View File

@ -19,7 +19,11 @@ 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.
;; DESCRIPTION: number of messages per month
;; DESCRIPTION: graph the number of messages per month
;; DESCRIPTION: options:
;; DESCRIPTION: --query=<query>: limit to messages matching query
;; DESCRIPTION: --muhome=<muhome>: path to mu home dir
;; DESCRIPTION: --textonly: output in text-only format
(use-modules (mu) (mu script) (mu stats) (mu plot))
@ -38,7 +42,7 @@ display, otherwise, use a graphical window."
"Month" "Messages" text-only))
(define (main args)
(mu:run args per-month))
(mu:run-stats args per-month))
;; Local Variables:
;; mode: scheme

8
guile/scripts/stats/msgs-per-year-month.scm → guile/scripts/msgs-per-year-month.scm
View File

@ -19,7 +19,11 @@ 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.
;; DESCRIPTION: number of messages per year-month
;; DESCRIPTION: graph the number of messages per year-month
;; DESCRIPTION: options:
;; DESCRIPTION: --query=<query>: limit to messages matching query
;; DESCRIPTION: --muhome=<muhome>: path to mu home dir
;; DESCRIPTION: --textonly: output in text-only format
(use-modules (mu) (mu script) (mu stats) (mu plot))
@ -40,7 +44,7 @@ display, otherwise, use a graphical window."
"Year/Month" "Messages" text-only))
(define (main args)
(mu:run args per-year-month))
(mu:run-stats args per-year-month))
;; Local Variables:
;; mode: scheme

9
guile/scripts/stats/msgs-per-year.scm → guile/scripts/msgs-per-year.scm
View File

@ -19,7 +19,11 @@ 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.
;; DESCRIPTION: number of messages per year
;; DESCRIPTION: graph the number of messages per year
;; DESCRIPTION: options:
;; DESCRIPTION: --query=<query>: limit to messages matching query
;; DESCRIPTION: --muhome=<muhome>: path to mu home dir
;; DESCRIPTION: --textonly: output in text-only format
(use-modules (mu) (mu script) (mu stats) (mu plot))
@ -35,9 +39,8 @@ display, otherwise, use a graphical window."
(format #f "Messages per year matching ~a" expr)
"Year" "Messages" text-only))
(define (main args)
(mu:run args per-year))
(mu:run-stats args per-year))
;; Local Variables:
;; mode: scheme

27
guile/scripts/stats/Makefile.am
View File

@ -1,27 +0,0 @@
## Copyright (C) 2012 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software Foundation,
## Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
include $(top_srcdir)/gtest.mk
EXTRA_DIST= \
msgs-per-year.scm \
msgs-per-hour.scm \
msgs-per-month.scm \
msgs-per-day.scm \
msgs-per-year-month.scm
muguiledistscriptdir = $(pkgdatadir)/scripts/stats
muguiledistscript_SCRIPTS = $(EXTRA_DIST)