blob: 744781268d5a8415a76b976c9cd01131a66a8717 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
;;; chrono-tools.el --- Config for Date and Time-Related Utils -*- lexical-binding: t; coding: utf-8; -*-
;; author Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;;
;; Layer: 3 (Domain Workflow).
;; Category: D/P.
;; Load shape: eager.
;; Eager reason: none; calendar/timer commands, a command-loaded deferral
;; candidate.
;; Top-level side effects: package configuration via use-package.
;; Runtime requires: user-constants.
;; Direct test load: yes.
;;
;; This module centralizes configuration for Emacs time-related tools:
;;
;; – time-zones: interactive world clock with fuzzy search and time shifting
;; – calendar: quick navigation keybindings by day, month, and year
;; – tmr: lightweight timer setup with sounds, notifications, and history
;;
;;; Code:
(require 'user-constants)
;; Declared by the lazily-loaded `tmr' package; quiet the byte-compiler
;; without forcing the package to load.
(defvar tmr-sound-file)
(defvar tmr-descriptions-list)
;; -------------------------------- Time Zones ---------------------------------
(use-package time-zones
:defer
:commands time-zones
:init
(setq time-zones--city-list-file
(expand-file-name "persist/time-zones-cities.el" user-emacs-directory))
:bind ("M-S-c" . time-zones)) ;; was M-C, overrides capitalize-word
(use-package calendar
:ensure nil ;; built-in
:defer 0.5
:bind (("M-#" . calendar)
:map calendar-mode-map
("." . calendar-goto-today)
("<left>" . calendar-backward-day)
("<right>" . calendar-forward-day)
("C-<left>" . calendar-backward-month)
("C-<right>" . calendar-forward-month)
("M-<left>" . calendar-backward-year)
("M-<right>" . calendar-forward-year)))
;; ------------------------------------ TMR ------------------------------------
(defconst cj/tmr--audio-extensions
'("mp3" "m4a" "ogg" "opus" "wav" "flac" "aac")
"Audio file extensions offered to `cj/tmr-select-sound-file'.")
(defun cj/tmr--available-sound-files ()
"Return a list of audio filenames in `sounds-dir', or nil if none.
Returns nil if `sounds-dir' does not exist."
(when (and (boundp 'sounds-dir) (file-directory-p sounds-dir))
(let ((regex (concat "\\." (regexp-opt cj/tmr--audio-extensions t) "$")))
(directory-files sounds-dir nil regex))))
(defun cj/tmr-reset-sound-to-default ()
"Reset the tmr sound file to the default notification sound."
(interactive)
(setq tmr-sound-file notification-sound)
(message "Timer sound reset to default: %s"
(file-name-nondirectory notification-sound)))
(defun cj/tmr--current-sound-name ()
"Return the basename of the current `tmr-sound-file' if it exists, else nil."
(when (and tmr-sound-file (file-exists-p tmr-sound-file))
(file-name-nondirectory tmr-sound-file)))
(defun cj/tmr--apply-sound-file (selected-file)
"Set `tmr-sound-file' to SELECTED-FILE, a basename within `sounds-dir'.
Return the confirmation message string (noting when it is the default sound)."
(setq tmr-sound-file (expand-file-name selected-file sounds-dir))
(if (equal tmr-sound-file notification-sound)
(format "Timer sound set to default: %s" selected-file)
(format "Timer sound set to: %s" selected-file)))
(defun cj/tmr-select-sound-file ()
"Select a sound file from `sounds-dir' to use for tmr timers.
Present all audio files in the sounds directory and set the chosen file as
`tmr-sound-file'. Use \\[universal-argument] to reset to the default sound."
(interactive)
(cond
(current-prefix-arg
(cj/tmr-reset-sound-to-default))
((not (and (boundp 'sounds-dir) (file-directory-p sounds-dir)))
(message "Sounds directory does not exist: %s"
(if (boundp 'sounds-dir) sounds-dir "<unset>")))
(t
(let ((sound-files (cj/tmr--available-sound-files)))
(if (null sound-files)
(message "No audio files found in %s" sounds-dir)
(let* ((current-file (cj/tmr--current-sound-name))
(selected-file
(completing-read
(format "Select timer sound%s: "
(if current-file
(format " (current: %s)" current-file)
""))
sound-files nil t nil nil current-file)))
(if (or (null selected-file) (string-empty-p selected-file))
(message "No file selected")
(message "%s" (cj/tmr--apply-sound-file selected-file)))))))))
(use-package tmr
:defer 0.5
:init
(global-unset-key (kbd "M-t"))
:bind (("M-t" . tmr-prefix-map)
:map tmr-prefix-map
("*" . tmr)
("t" . tmr-with-details)
("S" . cj/tmr-select-sound-file)
("R" . cj/tmr-reset-sound-to-default))
:config
(setq tmr-sound-file notification-sound)
(setq tmr-notification-urgency 'normal)
(setq tmr-descriptions-list 'tmr-description-history))
(provide 'chrono-tools)
;;; chrono-tools.el ends here
|
