From ae016f9db4b32c9e3dc57dcfde650a91cbcbcb9f Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely@polonkai.eu>
Date: Mon, 31 Mar 2025 12:59:42 +0200
Subject: [PATCH] Create the eshell-command-alert helper

---
 configuration.org | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/configuration.org b/configuration.org
index e06a01d..b5f9235 100644
--- a/configuration.org
+++ b/configuration.org
@@ -1030,6 +1030,20 @@ Function to bind it locally to =C-d=.
   (local-set-key (kbd "C-d") #'eshell-C-d))
 #+end_src
 
+This sends an alert when an eshell command is finished.  Taken from
+[[https://blog.hoetzel.info/post/eshell-notifications/][here]].
+
+#+begin_src emacs-lisp
+(defun eshell-command-alert (process status)
+  "Send `alert' with severity based on STATUS when PROCESS finished."
+  (let* ((cmd (process-command process))
+         (buffer (process-buffer process))
+         (msg (format "%s: %s" (mapconcat 'identity cmd " ")  status)))
+    (if (string-prefix-p "finished" status)
+        (alert msg :buffer buffer :severity  'normal)
+      (alert msg :buffer buffer :severity 'urgent))))
+#+end_src
+
 Now set up eshell.
 
 #+begin_src emacs-lisp