diff options
| author | LLLL Colonq <llll@colonq> | 2025-11-07 00:20:02 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-11-07 00:20:02 -0500 |
| commit | cf266a56f30daae8b9af7c9bc3267c61b1973192 (patch) | |
| tree | f365939f712973840ff19d9265c552af820cd1ef /src/gizmo/wasp-alert-message.el | |
| parent | 3d31c488fb06e9937964041f4d83d0cb1c9699ab (diff) | |
Update
Diffstat (limited to 'src/gizmo/wasp-alert-message.el')
| -rw-r--r-- | src/gizmo/wasp-alert-message.el | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/src/gizmo/wasp-alert-message.el b/src/gizmo/wasp-alert-message.el index c645b01f..da5f214f 100644 --- a/src/gizmo/wasp-alert-message.el +++ b/src/gizmo/wasp-alert-message.el @@ -27,30 +27,21 @@ :group 'w (setq-local cursor-type nil)) -(defun w/get-alert-message-buffer () +(defun w/alert-message-get-buffer () "Return the alert message buffer." (unless (get-buffer w/alert-message-buffer) (with-current-buffer (get-buffer-create w/alert-message-buffer) (w/alert-message-mode))) (get-buffer w/alert-message-buffer)) -(defun w/render-alert-message () +(defun w/alert-message-update () "Render the heartrate buffer." - (with-current-buffer (w/get-alert-message-buffer) + (with-current-buffer (w/alert-message-get-buffer) (setq-local cursor-type nil) (let* ((inhibit-read-only t)) (erase-buffer) (w/write (w/pick-random w/alert-message-phrases))))) - -(defvar w/alert-message-timer nil) -(defun w/run-alert-message-timer () - "Run the alert message timer." - (when w/alert-message-timer - (cancel-timer w/alert-message-timer)) - (w/render-alert-message) - (setq - w/alert-message-timer - (run-with-timer 10 nil #'w/run-alert-message-timer))) +(add-hook 'w/gizmo-update-hook #'w/alert-message-update) (provide 'wasp-alert-message) ;;; wasp-alert-message.el ends here |
