mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 21:18:59 +08:00
110 lines
4.3 KiB
EmacsLisp
110 lines
4.3 KiB
EmacsLisp
;;; el-get --- Manage the external elisp bits and pieces you depend upon
|
|
;;
|
|
;; Copyright (C) 2010-2011 Dimitri Fontaine
|
|
;;
|
|
;; Author: Dimitri Fontaine <dim@tapoueh.org>
|
|
;; URL: http://www.emacswiki.org/emacs/el-get
|
|
;; GIT: https://github.com/dimitri/el-get
|
|
;; Licence: WTFPL, grab your copy here: http://sam.zoy.org/wtfpl/
|
|
;;
|
|
;; This file is NOT part of GNU Emacs.
|
|
;;
|
|
;; Install
|
|
;; Please see the README.asciidoc file from the same distribution
|
|
|
|
(require 'el-get-core)
|
|
(require 'help-mode) ; byte-compiling needs to know about xref-type buttons
|
|
|
|
;; we support notifications on darwin too, thanks to growlnotify
|
|
(defcustom el-get-growl-notify "/usr/local/bin/growlnotify"
|
|
"Absolute path of the growlnotify tool"
|
|
:group 'el-get
|
|
:type 'file)
|
|
|
|
|
|
;; notify user with emacs notifications API (new in 24)
|
|
;;
|
|
(when (and (eq system-type 'darwin)
|
|
(file-executable-p el-get-growl-notify))
|
|
(defun el-get-growl (title message)
|
|
"Send a message to growl, that implements notifications for darwin"
|
|
(let* ((name "*growl*")
|
|
(proc
|
|
(start-process name name el-get-growl-notify title "-a" "Emacs")))
|
|
(process-send-string proc (concat message "\n"))
|
|
(process-send-eof proc))))
|
|
|
|
;;
|
|
;; Notification support is either the internal one provided by Emacs 24, or
|
|
;; the external growl one as defined above, or the one provided by the
|
|
;; add-on found on http://www.emacswiki.org/emacs/notify.el (there's a
|
|
;; recipe) for older Emacs versions users
|
|
;;
|
|
(defun el-get-notify (title message)
|
|
"Notify the user using either the dbus based API or the `growl' one"
|
|
(if (fboundp 'dbus-register-signal)
|
|
;; avoid a bug in Emacs 24.0 under darwin
|
|
(require 'notifications nil t)
|
|
;; else try notify.el, there's a recipe for it
|
|
(unless (fboundp 'notify)
|
|
(when (featurep 'notify)
|
|
(require 'notify))))
|
|
|
|
(condition-case nil
|
|
(cond ((fboundp 'notifications-notify) (notifications-notify :title title
|
|
:body message))
|
|
((fboundp 'notify) (notify title message))
|
|
((fboundp 'el-get-growl) (el-get-growl title message))
|
|
(t (message "%s: %s" title message)))
|
|
;; when notification function errored out, degrade gracefully to `message'
|
|
(error (message "%s: %s" title message))))
|
|
|
|
(defun el-get-post-install-notification (package)
|
|
"Notify the PACKAGE has been installed."
|
|
(el-get-notify (format "%s installed" package)
|
|
"This package has been installed successfully by el-get."))
|
|
(add-hook 'el-get-post-install-hooks 'el-get-post-install-notification)
|
|
|
|
(defun el-get-post-update-notification (package)
|
|
"Notify the PACKAGE has been updated."
|
|
(el-get-notify (format "%s updated" package)
|
|
"This package has been updated successfully by el-get."))
|
|
(add-hook 'el-get-post-update-hooks 'el-get-post-update-notification)
|
|
|
|
(defun el-get-post-remove-notification (package)
|
|
"Notify the PACKAGE has been removed."
|
|
(el-get-notify (format "%s removed" package)
|
|
"This package has been removed successfully by el-get."))
|
|
(add-hook 'el-get-post-remove-hooks 'el-get-post-remove-notification)
|
|
|
|
(defun el-get-post-error-notification (package info)
|
|
"Notify the PACKAGE has failed to install."
|
|
(el-get-notify (format "%s failed to install" package)
|
|
(format "%s" info)))
|
|
(add-hook 'el-get-post-error-hooks 'el-get-post-error-notification)
|
|
|
|
;;
|
|
;; Emacs `message' notifications
|
|
;;
|
|
(defun el-get-post-init-message (package)
|
|
"After PACKAGE init is done, just message about it"
|
|
(el-get-verbose-message "el-get initialized package %s" package))
|
|
(add-hook 'el-get-post-init-hooks 'el-get-post-init-message)
|
|
|
|
(defun el-get-post-update-message (package)
|
|
"After PACKAGE update is done, message about it"
|
|
(el-get-verbose-message "el-get updated package %s" package))
|
|
(add-hook 'el-get-post-update-hooks 'el-get-post-update-message)
|
|
|
|
(defun el-get-post-remove-message (package)
|
|
"After PACKAGE remove is done, message about it"
|
|
(el-get-verbose-message "el-get removed package %s" package))
|
|
(add-hook 'el-get-post-remove-hooks 'el-get-post-remove-message)
|
|
|
|
(defun el-get-post-error-message (package info)
|
|
"After PACKAGE fails to install, just message about it"
|
|
(el-get-verbose-message "el-get failed to initialize package %s" package))
|
|
(add-hook 'el-get-post-error-hooks 'el-get-post-error-message)
|
|
|
|
(provide 'el-get-notify)
|