(defgroup ai-code-notifications nil

"Desktop notifications for AI Code Interface."

:group 'tools)

(defcustom ai-code-notifications-enabled nil

"Whether to enable desktop notifications for AI responses."

:type 'boolean

:group 'ai-code-notifications)

(defcustom ai-code-notifications-timeout 5000

"Timeout in milliseconds for notifications.

:type 'integer

:group 'ai-code-notifications)

(declare-function notifications-notify "notifications")

(defvar ai-code-notifications--last-notification-time nil

"Time of the last notification, to avoid spamming.")

(defvar ai-code-notifications--min-interval 2.0

"Minimum interval in seconds between notifications.")

(defun ai-code-notifications--dbus-available-p ()

"Check if D-Bus notifications are available."

(and (require 'notifications nil t)

(fboundp 'notifications-notify)))

(defun ai-code-notifications--can-notify-p ()

"Check if we can send a notification now.

(or (null ai-code-notifications--last-notification-time)

(> (float-time (time-subtract (current-time)

ai-code-notifications--last-notification-time))

ai-code-notifications--min-interval)))

(defun ai-code-notifications-notify (title message)

"Send a desktop notification with TITLE and MESSAGE.

(when (and ai-code-notifications-enabled

(ai-code-notifications--can-notify-p))

(setq ai-code-notifications--last-notification-time (current-time))

(beep)

(message "[AI Code] %s: %s" title message)

(when (ai-code-notifications--dbus-available-p)

(notifications-notify

:title title

:body message

:timeout ai-code-notifications-timeout

:app-name "Emacs AI Code"))))

(defun ai-code-notifications-response-ready (&optional backend-name)

"Notify that an AI response is ready.

(when ai-code-notifications-enabled

(let ((backend (or backend-name "AI"))

(buffer (current-buffer)))

(ai-code-notifications-notify

(format "%s Response Ready" backend)

(format "Response ready in %s" (buffer-name buffer))))))

(defun ai-code-notifications-toggle ()

"Toggle desktop notifications on/off."

(interactive)

(setq ai-code-notifications-enabled (not ai-code-notifications-enabled))

(message "AI Code notifications %s"

(if ai-code-notifications-enabled "enabled" "disabled")))

(provide 'ai-code-notifications)