From 8de140315a024396abdb6a138768893135383ac4 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 30 Nov 2025 17:50:11 +0100 Subject: [PATCH] update alert --- elpa/alert-20221213.1619/alert-pkg.el | 2 -- .../alert-autoloads.el | 32 +++++++++++-------- elpa/alert-20250823.650/alert-pkg.el | 12 +++++++ .../alert.el | 25 +++++++-------- 4 files changed, 42 insertions(+), 29 deletions(-) delete mode 100644 elpa/alert-20221213.1619/alert-pkg.el rename elpa/{alert-20221213.1619 => alert-20250823.650}/alert-autoloads.el (82%) create mode 100644 elpa/alert-20250823.650/alert-pkg.el rename elpa/{alert-20221213.1619 => alert-20250823.650}/alert.el (98%) diff --git a/elpa/alert-20221213.1619/alert-pkg.el b/elpa/alert-20221213.1619/alert-pkg.el deleted file mode 100644 index 669a19f4..00000000 --- a/elpa/alert-20221213.1619/alert-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; 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" . "jwiegley@gmail.com")) :maintainers '(("John Wiegley" . "jwiegley@gmail.com")) :maintainer '("John Wiegley" . "jwiegley@gmail.com") :keywords '("notification" "emacs" "message") :url "https://github.com/jwiegley/alert") diff --git a/elpa/alert-20221213.1619/alert-autoloads.el b/elpa/alert-20250823.650/alert-autoloads.el similarity index 82% rename from elpa/alert-20221213.1619/alert-autoloads.el rename to elpa/alert-20250823.650/alert-autoloads.el index 7192db95..e5a40af6 100644 --- a/elpa/alert-20221213.1619/alert-autoloads.el +++ b/elpa/alert-20250823.650/alert-autoloads.el @@ -1,12 +1,14 @@ -;;; alert-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- -;; +;;; alert-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + ;;; Code: -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + -;;;### (autoloads nil "alert" "alert.el" (0 0 0 0)) ;;; Generated autoloads from alert.el (autoload 'alert-add-rule "alert" "\ @@ -19,7 +21,7 @@ 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) +(alert-add-rule :status \\='(buried visible idle) :severity \\='(moderate high urgent) :mode \\='erc-mode :predicate @@ -37,14 +39,13 @@ fringe gets colored whenever people chat on BitlBee: :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) - +(fn &key SEVERITY STATUS MODE CATEGORY TITLE MESSAGE PREDICATE ICON (STYLE alert-default-style) PERSISTENT CONTINUE NEVER-PERSIST APPEND)") (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\" +(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 @@ -87,16 +88,19 @@ Here are some more typical examples of usage: (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) - +(fn MESSAGE &key (SEVERITY \\='normal) TITLE ICON CATEGORY BUFFER MODE DATA STYLE PERSISTENT NEVER-PERSIST ID)") (register-definition-prefixes "alert" '("alert-" "x-urgen")) - -;;;*** +;;; End of scraped data + +(provide 'alert-autoloads) + ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t -;; coding: utf-8 +;; no-native-compile: t +;; coding: utf-8-emacs-unix ;; End: + ;;; alert-autoloads.el ends here diff --git a/elpa/alert-20250823.650/alert-pkg.el b/elpa/alert-20250823.650/alert-pkg.el new file mode 100644 index 00000000..3901c368 --- /dev/null +++ b/elpa/alert-20250823.650/alert-pkg.el @@ -0,0 +1,12 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "alert" "20250823.650" + "Growl-style notification system for Emacs." + '((gntp "0.1") + (log4e "0.3.0") + (cl-lib "0.5")) + :url "https://github.com/jwiegley/alert" + :commit "79f6936ab4d85227530959811143429347a6971b" + :revdesc "79f6936ab4d8" + :keywords '("notification" "emacs" "message") + :authors '(("John Wiegley" . "jwiegley@gmail.com")) + :maintainers '(("John Wiegley" . "jwiegley@gmail.com"))) diff --git a/elpa/alert-20221213.1619/alert.el b/elpa/alert-20250823.650/alert.el similarity index 98% rename from elpa/alert-20221213.1619/alert.el rename to elpa/alert-20250823.650/alert.el index da8f6100..f2828d5f 100644 --- a/elpa/alert-20221213.1619/alert.el +++ b/elpa/alert-20250823.650/alert.el @@ -5,9 +5,8 @@ ;; Author: John Wiegley ;; Created: 24 Aug 2011 ;; Updated: 16 Mar 2015 -;; Version: 1.2 -;; Package-Version: 20221213.1619 -;; Package-Commit: c762380ff71c429faf47552a83605b2578656380 +;; Package-Version: 20250823.650 +;; Package-Revision: 79f6936ab4d8 ;; Package-Requires: ((gntp "0.1") (log4e "0.3.0") (cl-lib "0.5")) ;; Keywords: notification emacs message ;; X-URL: https://github.com/jwiegley/alert @@ -680,12 +679,12 @@ This is found in the Growl Extras: http://growl.info/extras.php." (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)))) + (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" @@ -882,16 +881,16 @@ From https://github.com/julienXX/terminal-notifier." (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))))) + (plist-get info :message) + (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)))) + (plist-get info :message) + (plist-get info :title))) (alert-message-notify info))) (alert-define-style 'osx-notifier :title "Notify using native OSX notification" :notifier #'alert-osx-notifier-notify) -- 2.47.3