flip to burt toast notifications on windows

org/elpa/burnt-toast-20201113.814/burnt-toast-alert.el

@@ -0,0 +1,128 @@
+;;; burnt-toast-alert.el --- BurntToast integration with alert package -*- lexical-binding: t; coding: utf-8 -*-
+
+;; Copyright (C) 2020 Sam Cedarbaum
+
+;; Author: Sam Cedarbaum (scedarbaum@gmail.com)
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; BurntToast integration with alert package.
+
+;;; Code:
+
+(require 'burnt-toast)
+(require 'alert)
+
+(defconst burnt-toast--icon-path-fallback
+  (concat (file-name-directory load-file-name) "icons/emacs.png")
+  "Path to fallback icon if one isn't specified.")
+
+(defcustom burnt-toast-icon-path nil
+  "Path to icon to use for notifications."
+  :type 'string
+  :group 'burnt-toast)
+
+(defcustom burnt-toast-alert-enable-remover nil
+  "Non-nil if alert should remove notifications, nil otherwise."
+  :type 'boolean
+  :group 'burnt-toast)
+
+(defcustom burnt-toast-emacs-app-id nil
+  "The system's AppId for Emacs.  Must be an exact match or notifications will fail."
+  :type 'string
+  :group 'burnt-toast)
+
+(defcustom burnt-toast-audio-source 'default
+  "The audio source to play for non-silent notifications."
+  :type 'symbol
+  ;; TODO: This doesn't actually do anything. Should be a radio-button selection.
+  :options '(default im mail reminder sms alarm alarm2 alarm3 alarm4 alarm5
+              alarm6 alarm7 alarm8 alarm9 alarm10 call call2 call3 call4
+              call5 call6 call7 call8 call9 call10)
+  :group 'burnt-toast)
+
+(defconst burnt-toast--audio-source-map '((default . "ms-winsoundevent:Notification.Default")
+                                          (im . "ms-winsoundevent:Notification.IM")
+                                          (mail . "ms-winsoundevent:Notification.Mail")
+                                          (reminder . "ms-winsoundevent:Notification.Reminder")
+                                          (sms . "ms-winsoundevent:Notification.SMS")
+                                          (alarm . "ms-winsoundevent:Notification.Looping.Alarm")
+                                          (alarm2 . "ms-winsoundevent:Notification.Looping.Alarm2")
+                                          (alarm3 . "ms-winsoundevent:Notification.Looping.Alarm3")
+                                          (alarm4 . "ms-winsoundevent:Notification.Looping.Alarm4")
+                                          (alarm5 . "ms-winsoundevent:Notification.Looping.Alarm5")
+                                          (alarm6 . "ms-winsoundevent:Notification.Looping.Alarm6")
+                                          (alarm7 . "ms-winsoundevent:Notification.Looping.Alarm7")
+                                          (alarm8 . "ms-winsoundevent:Notification.Looping.Alarm8")
+                                          (alarm9 . "ms-winsoundevent:Notification.Looping.Alarm9")
+                                          (alarm10 . "ms-winsoundevent:Notification.Looping.Alarm10")
+                                          (call . "ms-winsoundevent:Notification.Looping.Call")
+                                          (call2 . "ms-winsoundevent:Notification.Looping.Call2")
+                                          (call3 . "ms-winsoundevent:Notification.Looping.Call3")
+                                          (call4 . "ms-winsoundevent:Notification.Looping.Call4")
+                                          (call5 . "ms-winsoundevent:Notification.Looping.Call5")
+                                          (call6 . "ms-winsoundevent:Notification.Looping.Call6")
+                                          (call7 . "ms-winsoundevent:Notification.Looping.Call7")
+                                          (call8 . "ms-winsoundevent:Notification.Looping.Call8")
+                                          (call9 . "ms-winsoundevent:Notification.Looping.Call9")
+                                          (call10 . "ms-winsoundevent:Notification.Looping.Call10"))
+  "Mapping from symbols to full audio source names.")
+
+(alert-define-style 'burnt-toast :title "Burnt Toast"
+                    :notifier
+                    (lambda (info)
+                      (let*
+                          ;; The message text is :message
+                          ((message (plist-get info :message))
+                           ;; The :title of the alert
+                           (title (plist-get info :title))
+                           ;; The :category of the alert
+                           ;; (category (plist-get info :category))
+                           ;; The major-mode this alert relates to
+                           ;; (mode (plist-get info :mode))
+                           ;; The buffer the alert relates to
+                           ;; (buffer (plist-get info :buffer))
+                           ;; Severity of the alert.  It is one of:
+                           ;;   `urgent'
+                           ;;   `high'
+                           ;;   `moderate'
+                           ;;   `normal'
+                           ;;   `low'
+                           ;;   `trivial'
+                           ;; (severity (plist-get info :severity))
+                           ;; Data which was passed to `alert'.  Can be
+                           ;; anything.
+                           ;; (data (plist-get info :data))
+                           ;; Whether this alert should persist, or fade away
+                           ;; (persistent (plist-get info :persistent))
+                           (id (plist-get info :id)))
+                        (let* ((title-obj (burnt-toast-bt-text-object :content title))
+                               (message-obj (burnt-toast-bt-text-object :content message))
+                               (icon-path (or burnt-toast-icon-path burnt-toast--icon-path-fallback))
+                               (image (burnt-toast-bt-image-object :source icon-path :app-logo-override t))
+                               (binding (burnt-toast-bt-binding-object :children `(,title-obj ,message-obj) :app-logo-override image))
+                               (visual (burnt-toast-bt-visual-object binding))
+                               (audio-source (cdr (assoc burnt-toast-audio-source burnt-toast--audio-source-map)))
+                               (audio (burnt-toast-bt-audio-object audio-source))
+                               (content (burnt-toast-bt-content-object visual :audio audio)))
+                          (burnt-toast-submit-notification content :unique-identifier id :app-id burnt-toast-emacs-app-id))
+                        :remover
+                        (lambda (info)
+                          (when-let ((id (plist-get info :id)))
+                            (and burnt-toast-alert-enable-remover (burnt-toast-remove-notification :group id)))))))
+
+(provide 'burnt-toast-alert)
+;;; burnt-toast-alert.el ends here

org/elpa/burnt-toast-20201113.814/burnt-toast-autoloads.el

@@ -0,0 +1,211 @@
+;;; burnt-toast-autoloads.el --- automatically extracted autoloads  -*- lexical-binding: t -*-
+;;
+;;; Code:
+
+(add-to-list 'load-path (directory-file-name
+                         (or (file-name-directory #$) (car load-path))))
+
+
+;;;### (autoloads nil "burnt-toast" "burnt-toast.el" (0 0 0 0))
+;;; Generated autoloads from burnt-toast.el
+
+(autoload 'burnt-toast-submit-notification "burnt-toast" "\
+Submit a new notification.
+
+CONTENT is the notification's content.
+Should be created with (burnt-toast-bt-content-object ...).
+
+APP-ID is an the application identifier of Emacs on Windows.
+
+UNIQUE-IDENTIFIER will be assigned to the tag and group of the notification.
+
+\(fn CONTENT &key APP-ID UNIQUE-IDENTIFIER)" nil nil)
+
+(autoload 'burnt-toast-bt-header-object "burnt-toast" "\
+Create a new header for a notification.
+
+ID is an identifier for the notification.  It is used to correlate
+the notification with others.
+
+TITLE is the display name for the notification.
+
+\(fn &key ID TITLE)" nil nil)
+
+(autoload 'burnt-toast-bt-text-object "burnt-toast" "\
+Create a new text object.
+
+CONTENT is the text content.
+
+MAX-LINES is the maximum number of lines in the text object.
+
+\(fn &key CONTENT MAX-LINES)" nil nil)
+
+(autoload 'burnt-toast-bt-image-object "burnt-toast" "\
+Create a new image object.
+
+SOURCE is where the image is located.
+
+APP-LOGO-OVERRIDE is non-nil if image will be used as application icon, nil otherwise.
+
+\(fn &key SOURCE APP-LOGO-OVERRIDE)" nil nil)
+
+(autoload 'burnt-toast-bt-binding-object "burnt-toast" "\
+Create a new binding object.
+
+CHILDREN is the elements contained in the binding.
+
+APP-LOGO-OVERRIDE is the image to be used as the app logo.
+
+\(fn &key CHILDREN APP-LOGO-OVERRIDE)" nil nil)
+
+(autoload 'burnt-toast-bt-visual-object "burnt-toast" "\
+Create a new visual object.
+
+BINDING-GENERIC is the binding associated with the visual.
+
+\(fn BINDING-GENERIC)" nil nil)
+
+(autoload 'burnt-toast-bt-content-object "burnt-toast" "\
+Create a new content object.
+
+VISUAL is the visual associated with the content.
+
+AUDIO is an optional audio object to play.
+
+\(fn VISUAL &key AUDIO)" nil nil)
+
+(autoload 'burnt-toast-bt-audio-object "burnt-toast" "\
+Create a new audio object.
+
+SOURCE is the audio's source.
+
+\(fn SOURCE)" nil nil)
+
+(autoload 'burnt-toast-datetime-seconds-from-now "burnt-toast" "\
+Return the DateTime SECONDS from now.
+
+\(fn SECONDS)" nil nil)
+
+(autoload 'burnt-toast-new-notification-with-sound "burnt-toast" "\
+Create a new notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+SOUND is the sound effect to play.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS).
+
+\(fn &key TEXT APP-LOGO SOUND HEADER UNIQUE-IDENTIFIER EXPIRATION-TIME)" nil nil)
+
+(autoload 'burnt-toast-new-notification-silent "burnt-toast" "\
+Create a new silent notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS).
+
+\(fn &key TEXT APP-LOGO HEADER UNIQUE-IDENTIFIER EXPIRATION-TIME)" nil nil)
+
+(autoload 'burnt-toast-new-notification-snooze-and-dismiss-with-sound "burnt-toast" "\
+Create a new snooze-and-dismiss notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+SOUND is the sound effect to play.
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS).
+
+\(fn &key TEXT APP-LOGO HEADER SOUND UNIQUE-IDENTIFIER EXPIRATION-TIME)" nil nil)
+
+(autoload 'burnt-toast-new-notification-snooze-and-dismiss-silent "burnt-toast" "\
+Create a new silent snooze-and-dismiss notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit
+the notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS).
+
+\(fn &key TEXT APP-LOGO HEADER UNIQUE-IDENTIFIER EXPIRATION-TIME)" nil nil)
+
+(autoload 'burnt-toast-new-shoulder-tap "burnt-toast" "\
+Create a new shoulder tap notification.
+
+IMAGE is the image representing the contact.
+
+PERSON is the name of the contact.
+
+TEXT is the content of the fallback notification.  This can be a list of
+strings, in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the fallback notification.
+
+HEADER is the fallback notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS).
+
+\(fn IMAGE PERSON &key TEXT APP-LOGO HEADER EXPIRATION-TIME)" nil nil)
+
+(register-definition-prefixes "burnt-toast" '("burnt-toast-"))
+
+;;;***
+
+;;;### (autoloads nil "burnt-toast-alert" "burnt-toast-alert.el"
+;;;;;;  (0 0 0 0))
+;;; Generated autoloads from burnt-toast-alert.el
+
+(register-definition-prefixes "burnt-toast-alert" '("burnt-toast-"))
+
+;;;***
+
+;;;### (autoloads nil nil ("burnt-toast-pkg.el") (0 0 0 0))
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; burnt-toast-autoloads.el ends here

org/elpa/burnt-toast-20201113.814/burnt-toast-pkg.el

@@ -0,0 +1,14 @@
+(define-package "burnt-toast" "20201113.814" "Elisp integration with the BurntToast PowerShell module"
+  '((emacs "25.1")
+    (dash "2.10")
+    (alert "1.2"))
+  :commit "e9cf41928b7b502fdfa43718c35a24e503db32e2" :authors
+  '(("Sam Cedarbaum" . "scedarbaum@gmail.com"))
+  :maintainer
+  '("Sam Cedarbaum" . "scedarbaum@gmail.com")
+  :keywords
+  '("alert" "notifications" "powershell" "comm")
+  :url "https://github.com/cedarbaum/burnt-toast.el")
+;; Local Variables:
+;; no-byte-compile: t
+;; End:

org/elpa/burnt-toast-20201113.814/burnt-toast.el

@@ -0,0 +1,389 @@
+;;; burnt-toast.el --- Elisp integration with the BurntToast PowerShell module -*- lexical-binding: t; coding: utf-8 -*-
+
+;; Copyright (C) 2020 Sam Cedarbaum
+
+;; Author: Sam Cedarbaum (scedarbaum@gmail.com)
+;; Keywords: alert notifications powershell comm
+;; Homepage: https://github.com/cedarbaum/burnt-toast.el
+;; Version: 0.1
+;; Package-Requires: ((emacs "25.1") (dash "2.10") (alert "1.2"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Elisp integration with BurntToast, a PowerShell module for displaying Windows 10 and Windows Server 2019 Toast Notifications.
+
+;;; Code:
+
+(require 'dash)
+(require 'cl-lib)
+
+(defcustom burnt-toast-powershell-command "powershell"
+  "Command to invoke PowerShell."
+  :type 'string
+  :group 'burnt-toast)
+
+(defvar burnt-toast--verbose nil "Enable verbose logging.")
+(defvar burnt-toast-powershell-test-hook nil "Hook to intercept powershell command for testing.")
+(defvar burnt-toast--install-checked nil "Cache if installation has already been checked.")
+
+(defun burnt-toast--check-installation ()
+  "Check if PowerShell and BurntToast module are installed and on PATH."
+  (unless burnt-toast--install-checked
+    (unless (executable-find burnt-toast-powershell-command)
+      (error "PowerShell executable not on PATH"))
+    (unless (eq 0 (burnt-toast--run-powershell-command "Get-Command New-BurntToastNotification" t))
+      (error "BurntToast module cannot be found"))
+    (setq burnt-toast--install-checked t)))
+
+;; Based on: https://github.com/mplscorwin/erc-burnt-toast-blob/master/erc-burnt-toast.el
+(defun burnt-toast--sanitize-powershell-input (string)
+  "Return a version of STRING sanitized for use as input to PowerShell.
+New-lines are removed, trailing spaces are removed, and single-quotes are doubled."
+  (when (stringp string)
+    (replace-regexp-in-string
+     "\s+$" ""
+     (replace-regexp-in-string
+      "[\t\n\r]+" ""
+      (replace-regexp-in-string
+       "\"" "\"\""
+       string)))))
+
+(defun burnt-toast--quote-and-sanitize-string (string)
+  "Surround STRING with double quotes and sanitize it when it is non-nil."
+  (when string
+    (concat "\"" (burnt-toast--sanitize-powershell-input string) "\"")))
+
+(defun burnt-toast--param-to-string (obj)
+  "Return OBJ as string when a non-nil string or an empty string otherwise."
+  (cond ((stringp obj) obj)
+        ((numberp obj) (number-to-string obj))
+        (t "")))
+
+(defun burnt-toast--run-powershell-command (command-and-args &optional skip-install-check)
+  "Execute a PowerShell command COMMAND-AND-ARGS.
+Optionally skip BurntToast installation check with SKIP-INSTALL-CHECK."
+  (when burnt-toast--verbose (message command-and-args))
+  (if burnt-toast-powershell-test-hook
+      (apply burnt-toast-powershell-test-hook `(,command-and-args))
+    (or skip-install-check (burnt-toast--check-installation))
+    (call-process burnt-toast-powershell-command nil nil nil
+                  "-NoProfile" "-NoExit" "-NonInteractive" "-WindowStyle" "Hidden" command-and-args)))
+
+(defun burnt-toast--create-ps-command (command-prefix args)
+  "Create a new PowerShell command with prefix COMMAND-PREFIX using ARGS."
+  (let* ((prefix-string (concat "$(" command-prefix " "))
+         (non-nil-args (-filter (-lambda ((_ value)) value) args))
+         (quoted-args (-map
+                       (-lambda ((arg value quote)) `(,arg ,(if quote (burnt-toast--quote-and-sanitize-string value) value)))
+                       non-nil-args))
+         (args-string-list (-map
+                            (-lambda ((arg value)) (concat "-" arg " " (burnt-toast--param-to-string value)))
+                            quoted-args))
+         (args-string (and args-string-list (-reduce (lambda (s1 s2) (concat s1 " " s2)) args-string-list))))
+    (concat prefix-string (or args-string "") ")")))
+
+(defun burnt-toast--new-ps-object (object args)
+  "Create a new PowerShell OBJECT with ARGS."
+  (let* ((command-prefix (concat "New-" object)))
+    (burnt-toast--create-ps-command command-prefix args)))
+
+(defun burnt-toast--new-ps-object-list (objects &optional process)
+  "Create a comma separated list of OBJECTS.
+Optionally process each object with PROCESS function as list is built."
+  (let* ((map-func (or process #'identity)))
+    (if (and objects (listp objects))
+        (-reduce
+         (lambda (s1 s2) (concat s1 "," s2))
+         (-map map-func objects))
+      (apply map-func `(,objects)))))
+
+(cl-defun burnt-toast--new-notification-core (&key text app-logo sound header silent snooze-and-dismiss
+                                                   unique-identifier expiration-time)
+  "Create new notification with subset of arguments.
+Arguments are TEXT, APP-LOGO, SOUND, HEADER, SILENT, SNOOZE-AND-DISMISS,
+UNIQUE-IDENTIFIER, and EXPIRATION-TIME.
+This function should not be called directly."
+  (let* ((processed-text (burnt-toast--new-ps-object-list text #'burnt-toast--quote-and-sanitize-string))
+         (ps-command (burnt-toast--new-ps-object
+                      "BurntToastNotification"
+                      `(("Text"             ,processed-text)
+                        ("AppLogo"          ,app-logo t)
+                        ("Sound"            ,sound t)
+                        ("Header"           ,header)
+                        ("Silent"           ,silent)
+                        ("SnoozeAndDismiss" ,snooze-and-dismiss)
+                        ("UniqueIdentifier" ,unique-identifier)
+                        ("ExpirationTime"   ,expiration-time)))))
+    (burnt-toast--run-powershell-command ps-command)))
+
+;;;###autoload
+(cl-defun burnt-toast-submit-notification (content &key app-id
+                                                   unique-identifier)
+  "Submit a new notification.
+
+CONTENT is the notification's content.
+Should be created with (burnt-toast-bt-content-object ...).
+
+APP-ID is an the application identifier of Emacs on Windows.
+
+UNIQUE-IDENTIFIER will be assigned to the tag and group of the notification."
+  (let* ((ps-command (burnt-toast--create-ps-command
+                      "Submit-BTNotification"
+                      `(("Content"          ,content)
+                        ("AppId"            ,app-id t)
+                        ("UniqueIdentifier" ,unique-identifier t)))))
+    (burnt-toast--run-powershell-command ps-command)))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-header-object (&key id title)
+  "Create a new header for a notification.
+
+ID is an identifier for the notification.  It is used to correlate
+the notification with others.
+
+TITLE is the display name for the notification."
+  (burnt-toast--new-ps-object
+   "BTHeader"
+   `(("Id"    ,id)
+     ("Title" ,title t))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-text-object (&key content max-lines)
+  "Create a new text object.
+
+CONTENT is the text content.
+
+MAX-LINES is the maximum number of lines in the text object."
+  (burnt-toast--new-ps-object
+   "BTText"
+   `(("Content"  ,content t)
+     ("MaxLines" ,max-lines))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-image-object (&key source app-logo-override)
+  "Create a new image object.
+
+SOURCE is where the image is located.
+
+APP-LOGO-OVERRIDE is non-nil if image will be used as application icon, nil otherwise."
+  (burnt-toast--new-ps-object
+   "BTImage"
+   `(("Source"          ,source t)
+     ("AppLogoOverride" ,app-logo-override))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-binding-object (&key children app-logo-override)
+  "Create a new binding object.
+
+CHILDREN is the elements contained in the binding.
+
+APP-LOGO-OVERRIDE is the image to be used as the app logo."
+  (burnt-toast--new-ps-object
+   "BTBinding"
+   `(("Children"        ,(burnt-toast--new-ps-object-list children))
+     ("AppLogoOverride" ,app-logo-override))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-visual-object (binding-generic)
+  "Create a new visual object.
+
+BINDING-GENERIC is the binding associated with the visual."
+  (burnt-toast--new-ps-object
+   "BTVisual"
+   `(("BindingGeneric" ,binding-generic))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-content-object (visual &key audio)
+  "Create a new content object.
+
+VISUAL is the visual associated with the content.
+
+AUDIO is an optional audio object to play."
+  (burnt-toast--new-ps-object
+   "BTContent"
+   `(("Visual" ,visual)
+     ("Audio"  ,audio))))
+
+;;;###autoload
+(cl-defun burnt-toast-bt-audio-object (source)
+  "Create a new audio object.
+
+SOURCE is the audio's source."
+  (burnt-toast--new-ps-object
+   "BTAudio"
+   `(("Source" ,source))))
+
+;;;###autoload
+(cl-defun burnt-toast-datetime-seconds-from-now (seconds)
+  "Return the DateTime SECONDS from now."
+  (format "$([DateTime]::Now.AddSeconds(%f))" seconds))
+
+;;;###autoload
+(cl-defun burnt-toast-new-notification-with-sound (&key text app-logo sound header unique-identifier
+                                                        expiration-time)
+  "Create a new notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+SOUND is the sound effect to play.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS)."
+  (burnt-toast--new-notification-core
+   :text text
+   :app-logo app-logo
+   :sound sound
+   :header header
+   :unique-identifier unique-identifier
+   :expiration-time expiration-time))
+
+;;;###autoload
+(cl-defun burnt-toast-new-notification-silent (&key text app-logo header unique-identifier
+                                                    expiration-time)
+  "Create a new silent notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS)."
+  (burnt-toast--new-notification-core
+   :text text
+   :app-logo app-logo
+   :silent t
+   :header header
+   :unique-identifier unique-identifier
+   :expiration-time expiration-time))
+
+;;;###autoload
+(cl-defun burnt-toast-new-notification-snooze-and-dismiss-with-sound (&key text app-logo header sound unique-identifier
+                                                                           expiration-time)
+  "Create a new snooze-and-dismiss notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+SOUND is the sound effect to play.
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit the
+notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS)."
+  (burnt-toast--new-notification-core
+   :text text
+   :app-logo app-logo
+   :header header
+   :sound sound
+   :snooze-and-dismiss t
+   :unique-identifier unique-identifier
+   :expiration-time expiration-time))
+
+;;;###autoload
+(cl-defun burnt-toast-new-notification-snooze-and-dismiss-silent (&key text app-logo header unique-identifier
+                                                                       expiration-time)
+  "Create a new silent snooze-and-dismiss notification.
+
+TEXT is the content of the notification.  This can be a list of strings,
+in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the notification.
+
+HEADER is the notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+UNIQUE-IDENTIFIER a unique identifier that can be used to remove/edit
+the notification.
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS)."
+  (burnt-toast--new-notification-core
+   :text text
+   :app-logo app-logo
+   :silent t
+   :snooze-and-dismiss t
+   :header header
+   :unique-identifier unique-identifier
+   :expiration-time expiration-time))
+
+;;;###autoload
+(cl-defun burnt-toast-new-shoulder-tap (image person &key text app-logo header expiration-time)
+  "Create a new shoulder tap notification.
+
+IMAGE is the image representing the contact.
+
+PERSON is the name of the contact.
+
+TEXT is the content of the fallback notification.  This can be a list of
+strings, in which case each entry is a new line.
+
+APP-LOGO is a path to an icon to be displayed with the fallback notification.
+
+HEADER is the fallback notification's header.
+This should be created with (burnt-toast-bt-header-object ID HEADER).
+
+EXPIRATION-TIME DateTime for notification to expire.
+This should be created with (burnt-toast-datetime-seconds-from-now SECONDS)."
+  (let* ((processed-text (burnt-toast--new-ps-object-list text #'burnt-toast--quote-and-sanitize-string))
+         (ps-command (burnt-toast--new-ps-object
+                      "BurntToastShoulderTap"
+                      `(("Image"          ,image t)
+                        ("Person"         ,person t)
+                        ("Text"           ,processed-text)
+                        ("AppLogo"        ,app-logo t)
+                        ("Header"         ,header)
+                        ("ExpirationTime" ,expiration-time)))))
+    (burnt-toast--run-powershell-command ps-command)))
+
+(cl-defun burnt-toast-remove-notification (&key app-id tag group)
+  "Remove a notification.
+
+If APP-ID is specified, removes all notifications for that application.
+
+If TAG is specified, removes all notifications with that tag.
+
+If GROUP is specified, removes all notifications in that group."
+  (let* ((ps-command (burnt-toast--create-ps-command
+                      "Remove-BTNotification"
+                      `(("AppId" ,app-id t)
+                        ("Tag"   ,tag t)
+                        ("Group" ,group)))))
+    (burnt-toast--run-powershell-command ps-command)))
+
+(provide 'burnt-toast)
+;;; burnt-toast.el ends here

org/init.el

@@ -72,7 +72,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; additional packages
 (add-to-list 'package-selected-packages
-             '(ox-hugo org-super-agenda org-alert alert-toast alert)
+             '(ox-hugo org-super-agenda org-alert burnt-toast alert)
 )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -83,15 +83,14 @@
 ; org-alert - windows only
 (when (eq system-type 'windows-nt)
 (use-package org-alert)
-(use-package alert-toast :after alert)
+(use-package burnt-toast
-(alert-define-style 'toast-kmn :title "Windows 10 toast notification"
+  :config
-                    :severity (assq 'normal alert-toast-priorities)
+  (require 'burnt-toast-alert)
-                    :persistent t
+  (setq alert-default-style 'burnt-toast)
-                    :notifier #'alert-toast-notify)
+)
-(setq alert-default-style 'toast-kmn)
 (setq org-alert-interval 300
-      org-alert-notify-cutoff 15
+      org-alert-notify-cutoff 0
-      org-alert-notify-after-event-cutoff 86400)
+      org-alert-notify-after-event-cutoff 0)
 (org-alert-enable)
 )