49 lines
1.4 KiB
EmacsLisp
49 lines
1.4 KiB
EmacsLisp
;;; chronometrist-report-custom --- custom definitions for `chronometrist-report' -*- lexical-binding: t; -*-
|
|
|
|
;; Author: contrapunctus <xmpp:contrapunctus@jabber.fr>
|
|
|
|
;; This is free and unencumbered software released into the public domain.
|
|
;;
|
|
;; Anyone is free to copy, modify, publish, use, compile, sell, or
|
|
;; distribute this software, either in source code form or as a compiled
|
|
;; binary, for any purpose, commercial or non-commercial, and by any
|
|
;; means.
|
|
;;
|
|
;; For more information, please refer to <https://unlicense.org>
|
|
|
|
;;; Commentary:
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(defgroup chronometrist-report nil
|
|
"Weekly report for the `chronometrist' time tracker."
|
|
:group 'chronometrist)
|
|
|
|
(defcustom chronometrist-report-buffer-name "*Chronometrist-Report*"
|
|
"The name of the buffer created by `chronometrist-report'."
|
|
:type 'string)
|
|
|
|
(defcustom chronometrist-report-week-start-day "Sunday"
|
|
"The day used for start of week by `chronometrist-report'."
|
|
:type 'string)
|
|
|
|
(defcustom chronometrist-report-weekday-number-alist
|
|
'(("Sunday" . 0)
|
|
("Monday" . 1)
|
|
("Tuesday" . 2)
|
|
("Wednesday" . 3)
|
|
("Thursday" . 4)
|
|
("Friday" . 5)
|
|
("Saturday" . 6))
|
|
"Alist in the form (\"NAME\" . NUMBER), where \"NAME\" is the name of a weekday and NUMBER its associated number."
|
|
:type 'alist)
|
|
|
|
(provide 'chronometrist-report-custom)
|
|
|
|
;; Local Variables:
|
|
;; nameless-current-name: "chronometrist-report"
|
|
;; End:
|
|
|
|
;;; chronometrist-report-custom.el ends here
|