diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index 798d0765..2f9060e4 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -418,6 +418,33 @@ M-x org-bable-tangle :config (org-roam-setup))) #+end_src +** Org-Alert +#+begin_src emacs-lisp + (use-package org-alert + :ensure t + :custom (alert-default-style 'notification) + :config + (setq org-alert-interval 300 + org-alert-notify-cutoff 30 + org-alert-notification-title "Emacs") + (org-alert-enable)) +#+end_src +*** Windows Fix +#+begin_src emacs-lisp +(use-package alert + :config + ;; Add the windows desktop notifications if on windows + (when (eq system-type 'windows-nt) + (alert-define-style + 'windows-desktop-notification-style + :title "Windows Desktop Notification style" + :notifier + (lambda (info) + (let ((notif-id (w32-notification-notify :title (plist-get info :title) :body (plist-get info :message)))) + ;; Close it after 3 seconds (no new notification can be sent if left unclosed) + (run-with-timer 3 nil `(lambda() (w32-notification-close ,notif-id)))))) + (setq alert-default-style 'windows-desktop-notification-style))) +#+end_src ** Treemacs #+begin_src emacs-lisp (use-package treemacs