ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add alert and compilation notification configuration

Browse source
This commit is contained in:
Tom Willemse 2018-06-27 17:47:19 -07:00
parent 8888df80fd
commit dc6f85c2cb
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
emacs/.emacs.d/site-lisp/oni-windows-nt.el
View file

@ -31,7 +31,8 @@
(require 'find-dired) (require 'find-dired)
(require 'ivy) (require 'ivy)
(require 'grep) (require 'grep)
(require 'magit)) (require 'magit)
(require 'alert))
(defun oni-windows-nt--disable-ivy (orig-fun &rest args) (defun oni-windows-nt--disable-ivy (orig-fun &rest args)
"Disable ivy while running ORIG-FUN with ARGS." "Disable ivy while running ORIG-FUN with ARGS."
@ -44,6 +45,12 @@
(when ivy-enabled (when ivy-enabled
(ivy-mode 1))))) (ivy-mode 1)))))
(defun oni-windows-nt--compilation-finish-notify-function (buffer status)
(when (string= (buffer-name buffer) "*compilation*")
(if (string= (string-trim status) "finished")
(alert "Compilation finished succesfully")
(alert "Compilation finished with an error"))))
(add-to-list 'load-path (locate-user-emacs-file "vendor/p4-vc")) (add-to-list 'load-path (locate-user-emacs-file "vendor/p4-vc"))
(add-to-list 'exec-path "c:/Program Files/Git/bin") (add-to-list 'exec-path "c:/Program Files/Git/bin")
(add-to-list 'exec-path "C:/Program Files/Git/usr/bin") (add-to-list 'exec-path "C:/Program Files/Git/usr/bin")
@ -61,6 +68,14 @@
(setq find-ls-option (setq find-ls-option
(cons (concat "-exec " exe " -ld {} \";\"") "-ld"))) (cons (concat "-exec " exe " -ld {} \";\"") "-ld")))
(with-eval-after-load 'alert
(setq alert-default-icon "c:/Users/WillemsenT/Emacs-25.1-2/share/emacs/25.1/etc/images/icons/hicolor/48x48/apps/emacs.png")
(setq alert-default-style 'toaster)
(setq alert-toaster-command "U:/projects/toaster/toast/bin/Release/toast.exe")
(setq alert-toaster-default-icon "c:/Users/WillemsenT/Emacs-25.1-2/share/emacs/25.1/etc/images/icons/hicolor/48x48/apps/emacs.png"))
(add-hook 'compilation-finish-functions #'oni-windows-nt--compilation-finish-notify-function)
(with-eval-after-load 'grep (with-eval-after-load 'grep
(add-function :around (symbol-function 'grep-read-files) #'oni-windows-nt--disable-ivy)) (add-function :around (symbol-function 'grep-read-files) #'oni-windows-nt--disable-ivy))