From c9218804220c496d0c841eecaa0c8b6a92146880 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 11 Jan 2021 01:14:36 +0000 Subject: more consult functions, new jao-embark, eos --- sys/jao-notify.el | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 sys/jao-notify.el (limited to 'sys/jao-notify.el') diff --git a/sys/jao-notify.el b/sys/jao-notify.el deleted file mode 100644 index dc48ca4..0000000 --- a/sys/jao-notify.el +++ /dev/null @@ -1,33 +0,0 @@ -;; jao-notify.el -- Interacting with notification daemon - -;; Copyright (c) 2017, 2019, 2020 Jose Antonio Ortega Ruiz - -;; Author: Jose Antonio Ortega Ruiz -;; Start date: Sun Jan 08, 2017 20:24 - - -;;; Comentary: - -;; Simple notifications using echo or dbus notifications - -;;; Code: - -(defvar jao-notify-use-messages-p nil) -(defvar jao-notify-timeout 5000) - -(declare-function notifications-notify "notifications") - -(defun jao-notify (msg &optional title icon) - (if jao-notify-use-messages-p - (message "%s%s%s" (or title "") (if title ": " "") (or msg "")) - (let* ((args `(:timeout ,jao-notify-timeout)) - (args (append args - (if title `(:title ,title :body ,msg) `(:title ,msg)))) - (args (if (and (stringp icon) (file-exists-p icon)) - (append args `(:app-icon ,(format "%s" icon))) - args))) - (apply 'notifications-notify args)))) - - -(provide 'jao-notify) -;;; jao-notify.el ends here -- cgit v1.2.3