+++ /dev/null
-;;; alert-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-\f
-;;;### (autoloads nil "alert" "alert.el" (0 0 0 0))
-;;; Generated autoloads from alert.el
-
-(autoload 'alert-add-rule "alert" "\
-Programmatically add an alert configuration rule.
-
-Normally, users should custoimze `alert-user-configuration'.
-This facility is for module writers and users that need to do
-things the Lisp way.
-
-Here is a rule the author currently uses with ERC, so that the
-fringe gets colored whenever people chat on BitlBee:
-
-\(alert-add-rule :status \\='(buried visible idle)
- :severity \\='(moderate high urgent)
- :mode \\='erc-mode
- :predicate
- #\\='(lambda (info)
- (string-match (concat \"\\\\`[^&].*@BitlBee\\\\\\='\")
- (erc-format-target-and/or-network)))
- :persistent
- #\\='(lambda (info)
- ;; If the buffer is buried, or the user has been
- ;; idle for `alert-reveal-idle-time' seconds,
- ;; make this alert persistent. Normally, alerts
- ;; become persistent after
- ;; `alert-persist-idle-time' seconds.
- (memq (plist-get info :status) \\='(buried idle)))
- :style \\='fringe
- :continue t)
-
-\(fn &key SEVERITY STATUS MODE CATEGORY TITLE MESSAGE PREDICATE ICON (STYLE alert-default-style) PERSISTENT CONTINUE NEVER-PERSIST APPEND)" nil nil)
-
-(autoload 'alert "alert" "\
-Alert the user that something has happened.
-MESSAGE is what the user will see. You may also use keyword
-arguments to specify additional details. Here is a full example:
-
-\(alert \"This is a message\"
- :severity \\='high ;; The default severity is `normal'
- :title \"Title\" ;; An optional title
- :category \\='example ;; A symbol to identify the message
- :mode \\='text-mode ;; Normally determined automatically
- :buffer (current-buffer) ;; This is the default
- :data nil ;; Unused by alert.el itself
- :persistent nil ;; Force the alert to be persistent;
- ;; it is best not to use this
- :never-persist nil ;; Force this alert to never persist
- :id \\='my-id) ;; Used to replace previous message of
- ;; the same id in styles that support it
- :style \\='fringe) ;; Force a given style to be used;
- ;; this is only for debugging!
-
-If no :title is given, the buffer-name of :buffer is used. If
-:buffer is nil, it is the current buffer at the point of call.
-
-:data is an opaque value which modules can pass through to their
-own styles if they wish.
-
-Here are some more typical examples of usage:
-
- ;; This is the most basic form usage
- (alert \"This is an alert\")
-
- ;; You can adjust the severity for more important messages
- (alert \"This is an alert\" :severity \\='high)
-
- ;; Or decrease it for purely informative ones
- (alert \"This is an alert\" :severity \\='trivial)
-
- ;; Alerts can have optional titles. Otherwise, the title is the
- ;; buffer-name of the (current-buffer) where the alert originated.
- (alert \"This is an alert\" :title \"My Alert\")
-
- ;; Further, alerts can have categories. This allows users to
- ;; selectively filter on them.
- (alert \"This is an alert\" :title \"My Alert\"
- :category \\='some-category-or-other)
-
-\(fn MESSAGE &key (SEVERITY \\='normal) TITLE ICON CATEGORY BUFFER MODE DATA STYLE PERSISTENT NEVER-PERSIST ID)" nil nil)
-
-(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "alert" '("alert-" "x-urgen")))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; alert-autoloads.el ends here
+++ /dev/null
-;;; Generated package description from /Users/baron/.emacs.d/elpa/alert-20200303.2118/alert.el -*- no-byte-compile: t -*-
-(define-package "alert" "20200303.2118" "Growl-style notification system for Emacs" '((gntp "0.1") (log4e "0.3.0") (cl-lib "0.5")) :commit "7046393272686c7a1a9b3e7f7b1d825d2e5250a6" :authors '(("John Wiegley" . "jwiegleyNOSPAMgmail.com")) :maintainer '("John Wiegley" . "jwiegleyNOSPAMgmail.com") :keywords '("notification" "emacs" "message") :url "https://github.com/jwiegley/alert")
+++ /dev/null
-;;; alert.el --- Growl-style notification system for Emacs -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2011-2013 John Wiegley
-
-;; Author: John Wiegley <jwiegleyNOSPAMgmail.com>
-;; Created: 24 Aug 2011
-;; Updated: 16 Mar 2015
-;; Version: 1.2
-;; Package-Version: 20200303.2118
-;; Package-Commit: 7046393272686c7a1a9b3e7f7b1d825d2e5250a6
-;; Package-Requires: ((gntp "0.1") (log4e "0.3.0") (cl-lib "0.5"))
-;; Keywords: notification emacs message
-;; X-URL: https://github.com/jwiegley/alert
-
-;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-\f
-;;; Commentary:
-
-;; Alert is a Growl-workalike for Emacs which uses a common notification
-;; interface and multiple, selectable "styles", whose use is fully
-;; customizable by the user.
-;;
-;; * For module writers
-;;
-;; Just use `alert' instead of `message' as follows:
-;;
-;; (require 'alert)
-;;
-;; ;; This is the most basic form usage
-;; (alert "This is an alert")
-;;
-;; ;; You can adjust the severity for more important messages
-;; (alert "This is an alert" :severity 'high)
-;;
-;; ;; Or decrease it for purely informative ones
-;; (alert "This is an alert" :severity 'trivial)
-;;
-;; ;; Alerts can have optional titles. Otherwise, the title is the
-;; ;; buffer-name of the (current-buffer) where the alert originated.
-;; (alert "This is an alert" :title "My Alert")
-;;
-;; ;; Further, alerts can have categories. This allows users to
-;; ;; selectively filter on them.
-;; (alert "This is an alert" :title "My Alert" :category 'debug)
-;;
-;; * For users
-;;
-;; For the user, there are several variables to control when and how alerts
-;; are presented. By default, they appear in the minibuffer much the same
-;; as a normal Emacs message. But there are many more possibilities:
-;;
-;; `alert-fade-time'
-;; Normally alerts disappear after this many seconds, if the style
-;; supports it. The default is 5 seconds.
-;;
-;; `alert-default-style'
-;; Pick the style to use if no other config rule matches. The
-;; default is `message', but `growl' works well too.
-;;
-;; `alert-reveal-idle-time'
-;; If a config rule choose to match on `idle', this is how many
-;; seconds idle the user has to be. Defaults to 5 so that users
-;; don't miss any alerts, but 120 is also good.
-;;
-;; `alert-persist-idle-time'
-;; After this many idle seconds, alerts will become sticky, and not
-;; fade away more. The default is 15 minutes.
-;;
-;; `alert-log-messages'
-;; By default, all alerts are logged to *Alerts* (and to *Messages*,
-;; if the `message' style is being used). Set to nil to disable.
-;;
-;; `alert-hide-all-notifications'
-;; Want alerts off entirely? They still get logged, however, unless
-;; you've turned that off too.
-;;
-;; `alert-user-configuration'
-;; This variable lets you control exactly how and when a particular
-;; alert, a class of alerts, or all alerts, get reported -- or if at
-;; all. Use this to make some alerts use Growl, while others are
-;; completely silent.
-;;
-;; * Programmatically adding rules
-;;
-;; Users can also programmatically add configuration rules, in addition to
-;; customizing `alert-user-configuration'. Here is one that the author
-;; currently uses with ERC, so that the fringe gets colored whenever people
-;; chat on BitlBee:
-;;
-;; (alert-add-rule :status '(buried visible idle)
-;; :severity '(moderate high urgent)
-;; :mode 'erc-mode
-;; :predicate
-;; #'(lambda (info)
-;; (string-match (concat "\\`[^&].*@BitlBee\\'")
-;; (erc-format-target-and/or-network)))
-;; :persistent
-;; #'(lambda (info)
-;; ;; If the buffer is buried, or the user has been
-;; ;; idle for `alert-reveal-idle-time' seconds,
-;; ;; make this alert persistent. Normally, alerts
-;; ;; become persistent after
-;; ;; `alert-persist-idle-time' seconds.
-;; (memq (plist-get info :status) '(buried idle)))
-;; :style 'fringe
-;; :continue t)
-;;
-;; * Builtin alert styles
-;;
-;; There are several builtin styles, and it is trivial to create new ones.
-;; The builtins are:
-;;
-;; fringe - Changes the current frame's fringe background color
-;; mode-line - Changes the current frame's mode-line background color
-;; gntp - Uses gntp, it requires gntp.el (see https://github.com/tekai/gntp.el)
-;; growl - Uses Growl on OS X, if growlnotify is on the PATH
-;; ignore - Ignores the alert entirely
-;; libnotify - Uses libnotify if notify-send is on the PATH
-;; log - Logs the alert text to *Alerts*, with a timestamp
-;; message - Uses the Emacs `message' facility
-;; momentary - Uses the Emacs `momentary-string-display' facility
-;; notifications - Uses notifications library via D-Bus
-;; notifier - Uses terminal-notifier on OS X, if it is on the PATH
-;; osx-notifier - Native OSX notifier using AppleScript
-;; toaster - Use the toast notification system
-;; x11 - Changes the urgency property of the window in the X Window System
-;;
-;; * Defining new styles
-;;
-;; To create a new style, you need to at least write a "notifier", which is
-;; a function that receives the details of the alert. These details are
-;; given in a plist which uses various keyword to identify the parts of the
-;; alert. Here is a prototypical style definition:
-;;
-;; (alert-define-style 'style-name :title "My Style's title"
-;; :notifier
-;; (lambda (info)
-;; ;; The message text is :message
-;; (plist-get info :message)
-;; ;; The :title of the alert
-;; (plist-get info :title)
-;; ;; The :category of the alert
-;; (plist-get info :category)
-;; ;; The major-mode this alert relates to
-;; (plist-get info :mode)
-;; ;; The buffer the alert relates to
-;; (plist-get info :buffer)
-;; ;; Severity of the alert. It is one of:
-;; ;; `urgent'
-;; ;; `high'
-;; ;; `moderate'
-;; ;; `normal'
-;; ;; `low'
-;; ;; `trivial'
-;; (plist-get info :severity)
-;; ;; Whether this alert should persist, or fade away
-;; (plist-get info :persistent)
-;; ;; Data which was passed to `alert'. Can be
-;; ;; anything.
-;; (plist-get info :data))
-;;
-;; ;; Removers are optional. Their job is to remove
-;; ;; the visual or auditory effect of the alert.
-;; :remover
-;; (lambda (info)
-;; ;; It is the same property list that was passed to
-;; ;; the notifier function.
-;; ))
-;;
-;; You can test a specific style with something like this:
-;;
-;; (let ((alert-user-configuration '((((:severity high)) momentary nil))))
-;; (alert "Same buffer momentary alert" :title "My Alert" :severity 'high)
-;; (alert "This is a momentary alert in another visible buffer" :title "My Alert"
-;; :severity 'high :buffer (other-buffer (current-buffer) t)))
-
-;;; Code:
-
-(require 'cl-lib)
-(require 'gntp nil t)
-(eval-when-compile
- ;; if not available, silence the byte compiler
- (defvar gntp-server))
-(declare-function gntp-notify "gntp")
-(require 'notifications nil t)
-(require 'log4e nil t)
-
-;; shut up the byte compiler
-(declare-function alert-gntp-notify "alert")
-(declare-function alert-notifications-notify "alert")
-
-(defgroup alert nil
- "Notification system for Emacs similar to Growl"
- :group 'emacs)
-\f
-(defcustom alert-severity-faces
- '((urgent . alert-urgent-face)
- (high . alert-high-face)
- (moderate . alert-moderate-face)
- (normal . alert-normal-face)
- (low . alert-low-face)
- (trivial . alert-trivial-face))
- "Faces associated by default with alert severities."
- :type '(alist :key-type symbol :value-type color)
- :group 'alert)
-
-(defcustom alert-severity-colors
- '((urgent . "red")
- (high . "orange")
- (moderate . "yellow")
- (normal . "green")
- (low . "blue")
- (trivial . "purple"))
- "Colors associated by default with alert severities.
-This is used by styles external to Emacs that don't understand faces."
- :type '(alist :key-type symbol :value-type color)
- :group 'alert)
-
-(defcustom alert-log-severity-functions
- '((urgent . alert--log-fatal)
- (high . alert--log-error)
- (moderate . alert--log-warn)
- (normal . alert--log-info)
- (low . alert--log-debug)
- (trivial . alert--log-trace))
- "Log4e logging functions."
- :type '(alist :key-type symbol :value-type color)
- :group 'alert)
-
-(defcustom alert-log-level
- 'normal
- "Minimum level of messages to log."
- :type 'symbol
- :group 'alert)
-
-(defcustom alert-reveal-idle-time 15
- "If idle this many seconds, rules will match the `idle' property."
- :type 'integer
- :group 'alert)
-
-(defcustom alert-persist-idle-time 900
- "If idle this many seconds, all alerts become persistent.
-This can be overridden with the Never Persist option (:never-persist)."
- :type 'integer
- :group 'alert)
-
-(defcustom alert-fade-time 5
- "If not idle, alerts disappear after this many seconds.
-The amount of idle time is governed by `alert-persist-idle-time'."
- :type 'integer
- :group 'alert)
-
-(defcustom alert-hide-all-notifications nil
- "If non-nil, no alerts are ever shown to the user."
- :type 'boolean
- :group 'alert)
-
-(defcustom alert-log-messages t
- "If non-nil, all alerts are logged to the *Alerts* buffer."
- :type 'boolean
- :group 'alert)
-
-(defcustom alert-default-icon
- (concat data-directory
- "images/icons/hicolor/scalable/apps/emacs.svg")
- "Filename of default icon to show for libnotify-alerts."
- :type 'string
- :group 'alert)
-
-(defvar alert-styles nil)
-
-(defun alert-styles-radio-type (widget-name)
- (append
- (list widget-name :tag "Style")
- (mapcar #'(lambda (style)
- (list 'const
- :tag (or (plist-get (cdr style) :title)
- (symbol-name (car style)))
- (car style)))
- (setq alert-styles
- (sort alert-styles
- #'(lambda (l r)
- (string< (symbol-name (car l))
- (symbol-name (car r)))))))))
-
-(defcustom alert-default-style 'message
- "The style to use if no rules match in the current configuration.
-If a configured rule does match an alert, this style is not used;
-it is strictly a fallback."
- :type (alert-styles-radio-type 'radio)
- :group 'alert)
-
-(defun alert-configuration-type ()
- (list 'repeat
- (list
- 'list :tag "Select style if alert matches selector"
- '(repeat
- :tag "Selector"
- (choice
- (cons :tag "Severity"
- (const :format "" :severity)
- (set (const :tag "Urgent" urgent)
- (const :tag "High" high)
- (const :tag "Moderate" moderate)
- (const :tag "Normal" normal)
- (const :tag "Low" low)
- (const :tag "Trivial" trivial)))
- (cons :tag "User Status"
- (const :format "" :status)
- (set (const :tag "Buffer not visible" buried)
- (const :tag "Buffer visible" visible)
- (const :tag "Buffer selected" selected)
- (const :tag "Buffer selected, user idle" idle)))
- (cons :tag "Major Mode"
- (const :format "" :mode)
- regexp)
- (cons :tag "Category"
- (const :format "" :category)
- regexp)
- (cons :tag "Title"
- (const :format "" :title)
- regexp)
- (cons :tag "Message"
- (const :format "" :message)
- regexp)
- (cons :tag "Predicate"
- (const :format "" :predicate)
- function)
- (cons :tag "Icon"
- (const :format "" :icon)
- regexp)))
- (alert-styles-radio-type 'choice)
- '(set :tag "Options"
- (cons :tag "Make alert persistent"
- (const :format "" :persistent)
- (choice :value t (const :tag "Yes" t)
- (function :tag "Predicate")))
- (cons :tag "Never persist"
- (const :format "" :never-persist)
- (choice :value t (const :tag "Yes" t)
- (function :tag "Predicate")))
- (cons :tag "Continue to next rule"
- (const :format "" :continue)
- (choice :value t (const :tag "Yes" t)
- (function :tag "Predicate")))
- ;;(list :tag "Change Severity"
- ;; (radio :tag "From"
- ;; (const :tag "Urgent" urgent)
- ;; (const :tag "High" high)
- ;; (const :tag "Moderate" moderate)
- ;; (const :tag "Normal" normal)
- ;; (const :tag "Low" low)
- ;; (const :tag "Trivial" trivial))
- ;; (radio :tag "To"
- ;; (const :tag "Urgent" urgent)
- ;; (const :tag "High" high)
- ;; (const :tag "Moderate" moderate)
- ;; (const :tag "Normal" normal)
- ;; (const :tag "Low" low)
- ;; (const :tag "Trivial" trivial)))
- ))))
-
-(defcustom alert-user-configuration nil
- "Rules that determine how and when alerts get displayed."
- :type (alert-configuration-type)
- :group 'alert)
-
-(defvar alert-internal-configuration nil
- "Rules added by `alert-add-rule'.
-For user customization, see `alert-user-configuration'.")
-\f
-(defface alert-urgent-face
- '((t (:foreground "Red" :bold t)))
- "Urgent alert face."
- :group 'alert)
-
-(defface alert-high-face
- '((t (:foreground "Dark Orange" :bold t)))
- "High alert face."
- :group 'alert)
-
-(defface alert-moderate-face
- '((t (:foreground "Gold" :bold t)))
- "Moderate alert face."
- :group 'alert)
-
-(defface alert-normal-face
- '((t))
- "Normal alert face."
- :group 'alert)
-
-(defface alert-low-face
- '((t (:foreground "Dark Blue")))
- "Low alert face."
- :group 'alert)
-
-(defface alert-trivial-face
- '((t (:foreground "Dark Violet")))
- "Trivial alert face."
- :group 'alert)
-\f
-(defun alert-define-style (name &rest plist)
- "Define a new style for notifying the user of alert messages.
-To create a new style, you need to at least write a \"notifier\",
-which is a function that receives the details of the alert.
-These details are given in a plist which uses various keyword to
-identify the parts of the alert. Here is a prototypical style
-definition:
-
-\(alert-define-style 'style-name :title \"My Style's title\"
- :notifier
- (lambda (info)
- ;; The message text is :message
- (plist-get info :message)
- ;; The :title of the alert
- (plist-get info :title)
- ;; The :category of the alert
- (plist-get info :category)
- ;; The major-mode this alert relates to
- (plist-get info :mode)
- ;; The buffer the alert relates to
- (plist-get info :buffer)
- ;; Severity of the alert. It is one of:
- ;; `urgent'
- ;; `high'
- ;; `moderate'
- ;; `normal'
- ;; `low'
- ;; `trivial'
- (plist-get info :severity)
- ;; Whether this alert should persist, or fade away
- (plist-get info :persistent)
- ;; Data which was passed to `alert'. Can be
- ;; anything.
- (plist-get info :data))
-
- ;; Removers are optional. Their job is to remove
- ;; the visual or auditory effect of the alert.
- :remover
- (lambda (info)
- ;; It is the same property list that was passed to
- ;; the notifier function.
- ))"
- (add-to-list 'alert-styles (cons name plist))
- (put 'alert-user-configuration 'custom-type (alert-configuration-type))
- (put 'alert-define-style 'custom-type (alert-styles-radio-type 'radio)))
-
-(alert-define-style 'ignore :title "Ignore Alert"
- :notifier #'ignore
- :remover #'ignore)
-\f
-;;;###autoload
-(cl-defun alert-add-rule (&key severity status mode category title
- message predicate icon (style alert-default-style)
- persistent continue never-persist append)
- "Programmatically add an alert configuration rule.
-
-Normally, users should custoimze `alert-user-configuration'.
-This facility is for module writers and users that need to do
-things the Lisp way.
-
-Here is a rule the author currently uses with ERC, so that the
-fringe gets colored whenever people chat on BitlBee:
-
-\(alert-add-rule :status \\='(buried visible idle)
- :severity \\='(moderate high urgent)
- :mode \\='erc-mode
- :predicate
- #\\='(lambda (info)
- (string-match (concat \"\\\\`[^&].*@BitlBee\\\\\\='\")
- (erc-format-target-and/or-network)))
- :persistent
- #\\='(lambda (info)
- ;; If the buffer is buried, or the user has been
- ;; idle for `alert-reveal-idle-time' seconds,
- ;; make this alert persistent. Normally, alerts
- ;; become persistent after
- ;; `alert-persist-idle-time' seconds.
- (memq (plist-get info :status) \\='(buried idle)))
- :style \\='fringe
- :continue t)"
- (let ((rule (list (list t) style (list t))))
- (if severity
- (nconc (nth 0 rule)
- (list (cons :severity
- (if (listp severity)
- severity
- (list severity))))))
- (if status
- (nconc (nth 0 rule)
- (list (cons :status
- (if (listp status)
- status
- (list status))))))
- (if mode
- (nconc (nth 0 rule)
- (list (cons :mode
- (if (stringp mode)
- mode
- (concat "\\`" (symbol-name mode)
- "\\'"))))))
- (if category
- (nconc (nth 0 rule) (list (cons :category category))))
- (if title
- (nconc (nth 0 rule) (list (cons :title title))))
- (if message
- (nconc (nth 0 rule) (list (cons :message message))))
- (if predicate
- (nconc (nth 0 rule) (list (cons :predicate predicate))))
- (if icon
- (nconc (nth 0 rule) (list (cons :icon icon))))
- (setcar rule (cdr (nth 0 rule)))
-
- (if persistent
- (nconc (nth 2 rule) (list (cons :persistent persistent))))
- (if never-persist
- (nconc (nth 2 rule) (list (cons :never-persist never-persist))))
- (if continue
- (nconc (nth 2 rule) (list (cons :continue continue))))
- (setcdr (cdr rule) (list (cdr (nth 2 rule))))
-
- (if (null alert-internal-configuration)
- (setq alert-internal-configuration (list rule))
- (if append
- (nconc alert-internal-configuration (list rule))
- (setq alert-internal-configuration
- (cons rule alert-internal-configuration))))
-
- rule))
-\f
-(alert-define-style 'ignore :title "Don't display alerts")
-\f
-(defun alert-log-notify (info)
- (let* ((mes (plist-get info :message))
- (sev (plist-get info :severity))
- (len (length mes))
- (func (cdr (assoc sev alert-log-severity-functions))))
- (if (not (featurep 'log4e))
- (alert-legacy-log-notify mes sev len)
- ;; when we get here you better be using log4e or have your logging
- ;; functions defined
- (unless (fboundp func)
- (when (fboundp 'log4e:deflogger)
- (log4e:deflogger "alert" "%t [%l] %m" "%H:%M:%S")
- (when (functionp 'alert--log-set-level)
- (alert--log-set-level alert-log-level)))
- (alert--log-enable-logging))
- (when (fboundp func)
- (apply func (list mes))))))
-
-(defun alert-legacy-log-notify (mes sev len)
- (with-current-buffer
- (get-buffer-create "*Alerts*")
- (goto-char (point-max))
- (insert (format-time-string "%H:%M %p - "))
- (insert mes)
- (set-text-properties (- (point) len) (point)
- (list 'face (cdr (assq sev
- alert-severity-faces))))
- (insert ?\n)))
-
-(defun alert-log-clear (info)
- (if (functionp 'alert--log-clear-log)
- (alert--log-clear-log)
- (if (bufferp "*Alerts*")
- (with-current-buffer
- (get-buffer-create "*Alerts*")
- (goto-char (point-max))
- (insert (format-time-string "%H:%M %p - ")
- "Clear: " (plist-get info :message)
- ?\n)))))
-
-(alert-define-style 'log :title "Log to *Alerts* buffer"
- :notifier #'alert-log-notify
- ;;:remover #'alert-log-clear
- )
-\f
-(defun alert-message-notify (info)
- ;; the message text might contain `%' and we don't want them to be
- ;; interpreted as format specifiers:
- (message "%s" (plist-get info :message))
- ;;(if (memq (plist-get info :severity) '(high urgency))
- ;; (ding))
- )
-
-(defun alert-message-remove (_info)
- (message ""))
-
-(alert-define-style 'message :title "Display message in minibuffer"
- :notifier #'alert-message-notify
- :remover #'alert-message-remove)
-\f
-(defun alert-momentary-notify (info)
- (save-excursion
- (with-current-buffer (or (plist-get info :buffer) (current-buffer))
- (momentary-string-display
- (format "%s: %s (%s/%s/%s)"
- (or (plist-get info :title) "untitled")
- (or (plist-get info :message) "no message")
- (or (plist-get info :severity) "no priority")
- (or (plist-get info :category) "no category")
- (or (plist-get info :mode) "no mode"))
- (progn
- (beginning-of-line)
- (point))))))
-
-(alert-define-style 'momentary :title "Display message momentarily in buffer"
- :notifier #'alert-momentary-notify
- ;; explicitly, we don't need a remover
- :remover #'ignore)
-\f
-(copy-face 'fringe 'alert-saved-fringe-face)
-
-(defun alert-fringe-notify (info)
- (set-face-background 'fringe (cdr (assq (plist-get info :severity)
- alert-severity-colors))))
-
-(defun alert-fringe-restore (_info)
- (copy-face 'alert-saved-fringe-face 'fringe))
-
-(alert-define-style 'fringe :title "Change the fringe color"
- :notifier #'alert-fringe-notify
- :remover #'alert-fringe-restore)
-\f
-
-(defun alert-mode-line-notify (info)
- (copy-face 'mode-line 'alert-saved-mode-line-face)
- (set-face-background 'mode-line (cdr (assq (plist-get info :severity)
- alert-severity-colors)))
- (set-face-foreground 'mode-line "white"))
-
-(defun alert-mode-line-restore (_info)
- (copy-face 'alert-saved-mode-line-face 'mode-line))
-
-(alert-define-style 'mode-line :title "Change the mode-line color"
- :notifier #'alert-mode-line-notify
- :remover #'alert-mode-line-restore)
-
-\f
-
-(defcustom alert-growl-command (executable-find "growlnotify")
- "Path to the growlnotify command.
-This is found in the Growl Extras: http://growl.info/extras.php."
- :type 'file
- :group 'alert)
-
-(defcustom alert-growl-priorities
- '((urgent . 2)
- (high . 2)
- (moderate . 1)
- (normal . 0)
- (low . -1)
- (trivial . -2))
- "A mapping of alert severities onto Growl priority values."
- :type '(alist :key-type symbol :value-type integer)
- :group 'alert)
-
-(defsubst alert-encode-string (str)
- (encode-coding-string str (keyboard-coding-system)))
-
-(defun alert-growl-notify (info)
- (if alert-growl-command
- (let ((args
- (list "--appIcon" "Emacs"
- "--name" "Emacs"
- "--title" (alert-encode-string (plist-get info :title))
- "--message" (alert-encode-string (plist-get info :message))
- "--priority" (number-to-string
- (cdr (assq (plist-get info :severity)
- alert-growl-priorities))))))
- (if (and (plist-get info :persistent)
- (not (plist-get info :never-persist)))
- (nconc args (list "--sticky")))
- (apply #'call-process alert-growl-command nil nil nil args))
- (alert-message-notify info)))
-
-(alert-define-style 'growl :title "Notify using Growl"
- :notifier #'alert-growl-notify)
-
-\f
-(defcustom alert-libnotify-command (executable-find "notify-send")
- "Path to the notify-send command.
-This is found in the libnotify-bin package in Debian based
-systems."
- :type 'file
- :group 'alert)
-
-(defcustom alert-libnotify-additional-args
- nil
- "Additional args to pass to notify-send.
-Must be a list of strings."
- :type '(repeat string)
- :group 'alert)
-
-(defcustom alert-libnotify-priorities
- '((urgent . critical)
- (high . critical)
- (moderate . normal)
- (normal . normal)
- (low . low)
- (trivial . low))
- "A mapping of alert severities onto libnotify priority values."
- :type '(alist :key-type symbol :value-type symbol)
- :group 'alert)
-
-(defun alert-libnotify-notify (info)
- "Send INFO using notify-send.
-Handles :ICON, :CATEGORY, :SEVERITY, :PERSISTENT, :NEVER-PERSIST, :TITLE
-and :MESSAGE keywords from the INFO plist. :CATEGORY can be
-passed as a single symbol, a string or a list of symbols or
-strings."
- (if alert-libnotify-command
- (let* ((args
- (append
- (list "--icon" (or (plist-get info :icon)
- alert-default-icon)
- "--app-name" "Emacs"
- "--urgency" (let ((urgency (cdr (assq
- (plist-get info :severity)
- alert-libnotify-priorities))))
- (if urgency
- (symbol-name urgency)
- "normal")))
- (copy-tree alert-libnotify-additional-args)))
- (category (plist-get info :category)))
- (nconc args
- (list "--expire-time"
- (number-to-string
- (* 1000 ; notify-send takes msecs
- (if (and (plist-get info :persistent)
- (not (plist-get info :never-persist)))
- 0 ; 0 indicates persistence
- alert-fade-time)))))
- (when category
- (nconc args
- (list "--category"
- (cond ((symbolp category)
- (symbol-name category))
- ((stringp category) category)
- ((listp category)
- (mapconcat (if (symbolp (car category))
- #'symbol-name
- #'identity)
- category ","))))))
- (nconc args (list
- (alert-encode-string (plist-get info :title))
- (alert-encode-string (plist-get info :message))))
- (apply #'call-process alert-libnotify-command nil
- (list (get-buffer-create " *libnotify output*") t) nil args))
- (alert-message-notify info)))
-
-(alert-define-style 'libnotify :title "Notify using libnotify"
- :notifier #'alert-libnotify-notify)
-
-\f
-(defcustom alert-gntp-icon
- "http://cvs.savannah.gnu.org/viewvc/*checkout*/emacs/emacs/etc/images/icons/hicolor/48x48/apps/emacs.png"
- "Icon file using gntp."
- :type 'string
- :group 'alert)
-
-(when (featurep 'gntp)
- (defun alert-gntp-notify (info)
- (gntp-notify 'alert
- (alert-encode-string (plist-get info :title))
- (alert-encode-string (plist-get info :message))
- gntp-server nil
- (number-to-string
- (cdr (assq (plist-get info :severity)
- alert-growl-priorities)))
- (if (eq (plist-get info :icon) nil)
- alert-gntp-icon
- (plist-get info :icon)))
- (alert-message-notify info))
-
- (alert-define-style 'gntp :title "Notify using gntp"
- :notifier #'alert-gntp-notify))
-
-\f
-(defcustom alert-notifications-priorities
- '((urgent . critical)
- (high . critical)
- (moderate . normal)
- (normal . normal)
- (low . low)
- (trivial . low))
- "A mapping of alert severities onto Growl priority values."
- :type '(alist :key-type symbol :value-type symbol)
- :group 'alert)
-
-(defvar alert-notifications-ids (make-hash-table :test #'equal)
- "Internal store of notification ids returned by the `notifications' backend.
-Used for replacing notifications with the same id. The key is
-the value of the :id keyword to `alert'. An id is only stored
-here if there `alert' was called with an :id keyword and handled
-by the `notifications' style.")
-
-(when (featurep 'notifications)
- (defun alert-notifications-notify (info)
- "Show the alert defined by INFO with `notifications-notify'."
- (let ((id (notifications-notify :title (plist-get info :title)
- :body (plist-get info :message)
- :app-icon (plist-get info :icon)
- :timeout (if (plist-get info :persistent) 0 -1)
- :replaces-id (gethash (plist-get info :id) alert-notifications-ids)
- :urgency (cdr (assq (plist-get info :severity)
- alert-notifications-priorities))
- :actions '("default" "Open corresponding buffer")
- :on-action (lambda (id action)
- (when (string= action "default")
- (switch-to-buffer (plist-get info :buffer)))))))
- (when (plist-get info :id)
- (puthash (plist-get info :id) id alert-notifications-ids)))
- (alert-message-notify info))
-
- (defun alert-notifications-remove (info)
- "Remove the `notifications-notify' message based on INFO :id."
- (let ((id (and (plist-get info :id)
- (gethash (plist-get info :id) alert-notifications-ids))))
- (when id
- (notifications-close-notification id)
- (remhash (plist-get info :id) alert-notifications-ids))))
-
- (alert-define-style 'notifications :title "Notify using notifications"
- :notifier #'alert-notifications-notify))
-
-\f
-(defcustom alert-notifier-command (executable-find "terminal-notifier")
- "Path to the terminal-notifier command.
-From https://github.com/julienXX/terminal-notifier."
- :type 'file
- :group 'alert)
-
-(defcustom alert-notifier-default-icon
- (concat data-directory
- "images/icons/hicolor/128x128/apps/emacs.png")
- "Filename of default icon to show for terminal-notifier alerts."
- :type 'string
- :group 'alert)
-
-(defun alert-notifier-notify (info)
- (if alert-notifier-command
- (let ((args
- (list "-title" (alert-encode-string (plist-get info :title))
- "-appIcon" (or (plist-get info :icon) alert-notifier-default-icon)
- "-message" (alert-encode-string (plist-get info :message)))))
- (apply #'call-process alert-notifier-command nil nil nil args))
- (alert-message-notify info)))
-
-(alert-define-style 'notifier :title "Notify using terminal-notifier"
- :notifier #'alert-notifier-notify)
-
-(defun alert-osx-notifier-notify (info)
- (apply #'call-process "osascript" nil nil nil "-e"
- (list (format "display notification %S with title %S"
- (alert-encode-string (plist-get info :message))
- (alert-encode-string (plist-get info :title)))))
- (alert-message-notify info))
-
-(when (fboundp 'mac-do-applescript)
- ;; Use built-in AppleScript support when possible.
- (defun alert-osx-notifier-notify (info)
- (mac-do-applescript (format "display notification %S with title %S"
- (alert-encode-string (plist-get info :message))
- (alert-encode-string (plist-get info :title))))
- (alert-message-notify info)))
-
-(alert-define-style 'osx-notifier :title "Notify using native OSX notification" :notifier #'alert-osx-notifier-notify)
-
-(defun alert-frame-notify (info)
- (let ((buf (plist-get info :buffer)))
- (if (eq (alert-buffer-status buf) 'buried)
- (let ((current-frame (selected-frame)))
- (with-selected-frame
- (make-frame '((width . 80)
- (height . 20)
- (top . -1)
- (left . 0)
- (left-fringe . 0)
- (right-fringe . 0)
- (tool-bar-lines . nil)
- (menu-bar-lines . nil)
- (vertical-scroll-bars . nil)
- (unsplittable . t)
- (has-modeline-p . nil)
- (minibuffer . nil)))
- (switch-to-buffer buf)
- ;;(set (make-local-variable 'mode-line-format) nil)
- (nconc info (list :frame (selected-frame))))
- (select-frame current-frame)))))
-
-(defun alert-frame-remove (info)
- (unless (eq this-command 'handle-switch-frame)
- (delete-frame (plist-get info :frame) t)))
-
-;; This code was kindly borrowed from Arne Babenhauserheide:
-;; http://www.draketo.de/proj/babcore/#sec-3-14-2
-(defun x-urgency-hint (frame arg &optional source)
- "Set the x-urgency hint for FRAME to ARG.
-
-- If arg is nil, unset the urgency.
-- If arg is any other value, set the urgency.
-
-If you unset the urgency, you still have to visit the frame to make the urgency
-setting disappear (at least in KDE)."
- (let* ((wm-hints (append (x-window-property
- "WM_HINTS" frame "WM_HINTS"
- source nil t) nil))
- (flags (car wm-hints)))
- (setcar wm-hints
- (if arg
- (logior flags #x00000100)
- (logand flags #x1ffffeff)))
- (x-change-window-property "WM_HINTS" wm-hints frame "WM_HINTS" 32 t)))
-
-(defun x-urgent (&optional arg)
- "Mark the current Emacs frame as requiring urgent attention.
-
-With non-nil ARG, remove the urgency flag (which might or might
-not change display, depending on the window manager)."
- (interactive "P")
- (let ((frame (car (car (cdr (current-frame-configuration))))))
- (x-urgency-hint frame (not arg))))
-
-(defun alert-x11-notify (_info)
- "Call `x-urgent'."
- (x-urgent))
-
-(alert-define-style 'x11 :title "Set the X11 window property"
- :notifier #'alert-x11-notify)
-
-
-(defcustom alert-toaster-default-icon
- (let ((exec-bin (executable-find "emacs.exe")))
- (cond (exec-bin
- (concat (file-name-directory exec-bin) "../share/icons/hicolor/128x128/apps/emacs.png"))
- (t nil)))
- "Icon file using toaster."
- :type 'string
- :group 'alert
- )
-
-(defcustom alert-toaster-command (executable-find "toast")
- "Path to the toast command.
-This is found at https://github.com/nels-o/toaster."
- :type 'file
- :group 'alert
- )
-
-(defun alert-toaster-notify (info)
- (if alert-toaster-command
- (let ((args (list
- "-t" (alert-encode-string (plist-get info :title))
- "-m" (alert-encode-string (plist-get info :message))
- "-p" (expand-file-name (or (plist-get info :icon) alert-toaster-default-icon))
- )))
- (apply #'call-process alert-toaster-command nil nil nil args))
- (alert-message-notify info)))
-
-(alert-define-style 'toaster :title "Notify using Toaster"
- :notifier #'alert-toaster-notify)
-
-;; jww (2011-08-25): Not quite working yet
-;;(alert-define-style 'frame :title "Popup buffer in a frame"
-;; :notifier #'alert-frame-notify
-;; :remover #'alert-frame-remove)
-\f
-(defun alert-buffer-status (&optional buffer)
- (with-current-buffer (or buffer (current-buffer))
- (let ((wind (get-buffer-window)))
- (if wind
- (if (eq wind (selected-window))
- (if (and (current-idle-time)
- (> (float-time (current-idle-time))
- alert-reveal-idle-time))
- 'idle
- 'selected)
- 'visible)
- 'buried))))
-
-(defvar alert-active-alerts nil)
-
-(defun alert-remove-when-active (remover info)
- (let ((idle-time (and (current-idle-time)
- (float-time (current-idle-time)))))
- (cond
- ((and idle-time (> idle-time alert-persist-idle-time)))
- ((and idle-time (> idle-time alert-reveal-idle-time))
- (run-with-timer alert-fade-time nil
- #'alert-remove-when-active remover info))
- (t
- (funcall remover info)))))
-
-(defun alert-remove-on-command ()
- (let (to-delete)
- (dolist (alert alert-active-alerts)
- (when (eq (current-buffer) (nth 0 alert))
- (push alert to-delete)
- (if (nth 2 alert)
- (funcall (nth 2 alert) (nth 1 alert)))))
- (dolist (alert to-delete)
- (setq alert-active-alerts (delq alert alert-active-alerts)))))
-\f
-(defun alert-send-notification
- (alert-buffer info style-def &optional persist never-per)
- (let ((notifier (plist-get style-def :notifier)))
- (if notifier
- (funcall notifier info)))
- (let ((remover (plist-get style-def :remover)))
- (add-to-list 'alert-active-alerts (list alert-buffer info remover))
- (with-current-buffer alert-buffer
- (add-hook 'post-command-hook #'alert-remove-on-command nil t))
- (if (and remover (or (not persist) never-per))
- (run-with-timer alert-fade-time nil
- #'alert-remove-when-active
- remover info))))
-
-;;;###autoload
-(cl-defun alert (message &key (severity 'normal) title icon category
- buffer mode data style persistent never-persist
- id)
- "Alert the user that something has happened.
-MESSAGE is what the user will see. You may also use keyword
-arguments to specify additional details. Here is a full example:
-
-\(alert \"This is a message\"
- :severity \\='high ;; The default severity is `normal'
- :title \"Title\" ;; An optional title
- :category \\='example ;; A symbol to identify the message
- :mode \\='text-mode ;; Normally determined automatically
- :buffer (current-buffer) ;; This is the default
- :data nil ;; Unused by alert.el itself
- :persistent nil ;; Force the alert to be persistent;
- ;; it is best not to use this
- :never-persist nil ;; Force this alert to never persist
- :id \\='my-id) ;; Used to replace previous message of
- ;; the same id in styles that support it
- :style \\='fringe) ;; Force a given style to be used;
- ;; this is only for debugging!
-
-If no :title is given, the buffer-name of :buffer is used. If
-:buffer is nil, it is the current buffer at the point of call.
-
-:data is an opaque value which modules can pass through to their
-own styles if they wish.
-
-Here are some more typical examples of usage:
-
- ;; This is the most basic form usage
- (alert \"This is an alert\")
-
- ;; You can adjust the severity for more important messages
- (alert \"This is an alert\" :severity \\='high)
-
- ;; Or decrease it for purely informative ones
- (alert \"This is an alert\" :severity \\='trivial)
-
- ;; Alerts can have optional titles. Otherwise, the title is the
- ;; buffer-name of the (current-buffer) where the alert originated.
- (alert \"This is an alert\" :title \"My Alert\")
-
- ;; Further, alerts can have categories. This allows users to
- ;; selectively filter on them.
- (alert \"This is an alert\" :title \"My Alert\"
- :category \\='some-category-or-other)"
- (cl-destructuring-bind
- (alert-buffer current-major-mode current-buffer-status
- current-buffer-name)
- (with-current-buffer (or buffer (current-buffer))
- (list (current-buffer)
- (or mode major-mode)
- (alert-buffer-status)
- (buffer-name)))
-
- (let ((base-info (list :message message
- :title (or title current-buffer-name)
- :icon icon
- :severity severity
- :category category
- :buffer alert-buffer
- :mode current-major-mode
- :id id
- :data data))
- matched)
-
- (if alert-log-messages
- (alert-log-notify base-info))
-
- (unless alert-hide-all-notifications
- (catch 'finish
- (dolist (config (append alert-user-configuration
- alert-internal-configuration))
- (let* ((style-def (cdr (assq (or style (nth 1 config))
- alert-styles)))
- (options (nth 2 config))
- (persist-p (or persistent
- (cdr (assq :persistent options))))
- (persist (if (functionp persist-p)
- (funcall persist-p base-info)
- persist-p))
- (never-persist-p
- (or never-persist
- (cdr (assq :never-persist options))))
- (never-per (if (functionp never-persist-p)
- (funcall never-persist-p base-info)
- never-persist-p))
- (continue (cdr (assq :continue options)))
- info)
- (setq info (if (not (memq :persistent base-info))
- (append base-info (list :persistent persist))
- base-info)
- info (if (not (memq :never-persist info))
- (append info (list :never-persist never-per))
- info))
- (when
- (or style ; :style always "matches", for testing
- (not
- (memq
- nil
- (mapcar
- #'(lambda (condition)
- (cl-case (car condition)
- (:severity
- (memq severity (cdr condition)))
- (:status
- (memq current-buffer-status (cdr condition)))
- (:mode
- (string-match
- (cdr condition)
- (symbol-name current-major-mode)))
- (:category
- (and category (string-match
- (cdr condition)
- (if (stringp category)
- category
- (symbol-name category)))))
- (:title
- (and title
- (string-match (cdr condition) title)))
- (:message
- (string-match (cdr condition) message))
- (:predicate
- (funcall (cdr condition) info))
- (:icon
- (string-match (cdr condition) icon))))
- (nth 0 config)))))
-
- (alert-send-notification alert-buffer info style-def
- persist never-per)
- (setq matched t)
- (if (or style (not (if (functionp continue)
- (funcall continue info)
- continue)))
- (throw 'finish t)))))))
-
- (if (and (not matched) alert-default-style)
- (alert-send-notification alert-buffer base-info
- (cdr (assq alert-default-style
- alert-styles)))))))
-\f
-(provide 'alert)
-
-;;; alert.el ends here
--- /dev/null
+;;; alert-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
+;;
+;;; Code:
+
+(add-to-list 'load-path (directory-file-name
+ (or (file-name-directory #$) (car load-path))))
+
+\f
+;;;### (autoloads nil "alert" "alert.el" (0 0 0 0))
+;;; Generated autoloads from alert.el
+
+(autoload 'alert-add-rule "alert" "\
+Programmatically add an alert configuration rule.
+
+Normally, users should custoimze `alert-user-configuration'.
+This facility is for module writers and users that need to do
+things the Lisp way.
+
+Here is a rule the author currently uses with ERC, so that the
+fringe gets colored whenever people chat on BitlBee:
+
+\(alert-add-rule :status \\='(buried visible idle)
+ :severity \\='(moderate high urgent)
+ :mode \\='erc-mode
+ :predicate
+ #\\='(lambda (info)
+ (string-match (concat \"\\\\`[^&].*@BitlBee\\\\\\='\")
+ (erc-format-target-and/or-network)))
+ :persistent
+ #\\='(lambda (info)
+ ;; If the buffer is buried, or the user has been
+ ;; idle for `alert-reveal-idle-time' seconds,
+ ;; make this alert persistent. Normally, alerts
+ ;; become persistent after
+ ;; `alert-persist-idle-time' seconds.
+ (memq (plist-get info :status) \\='(buried idle)))
+ :style \\='fringe
+ :continue t)
+
+\(fn &key SEVERITY STATUS MODE CATEGORY TITLE MESSAGE PREDICATE ICON (STYLE alert-default-style) PERSISTENT CONTINUE NEVER-PERSIST APPEND)" nil nil)
+
+(autoload 'alert "alert" "\
+Alert the user that something has happened.
+MESSAGE is what the user will see. You may also use keyword
+arguments to specify additional details. Here is a full example:
+
+\(alert \"This is a message\"
+ :severity \\='high ;; The default severity is `normal'
+ :title \"Title\" ;; An optional title
+ :category \\='example ;; A symbol to identify the message
+ :mode \\='text-mode ;; Normally determined automatically
+ :buffer (current-buffer) ;; This is the default
+ :data nil ;; Unused by alert.el itself
+ :persistent nil ;; Force the alert to be persistent;
+ ;; it is best not to use this
+ :never-persist nil ;; Force this alert to never persist
+ :id \\='my-id) ;; Used to replace previous message of
+ ;; the same id in styles that support it
+ :style \\='fringe) ;; Force a given style to be used;
+ ;; this is only for debugging!
+ :icon \\=\"mail-message-new\" ;; if style supports icon then add icon
+ ;; name or path here
+
+If no :title is given, the buffer-name of :buffer is used. If
+:buffer is nil, it is the current buffer at the point of call.
+
+:data is an opaque value which modules can pass through to their
+own styles if they wish.
+
+Here are some more typical examples of usage:
+
+ ;; This is the most basic form usage
+ (alert \"This is an alert\")
+
+ ;; You can adjust the severity for more important messages
+ (alert \"This is an alert\" :severity \\='high)
+
+ ;; Or decrease it for purely informative ones
+ (alert \"This is an alert\" :severity \\='trivial)
+
+ ;; Alerts can have optional titles. Otherwise, the title is the
+ ;; buffer-name of the (current-buffer) where the alert originated.
+ (alert \"This is an alert\" :title \"My Alert\")
+
+ ;; Further, alerts can have categories. This allows users to
+ ;; selectively filter on them.
+ (alert \"This is an alert\" :title \"My Alert\"
+ :category \\='some-category-or-other)
+
+\(fn MESSAGE &key (SEVERITY \\='normal) TITLE ICON CATEGORY BUFFER MODE DATA STYLE PERSISTENT NEVER-PERSIST ID)" nil nil)
+
+(register-definition-prefixes "alert" '("alert-" "x-urgen"))
+
+;;;***
+\f
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; alert-autoloads.el ends here
--- /dev/null
+;;; Generated package description from alert.el -*- no-byte-compile: t -*-
+(define-package "alert" "20221213.1619" "Growl-style notification system for Emacs" '((gntp "0.1") (log4e "0.3.0") (cl-lib "0.5")) :commit "c762380ff71c429faf47552a83605b2578656380" :authors '(("John Wiegley" . "jwiegleyNOSPAMgmail.com")) :maintainers '(("John Wiegley" . "jwiegleyNOSPAMgmail.com")) :maintainer '("John Wiegley" . "jwiegleyNOSPAMgmail.com") :keywords '("notification" "emacs" "message") :url "https://github.com/jwiegley/alert")
--- /dev/null
+;;; alert.el --- Growl-style notification system for Emacs -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2011-2013 John Wiegley
+
+;; Author: John Wiegley <jwiegleyNOSPAMgmail.com>
+;; Created: 24 Aug 2011
+;; Updated: 16 Mar 2015
+;; Version: 1.2
+;; Package-Version: 20221213.1619
+;; Package-Commit: c762380ff71c429faf47552a83605b2578656380
+;; Package-Requires: ((gntp "0.1") (log4e "0.3.0") (cl-lib "0.5"))
+;; Keywords: notification emacs message
+;; X-URL: https://github.com/jwiegley/alert
+
+;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+\f
+;;; Commentary:
+
+;; Alert is a Growl-workalike for Emacs which uses a common notification
+;; interface and multiple, selectable "styles", whose use is fully
+;; customizable by the user.
+;;
+;; * For module writers
+;;
+;; Just use `alert' instead of `message' as follows:
+;;
+;; (require 'alert)
+;;
+;; ;; This is the most basic form usage
+;; (alert "This is an alert")
+;;
+;; ;; You can adjust the severity for more important messages
+;; (alert "This is an alert" :severity 'high)
+;;
+;; ;; Or decrease it for purely informative ones
+;; (alert "This is an alert" :severity 'trivial)
+;;
+;; ;; Alerts can have optional titles. Otherwise, the title is the
+;; ;; buffer-name of the (current-buffer) where the alert originated.
+;; (alert "This is an alert" :title "My Alert")
+;;
+;; ;; Further, alerts can have categories. This allows users to
+;; ;; selectively filter on them.
+;; (alert "This is an alert" :title "My Alert" :category 'debug)
+;;
+;; * For users
+;;
+;; For the user, there are several variables to control when and how alerts
+;; are presented. By default, they appear in the minibuffer much the same
+;; as a normal Emacs message. But there are many more possibilities:
+;;
+;; `alert-fade-time'
+;; Normally alerts disappear after this many seconds, if the style
+;; supports it. The default is 5 seconds.
+;;
+;; `alert-default-style'
+;; Pick the style to use if no other config rule matches. The
+;; default is `message', but `growl' works well too.
+;;
+;; `alert-reveal-idle-time'
+;; If a config rule choose to match on `idle', this is how many
+;; seconds idle the user has to be. Defaults to 5 so that users
+;; don't miss any alerts, but 120 is also good.
+;;
+;; `alert-persist-idle-time'
+;; After this many idle seconds, alerts will become sticky, and not
+;; fade away more. The default is 15 minutes.
+;;
+;; `alert-log-messages'
+;; By default, all alerts are logged to *Alerts* (and to *Messages*,
+;; if the `message' style is being used). Set to nil to disable.
+;;
+;; `alert-hide-all-notifications'
+;; Want alerts off entirely? They still get logged, however, unless
+;; you've turned that off too.
+;;
+;; `alert-user-configuration'
+;; This variable lets you control exactly how and when a particular
+;; alert, a class of alerts, or all alerts, get reported -- or if at
+;; all. Use this to make some alerts use Growl, while others are
+;; completely silent.
+;;
+;; * Programmatically adding rules
+;;
+;; Users can also programmatically add configuration rules, in addition to
+;; customizing `alert-user-configuration'. Here is one that the author
+;; currently uses with ERC, so that the fringe gets colored whenever people
+;; chat on BitlBee:
+;;
+;; (alert-add-rule :status '(buried visible idle)
+;; :severity '(moderate high urgent)
+;; :mode 'erc-mode
+;; :predicate
+;; #'(lambda (info)
+;; (string-match (concat "\\`[^&].*@BitlBee\\'")
+;; (erc-format-target-and/or-network)))
+;; :persistent
+;; #'(lambda (info)
+;; ;; If the buffer is buried, or the user has been
+;; ;; idle for `alert-reveal-idle-time' seconds,
+;; ;; make this alert persistent. Normally, alerts
+;; ;; become persistent after
+;; ;; `alert-persist-idle-time' seconds.
+;; (memq (plist-get info :status) '(buried idle)))
+;; :style 'fringe
+;; :continue t)
+;;
+;; * Builtin alert styles
+;;
+;; There are several builtin styles, and it is trivial to create new ones.
+;; The builtins are:
+;;
+;; fringe - Changes the current frame's fringe background color
+;; mode-line - Changes the current frame's mode-line background color
+;; gntp - Uses gntp, it requires gntp.el (see https://github.com/tekai/gntp.el)
+;; growl - Uses Growl on OS X, if growlnotify is on the PATH
+;; ignore - Ignores the alert entirely
+;; libnotify - Uses libnotify if notify-send is on the PATH
+;; log - Logs the alert text to *Alerts*, with a timestamp
+;; message - Uses the Emacs `message' facility
+;; momentary - Uses the Emacs `momentary-string-display' facility
+;; notifications - Uses notifications library via D-Bus
+;; notifier - Uses terminal-notifier on OS X, if it is on the PATH
+;; osx-notifier - Native OSX notifier using AppleScript
+;; toaster - Use the toast notification system
+;; x11 - Changes the urgency property of the window in the X Window System
+;; termux - Use termux-notification from the Termux API
+;;
+;; * Defining new styles
+;;
+;; To create a new style, you need to at least write a "notifier", which is
+;; a function that receives the details of the alert. These details are
+;; given in a plist which uses various keyword to identify the parts of the
+;; alert. Here is a prototypical style definition:
+;;
+;; (alert-define-style 'style-name :title "My Style's title"
+;; :notifier
+;; (lambda (info)
+;; ;; The message text is :message
+;; (plist-get info :message)
+;; ;; The :title of the alert
+;; (plist-get info :title)
+;; ;; The :category of the alert
+;; (plist-get info :category)
+;; ;; The major-mode this alert relates to
+;; (plist-get info :mode)
+;; ;; The buffer the alert relates to
+;; (plist-get info :buffer)
+;; ;; Severity of the alert. It is one of:
+;; ;; `urgent'
+;; ;; `high'
+;; ;; `moderate'
+;; ;; `normal'
+;; ;; `low'
+;; ;; `trivial'
+;; (plist-get info :severity)
+;; ;; Whether this alert should persist, or fade away
+;; (plist-get info :persistent)
+;; ;; Data which was passed to `alert'. Can be
+;; ;; anything.
+;; (plist-get info :data))
+;;
+;; ;; Removers are optional. Their job is to remove
+;; ;; the visual or auditory effect of the alert.
+;; :remover
+;; (lambda (info)
+;; ;; It is the same property list that was passed to
+;; ;; the notifier function.
+;; ))
+;;
+;; You can test a specific style with something like this:
+;;
+;; (let ((alert-user-configuration '((((:severity high)) momentary nil))))
+;; (alert "Same buffer momentary alert" :title "My Alert" :severity 'high)
+;; (alert "This is a momentary alert in another visible buffer" :title "My Alert"
+;; :severity 'high :buffer (other-buffer (current-buffer) t)))
+
+;;; Code:
+
+(require 'cl-lib)
+(require 'gntp nil t)
+(eval-when-compile
+ ;; if not available, silence the byte compiler
+ (defvar gntp-server))
+(declare-function gntp-notify "gntp")
+(require 'notifications nil t)
+(require 'log4e nil t)
+
+;; shut up the byte compiler
+(declare-function alert-gntp-notify "alert")
+(declare-function alert-notifications-notify "alert")
+
+(defgroup alert nil
+ "Notification system for Emacs similar to Growl"
+ :group 'emacs)
+\f
+(defcustom alert-severity-faces
+ '((urgent . alert-urgent-face)
+ (high . alert-high-face)
+ (moderate . alert-moderate-face)
+ (normal . alert-normal-face)
+ (low . alert-low-face)
+ (trivial . alert-trivial-face))
+ "Faces associated by default with alert severities."
+ :type '(alist :key-type symbol :value-type color)
+ :group 'alert)
+
+(defcustom alert-severity-colors
+ '((urgent . "red")
+ (high . "orange")
+ (moderate . "yellow")
+ (normal . "green")
+ (low . "blue")
+ (trivial . "purple"))
+ "Colors associated by default with alert severities.
+This is used by styles external to Emacs that don't understand faces."
+ :type '(alist :key-type symbol :value-type color)
+ :group 'alert)
+
+(defcustom alert-log-severity-functions
+ '((urgent . alert--log-fatal)
+ (high . alert--log-error)
+ (moderate . alert--log-warn)
+ (normal . alert--log-info)
+ (low . alert--log-debug)
+ (trivial . alert--log-trace))
+ "Log4e logging functions."
+ :type '(alist :key-type symbol :value-type color)
+ :group 'alert)
+
+(defcustom alert-log-level
+ 'normal
+ "Minimum level of messages to log."
+ :type 'symbol
+ :group 'alert)
+
+(defcustom alert-reveal-idle-time 15
+ "If idle this many seconds, rules will match the `idle' property."
+ :type 'integer
+ :group 'alert)
+
+(defcustom alert-persist-idle-time 900
+ "If idle this many seconds, all alerts become persistent.
+This can be overridden with the Never Persist option (:never-persist)."
+ :type 'integer
+ :group 'alert)
+
+(defcustom alert-fade-time 5
+ "If not idle, alerts disappear after this many seconds.
+The amount of idle time is governed by `alert-persist-idle-time'."
+ :type 'integer
+ :group 'alert)
+
+(defcustom alert-hide-all-notifications nil
+ "If non-nil, no alerts are ever shown to the user."
+ :type 'boolean
+ :group 'alert)
+
+(defcustom alert-log-messages t
+ "If non-nil, all alerts are logged to the *Alerts* buffer."
+ :type 'boolean
+ :group 'alert)
+
+(defcustom alert-default-icon
+ (concat data-directory
+ "images/icons/hicolor/scalable/apps/emacs.svg")
+ "Filename of default icon to show for libnotify-alerts."
+ :type 'string
+ :group 'alert)
+
+(defvar alert-styles nil)
+
+(defun alert-styles-radio-type (widget-name)
+ (append
+ (list widget-name :tag "Style")
+ (mapcar #'(lambda (style)
+ (list 'const
+ :tag (or (plist-get (cdr style) :title)
+ (symbol-name (car style)))
+ (car style)))
+ (setq alert-styles
+ (sort alert-styles
+ #'(lambda (l r)
+ (string< (symbol-name (car l))
+ (symbol-name (car r)))))))))
+
+(defcustom alert-default-style 'message
+ "The style to use if no rules match in the current configuration.
+If a configured rule does match an alert, this style is not used;
+it is strictly a fallback."
+ :type (alert-styles-radio-type 'radio)
+ :group 'alert)
+
+(defun alert-configuration-type ()
+ (list 'repeat
+ (list
+ 'list :tag "Select style if alert matches selector"
+ '(repeat
+ :tag "Selector"
+ (choice
+ (cons :tag "Severity"
+ (const :format "" :severity)
+ (set (const :tag "Urgent" urgent)
+ (const :tag "High" high)
+ (const :tag "Moderate" moderate)
+ (const :tag "Normal" normal)
+ (const :tag "Low" low)
+ (const :tag "Trivial" trivial)))
+ (cons :tag "User Status"
+ (const :format "" :status)
+ (set (const :tag "Buffer not visible" buried)
+ (const :tag "Buffer visible" visible)
+ (const :tag "Buffer selected" selected)
+ (const :tag "Buffer selected, user idle" idle)))
+ (cons :tag "Major Mode"
+ (const :format "" :mode)
+ regexp)
+ (cons :tag "Category"
+ (const :format "" :category)
+ regexp)
+ (cons :tag "Title"
+ (const :format "" :title)
+ regexp)
+ (cons :tag "Message"
+ (const :format "" :message)
+ regexp)
+ (cons :tag "Predicate"
+ (const :format "" :predicate)
+ function)
+ (cons :tag "Icon"
+ (const :format "" :icon)
+ regexp)))
+ (alert-styles-radio-type 'choice)
+ '(set :tag "Options"
+ (cons :tag "Make alert persistent"
+ (const :format "" :persistent)
+ (choice :value t (const :tag "Yes" t)
+ (function :tag "Predicate")))
+ (cons :tag "Never persist"
+ (const :format "" :never-persist)
+ (choice :value t (const :tag "Yes" t)
+ (function :tag "Predicate")))
+ (cons :tag "Continue to next rule"
+ (const :format "" :continue)
+ (choice :value t (const :tag "Yes" t)
+ (function :tag "Predicate")))
+ ;;(list :tag "Change Severity"
+ ;; (radio :tag "From"
+ ;; (const :tag "Urgent" urgent)
+ ;; (const :tag "High" high)
+ ;; (const :tag "Moderate" moderate)
+ ;; (const :tag "Normal" normal)
+ ;; (const :tag "Low" low)
+ ;; (const :tag "Trivial" trivial))
+ ;; (radio :tag "To"
+ ;; (const :tag "Urgent" urgent)
+ ;; (const :tag "High" high)
+ ;; (const :tag "Moderate" moderate)
+ ;; (const :tag "Normal" normal)
+ ;; (const :tag "Low" low)
+ ;; (const :tag "Trivial" trivial)))
+ ))))
+
+(defcustom alert-user-configuration nil
+ "Rules that determine how and when alerts get displayed."
+ :type (alert-configuration-type)
+ :group 'alert)
+
+(defvar alert-internal-configuration nil
+ "Rules added by `alert-add-rule'.
+For user customization, see `alert-user-configuration'.")
+\f
+(defface alert-urgent-face
+ '((t (:foreground "Red" :bold t)))
+ "Urgent alert face."
+ :group 'alert)
+
+(defface alert-high-face
+ '((t (:foreground "Dark Orange" :bold t)))
+ "High alert face."
+ :group 'alert)
+
+(defface alert-moderate-face
+ '((t (:foreground "Gold" :bold t)))
+ "Moderate alert face."
+ :group 'alert)
+
+(defface alert-normal-face
+ '((t))
+ "Normal alert face."
+ :group 'alert)
+
+(defface alert-low-face
+ '((t (:foreground "Dark Blue")))
+ "Low alert face."
+ :group 'alert)
+
+(defface alert-trivial-face
+ '((t (:foreground "Dark Violet")))
+ "Trivial alert face."
+ :group 'alert)
+\f
+(defun alert-define-style (name &rest plist)
+ "Define a new style for notifying the user of alert messages.
+To create a new style, you need to at least write a \"notifier\",
+which is a function that receives the details of the alert.
+These details are given in a plist which uses various keyword to
+identify the parts of the alert. Here is a prototypical style
+definition:
+
+\(alert-define-style 'style-name :title \"My Style's title\"
+ :notifier
+ (lambda (info)
+ ;; The message text is :message
+ (plist-get info :message)
+ ;; The :title of the alert
+ (plist-get info :title)
+ ;; The :category of the alert
+ (plist-get info :category)
+ ;; The major-mode this alert relates to
+ (plist-get info :mode)
+ ;; The buffer the alert relates to
+ (plist-get info :buffer)
+ ;; Severity of the alert. It is one of:
+ ;; `urgent'
+ ;; `high'
+ ;; `moderate'
+ ;; `normal'
+ ;; `low'
+ ;; `trivial'
+ (plist-get info :severity)
+ ;; Whether this alert should persist, or fade away
+ (plist-get info :persistent)
+ ;; Data which was passed to `alert'. Can be
+ ;; anything.
+ (plist-get info :data))
+
+ ;; Removers are optional. Their job is to remove
+ ;; the visual or auditory effect of the alert.
+ :remover
+ (lambda (info)
+ ;; It is the same property list that was passed to
+ ;; the notifier function.
+ ))"
+ (add-to-list 'alert-styles (cons name plist))
+ (put 'alert-user-configuration 'custom-type (alert-configuration-type))
+ (put 'alert-define-style 'custom-type (alert-styles-radio-type 'radio)))
+
+(alert-define-style 'ignore :title "Ignore Alert"
+ :notifier #'ignore
+ :remover #'ignore)
+\f
+;;;###autoload
+(cl-defun alert-add-rule (&key severity status mode category title
+ message predicate icon (style alert-default-style)
+ persistent continue never-persist append)
+ "Programmatically add an alert configuration rule.
+
+Normally, users should custoimze `alert-user-configuration'.
+This facility is for module writers and users that need to do
+things the Lisp way.
+
+Here is a rule the author currently uses with ERC, so that the
+fringe gets colored whenever people chat on BitlBee:
+
+\(alert-add-rule :status \\='(buried visible idle)
+ :severity \\='(moderate high urgent)
+ :mode \\='erc-mode
+ :predicate
+ #\\='(lambda (info)
+ (string-match (concat \"\\\\`[^&].*@BitlBee\\\\\\='\")
+ (erc-format-target-and/or-network)))
+ :persistent
+ #\\='(lambda (info)
+ ;; If the buffer is buried, or the user has been
+ ;; idle for `alert-reveal-idle-time' seconds,
+ ;; make this alert persistent. Normally, alerts
+ ;; become persistent after
+ ;; `alert-persist-idle-time' seconds.
+ (memq (plist-get info :status) \\='(buried idle)))
+ :style \\='fringe
+ :continue t)"
+ (let ((rule (list (list t) style (list t))))
+ (if severity
+ (nconc (nth 0 rule)
+ (list (cons :severity
+ (if (listp severity)
+ severity
+ (list severity))))))
+ (if status
+ (nconc (nth 0 rule)
+ (list (cons :status
+ (if (listp status)
+ status
+ (list status))))))
+ (if mode
+ (nconc (nth 0 rule)
+ (list (cons :mode
+ (if (stringp mode)
+ mode
+ (concat "\\`" (symbol-name mode)
+ "\\'"))))))
+ (if category
+ (nconc (nth 0 rule) (list (cons :category category))))
+ (if title
+ (nconc (nth 0 rule) (list (cons :title title))))
+ (if message
+ (nconc (nth 0 rule) (list (cons :message message))))
+ (if predicate
+ (nconc (nth 0 rule) (list (cons :predicate predicate))))
+ (if icon
+ (nconc (nth 0 rule) (list (cons :icon icon))))
+ (setcar rule (cdr (nth 0 rule)))
+
+ (if persistent
+ (nconc (nth 2 rule) (list (cons :persistent persistent))))
+ (if never-persist
+ (nconc (nth 2 rule) (list (cons :never-persist never-persist))))
+ (if continue
+ (nconc (nth 2 rule) (list (cons :continue continue))))
+ (setcdr (cdr rule) (list (cdr (nth 2 rule))))
+
+ (if (null alert-internal-configuration)
+ (setq alert-internal-configuration (list rule))
+ (if append
+ (nconc alert-internal-configuration (list rule))
+ (setq alert-internal-configuration
+ (cons rule alert-internal-configuration))))
+
+ rule))
+\f
+(alert-define-style 'ignore :title "Don't display alerts")
+\f
+(defun alert-log-notify (info)
+ (let* ((mes (plist-get info :message))
+ (sev (plist-get info :severity))
+ (len (length mes))
+ (func (cdr (assoc sev alert-log-severity-functions))))
+ (if (not (featurep 'log4e))
+ (alert-legacy-log-notify mes sev len)
+ ;; when we get here you better be using log4e or have your logging
+ ;; functions defined
+ (unless (fboundp func)
+ (when (fboundp 'log4e:deflogger)
+ (log4e:deflogger "alert" "%t [%l] %m" "%H:%M:%S")
+ (when (functionp 'alert--log-set-level)
+ (alert--log-set-level alert-log-level)))
+ (alert--log-enable-logging))
+ (when (fboundp func)
+ (apply func (list mes))))))
+
+(defun alert-legacy-log-notify (mes sev len)
+ (with-current-buffer
+ (get-buffer-create "*Alerts*")
+ (goto-char (point-max))
+ (insert (format-time-string "%H:%M %p - "))
+ (insert mes)
+ (set-text-properties (- (point) len) (point)
+ (list 'face (cdr (assq sev
+ alert-severity-faces))))
+ (insert ?\n)))
+
+(defun alert-log-clear (info)
+ (if (functionp 'alert--log-clear-log)
+ (alert--log-clear-log)
+ (if (bufferp "*Alerts*")
+ (with-current-buffer
+ (get-buffer-create "*Alerts*")
+ (goto-char (point-max))
+ (insert (format-time-string "%H:%M %p - ")
+ "Clear: " (plist-get info :message)
+ ?\n)))))
+
+(alert-define-style 'log :title "Log to *Alerts* buffer"
+ :notifier #'alert-log-notify
+ ;;:remover #'alert-log-clear
+ )
+\f
+(defun alert-message-notify (info)
+ ;; the message text might contain `%' and we don't want them to be
+ ;; interpreted as format specifiers:
+ (message "%s" (plist-get info :message))
+ ;;(if (memq (plist-get info :severity) '(high urgency))
+ ;; (ding))
+ )
+
+(defun alert-message-remove (_info)
+ (message ""))
+
+(alert-define-style 'message :title "Display message in minibuffer"
+ :notifier #'alert-message-notify
+ :remover #'alert-message-remove)
+\f
+(defun alert-momentary-notify (info)
+ (save-excursion
+ (with-current-buffer (or (plist-get info :buffer) (current-buffer))
+ (momentary-string-display
+ (format "%s: %s (%s/%s/%s)"
+ (or (plist-get info :title) "untitled")
+ (or (plist-get info :message) "no message")
+ (or (plist-get info :severity) "no priority")
+ (or (plist-get info :category) "no category")
+ (or (plist-get info :mode) "no mode"))
+ (progn
+ (beginning-of-line)
+ (point))))))
+
+(alert-define-style 'momentary :title "Display message momentarily in buffer"
+ :notifier #'alert-momentary-notify
+ ;; explicitly, we don't need a remover
+ :remover #'ignore)
+\f
+(copy-face 'fringe 'alert-saved-fringe-face)
+
+(defun alert-fringe-notify (info)
+ (set-face-background 'fringe (cdr (assq (plist-get info :severity)
+ alert-severity-colors))))
+
+(defun alert-fringe-restore (_info)
+ (copy-face 'alert-saved-fringe-face 'fringe))
+
+(alert-define-style 'fringe :title "Change the fringe color"
+ :notifier #'alert-fringe-notify
+ :remover #'alert-fringe-restore)
+\f
+(copy-face 'mode-line 'alert-saved-mode-line-face)
+(defun alert-mode-line-notify (info)
+ (set-face-background 'mode-line (cdr (assq (plist-get info :severity)
+ alert-severity-colors)))
+ (set-face-foreground 'mode-line "white"))
+
+(defun alert-mode-line-restore (_info)
+ (copy-face 'alert-saved-mode-line-face 'mode-line))
+
+(alert-define-style 'mode-line :title "Change the mode-line color"
+ :notifier #'alert-mode-line-notify
+ :remover #'alert-mode-line-restore)
+
+\f
+
+(defcustom alert-growl-command (executable-find "growlnotify")
+ "Path to the growlnotify command.
+This is found in the Growl Extras: http://growl.info/extras.php."
+ :type 'file
+ :group 'alert)
+
+(defcustom alert-growl-priorities
+ '((urgent . 2)
+ (high . 2)
+ (moderate . 1)
+ (normal . 0)
+ (low . -1)
+ (trivial . -2))
+ "A mapping of alert severities onto Growl priority values."
+ :type '(alist :key-type symbol :value-type integer)
+ :group 'alert)
+
+(defsubst alert-encode-string (str)
+ (encode-coding-string str (keyboard-coding-system)))
+
+(defun alert-growl-notify (info)
+ (if alert-growl-command
+ (let* ((title (alert-encode-string (plist-get info :title)))
+ (priority (number-to-string
+ (cdr (assq (plist-get info :severity)
+ alert-growl-priorities))))
+ (args
+ (cl-case system-type
+ ('windows-nt (mapcar
+ (lambda (lst) (apply #'concat lst))
+ `(
+ ;; http://www.growlforwindows.com/gfw/help/growlnotify.aspx
+ ("/i:" ,(file-truename (concat invocation-directory "../share/icons/hicolor/48x48/apps/emacs.png")))
+ ("/t:" ,title)
+ ("/p:" ,priority))))
+ (t (list
+ "--appIcon" "Emacs"
+ "--name" "Emacs"
+ "--title" title
+ "--priority" priority)))))
+ (if (and (plist-get info :persistent)
+ (not (plist-get info :never-persist)))
+ (cl-case system-type
+ ('windows-nt (nconc args (list "/s:true")))
+ (t (nconc args (list "--sticky")))))
+ (let ((message (alert-encode-string (plist-get info :message))))
+ (cl-case system-type
+ ('windows-nt (nconc args (list message)))
+ (t (nconc args (list "--message" message)))))
+ (apply #'call-process alert-growl-command nil nil nil args))
+ (alert-message-notify info)))
+
+(alert-define-style 'growl :title "Notify using Growl"
+ :notifier #'alert-growl-notify)
+
+\f
+(defcustom alert-libnotify-command (executable-find "notify-send")
+ "Path to the notify-send command.
+This is found in the libnotify-bin package in Debian based
+systems."
+ :type 'file
+ :group 'alert)
+
+(defcustom alert-libnotify-additional-args
+ nil
+ "Additional args to pass to notify-send.
+Must be a list of strings."
+ :type '(repeat string)
+ :group 'alert)
+
+(defcustom alert-libnotify-priorities
+ '((urgent . critical)
+ (high . critical)
+ (moderate . normal)
+ (normal . normal)
+ (low . low)
+ (trivial . low))
+ "A mapping of alert severities onto libnotify priority values."
+ :type '(alist :key-type symbol :value-type symbol)
+ :group 'alert)
+
+(defun alert-libnotify-notify (info)
+ "Send INFO using notify-send.
+Handles :ICON, :CATEGORY, :SEVERITY, :PERSISTENT, :NEVER-PERSIST, :TITLE
+and :MESSAGE keywords from the INFO plist. :CATEGORY can be
+passed as a single symbol, a string or a list of symbols or
+strings."
+ (if alert-libnotify-command
+ (let* ((args
+ (append
+ (list "--icon" (or (plist-get info :icon)
+ alert-default-icon)
+ "--app-name" "Emacs"
+ "--urgency" (let ((urgency (cdr (assq
+ (plist-get info :severity)
+ alert-libnotify-priorities))))
+ (if urgency
+ (symbol-name urgency)
+ "normal")))
+ (copy-tree alert-libnotify-additional-args)))
+ (category (plist-get info :category)))
+ (nconc args
+ (list "--expire-time"
+ (number-to-string
+ (* 1000 ; notify-send takes msecs
+ (if (and (plist-get info :persistent)
+ (not (plist-get info :never-persist)))
+ 0 ; 0 indicates persistence
+ alert-fade-time)))))
+ (when category
+ (nconc args
+ (list "--category"
+ (cond ((symbolp category)
+ (symbol-name category))
+ ((stringp category) category)
+ ((listp category)
+ (mapconcat (if (symbolp (car category))
+ #'symbol-name
+ #'identity)
+ category ","))))))
+ (nconc args (list
+ (alert-encode-string (plist-get info :title))
+ (alert-encode-string (plist-get info :message))))
+ (apply #'call-process alert-libnotify-command nil
+ (list (get-buffer-create " *libnotify output*") t) nil args))
+ (alert-message-notify info)))
+
+(alert-define-style 'libnotify :title "Notify using libnotify"
+ :notifier #'alert-libnotify-notify)
+
+\f
+(defcustom alert-gntp-icon
+ "http://cvs.savannah.gnu.org/viewvc/*checkout*/emacs/emacs/etc/images/icons/hicolor/48x48/apps/emacs.png"
+ "Icon file using gntp."
+ :type 'string
+ :group 'alert)
+
+(when (featurep 'gntp)
+ (defun alert-gntp-notify (info)
+ (gntp-notify 'alert
+ (alert-encode-string (plist-get info :title))
+ (alert-encode-string (plist-get info :message))
+ gntp-server nil
+ (number-to-string
+ (cdr (assq (plist-get info :severity)
+ alert-growl-priorities)))
+ (if (eq (plist-get info :icon) nil)
+ alert-gntp-icon
+ (plist-get info :icon)))
+ (alert-message-notify info))
+
+ (alert-define-style 'gntp :title "Notify using gntp"
+ :notifier #'alert-gntp-notify))
+
+\f
+(defcustom alert-notifications-priorities
+ '((urgent . critical)
+ (high . critical)
+ (moderate . normal)
+ (normal . normal)
+ (low . low)
+ (trivial . low))
+ "A mapping of alert severities onto Growl priority values."
+ :type '(alist :key-type symbol :value-type symbol)
+ :group 'alert)
+
+(defvar alert-notifications-ids (make-hash-table :test #'equal)
+ "Internal store of notification ids returned by the `notifications' backend.
+Used for replacing notifications with the same id. The key is
+the value of the :id keyword to `alert'. An id is only stored
+here if there `alert' was called with an :id keyword and handled
+by the `notifications' style.")
+
+(when (featurep 'notifications)
+ (defun alert-notifications-notify (info)
+ "Show the alert defined by INFO with `notifications-notify'."
+ (let ((id (notifications-notify :title (plist-get info :title)
+ :body (plist-get info :message)
+ :app-icon (plist-get info :icon)
+ :timeout (if (plist-get info :persistent) 0 -1)
+ :replaces-id (gethash (plist-get info :id) alert-notifications-ids)
+ :urgency (cdr (assq (plist-get info :severity)
+ alert-notifications-priorities))
+ :actions '("default" "Open corresponding buffer")
+ :on-action (lambda (id action)
+ (when (string= action "default")
+ (switch-to-buffer (plist-get info :buffer)))))))
+ (when (plist-get info :id)
+ (puthash (plist-get info :id) id alert-notifications-ids)))
+ (alert-message-notify info))
+
+ (defun alert-notifications-remove (info)
+ "Remove the `notifications-notify' message based on INFO :id."
+ (let ((id (and (plist-get info :id)
+ (gethash (plist-get info :id) alert-notifications-ids))))
+ (when id
+ (notifications-close-notification id)
+ (remhash (plist-get info :id) alert-notifications-ids))))
+
+ (alert-define-style 'notifications :title "Notify using notifications"
+ :notifier #'alert-notifications-notify))
+
+\f
+(defcustom alert-notifier-command (executable-find "terminal-notifier")
+ "Path to the terminal-notifier command.
+From https://github.com/julienXX/terminal-notifier."
+ :type 'file
+ :group 'alert)
+
+(defcustom alert-notifier-default-icon
+ (concat data-directory
+ "images/icons/hicolor/128x128/apps/emacs.png")
+ "Filename of default icon to show for terminal-notifier alerts."
+ :type 'string
+ :group 'alert)
+
+(defun alert-notifier-notify (info)
+ (if alert-notifier-command
+ (let ((args
+ (list "-title" (alert-encode-string (plist-get info :title))
+ "-appIcon" (or (plist-get info :icon) alert-notifier-default-icon)
+ "-message" (alert-encode-string (plist-get info :message)))))
+ (apply #'call-process alert-notifier-command nil nil nil args))
+ (alert-message-notify info)))
+
+(alert-define-style 'notifier :title "Notify using terminal-notifier"
+ :notifier #'alert-notifier-notify)
+
+(defun alert-osx-notifier-notify (info)
+ (apply #'call-process "osascript" nil nil nil "-e"
+ (list (format "display notification %S with title %S"
+ (alert-encode-string (plist-get info :message))
+ (alert-encode-string (plist-get info :title)))))
+ (alert-message-notify info))
+
+(when (fboundp 'do-applescript)
+ ;; Use built-in AppleScript support when possible.
+ (defun alert-osx-notifier-notify (info)
+ (do-applescript (format "display notification %S with title %S"
+ (alert-encode-string (plist-get info :message))
+ (alert-encode-string (plist-get info :title))))
+ (alert-message-notify info)))
+
+(alert-define-style 'osx-notifier :title "Notify using native OSX notification" :notifier #'alert-osx-notifier-notify)
+
+(defun alert-frame-notify (info)
+ (let ((buf (plist-get info :buffer)))
+ (if (eq (alert-buffer-status buf) 'buried)
+ (let ((current-frame (selected-frame)))
+ (with-selected-frame
+ (make-frame '((width . 80)
+ (height . 20)
+ (top . -1)
+ (left . 0)
+ (left-fringe . 0)
+ (right-fringe . 0)
+ (tool-bar-lines . nil)
+ (menu-bar-lines . nil)
+ (vertical-scroll-bars . nil)
+ (unsplittable . t)
+ (has-modeline-p . nil)
+ (minibuffer . nil)))
+ (switch-to-buffer buf)
+ ;;(set (make-local-variable 'mode-line-format) nil)
+ (nconc info (list :frame (selected-frame))))
+ (select-frame current-frame)))))
+
+(defun alert-frame-remove (info)
+ (unless (eq this-command 'handle-switch-frame)
+ (delete-frame (plist-get info :frame) t)))
+
+;; This code was kindly borrowed from Arne Babenhauserheide:
+;; http://www.draketo.de/proj/babcore/#sec-3-14-2
+(defun x-urgency-hint (frame arg &optional source)
+ "Set the x-urgency hint for FRAME to ARG.
+
+- If arg is nil, unset the urgency.
+- If arg is any other value, set the urgency.
+
+If you unset the urgency, you still have to visit the frame to make the urgency
+setting disappear (at least in KDE)."
+ (let* ((wm-hints (append (x-window-property
+ "WM_HINTS" frame "WM_HINTS"
+ source nil t) nil))
+ (flags (car wm-hints)))
+ (setcar wm-hints
+ (if arg
+ (logior flags #x00000100)
+ (logand flags #x1ffffeff)))
+ (x-change-window-property "WM_HINTS" wm-hints frame "WM_HINTS" 32 t)))
+
+(defun x-urgent (&optional arg)
+ "Mark the current Emacs frame as requiring urgent attention.
+
+With non-nil ARG, remove the urgency flag (which might or might
+not change display, depending on the window manager)."
+ (interactive "P")
+ (let ((frame (car (car (cdr (current-frame-configuration))))))
+ (x-urgency-hint frame (not arg))))
+
+(defun alert-x11-notify (_info)
+ "Call `x-urgent'."
+ (x-urgent))
+
+(alert-define-style 'x11 :title "Set the X11 window property"
+ :notifier #'alert-x11-notify)
+
+
+(defcustom alert-toaster-default-icon
+ (let ((exec-bin (executable-find "emacs.exe")))
+ (cond (exec-bin
+ (concat (file-name-directory exec-bin) "../share/icons/hicolor/128x128/apps/emacs.png"))
+ (t nil)))
+ "Icon file using toaster."
+ :type 'string
+ :group 'alert
+ )
+
+(defcustom alert-toaster-command (executable-find "toast")
+ "Path to the toast command.
+This is found at https://github.com/nels-o/toaster."
+ :type 'file
+ :group 'alert
+ )
+
+(defun alert-toaster-notify (info)
+ (if alert-toaster-command
+ (let ((args (list
+ "-t" (alert-encode-string (plist-get info :title))
+ "-m" (alert-encode-string (plist-get info :message))
+ "-p" (expand-file-name (or (plist-get info :icon) alert-toaster-default-icon))
+ )))
+ (apply #'call-process alert-toaster-command nil nil nil args))
+ (alert-message-notify info)))
+
+(alert-define-style 'toaster :title "Notify using Toaster"
+ :notifier #'alert-toaster-notify)
+
+(defcustom alert-termux-command (executable-find "termux-notification")
+ "Path to the termux-notification command.
+This is found in the termux-api package, and it requires the Termux
+API addon app to be installed."
+ :type 'file
+ :group 'alert)
+
+(defun alert-termux-notify (info)
+ "Send INFO using termux-notification.
+Handles :TITLE and :MESSAGE keywords from the
+INFO plist."
+ (if alert-termux-command
+ (let ((args (nconc
+ (when (plist-get info :title)
+ (list "-t" (alert-encode-string (plist-get info :title))))
+ (list "-c" (alert-encode-string (plist-get info :message))))))
+ (apply #'call-process alert-termux-command nil
+ (list (get-buffer-create " *termux-notification output*") t)
+ nil args))
+ (alert-message-notify info)))
+
+(alert-define-style 'termux :title "Notify using termux"
+ :notifier #'alert-termux-notify)
+
+;; jww (2011-08-25): Not quite working yet
+;;(alert-define-style 'frame :title "Popup buffer in a frame"
+;; :notifier #'alert-frame-notify
+;; :remover #'alert-frame-remove)
+\f
+(defun alert-buffer-status (&optional buffer)
+ (with-current-buffer (or buffer (current-buffer))
+ (let ((wind (get-buffer-window)))
+ (if wind
+ (if (eq wind (selected-window))
+ (if (and (current-idle-time)
+ (> (float-time (current-idle-time))
+ alert-reveal-idle-time))
+ 'idle
+ 'selected)
+ 'visible)
+ 'buried))))
+
+(defvar alert-active-alerts nil)
+
+(defun alert-remove-when-active (remover info)
+ (let ((idle-time (and (current-idle-time)
+ (float-time (current-idle-time)))))
+ (cond
+ ((and idle-time (> idle-time alert-persist-idle-time)))
+ ((and idle-time (> idle-time alert-reveal-idle-time))
+ (run-with-timer alert-fade-time nil
+ #'alert-remove-when-active remover info))
+ (t
+ (funcall remover info)))))
+
+(defun alert-remove-on-command ()
+ (let (to-delete)
+ (dolist (alert alert-active-alerts)
+ (when (eq (current-buffer) (nth 0 alert))
+ (push alert to-delete)
+ (if (nth 2 alert)
+ (funcall (nth 2 alert) (nth 1 alert)))))
+ (dolist (alert to-delete)
+ (setq alert-active-alerts (delq alert alert-active-alerts)))))
+\f
+(defun alert-send-notification
+ (alert-buffer info style-def &optional persist never-per)
+ (let ((notifier (plist-get style-def :notifier)))
+ (if notifier
+ (funcall notifier info)))
+ (let ((remover (plist-get style-def :remover)))
+ (add-to-list 'alert-active-alerts (list alert-buffer info remover))
+ (with-current-buffer alert-buffer
+ (add-hook 'post-command-hook #'alert-remove-on-command nil t))
+ (if (and remover (or (not persist) never-per))
+ (run-with-timer alert-fade-time nil
+ #'alert-remove-when-active
+ remover info))))
+
+;;;###autoload
+(cl-defun alert (message &key (severity 'normal) title icon category
+ buffer mode data style persistent never-persist
+ id)
+ "Alert the user that something has happened.
+MESSAGE is what the user will see. You may also use keyword
+arguments to specify additional details. Here is a full example:
+
+\(alert \"This is a message\"
+ :severity \\='high ;; The default severity is `normal'
+ :title \"Title\" ;; An optional title
+ :category \\='example ;; A symbol to identify the message
+ :mode \\='text-mode ;; Normally determined automatically
+ :buffer (current-buffer) ;; This is the default
+ :data nil ;; Unused by alert.el itself
+ :persistent nil ;; Force the alert to be persistent;
+ ;; it is best not to use this
+ :never-persist nil ;; Force this alert to never persist
+ :id \\='my-id) ;; Used to replace previous message of
+ ;; the same id in styles that support it
+ :style \\='fringe) ;; Force a given style to be used;
+ ;; this is only for debugging!
+ :icon \\=\"mail-message-new\" ;; if style supports icon then add icon
+ ;; name or path here
+
+If no :title is given, the buffer-name of :buffer is used. If
+:buffer is nil, it is the current buffer at the point of call.
+
+:data is an opaque value which modules can pass through to their
+own styles if they wish.
+
+Here are some more typical examples of usage:
+
+ ;; This is the most basic form usage
+ (alert \"This is an alert\")
+
+ ;; You can adjust the severity for more important messages
+ (alert \"This is an alert\" :severity \\='high)
+
+ ;; Or decrease it for purely informative ones
+ (alert \"This is an alert\" :severity \\='trivial)
+
+ ;; Alerts can have optional titles. Otherwise, the title is the
+ ;; buffer-name of the (current-buffer) where the alert originated.
+ (alert \"This is an alert\" :title \"My Alert\")
+
+ ;; Further, alerts can have categories. This allows users to
+ ;; selectively filter on them.
+ (alert \"This is an alert\" :title \"My Alert\"
+ :category \\='some-category-or-other)"
+ (cl-destructuring-bind
+ (alert-buffer current-major-mode current-buffer-status
+ current-buffer-name)
+ (with-current-buffer (or buffer (current-buffer))
+ (list (current-buffer)
+ (or mode major-mode)
+ (alert-buffer-status)
+ (buffer-name)))
+
+ (let ((base-info (list :message message
+ :title (or title current-buffer-name)
+ :icon icon
+ :severity severity
+ :category category
+ :buffer alert-buffer
+ :persistent persistent
+ :mode current-major-mode
+ :id id
+ :data data
+ :persistent persistent))
+ matched)
+
+ (if alert-log-messages
+ (alert-log-notify base-info))
+
+ (unless alert-hide-all-notifications
+ (catch 'finish
+ (dolist (config (or (append alert-user-configuration
+ alert-internal-configuration)
+ (when style '(nil))))
+ (let* ((style-def (cdr (assq (or style (nth 1 config))
+ alert-styles)))
+ (options (nth 2 config))
+ (persist-p (or persistent
+ (cdr (assq :persistent options))))
+ (persist (if (functionp persist-p)
+ (funcall persist-p base-info)
+ persist-p))
+ (never-persist-p
+ (or never-persist
+ (cdr (assq :never-persist options))))
+ (never-per (if (functionp never-persist-p)
+ (funcall never-persist-p base-info)
+ never-persist-p))
+ (continue (cdr (assq :continue options)))
+ info)
+ (setq info (if (not (memq :persistent base-info))
+ (append base-info (list :persistent persist))
+ base-info)
+ info (if (not (memq :never-persist info))
+ (append info (list :never-persist never-per))
+ info))
+ (when
+ (or style ; :style always "matches", for testing
+ (not
+ (memq
+ nil
+ (mapcar
+ #'(lambda (condition)
+ (cl-case (car condition)
+ (:severity
+ (memq severity (cdr condition)))
+ (:status
+ (memq current-buffer-status (cdr condition)))
+ (:mode
+ (string-match
+ (cdr condition)
+ (symbol-name current-major-mode)))
+ (:category
+ (and category (string-match
+ (cdr condition)
+ (if (stringp category)
+ category
+ (symbol-name category)))))
+ (:title
+ (and title
+ (string-match (cdr condition) title)))
+ (:message
+ (string-match (cdr condition) message))
+ (:predicate
+ (funcall (cdr condition) info))
+ (:icon
+ (string-match (cdr condition) icon))))
+ (nth 0 config)))))
+
+ (alert-send-notification alert-buffer info style-def
+ persist never-per)
+ (setq matched t)
+ (if (or style (not (if (functionp continue)
+ (funcall continue info)
+ continue)))
+ (throw 'finish t)))))))
+
+ (if (and (not matched) alert-default-style)
+ (alert-send-notification alert-buffer base-info
+ (cdr (assq alert-default-style
+ alert-styles)))))))
+\f
+(provide 'alert)
+
+;;; alert.el ends here
projects / emacsconfig.git / commitdiff