commit acd8522f5b527aff5b1db80c0754b3d2d89e9b1e
from: Lukas Henkel <lh@entf.net>
date: Fri May 12 17:05:04 2023 UTC

Function for showing diff of unsaved changes

commit - b4a5d5d654e2be4f6a48a6279a091e8686357f3f
commit + acd8522f5b527aff5b1db80c0754b3d2d89e9b1e
blob - c0d60741dd6a5adc31439dd5bee3ef2c6a1b08ac
blob + 83b9358f4b7cac41db8617931863a6e4a055aabe
--- init.el
+++ init.el
@@ -48,6 +48,20 @@
 (defun lh/org-capture-skip-below-toplevel ()
   (when (> (org-current-level) 1)
     (save-excursion (org-end-of-subtree t))))
+
+(defun lh/diff-file-changes ()
+  (interactive)
+  (let ((file-name (make-temp-file "emacs-diff-"))
+        (original-file-name (buffer-file-name)))
+    (unwind-protect
+        (progn
+          (unwind-protect
+              (progn
+                (set-visited-file-name file-name)
+                (save-buffer))
+            (set-visited-file-name original-file-name))
+          (diff original-file-name file-name nil t))
+      (delete-file file-name))))
 
 (defmacro lh/global-set-keys (keys-alist)
   `(progn